C
C  *** / F 3 C O M / ***
C
C  FILE 3 COMMON CONTROL VARIABLES
C
      COMMON /F3COM/ FILE3,LENBF3,LF3REC,MOTREC,MOTADD,LAST,NUMIC,
     X MAXIC,ICORE(3,20)
      INTEGER FILE3
C
C  VARIABLE DEFINITIONS:
C         FILE3---FILE NAME OR UNIT FOR FILE3 - THE B-TREE FILE
C         LENBF3--LENGTH OF BLOCKS ON FILE3
C         LF3REC--NEXT AVAILABLE RECORD ON FILE3
C         MOTREC--LAST RECORD USED FOR MULTIPLE OCCURRENCE TABLE
C         MOTADD--LAST WORD USED IN THAT RECORD
C         LAST----LAST RECORD REQUESTED
C         NUMIC---CURRENT NUMBER OF INCORE BLOCKS
C         MAXIC---MAXIMUM NUMBER OF INCORE BLOCKS POSSIBLE
C         ICORE---ARRAY OF INCORE BLOCK DATA
C             ROW 1 - NUMBER OF USES
C             ROW 2 - WRITE FLAG (1=YES, 0=NO)
C             ROW 3 - CORRESPONDING RECORD NUMBER
C