1 INTEGER MAXCR2LBL 2 PARAMETER ( MAXCR2LBL = 360 ) 3 4 LOGICAL LCR2OPN 5 6 INTEGER NCR2LBL, ISYOFCR2(8) 7 8 INTEGER ISYCR2(MAXCR2LBL,2) 9 10 INTEGER ICR2CAU(MAXCR2LBL,2) 11 12 CHARACTER*8 LBLCR2(MAXCR2LBL,2) 13 14 COMMON/ICR2RSP/ ISYCR2, NCR2LBL, ICR2CAU, ISYOFCR2, LCR2OPN 15 COMMON/CCR2RSP/ LBLCR2 16