C-----THIS IS COMMON/INCLUDE FILE DPCOF2.INC-----
C     THIS IS COMMON FOR FILE OPERATIONS (PART 2)
C
C     UPDATED (JANUARY   1988) TO INCLUDE DIRECTORY  FILE (IDIRXX).
C     UPDATED (AUGUST    1988) TO INCLUDE DICTIONARY FILE (IDICXX).
C     UPDATED (JUNE      1989) TO INCLUDE CAPTURE    FILE (ICAPXX).
C     UPDATED (JUNE      1990) TO INCLUDE 9 MENU      FILES (IME#XX).
C     UPDATED (AUGUST    1990) TO INCLUDE 11 MORE MENU FILES (IME#XX).
C     UPDATED (AUGUST    1990) SPLIT MENU--TOO MANY CONTINUATION LINES
C     UPDATED (OCTOBER   1991) TO INCLUDE 3 STORAGE FILES (IST#XX).
C     UPDATED (MARCH     1992) TO INCLUDE GENERAL OUTPUT FILE
C                              (INCLUDING LASER PRINTER)
C     UPDATED (APRIL     1992) ADD IDIRNU AND IDICNU (ALAN)
C     UPDATED (NOVEMBER  1993) ADD    PATH, NCPATH    AND    ICOMC8
C     UPDATED (FEBRUARY  1994) ADD    IST4XX
C     UPDATED (FEBRUARY  1996) ADD    MPATH, NCMPAT
C     UPDATED (APRIL     1996) ADD    UNIXPV, UNIXPN, IUNXNC
C     UPDATED (APRIL     1997) ADD    REFERENCE MANUAL HELP FILE
C     UPDATED (APRIL     1997) ADD    ICREN2
C     UPDATED (MARCH     1999) ADD    HANDBOOK HELP FILE
C     UPDATED (MAY       1999) ADD    DPST5F
C     UPDATED (JANUARY   2004) ADD    DPCHAF
C
C               **************************************
C               **************************************
C               **  DEFINE AND EQUIVALENCE INTEGER  **
C               **  FILE OPERATION                  **
C               **  VARIABLES AND ARRAYS            **
C               **************************************
C               **************************************
C
      COMMON /ICOMI1/
     1IMESNU,
     1INEWNU,
     1IMAINU,
     1IHELNU,
     1IBUGNU,
     1IQUENU,
     1ISYSNU,
     1ILOGNU,
CCCCC THE FOLLOWING 2 LINES WERE ADDED   APRIL 1992 (ALAN)
     1IDIRNU,
     1IDICNU,
     1IREANU,
     1IWRINU,
     1ISAVNU,
     1ILISNU,
     1ICRENU,
CCCCC ADD FOLLOWING LINE APRIL 1997
     1ICREN2,
     1ICAPNU
CCCCC THE ABOVE LINE WAS ADDED JUNE 1989
C
      COMMON /ICOMI2/
     1ISCRNU,
     1IDATNU,
     1IPL1NU,
     1IPL2NU,
     1IPRONU,
     1ICONNU,
     1ISACNU,
     1IEX1NU,
     1IEX2NU,
     1IEX3NU,
     1IEX4NU,
     1IEX5NU
C
      COMMON /ICOMI3/
     1IHE1NU,
     1IHE2NU,
     1IHE3NU,
     1IHE4NU,
     1IHE5NU,
     1IHE6NU,
     1IHE7NU,
     1IHE8NU,
     1IHE9NU,
CCCCC FOLLOWING LINE ADDED APRIL 1997
     1IHRMNU,
CCCCC FOLLOWING LINE ADDED MARCH 1999
     1IHHBNU
C
CCCCC THE FOLLOWING SECTION WAS AUGMENTED BY 11 LINES AUGUST 1990
CCCCC AND THEN SPLIT INTO A NEW SECTION (ICOMI6) AUGUST 1990
      COMMON /ICOMI5/
     1IME1NU,
     1IME2NU,
     1IME3NU,
     1IME4NU,
     1IME5NU,
     1IME6NU,
     1IME7NU,
     1IME8NU,
     1IME9NU,
     1IM10NU
C
      COMMON /ICOMI6/
     1IM11NU,
     1IM12NU,
     1IM13NU,
     1IM14NU,
     1IM15NU,
     1IM16NU,
     1IM17NU,
     1IM18NU,
     1IM19NU,
     1IM20NU
C
CCCCC THE FOLLOWING SECTION WAS ADDED OCTOBER 1991
CCCCC THE FOLLOWING SECTION WAS AUGMENTED      MARCH 1992
CCCCC THE FOLLOWING SECTION WAS AUGMENTED      FEBRUARY 1994
C
      COMMON /ICOMI7/
     1IST1NU,
     1IST2NU,
     1IST3NU,
     1IST4NU,
     1IST5NU,
     1IOUTNU
     1IZCHNU
C
C               **************************************
C               **************************************
C               **  DEFINE AND EQUIVALENCE CHARACTER**
C               **  FILE OPERATION                  **
C               **  VARIABLES AND ARRAYS            **
C               **************************************
C               **************************************
C
      CHARACTER*80 IMESNA
      CHARACTER*12 IMESST
      CHARACTER*12 IMESFO
      CHARACTER*12 IMESAC
      CHARACTER*12 IMESPR
      CHARACTER*12 IMESCS
C
      CHARACTER*80 INEWNA
      CHARACTER*12 INEWST
      CHARACTER*12 INEWFO
      CHARACTER*12 INEWAC
      CHARACTER*12 INEWPR
      CHARACTER*12 INEWCS
C
      CHARACTER*80 IMAINA
      CHARACTER*12 IMAIST
      CHARACTER*12 IMAIFO
      CHARACTER*12 IMAIAC
      CHARACTER*12 IMAIPR
      CHARACTER*12 IMAICS
C
      CHARACTER*80 IHELNA
      CHARACTER*12 IHELST
      CHARACTER*12 IHELFO
      CHARACTER*12 IHELAC
      CHARACTER*12 IHELPR
      CHARACTER*12 IHELCS
C
      CHARACTER*80 IBUGNA
      CHARACTER*12 IBUGST
      CHARACTER*12 IBUGFO
      CHARACTER*12 IBUGAC
      CHARACTER*12 IBUGPR
      CHARACTER*12 IBUGCS
C
      CHARACTER*80 IQUENA
      CHARACTER*12 IQUEST
      CHARACTER*12 IQUEFO
      CHARACTER*12 IQUEAC
      CHARACTER*12 IQUEPR
      CHARACTER*12 IQUECS
C
      CHARACTER*80 ISYSNA
      CHARACTER*12 ISYSST
      CHARACTER*12 ISYSFO
      CHARACTER*12 ISYSAC
      CHARACTER*12 ISYSPR
      CHARACTER*12 ISYSCS
C
      CHARACTER*80 ILOGNA
      CHARACTER*12 ILOGST
      CHARACTER*12 ILOGFO
      CHARACTER*12 ILOGAC
      CHARACTER*12 ILOGPR
      CHARACTER*12 ILOGCS
C
      CHARACTER*80 IDIRNA
      CHARACTER*12 IDIRST
      CHARACTER*12 IDIRFO
      CHARACTER*12 IDIRAC
      CHARACTER*12 IDIRPR
      CHARACTER*12 IDIRCS
C
      CHARACTER*80 IDICNA
      CHARACTER*12 IDICST
      CHARACTER*12 IDICFO
      CHARACTER*12 IDICAC
      CHARACTER*12 IDICPR
      CHARACTER*12 IDICCS
C
      CHARACTER*80 IREANA
      CHARACTER*12 IREAST
      CHARACTER*12 IREAFO
      CHARACTER*12 IREAAC
      CHARACTER*12 IREAPR
      CHARACTER*12 IREACS
C
      CHARACTER*80 IWRINA
      CHARACTER*12 IWRIST
      CHARACTER*12 IWRIFO
      CHARACTER*12 IWRIAC
      CHARACTER*12 IWRIPR
      CHARACTER*12 IWRICS
C
      CHARACTER*80 ISAVNA
      CHARACTER*12 ISAVST
      CHARACTER*12 ISAVFO
      CHARACTER*12 ISAVAC
      CHARACTER*12 ISAVPR
      CHARACTER*12 ISAVCS
C
      CHARACTER*80 ILISNA
      CHARACTER*12 ILISST
      CHARACTER*12 ILISFO
      CHARACTER*12 ILISAC
      CHARACTER*12 ILISPR
      CHARACTER*12 ILISCS
C
      CHARACTER*80 ICRENA
      CHARACTER*12 ICREST
      CHARACTER*12 ICREFO
      CHARACTER*12 ICREAC
      CHARACTER*12 ICREPR
      CHARACTER*12 ICRECS
C
CCCCC THE FOLLOWING 6 LINES WERE ADDED JUNE 1989
      CHARACTER*80 ICAPNA
      CHARACTER*12 ICAPST
      CHARACTER*12 ICAPFO
      CHARACTER*12 ICAPAC
      CHARACTER*12 ICAPPR
      CHARACTER*12 ICAPCS
C
      CHARACTER*80 ISCRNA
      CHARACTER*12 ISCRST
      CHARACTER*12 ISCRFO
      CHARACTER*12 ISCRAC
      CHARACTER*12 ISCRPR
      CHARACTER*12 ISCRCS
C
      CHARACTER*80 IDATNA
      CHARACTER*12 IDATST
      CHARACTER*12 IDATFO
      CHARACTER*12 IDATAC
      CHARACTER*12 IDATPR
      CHARACTER*12 IDATCS
C
      CHARACTER*80 IPL1NA
      CHARACTER*12 IPL1ST
      CHARACTER*12 IPL1FO
      CHARACTER*12 IPL1AC
      CHARACTER*12 IPL1PR
      CHARACTER*12 IPL1CS
C
      CHARACTER*80 IPL2NA
      CHARACTER*12 IPL2ST
      CHARACTER*12 IPL2FO
      CHARACTER*12 IPL2AC
      CHARACTER*12 IPL2PR
      CHARACTER*12 IPL2CS
C
      CHARACTER*80 IPRONA
      CHARACTER*12 IPROST
      CHARACTER*12 IPROFO
      CHARACTER*12 IPROAC
      CHARACTER*12 IPROPR
      CHARACTER*12 IPROCS
C
      CHARACTER*80 ICONNA
      CHARACTER*12 ICONST
      CHARACTER*12 ICONFO
      CHARACTER*12 ICONAC
      CHARACTER*12 ICONPR
      CHARACTER*12 ICONCS
C
      CHARACTER*80 ISACNA
      CHARACTER*12 ISACST
      CHARACTER*12 ISACFO
      CHARACTER*12 ISACAC
      CHARACTER*12 ISACPR
      CHARACTER*12 ISACCS
C
      CHARACTER*80 IEX1NA
      CHARACTER*12 IEX1ST
      CHARACTER*12 IEX1FO
      CHARACTER*12 IEX1AC
      CHARACTER*12 IEX1PR
      CHARACTER*12 IEX1CS
C
      CHARACTER*80 IEX2NA
      CHARACTER*12 IEX2ST
      CHARACTER*12 IEX2FO
      CHARACTER*12 IEX2AC
      CHARACTER*12 IEX2PR
      CHARACTER*12 IEX2CS
C
      CHARACTER*80 IEX3NA
      CHARACTER*12 IEX3ST
      CHARACTER*12 IEX3FO
      CHARACTER*12 IEX3AC
      CHARACTER*12 IEX3PR
      CHARACTER*12 IEX3CS
C
      CHARACTER*80 IEX4NA
      CHARACTER*12 IEX4ST
      CHARACTER*12 IEX4FO
      CHARACTER*12 IEX4AC
      CHARACTER*12 IEX4PR
      CHARACTER*12 IEX4CS
C
      CHARACTER*80 IEX5NA
      CHARACTER*12 IEX5ST
      CHARACTER*12 IEX5FO
      CHARACTER*12 IEX5AC
      CHARACTER*12 IEX5PR
      CHARACTER*12 IEX5CS
C
      CHARACTER*80 IHE1NA
      CHARACTER*12 IHE1ST
      CHARACTER*12 IHE1FO
      CHARACTER*12 IHE1AC
      CHARACTER*12 IHE1PR
      CHARACTER*12 IHE1CS
C
      CHARACTER*80 IHE2NA
      CHARACTER*12 IHE2ST
      CHARACTER*12 IHE2FO
      CHARACTER*12 IHE2AC
      CHARACTER*12 IHE2PR
      CHARACTER*12 IHE2CS
C
      CHARACTER*80 IHE3NA
      CHARACTER*12 IHE3ST
      CHARACTER*12 IHE3FO
      CHARACTER*12 IHE3AC
      CHARACTER*12 IHE3PR
      CHARACTER*12 IHE3CS
C
      CHARACTER*80 IHE4NA
      CHARACTER*12 IHE4ST
      CHARACTER*12 IHE4FO
      CHARACTER*12 IHE4AC
      CHARACTER*12 IHE4PR
      CHARACTER*12 IHE4CS
C
      CHARACTER*80 IHE5NA
      CHARACTER*12 IHE5ST
      CHARACTER*12 IHE5FO
      CHARACTER*12 IHE5AC
      CHARACTER*12 IHE5PR
      CHARACTER*12 IHE5CS
C
      CHARACTER*80 IHE6NA
      CHARACTER*12 IHE6ST
      CHARACTER*12 IHE6FO
      CHARACTER*12 IHE6AC
      CHARACTER*12 IHE6PR
      CHARACTER*12 IHE6CS
C
      CHARACTER*80 IHE7NA
      CHARACTER*12 IHE7ST
      CHARACTER*12 IHE7FO
      CHARACTER*12 IHE7AC
      CHARACTER*12 IHE7PR
      CHARACTER*12 IHE7CS
C
      CHARACTER*80 IHE8NA
      CHARACTER*12 IHE8ST
      CHARACTER*12 IHE8FO
      CHARACTER*12 IHE8AC
      CHARACTER*12 IHE8PR
      CHARACTER*12 IHE8CS
C
      CHARACTER*80 IHE9NA
      CHARACTER*12 IHE9ST
      CHARACTER*12 IHE9FO
      CHARACTER*12 IHE9AC
      CHARACTER*12 IHE9PR
      CHARACTER*12 IHE9CS
C
CCCCC THE FOLLOWING SECTION ADDED APRIL 1997
      CHARACTER*80 IHRMNA
      CHARACTER*12 IHRMST
      CHARACTER*12 IHRMFO
      CHARACTER*12 IHRMAC
      CHARACTER*12 IHRMPR
      CHARACTER*12 IHRMCS
CCCCC THE FOLLOWING SECTION ADDED MARCH 1999
      CHARACTER*80 IHHBNA
      CHARACTER*12 IHHBST
      CHARACTER*12 IHHBFO
      CHARACTER*12 IHHBAC
      CHARACTER*12 IHHBPR
      CHARACTER*12 IHHBCS
CCCCC THE FOLLOWING SECTION ADDED MARCH 1999
C
CCCCC THE FOLLOWING 9 SECTIONS (1 TO 9) WERE ADDED JUNE 1990
      CHARACTER*80 IME1NA
      CHARACTER*12 IME1ST
      CHARACTER*12 IME1FO
      CHARACTER*12 IME1AC
      CHARACTER*12 IME1PR
      CHARACTER*12 IME1CS
C
      CHARACTER*80 IME2NA
      CHARACTER*12 IME2ST
      CHARACTER*12 IME2FO
      CHARACTER*12 IME2AC
      CHARACTER*12 IME2PR
      CHARACTER*12 IME2CS
C
      CHARACTER*80 IME3NA
      CHARACTER*12 IME3ST
      CHARACTER*12 IME3FO
      CHARACTER*12 IME3AC
      CHARACTER*12 IME3PR
      CHARACTER*12 IME3CS
C
      CHARACTER*80 IME4NA
      CHARACTER*12 IME4ST
      CHARACTER*12 IME4FO
      CHARACTER*12 IME4AC
      CHARACTER*12 IME4PR
      CHARACTER*12 IME4CS
C
      CHARACTER*80 IME5NA
      CHARACTER*12 IME5ST
      CHARACTER*12 IME5FO
      CHARACTER*12 IME5AC
      CHARACTER*12 IME5PR
      CHARACTER*12 IME5CS
C
      CHARACTER*80 IME6NA
      CHARACTER*12 IME6ST
      CHARACTER*12 IME6FO
      CHARACTER*12 IME6AC
      CHARACTER*12 IME6PR
      CHARACTER*12 IME6CS
C
      CHARACTER*80 IME7NA
      CHARACTER*12 IME7ST
      CHARACTER*12 IME7FO
      CHARACTER*12 IME7AC
      CHARACTER*12 IME7PR
      CHARACTER*12 IME7CS
C
      CHARACTER*80 IME8NA
      CHARACTER*12 IME8ST
      CHARACTER*12 IME8FO
      CHARACTER*12 IME8AC
      CHARACTER*12 IME8PR
      CHARACTER*12 IME8CS
C
      CHARACTER*80 IME9NA
      CHARACTER*12 IME9ST
      CHARACTER*12 IME9FO
      CHARACTER*12 IME9AC
      CHARACTER*12 IME9PR
      CHARACTER*12 IME9CS
C
CCCCC THE FOLLOWING 11 SECTIONS (10 TO 20) WERE ADDED AUGUST 1990
      CHARACTER*80 IM10NA
      CHARACTER*12 IM10ST
      CHARACTER*12 IM10FO
      CHARACTER*12 IM10AC
      CHARACTER*12 IM10PR
      CHARACTER*12 IM10CS
C
      CHARACTER*80 IM11NA
      CHARACTER*12 IM11ST
      CHARACTER*12 IM11FO
      CHARACTER*12 IM11AC
      CHARACTER*12 IM11PR
      CHARACTER*12 IM11CS
C
      CHARACTER*80 IM12NA
      CHARACTER*12 IM12ST
      CHARACTER*12 IM12FO
      CHARACTER*12 IM12AC
      CHARACTER*12 IM12PR
      CHARACTER*12 IM12CS
C
      CHARACTER*80 IM13NA
      CHARACTER*12 IM13ST
      CHARACTER*12 IM13FO
      CHARACTER*12 IM13AC
      CHARACTER*12 IM13PR
      CHARACTER*12 IM13CS
C
      CHARACTER*80 IM14NA
      CHARACTER*12 IM14ST
      CHARACTER*12 IM14FO
      CHARACTER*12 IM14AC
      CHARACTER*12 IM14PR
      CHARACTER*12 IM14CS
C
      CHARACTER*80 IM15NA
      CHARACTER*12 IM15ST
      CHARACTER*12 IM15FO
      CHARACTER*12 IM15AC
      CHARACTER*12 IM15PR
      CHARACTER*12 IM15CS
C
      CHARACTER*80 IM16NA
      CHARACTER*12 IM16ST
      CHARACTER*12 IM16FO
      CHARACTER*12 IM16AC
      CHARACTER*12 IM16PR
      CHARACTER*12 IM16CS
C
      CHARACTER*80 IM17NA
      CHARACTER*12 IM17ST
      CHARACTER*12 IM17FO
      CHARACTER*12 IM17AC
      CHARACTER*12 IM17PR
      CHARACTER*12 IM17CS
C
      CHARACTER*80 IM18NA
      CHARACTER*12 IM18ST
      CHARACTER*12 IM18FO
      CHARACTER*12 IM18AC
      CHARACTER*12 IM18PR
      CHARACTER*12 IM18CS
C
      CHARACTER*80 IM19NA
      CHARACTER*12 IM19ST
      CHARACTER*12 IM19FO
      CHARACTER*12 IM19AC
      CHARACTER*12 IM19PR
      CHARACTER*12 IM19CS
C
      CHARACTER*80 IM20NA
      CHARACTER*12 IM20ST
      CHARACTER*12 IM20FO
      CHARACTER*12 IM20AC
      CHARACTER*12 IM20PR
      CHARACTER*12 IM20CS
C
CCCCC THE FOLLOWING 3 SECTIONS WERE ADDED OCTOBER 1991
C
      CHARACTER*80 IST1NA
      CHARACTER*12 IST1ST
      CHARACTER*12 IST1FO
      CHARACTER*12 IST1AC
      CHARACTER*12 IST1PR
      CHARACTER*12 IST1CS
C
      CHARACTER*80 IST2NA
      CHARACTER*12 IST2ST
      CHARACTER*12 IST2FO
      CHARACTER*12 IST2AC
      CHARACTER*12 IST2PR
      CHARACTER*12 IST2CS
C
      CHARACTER*80 IST3NA
      CHARACTER*12 IST3ST
      CHARACTER*12 IST3FO
      CHARACTER*12 IST3AC
      CHARACTER*12 IST3PR
      CHARACTER*12 IST3CS
C
CCCCC THE FOLLOWING SECTION WAS ADDED FEBRUARY 1994
C
      CHARACTER*80 IST4NA
      CHARACTER*12 IST4ST
      CHARACTER*12 IST4FO
      CHARACTER*12 IST4AC
      CHARACTER*12 IST4PR
      CHARACTER*12 IST4CS
C
CCCCC THE FOLLOWING SECTION WAS ADDED MAY 1999
C
      CHARACTER*80 IST5NA
      CHARACTER*12 IST5ST
      CHARACTER*12 IST5FO
      CHARACTER*12 IST5AC
      CHARACTER*12 IST5PR
      CHARACTER*12 IST5CS
C
CCCCC THE FOLLOWING SECTION WAS ADDED MARCH 1992
C
      CHARACTER*80 IOUTNA
      CHARACTER*12 IOUTST
      CHARACTER*12 IOUTFO
      CHARACTER*12 IOUTAC
      CHARACTER*12 IOUTPR
      CHARACTER*12 IOUTCS
C
CCCCC THE FOLLOWING SECTION WAS ADDED JANUARY 2004
C
      CHARACTER*80 IZCHNA
      CHARACTER*12 IZCHST
      CHARACTER*12 IZCHFO
      CHARACTER*12 IZCHAC
      CHARACTER*12 IZCHPR
      CHARACTER*12 IZCHCS
C
      CHARACTER*1 IFCHAR
C
CCCCC THE FOLLOWING LINE WAS ADDED   NOVEMBER 1993
      CHARACTER*80 PATH
      CHARACTER*80 MPATH
      CHARACTER*1 DRIVE
CCCCC THE FOLLOWING 2 LINES WERE ADDED   APRIL 1996
      CHARACTER*16 UNIXPV
      CHARACTER*80 UNIXPN
C
      COMMON /ICOMC1/
     1IMESNA,IMESST,IMESFO,IMESAC,IMESPR,IMESCS,
     1INEWNA,INEWST,INEWFO,INEWAC,INEWPR,INEWCS,
     1IMAINA,IMAIST,IMAIFO,IMAIAC,IMAIPR,IMAICS,
     1IHELNA,IHELST,IHELFO,IHELAC,IHELPR,IHELCS,
     1IBUGNA,IBUGST,IBUGFO,IBUGAC,IBUGPR,IBUGCS,
     1IQUENA,IQUEST,IQUEFO,IQUEAC,IQUEPR,IQUECS,
     1ISYSNA,ISYSST,ISYSFO,ISYSAC,ISYSPR,ISYSCS,
     1ILOGNA,ILOGST,ILOGFO,ILOGAC,ILOGPR,ILOGCS,
     1IDIRNA,IDIRST,IDIRFO,IDIRAC,IDIRPR,IDIRCS,
     1IDICNA,IDICST,IDICFO,IDICAC,IDICPR,IDICCS,
     1IREANA,IREAST,IREAFO,IREAAC,IREAPR,IREACS,
     1IWRINA,IWRIST,IWRIFO,IWRIAC,IWRIPR,IWRICS,
     1ISAVNA,ISAVST,ISAVFO,ISAVAC,ISAVPR,ISAVCS,
     1ILISNA,ILISST,ILISFO,ILISAC,ILISPR,ILISCS,
     1ICRENA,ICREST,ICREFO,ICREAC,ICREPR,ICRECS,
     1ICAPNA,ICAPST,ICAPFO,ICAPAC,ICAPPR,ICAPCS
CCCCC THE ABOVE LINE WAS ADDED JUNE 1989
C
      COMMON /ICOMC2/
     1ISCRNA,ISCRST,ISCRFO,ISCRAC,ISCRPR,ISCRCS,
     1IDATNA,IDATST,IDATFO,IDATAC,IDATPR,IDATCS,
     1IPL1NA,IPL1ST,IPL1FO,IPL1AC,IPL1PR,IPL1CS,
     1IPL2NA,IPL2ST,IPL2FO,IPL2AC,IPL2PR,IPL2CS,
     1IPRONA,IPROST,IPROFO,IPROAC,IPROPR,IPROCS,
     1ICONNA,ICONST,ICONFO,ICONAC,ICONPR,ICONCS,
     1ISACNA,ISACST,ISACFO,ISACAC,ISACPR,ISACCS,
     1IEX1NA,IEX1ST,IEX1FO,IEX1AC,IEX1PR,IEX1CS,
     1IEX2NA,IEX2ST,IEX2FO,IEX2AC,IEX2PR,IEX2CS,
     1IEX3NA,IEX3ST,IEX3FO,IEX3AC,IEX3PR,IEX3CS,
     1IEX4NA,IEX4ST,IEX4FO,IEX4AC,IEX4PR,IEX4CS,
     1IEX5NA,IEX5ST,IEX5FO,IEX5AC,IEX5PR,IEX5CS
C
      COMMON /ICOMC3/
     1IHE1NA,IHE1ST,IHE1FO,IHE1AC,IHE1PR,IHE1CS,
     1IHE2NA,IHE2ST,IHE2FO,IHE2AC,IHE2PR,IHE2CS,
     1IHE3NA,IHE3ST,IHE3FO,IHE3AC,IHE3PR,IHE3CS,
     1IHE4NA,IHE4ST,IHE4FO,IHE4AC,IHE4PR,IHE4CS,
     1IHE5NA,IHE5ST,IHE5FO,IHE5AC,IHE5PR,IHE5CS,
     1IHE6NA,IHE6ST,IHE6FO,IHE6AC,IHE6PR,IHE6CS,
     1IHE7NA,IHE7ST,IHE7FO,IHE7AC,IHE7PR,IHE7CS,
     1IHE8NA,IHE8ST,IHE8FO,IHE8AC,IHE8PR,IHE8CS,
     1IHE9NA,IHE9ST,IHE9FO,IHE9AC,IHE9PR,IHE9CS,
CCCCC FOLLOWING LINE ADDED APRIL 1997
     1IHRMNA,IHRMST,IHRMFO,IHRMAC,IHRMPR,IHRMCS,
CCCCC FOLLOWING LINE ADDED MARCH 1999
     1IHHBNA,IHHBST,IHHBFO,IHHBAC,IHHBPR,IHHBCS
C
      COMMON /ICOMC4/
     1IFCHAR
C
CCCCC THE FOLLOWING SECTION WAS ADDED JUNE 1990
CCCCC AND THEN AUGMENTED BY 11 MORE LINES AUGUST 1990
CCCCC AND THEN SPLIT INTO A NEW SECTION (ICOMC6) AUGUST 1990
      COMMON /ICOMC5/
     1IME1NA,IME1ST,IME1FO,IME1AC,IME1PR,IME1CS,
     1IME2NA,IME2ST,IME2FO,IME2AC,IME2PR,IME2CS,
     1IME3NA,IME3ST,IME3FO,IME3AC,IME3PR,IME3CS,
     1IME4NA,IME4ST,IME4FO,IME4AC,IME4PR,IME4CS,
     1IME5NA,IME5ST,IME5FO,IME5AC,IME5PR,IME5CS,
     1IME6NA,IME6ST,IME6FO,IME6AC,IME6PR,IME6CS,
     1IME7NA,IME7ST,IME7FO,IME7AC,IME7PR,IME7CS,
     1IME8NA,IME8ST,IME8FO,IME8AC,IME8PR,IME8CS,
     1IME9NA,IME9ST,IME9FO,IME9AC,IME9PR,IME9CS,
     1IM10NA,IM10ST,IM10FO,IM10AC,IM10PR,IM10CS
C
      COMMON /ICOMC6/
     1IM11NA,IM11ST,IM11FO,IM11AC,IM11PR,IM11CS,
     1IM12NA,IM12ST,IM12FO,IM12AC,IM12PR,IM12CS,
     1IM13NA,IM13ST,IM13FO,IM13AC,IM13PR,IM13CS,
     1IM14NA,IM14ST,IM14FO,IM14AC,IM14PR,IM14CS,
     1IM15NA,IM15ST,IM15FO,IM15AC,IM15PR,IM15CS,
     1IM16NA,IM16ST,IM16FO,IM16AC,IM16PR,IM16CS,
     1IM17NA,IM17ST,IM17FO,IM17AC,IM17PR,IM17CS,
     1IM18NA,IM18ST,IM18FO,IM18AC,IM18PR,IM18CS,
     1IM19NA,IM19ST,IM19FO,IM19AC,IM19PR,IM19CS,
     1IM20NA,IM20ST,IM20FO,IM20AC,IM20PR,IM20CS
C
CCCCC THE FOLLOWING SECTION WAS ADDED OCTOBER 1991
CCCCC THE FOLLOWING SECTION WAS AUGMENTED      MARCH 1992
CCCCC THE FOLLOWING SECTION WAS AUGMENTED      FEBRUARY 1994
CCCCC THE FOLLOWING SECTION WAS AUGMENTED      JANAUARY 2004
      COMMON /ICOMC7/
     1IST1NA,IST1ST,IST1FO,IST1AC,IST1PR,IST1CS,
     1IST2NA,IST2ST,IST2FO,IST2AC,IST2PR,IST2CS,
     1IST3NA,IST3ST,IST3FO,IST3AC,IST3PR,IST3CS,
     1IST4NA,IST4ST,IST4FO,IST4AC,IST4PR,IST4CS,
     1IST5NA,IST5ST,IST5FO,IST5AC,IST5PR,IST5CS,
     1IOUTNA,IOUTST,IOUTFO,IOUTAC,IOUTPR,IOUTCS,
     1IZCHNA,IZCHST,IZCHFO,IZCHAC,IZCHPR,IZCHCS
C
CCCCC THE FOLLOWING SECTION WAS ADDED      NOVEMBER 1993
      COMMON /ICOMC8/
CCCCC THE FOLLOWING LINE WAS AUGMENTED     FEBRUARY 1996
CCCCC1PATH,NCPATH
     1PATH,NCPATH,MPATH,NCMPAT,DRIVE
CCCCC THE FOLLOWING SECTION WAS ADDED      APRIL 1996
      COMMON /ICOMC9/
     1UNIXPN,UNIXPV,IUNXNC
