C----    READ DIMENSION CO2 TRANS DATA AND SAVE AS SINGLE PRECIS
      INCLUDE "parmco2"
      PARAMETER (L=LERIC,LP1=L+1)
      DIMENSION STEMP(LP1),GTEMP(LP1)
      DIMENSION CDTM51(L),CO2M51(L),C2DM51(L)
      DIMENSION CDTM58(L),CO2M58(L),C2DM58(L)
      DIMENSION CDT51(LP1,LP1),CO251(LP1,LP1),C2D51(LP1,LP1)
      DIMENSION CDT58(LP1,LP1),CO258(LP1,LP1),C2D58(LP1,LP1)
CNOV89
      DIMENSION CDT31(LP1),CO231(LP1),C2D31(LP1)
      DIMENSION CDT38(LP1),CO238(LP1),C2D38(LP1)
      DIMENSION CDT71(LP1),CO271(LP1),C2D71(LP1)
      DIMENSION CDT78(LP1),CO278(LP1),C2D78(LP1)
      DIMENSION CO211(LP1),CO218(LP1)
CNOV89
      DIMENSION STMP(LP1),GTMP(LP1)
      DIMENSION CTM51(L),C2M51(L),CDM51(L)
      DIMENSION CTM58(L),C2M58(L),CDM58(L)
      DIMENSION CT51(LP1,LP1),C251(LP1,LP1),CD51(LP1,LP1)
      DIMENSION CT58(LP1,LP1),C258(LP1,LP1),CD58(LP1,LP1)
CNOV89
      DIMENSION CT31(LP1),C231(LP1),CD31(LP1)
      DIMENSION CT38(LP1),C238(LP1),CD38(LP1)
      DIMENSION CT71(LP1),C271(LP1),CD71(LP1)
      DIMENSION CT78(LP1),C278(LP1),CD78(LP1)
      DIMENSION C211(LP1),C218(LP1)
CNOV89
C===>    BEGIN HERE
      REWIND 11
      READ (11) STEMP
      READ (11) GTEMP
      READ (11) CDTM51
      READ (11) CO2M51
      READ (11) C2DM51
      READ (11) CDTM58
      READ (11) CO2M58
      READ (11) C2DM58
      READ (11) CDT51
      READ (11) CO251
      READ (11) C2D51
      READ (11) CDT58
      READ (11) CO258
      READ (11) C2D58
CNOV89
      READ (11) CDT31
      READ (11) CO231
      READ (11) C2D31
      READ (11) CDT38
      READ (11) CO238
      READ (11) C2D38
      READ (11) CDT71
      READ (11) CO271
      READ (11) C2D71
      READ (11) CDT78
      READ (11) CO278
      READ (11) C2D78
C NOT USED YET      READ (1) CO211
C NOT USED YET      READ (1) CO218
CNOV89
      REWIND 11
      DO 1 K=1,LP1
        STMP(K) = STEMP(K)
        GTMP(K) = GTEMP(K)
        write(6,12345) K,STMP(K),GTMP(K)
12345   format(1x,i3,2(1x,f12.6))
    1 CONTINUE
      DO 2 K=1,L
        CTM51(K) = CDTM51(K)
        C2M51(K) = CO2M51(K)
        CDM51(K) = C2DM51(K)
        CTM58(K) = CDTM58(K)
        C2M58(K) = CO2M58(K)
        CDM58(K) = C2DM58(K)
    2 CONTINUE
      DO 3 J=1,LP1
       DO 3 I=1,LP1
        CT51(I,J) = CDT51(I,J)
        C251(I,J) = CO251(I,J)
        CD51(I,J) = C2D51(I,J)
        CT58(I,J) = CDT58(I,J)
        C258(I,J) = CO258(I,J)
        CD58(I,J) = C2D58(I,J)
    3 CONTINUE
CNOV89
      DO 4 K=1,LP1
        CT31(K) = CDT31(K)
        C231(K) = CO231(K)
        CD31(K) = C2D31(K)
        CT38(K) = CDT38(K)
        C238(K) = CO238(K)
        CD38(K) = C2D38(K)
    4 CONTINUE
      DO 5 K=1,LP1
        CT71(K) = CDT71(K)
        C271(K) = CO271(K)
        CD71(K) = C2D71(K)
        CT78(K) = CDT78(K)
        C278(K) = CO278(K)
        CD78(K) = C2D78(K)
    5 CONTINUE
C NOT USED YET      DO 6 K=1,LP1
C NOT USED YET        C211(K) = CO211(K)
C NOT USED YET        C218(K) = CO218(K)
C NOT USED YET    6 CONTINUE
CNOV89
      REWIND 66
      WRITE(66) STMP
      WRITE(66) GTMP
      WRITE(66) CTM51
      WRITE(66) C2M51
      WRITE(66) CDM51
      WRITE(66) CTM58
      WRITE(66) C2M58
      WRITE(66) CDM58
      WRITE(66) CT51
      WRITE(66) C251
      WRITE(66) CD51
      WRITE(66) CT58
      WRITE(66) C258
      WRITE(66) CD58
CNOV89
      WRITE(66) CT31
      WRITE(66) C231
      WRITE(66) CD31
      WRITE(66) CT38
      WRITE(66) C238
      WRITE(66) CD38
      WRITE(66) CT71
      WRITE(66) C271
      WRITE(66) CD71
      WRITE(66) CT78
      WRITE(66) C278
      WRITE(66) CD78
C NOT USED YET      WRITE(66) C211
C NOT USED YET      WRITE(66) C218
CNOV89
      REWIND 66
      STOP
      END
