1 INTEGER MAXEL1LBL 2 PARAMETER ( MAXEL1LBL = 60 ) 3 4 LOGICAL LEL1OPN 5 INTEGER NEL1LBL, ISYOFEL1 6 7 INTEGER ISTEL1(MAXEL1LBL) 8 9 INTEGER ISYSEL1(MAXEL1LBL) 10 INTEGER ISYOEL1(MAXEL1LBL) 11 12 LOGICAL LPREL1(MAXEL1LBL) 13 LOGICAL LORXEL1(MAXEL1LBL) 14 15 CHARACTER*8 LBLEL1(MAXEL1LBL) 16 17 #if defined (SYS_CRAY) 18 REAL EIGEL1(MAXEL1LBL) 19 REAL FRQEL1(MAXEL1LBL) 20 #else 21 DOUBLE PRECISION EIGEL1(MAXEL1LBL) 22 DOUBLE PRECISION FRQEL1(MAXEL1LBL) 23 #endif 24 25 COMMON/IEL1RSP/ ISTEL1, ISYSEL1, ISYOEL1, LPREL1, LORXEL1, 26 & NEL1LBL, ISYOFEL1(8), LEL1OPN 27 COMMON/CEL1RSP/ LBLEL1 28 COMMON/REL1RSP/ EIGEL1, FRQEL1 29 30