1 INTEGER MAXZLBL 2 PARAMETER ( MAXZLBL = 60 ) 3 4 INTEGER NLRZLBL,ISYLRZ,ISYOFZ 5 CHARACTER*8 LRZLBL 6 7 #if defined (SYS_CRAY) 8 REAL FRQLRZ 9 #else 10 DOUBLE PRECISION FRQLRZ 11 #endif 12 13 COMMON/ILRZRSP/ NLRZLBL,ISYLRZ(MAXZLBL),ISYOFZ(8) 14 COMMON/CLRZRSP/ LRZLBL(MAXZLBL) 15 COMMON/RLRZRSP/ FRQLRZ(MAXZLBL) 16