C* C36CF - FORTRAN CONDITIONAL PROCESSOR - COMMON C LOGICAL LFTRUE, LFELSE, LFDONE, LCLIST, LCREM BYTE BLOGNM C PARAMETER NOUTCF = 5 ! MESSAGE UNIT NUMBER PARAMETER NINLOG = 1 ! LOGICAL VALUE FILE UNIT NUMBER C PARAMETER MAXIF = 5 ! MAX NESTING OF IF-THEN-ELSE PARAMETER MXNEST = 4 ! MAX NESTING OF INPUT FILES PARAMETER MXLOG = 100 ! SIZE OF LOGICAL NAME TABLE IN BYTES C COMMON /C36CF/ IFLINE(MXNEST), NLINE(MXNEST), IFNEST(MXNEST) COMMON /C36CF/ LFTRUE(MXNEST,MAXIF), LFELSE(MXNEST,MAXIF), 1 LFDONE(MXNEST,MAXIF) C COMMON /C36CF/ BLOGNM(MXLOG) COMMON /C36CF/ LCLIST, LCREM