INTEGER*4 ICPFLT_MAXFILTERS PARAMETER(ICPFLT_MAXFILTERS=25) STRUCTURE /FILTER/ BYTE ENABLE BYTE PROT_ACT INTEGER*2 W_PROTOCOL BYTE SRC_ACT UNION MAP INTEGER*2 W_SOURCE(0:2) END MAP MAP INTEGER*4 LSOURCE INTEGER*2 LSOURCE4 END MAP END UNION BYTE DST_ACT UNION MAP INTEGER*2 W_DESTINATION(0:2) END MAP MAP INTEGER*4 LDESTINATION INTEGER*2 LDESTINATION4 END MAP END UNION END STRUCTURE ! /FILTER/ INTEGER*2 NCVFLT_MINSIZE/0/, NCVFLT_MAXSIZE/1500/ INTEGER*4 ICVFLT_NUMFILTERS LOGICAL*1 LCVFLT_ENB_SIZE RECORD /FILTER/ SCVFLT_FILTERS(0:ICPFLT_MAXFILTERS) COMMON /FILTERS/ ICVFLT_NUMFILTERS, NCVFLT_MINSIZE, + NCVFLT_MAXSIZE, LCVFLT_ENB_SIZE, SCVFLT_FILTERS