C
C  *** / F 2 C O M / ***
C
C  FILE 2 COMMON CONTROL VARIABLES
C
      COMMON /F2COM/ FILE2,LENBF2,LF2REC,LF2WRD,CURBLK(3),MODFLG(3)
      INTEGER FILE2
      INTEGER CURBLK
C
C  VARIABLE DEFINITIONS:
C         FILE2---FILE NAME OR UNIT FOR FILE2 - THE DATA FILE
C         LENBF2--LENGTH OF BLOCKS ON FILE2
C         LF2REC--NEXT AVAILABLE RECORD ON FILE2
C         LF2WRD--NEXT AVAILABLE WORD IN LF2REC
C         CURBLK--CURRENT RECORDS IN CORE
C         MODFLG--NON-ZERO FLAG INDICATES RECORD IN CORE HAS MODS
C