      subroutine co2in1(nlev,itin,itin1,iq)
C    CO2IN1=CO2INS FOR METHOD 1
      implicit real(selected_real_kind(15)) (a-h,o-z)
      CHARACTER *4 A,B,C
      common/cards/N(200),DCDT8(200,200),DCDT10(200,200),CO2PO(200,200),
     * CO2800(200,200),CO2PO1(200,200),CO2801(200,200),CO2PO2(200,200),
     * CO2802(200,200),D2CT8(200,200),D2CT10(200,200)
      DATA A/'CDTM'/
      DATA B/'CO2M'/
      DATA C/'C2DM'/
      l=nlev
      lp1=l+1
1011  FORMAT (4F20.14)
      READ (ITIN,1011) ((CO2PO(I,J),I=1,LP1),J=1,LP1)
      READ (ITIN1,1011) ((CO2800(I,J),I=1,LP1),J=1,LP1)
      IF (IQ.GE.1.AND.IQ.LE.4) THEN
       READ (ITIN,1011) ((CO2PO1(I,J),I=1,LP1),J=1,LP1)
       READ (ITIN1,1011) ((CO2801(I,J),I=1,LP1),J=1,LP1)
       READ (ITIN,1011) ((CO2PO2(I,J),I=1,LP1),J=1,LP1)
       READ (ITIN1,1011) ((CO2802(I,J),I=1,LP1),J=1,LP1)
      ENDIF
C***THE FOLLOWING CODE IS REWRITTEN SO THAT THE RADIATIVE BANDS
C   ARE: 
C        IQ=1    560-800     (CONSOL.=490-850)
C        IQ=2    560-670     (CONSOL.=490-670)
C        IQ=3    670-800     (CONSOL.=670-850)
C        IQ=4    560-760 (ORIGINAL CODE)   (CONSOL.=490-850)
C        IQ=5   2270-2380     CONSOL=2270-2380
C  THE FOLLOWING LOOP OBTAINS TRANSMISSION FUNCTIONS FOR BANDS
C  USED IN RADIATIVE MODEL CALCULATIONS,WITH THE EQUIVALENT
C  WIDTHS KEPT FROM THE ORIGRNAL CONSOLIDATED CO2 TF'S.
      IF (IQ.EQ.1) THEN
         C1=1.5
         C2=0.5
      ENDIF
      IF (IQ.EQ.2) THEN
        C1=18./11.
        C2=7./11.
      ENDIF
      IF (IQ.EQ.3) THEN
        C1=18./13.
        C2=5./13.
      ENDIF
      IF (IQ.EQ.4) THEN
        C1=1.8
        C2=0.8
      ENDIF
      IF (IQ.EQ.5) THEN
        C1=1.0
        C2=0.0
      ENDIF
      DO 1022 I=1,LP1
      DO 1022 J=1,LP1
      CO2PO(J,I)=C1*CO2PO(J,I)-C2
      CO2800(J,I)=C1*CO2800(J,I)-C2
1022  CONTINUE
      IF (IQ.GE.1.AND.IQ.LE.4) THEN
       DO 1021 I=1,LP1
       DO 1021 J=1,LP1
       CO2PO1(J,I)=C1*CO2PO1(J,I)-C2
       CO2801(J,I)=C1*CO2801(J,I)-C2
       CO2PO2(J,I)=C1*CO2PO2(J,I)-C2
       CO2802(J,I)=C1*CO2802(J,I)-C2
1021   CONTINUE
       DO 1 J=1,LP1
       DO 1 I=1,LP1
       DCDT8(I,J)=.02*(CO2801(I,J)-CO2802(I,J))*100.
       DCDT10(I,J)=.02*(CO2PO1(I,J)-CO2PO2(I,J))*100.
       D2CT8(I,J)=.0016*(CO2801(I,J)+CO2802(I,J)-2.*CO2800(I,J))*1000.
       D2CT10(I,J)=.0016*(CO2PO1(I,J)+CO2PO2(I,J)-2.*CO2PO(I,J))*1000.
1      CONTINUE
      ENDIF
      DO 4 J=1,1
      IF (IQ.EQ.1) N(J)=50+J
      IF (IQ.EQ.2) N(J)=30+J
      IF (IQ.EQ.3) N(J)=70+J
      IF (IQ.EQ.4) N(J)=50+J
      IF (IQ.EQ.5) N(J)=10+J
4     CONTINUE
      IF (IQ.GE.1.AND.IQ.LE.4) THEN
       DO 12 J=1,1
       WRITE (11,110) A,N(J)
c      WRITE (10,110) A,N(J)
       KX1=1
       DO 13 K=1,L
       KX7=KX1+5
       KTEST=7
       IF (KX7.EQ.L) GO TO 17
       KX7=MIN0(KX7,L)
       KTEST=KX7-KX1+1
