& aim_select_pCO2,
INTEGER aim_select_pCO2
IF ( aim_select_pCO2 .EQ. 3 ) THEN
IF ( aim_select_pCO2 .GE. 2 ) THEN
& aim_select_pCO2, aim_abs_pCO2, aim_fixed_pCO2, atmpCO2init,
aim_select_pCO2 = 0
IF ( aim_select_pCO2.LT.0 .OR. aim_select_pCO2.GT.3 ) THEN
IF ( aim_select_pCO2.GE.2 .AND. aim_select_pCO2.LE.3 ) THEN
ELSEIF ( aim_select_pCO2.NE.1 .AND.
& aim_select_pCO2.GE.0 .AND. aim_select_pCO2.LE.3 ) THEN
ELSEIF ( aim_select_pCO2.GE.0 .AND. aim_select_pCO2.LT.2 ) THEN
buffI(1) = aim_select_pCO2
IF ( aim_select_pCO2.EQ.1 .OR. aim_select_pCO2.EQ.3 )
IF ( aim_select_pCO2.EQ.1 )
IF ( aim_select_pCO2.EQ.1 .OR. aim_select_pCO2.EQ.3 ) THEN