1       INTEGER MAXCO2LBL
2       PARAMETER ( MAXCO2LBL = 360 )
3 
4       LOGICAL LCO2OPN
5 
6       INTEGER NCO2LBL, ISYOFCO2(8)
7 
8       INTEGER ISYCO2(MAXCO2LBL,2)
9 
10       INTEGER ICO2CAU(MAXCO2LBL,2)
11 
12       CHARACTER*8 LBLCO2(MAXCO2LBL,2)
13 
14       COMMON/ICO2RSP/ ISYCO2, NCO2LBL, ICO2CAU, ISYOFCO2, LCO2OPN
15       COMMON/CCO2RSP/ LBLCO2
16