1 INTEGER MAXER2LBL 2 PARAMETER ( MAXER2LBL = 20 ) 3 4 LOGICAL LER2OPN 5 INTEGER NER2LBL, ISYOFER2 6 7 INTEGER ISTER2(MAXER2LBL) 8 9 INTEGER ISYSER2(MAXER2LBL) 10 INTEGER ISYOER2(MAXER2LBL,2) 11 12 LOGICAL LPRER2(MAXER2LBL) 13 LOGICAL LORXER2(MAXER2LBL,2) 14 15 CHARACTER*8 LBLER2(MAXER2LBL,2) 16 17 #if defined (SYS_CRAY) 18 REAL EIGER2(MAXER2LBL) 19 REAL FRQER2(MAXER2LBL,2) 20 #else 21 DOUBLE PRECISION EIGER2(MAXER2LBL) 22 DOUBLE PRECISION FRQER2(MAXER2LBL,2) 23 #endif 24 25 COMMON/IER2RSP/ ISTER2, ISYSER2, ISYOER2, LPRER2, LORXER2, 26 & NER2LBL, ISYOFER2(8), LER2OPN 27 COMMON/CER2RSP/ LBLER2 28 COMMON/RER2RSP/ EIGER2, FRQER2 29 30