1 INTEGER MAXER1LBL 2 PARAMETER ( MAXER1LBL = 60 ) 3 4 LOGICAL LER1OPN 5 INTEGER NER1LBL, ISYOFER1 6 7 INTEGER ISTER1(MAXER1LBL) 8 9 INTEGER ISYSER1(MAXER1LBL) 10 INTEGER ISYOER1(MAXER1LBL) 11 12 LOGICAL LPRER1(MAXER1LBL) 13 LOGICAL LORXER1(MAXER1LBL) 14 15 CHARACTER*8 LBLER1(MAXER1LBL) 16 17 #if defined (SYS_CRAY) 18 REAL EIGER1(MAXER1LBL) 19 REAL FRQER1(MAXER1LBL) 20 #else 21 DOUBLE PRECISION EIGER1(MAXER1LBL) 22 DOUBLE PRECISION FRQER1(MAXER1LBL) 23 #endif 24 25 COMMON/IER1RSP/ ISTER1, ISYSER1, ISYOER1, LPRER1, LORXER1, 26 & NER1LBL, ISYOFER1(8), LER1OPN 27 COMMON/CER1RSP/ LBLER1 28 COMMON/RER1RSP/ EIGER1, FRQER1 29 30