!*** MODULE $ESRFDEF *** !DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN ! ! EVAX Symbol reference (SYM$M_DEF in EGSY$W_FLAGS is 0) ! PARAMETER ESRF$K_NAME = '00000009'X PARAMETER ESRF$C_NAME = '00000009'X STRUCTURE /ESRFDEF/ UNION MAP INTEGER*2 ESRF$W_GSDTYP ! Maps over GSY$B_GSDTYP END MAP MAP ! unsupported type CHARACTER*0 ESRF$T_START INTEGER*2 %FILL END MAP END UNION INTEGER*2 ESRF$W_SIZE ! size of this ESRF BYTE ESRF$B_DATYP ! Maps over GSY$B_DATYP BYTE ESRF$B_TEMP ! pad for alignment INTEGER*2 ESRF$W_FLAGS ! Maps over GSY$W_FLAGS BYTE ESRF$B_NAMLNG ! Length of symbol name CHARACTER*31 ESRF$T_NAME ! Symbol name END STRUCTURE ! ESRFDEF !DEC$ END OPTIONS