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