17     CONTINUE
       GO TO (211,212,213,214,215,216,217),KTEST
211    WRITE (11,111) (DCDT10(I,I+1),I=KX1,KX7)
       WRITE (10,1111) (DCDT10(I,I+1),I=KX1,KX7)
       GO TO 16
212    WRITE (11,112) (DCDT10(I,I+1),I=KX1,KX7)
       WRITE (10,1112) (DCDT10(I,I+1),I=KX1,KX7)
       GO TO 16
213    WRITE (11,113) (DCDT10(I,I+1),I=KX1,KX7)
       WRITE (10,1113) (DCDT10(I,I+1),I=KX1,KX7)
       GO TO 16
214    WRITE (11,114) (DCDT10(I,I+1),I=KX1,KX7)
       WRITE (10,1114) (DCDT10(I,I+1),I=KX1,KX7)
       GO TO 16
215    WRITE (11,115) (DCDT10(I,I+1),I=KX1,KX7)
       WRITE (10,1115) (DCDT10(I,I+1),I=KX1,KX7)
       GO TO 16
216    WRITE (11,116) (DCDT10(I,I+1),I=KX1,KX7)
       WRITE (10,1116) (DCDT10(I,I+1),I=KX1,KX7)
       GO TO 16
217    WRITE (11,117) (DCDT10(I,I+1),I=KX1,KX7)
       WRITE (10,1117) (DCDT10(I,I+1),I=KX1,KX7)
16     CONTINUE
       KX1=KX1+6
       IF (KX1.GT.L) GO TO 18
13     CONTINUE
       IF (LP1.GT.99) WRITE (10,131)
18     CONTINUE
       WRITE (11,130)
c      WRITE (10,130)
12     CONTINUE
      ENDIF
      DO 22 J=1,1
      WRITE (11,110) B,N(J)
c     WRITE (10,110) B,N(J)
      KX1=1
      DO 23 K=1,L
      KX7=KX1+5
      KTEST=7
      IF (KX7.EQ.L) GO TO 27
      KX7=MIN0(KX7,L)
      KTEST=KX7-KX1+1
27    CONTINUE
      GO TO (311,312,313,314,315,316,317),KTEST
311   WRITE (11,111) (CO2PO(I,I+1),I=KX1,KX7)
      WRITE (10,1111) (CO2PO(I,I+1),I=KX1,KX7)
      GO TO 26
312   WRITE (11,112) (CO2PO(I,I+1),I=KX1,KX7)
      WRITE (10,1112) (CO2PO(I,I+1),I=KX1,KX7)
      GO TO 26
313   WRITE (11,113) (CO2PO(I,I+1),I=KX1,KX7)
      WRITE (10,1113) (CO2PO(I,I+1),I=KX1,KX7)
      GO TO 26
314   WRITE (11,114) (CO2PO(I,I+1),I=KX1,KX7)
      WRITE (10,1114) (CO2PO(I,I+1),I=KX1,KX7)
      GO TO 26
315   WRITE (11,115) (CO2PO(I,I+1),I=KX1,KX7)
      WRITE (10,1115) (CO2PO(I,I+1),I=KX1,KX7)
      GO TO 26
316   WRITE (11,116) (CO2PO(I,I+1),I=KX1,KX7)
      WRITE (10,1116) (CO2PO(I,I+1),I=KX1,KX7)
      GO TO 26
317   WRITE (11,117) (CO2PO(I,I+1),I=KX1,KX7)
      WRITE (10,1117) (CO2PO(I,I+1),I=KX1,KX7)
26    CONTINUE
      KX1=KX1+6
      IF (KX1.GT.L) GO TO 28
23    CONTINUE
      IF (LP1.GT.99) WRITE (10,131)
28    CONTINUE
      WRITE (11,130)
c     WRITE (10,130)
22    CONTINUE
      IF (IQ.GE.1.AND.IQ.LE.4) THEN
       DO 52 J=1,1
       WRITE (11,110) C,N(J)
c      WRITE (10,110) C,N(J)
       KX1=1
       DO 53 K=1,L
       KX7=KX1+5
       KTEST=7
       IF (KX7.EQ.L) GO TO 57
       KX7=MIN0(KX7,L)
       KTEST=KX7-KX1+1
57     CONTINUE
       GO TO (611,612,613,614,615,616,617),KTEST
611    WRITE (11,111) (D2CT10(I,I+1),I=KX1,KX7)
       WRITE (10,1111) (D2CT10(I,I+1),I=KX1,KX7)
       GO TO 56
612    WRITE (11,112) (D2CT10(I,I+1),I=KX1,KX7)
       WRITE (10,1112) (D2CT10(I,I+1),I=KX1,KX7)
       GO TO 56
613    WRITE (11,113) (D2CT10(I,I+1),I=KX1,KX7)
       WRITE (10,1113) (D2CT10(I,I+1),I=KX1,KX7)
       GO TO 56
614    WRITE (11,114) (D2CT10(I,I+1),I=KX1,KX7)
       WRITE (10,1114) (D2CT10(I,I+1),I=KX1,KX7)
       GO TO 56
615    WRITE (11,115) (D2CT10(I,I+1),I=KX1,KX7)
       WRITE (10,1115) (D2CT10(I,I+1),I=KX1,KX7)
       GO TO 56
616    WRITE (11,116) (D2CT10(I,I+1),I=KX1,KX7)
       WRITE (10,1116) (D2CT10(I,I+1),I=KX1,KX7)
       GO TO 56
617    WRITE (11,117) (D2CT10(I,I+1),I=KX1,KX7)
       WRITE (10,1117) (D2CT10(I,I+1),I=KX1,KX7)
56     CONTINUE
       KX1=KX1+6
       IF (KX1.GT.L) GO TO 58
53     CONTINUE
       IF (LP1.GT.99) WRITE (10,131)
58     CONTINUE
       WRITE (11,130)
c      WRITE (10,130)
52     CONTINUE
      ENDIF
      DO 5 J=1,1
      IF (IQ.EQ.1) N(J)=57+J
      IF (IQ.EQ.2) N(J)=37+J
      IF (IQ.EQ.3) N(J)=77+J
      IF (IQ.EQ.4) N(J)=57+J
      IF (IQ.EQ.5) N(J)=17+J
5     CONTINUE
      IF (IQ.GE.1.AND.IQ.LE.4) THEN
       DO 32 J=1,1
       WRITE (11,110) A,N(J)
c      WRITE (10,110) A,N(J)
       KX1=1
       DO 33 K=1,L
       KX7=KX1+5
       KTEST=7
       IF (KX7.EQ.L) GO TO 37
       KX7=MIN0(KX7,L)
       KTEST=KX7-KX1+1
37     CONTINUE
       GO TO (411,412,413,414,415,416,417),KTEST
411    WRITE (11,111) (DCDT8(I,I+1),I=KX1,KX7)
       WRITE (10,1111) (DCDT8(I,I+1),I=KX1,KX7)
       GO TO 36
412    WRITE (11,112) (DCDT8(I,I+1),I=KX1,KX7)
       WRITE (10,1112) (DCDT8(I,I+1),I=KX1,KX7)
       GO TO 36
413    WRITE (11,113) (DCDT8(I,I+1),I=KX1,KX7)
       WRITE (10,1113) (DCDT8(I,I+1),I=KX1,KX7)
       GO TO 36
414    WRITE (11,114) (DCDT8(I,I+1),I=KX1,KX7)
       WRITE (10,1114) (DCDT8(I,I+1),I=KX1,KX7)
       GO TO 36
415    WRITE (11,115) (DCDT8(I,I+1),I=KX1,KX7)
       WRITE (10,1115) (DCDT8(I,I+1),I=KX1,KX7)
       GO TO 36
416    WRITE (11,116) (DCDT8(I,I+1),I=KX1,KX7)
       WRITE (10,1116) (DCDT8(I,I+1),I=KX1,KX7)
       GO TO 36
417    WRITE (11,117) (DCDT8(I,I+1),I=KX1,KX7)
       WRITE (10,1117) (DCDT8(I,I+1),I=KX1,KX7)
36     CONTINUE
       KX1=KX1+6
       IF (KX1.GT.L) GO TO 38
33     CONTINUE
       IF (LP1.GT.99) WRITE (10,131)
38     CONTINUE
       WRITE (11,130)
c      WRITE (10,130)
32     CONTINUE
      ENDIF
      DO 42 J=1,1
      WRITE (11,110) B,N(J)
c     WRITE (10,110) B,N(J)
      KX1=1
      DO 43 K=1,L
      KX7=KX1+5
      KTEST=7
      IF (KX7.EQ.L) GO TO 47
      KX7=MIN0(KX7,L)
      KTEST=KX7-KX1+1
47    CONTINUE
      GO TO (511,512,513,514,515,516,517),KTEST
511   WRITE (11,111) (CO2800(I,I+1),I=KX1,KX7)
      WRITE (10,1111) (CO2800(I,I+1),I=KX1,KX7)
      GO TO 46
512   WRITE (11,112) (CO2800(I,I+1),I=KX1,KX7)
      WRITE (10,1112) (CO2800(I,I+1),I=KX1,KX7)
      GO TO 46
513   WRITE (11,113) (CO2800(I,I+1),I=KX1,KX7)
      WRITE (10,1113) (CO2800(I,I+1),I=KX1,KX7)
      GO TO 46
514   WRITE (11,114) (CO2800(I,I+1),I=KX1,KX7)
      WRITE (10,1114) (CO2800(I,I+1),I=KX1,KX7)
      GO TO 46
515   WRITE (11,115) (CO2800(I,I+1),I=KX1,KX7)
      WRITE (10,1115) (CO2800(I,I+1),I=KX1,KX7)
      GO TO 46
516   WRITE (11,116) (CO2800(I,I+1),I=KX1,KX7)
      WRITE (10,1116) (CO2800(I,I+1),I=KX1,KX7)
      GO TO 46
517   WRITE (11,117) (CO2800(I,I+1),I=KX1,KX7)
      WRITE (10,1117) (CO2800(I,I+1),I=KX1,KX7)
46    CONTINUE
      KX1=KX1+6
      IF (KX1.GT.L) GO TO 48
43    CONTINUE
      IF (LP1.GT.99) WRITE (10,131)
48    CONTINUE
      WRITE (11,130)
c     WRITE (10,130)
42    CONTINUE
      IF (IQ.GE.1.AND.IQ.LE.4) THEN
       DO 62 J=1,1
       WRITE (11,110) C,N(J)
c      WRITE (10,110) C,N(J)
       KX1=1
       DO 63 K=1,L
       KX7=KX1+5
       KTEST=7
       IF (KX7.EQ.L) GO TO 67
       KX7=MIN0(KX7,L)
       KTEST=KX7-KX1+1
67     CONTINUE
       GO TO (711,712,713,714,715,716,717),KTEST
711    WRITE (11,111) (D2CT8(I,I+1),I=KX1,KX7)
       WRITE (10,1111) (D2CT8(I,I+1),I=KX1,KX7)
       GO TO 66
712    WRITE (11,112) (D2CT8(I,I+1),I=KX1,KX7)
       WRITE (10,1112) (D2CT8(I,I+1),I=KX1,KX7)
       GO TO 66
713    WRITE (11,113) (D2CT8(I,I+1),I=KX1,KX7)
       WRITE (10,1113) (D2CT8(I,I+1),I=KX1,KX7)
       GO TO 66
714    WRITE (11,114) (D2CT8(I,I+1),I=KX1,KX7)
       WRITE (10,1114) (D2CT8(I,I+1),I=KX1,KX7)
       GO TO 66
715    WRITE (11,115) (D2CT8(I,I+1),I=KX1,KX7)
       WRITE (10,1115) (D2CT8(I,I+1),I=KX1,KX7)
       GO TO 66
716    WRITE (11,116) (D2CT8(I,I+1),I=KX1,KX7)
       WRITE (10,1116) (D2CT8(I,I+1),I=KX1,KX7)
       GO TO 66
717    WRITE (11,117) (D2CT8(I,I+1),I=KX1,KX7)
       WRITE (10,1117) (D2CT8(I,I+1),I=KX1,KX7)
66     CONTINUE
       KX1=KX1+6
       IF (KX1.GT.L) GO TO 68
63     CONTINUE
       IF (LP1.GT.99) WRITE (10,131)
68     CONTINUE
       WRITE (11,130)
c      WRITE (10,130)
62     CONTINUE
      ENDIF
2100  CONTINUE
110   FORMAT (6X,'DATA',1X,A4,I2,'/',55X   )
116   FORMAT (5X,'*',F10.8,',',F10.8,',',F10.8,',',F10.8,',',
     * F10.8,',',F10.8,',')
117   FORMAT (5X,'*',F10.8,',',F10.8,',',F10.8,',',F10.8,',',
     * F10.8,',',F10.8)
130   FORMAT (5X,'*',20X,'/',46X   )
131   FORMAT (1H0,10X,'THE NO. FILES IS GREATER THAN 99')
115   FORMAT (5X,'*',F10.8,',',F10.8,',',F10.8,',',F10.8,',',
     * F10.8)
114   FORMAT (5X,'*',F10.8,',',F10.8,',',F10.8,',',F10.8)
113   FORMAT (5X,'*',F10.8,',',F10.8,',',F10.8)
112   FORMAT (5X,'*',F10.8,',',F10.8)
111   FORMAT (5X,'*',F10.8)
1111  FORMAT (F12.8)
1112  FORMAT (2F11.8)
1113  FORMAT (3F12.8)
1114  FORMAT (4F12.8)
1115  FORMAT (5F12.8)
1117  FORMAT (6F12.8)
1116  FORMAT (6F12.8)
      RETURN
      END
