c=======================================================================

      subroutine abcdta(iv) 1
c
      common /abc/ factor(3),anh3(2),aco2(10),aco(3),
     x             ach4(4),ano2(3),an2o(11),ao2(6),ao3(5),
     x             aso2(4),ah2o(14),ano,
     x             aanh3(2),bbnh3(2),ccnh3(2),
     x             aaco2(10),bbco2(10),ccco2(10),
     x             aaco(3),bbco(3),ccco(3),
     x             aach4(4),bbch4(4),ccch4(4),
     x             aano2(3),bbno2(3),ccno2(3),
     x             aan2o(11),bbn2o(11),ccn2o(11),
     x             aao2(6),bbo2(6),cco2(6),
     x             aao3(5),bbo3(5),cco3(5),
     x             aaso2(4),bbso2(4),ccso2(4),
     x             aah2o(14),bbh2o(14),cch2o(14),
     x             aano     ,bbno     ,ccno
c
      common /aabbcc/ aa(11),bb(11),cc(11),a(11),cps(11),ibnd(11)
c
c    mol
c     1    h2o (all regions) (double exponential models)
c     2    co2 (all regions) (double exponential models)
c     3    o3  (all regions) (double exponential models)
c     4    n2o (all regions) (double exponential models)
c     5    co  (all regions) (double exponential models)
c     6    ch4 (all regions) (double exponential models)
c     7    o2  (all regions) (double exponential models)
c     8    no  (all regions) (double exponential models)
c     9    so2 (all regions) (double exponential models)
c    10    no2 (all regions) (double exponential models)
c    11    nh3 (all regions) (double exponential models)
c
c  ---h2o
      imol = 1
      iw = -1
      if(iv.ge.     0.and.iv.le.   345) iw = 17
      if(iv.ge.   350.and.iv.le.  1000) iw = 18
      if(iv.ge.  1005.and.iv.le.  1640) iw = 19
      if(iv.ge.  1645.and.iv.le.  2530) iw = 20
      if(iv.ge.  2535.and.iv.le.  3420) iw = 21
      if(iv.ge.  3425.and.iv.le.  4310) iw = 22
      if(iv.ge.  4315.and.iv.le.  6150) iw = 23
      if(iv.ge.  6155.and.iv.le.  8000) iw = 24
      if(iv.ge.  8005.and.iv.le.  9615) iw = 25
      if(iv.ge.  9620.and.iv.le. 11540) iw = 26
      if(iv.ge. 11545.and.iv.le. 13070) iw = 27
      if(iv.ge. 13075.and.iv.le. 14860) iw = 28
      if(iv.ge. 14865.and.iv.le. 16045) iw = 29
      if(iv.ge. 16340.and.iv.le. 17860) iw = 30
      iband = iw - 16
      ibnd(imol) = iw
      if(iw .gt.  0) then
           a(imol)  =   ah2o(iband)
           aa(imol)  = aah2o(iband)
           bb(imol)  = bbh2o(iband)
           cc(imol)  = cch2o(iband)
      endif
c  ---o3
      imol = 3
      iw = -1
      if (iv .ge.     0 .and. iv .le.   200)  iw = 31
      if (iv .ge.   515 .and. iv .le.  1275)  iw = 32
      if (iv .ge.  1630 .and. iv .le.  2295)  iw = 33
      if (iv .ge.  2670 .and. iv .le.  2845)  iw = 34
      if (iv .ge.  2850 .and. iv .le.  3260)  iw = 35
      iband      = iw - 30
      ibnd(imol) = iw
      if(iw .gt.  0) then
           a(imol)  =  ao3(iband)
           aa(imol) = aao3(iband)
           bb(imol) = bbo3(iband)
           cc(imol) = cco3(iband)
      endif
c  ---co2
      imol = 2
      iw = -1
      if (iv .ge.   425 .and. iv .le.   835)  iw = 36
      if (iv .ge.   840 .and. iv .le.  1440)  iw = 37
      if (iv .ge.  1805 .and. iv .le.  2855)  iw = 38
      if (iv .ge.  3070 .and. iv .le.  3755)  iw = 39
      if (iv .ge.  3760 .and. iv .le.  4065)  iw = 40
      if (iv .ge.  4530 .and. iv .le.  5380)  iw = 41
      if (iv .ge.  5905 .and. iv .le.  7025)  iw = 42
      if((iv .ge.  7395 .and. iv .le.  7785) .or.
     *   (iv .ge.  8030 .and. iv .le.  8335) .or.
     *   (iv .ge.  9340 .and. iv .le.  9670)) iw = 43
      iband = iw - 35
      ibnd(imol) = iw
      if(iw .gt.  0) then
           a(imol)  =  aco2(iband)
           aa(imol) = aaco2(iband)
           bb(imol) = bbco2(iband)
           cc(imol) = ccco2(iband)
      endif
c  ---co
      imol = 5
      iw = -1
      if (iv .ge.     0 .and. iv .le.   175) iw = 44
      if((iv .ge.  1940 .and. iv .le.  2285) .or.
     *   (iv .ge.  4040 .and. iv .le.  4370)) iw = 45
      iband = iw - 43
      ibnd(imol) = iw
      if(iw .gt.  0) then
           a(imol)  =  aco(iband)
           aa(imol) = aaco(iband)
           bb(imol) = bbco(iband)
           cc(imol) = ccco(iband)
      endif
c  ---ch4
      imol = 6
      iw = -1
      if((iv .ge.  1065 .and. iv .le.  1775) .or.
     *   (iv .ge.  2345 .and. iv .le.  3230) .or.
     *   (iv .ge.  4110 .and. iv .le.  4690) .or.
     *   (iv .ge.  5865 .and. iv .le.  6135))iw = 46
      iband = iw - 45
      ibnd(imol) = iw
      if(iw .gt.  0) then
           a(imol)  =  ach4(iband)
           aa(imol) = aach4(iband)
           bb(imol) = bbch4(iband)
           cc(imol) = ccch4(iband)
      endif
c  ---n2o
      imol = 4
      iw = -1
      if (iv .ge.     0 .and. iv .le.   120)  iw = 47
      if((iv .ge.   490 .and. iv .le.   775) .or.
     *   (iv .ge.   865 .and. iv .le.   995) .or.
     *   (iv .ge.  1065 .and. iv .le.  1385) .or.
     *   (iv .ge.  1545 .and. iv .le.  2040) .or.
     *   (iv .ge.  2090 .and. iv .le.  2655)) iw = 48
      if((iv .ge.  2705 .and. iv .le.  2865) .or.
     *   (iv .ge.  3245 .and. iv .le.  3925) .or.
     *   (iv .ge.  4260 .and. iv .le.  4470) .or.
     *   (iv .ge.  4540 .and. iv .le.  4785) .or.
     *   (iv .ge.  4910 .and. iv .le.  5165)) iw = 49
      iband = iw - 46
      ibnd(imol) = iw
      if(iw .gt.  0) then
           a(imol)  =  an2o(iband)
           aa(imol) = aan2o(iband)
           bb(imol) = bbn2o(iband)
           cc(imol) = ccn2o(iband)
      endif
c  ---o2
      imol = 7
      iw = -1
      if (iv .ge.     0 .and. iv .le.   265)  iw = 50
      if((iv .ge.  7650 .and. iv .le.  8080) .or.
     *   (iv .ge.  9235 .and. iv .le.  9490) .or.
     *   (iv .ge. 12850 .and. iv .le. 13220) .or.
     *   (iv .ge. 14300 .and. iv .le. 14600) .or.
     *   (iv .ge. 15695 .and. iv .le. 15955)) iw = 51
       if(iv .ge. 49600 .and. iv. le. 52710)  iw = 51
      iband = iw - 49
      ibnd(imol) = iw
      if(iw .gt.  0) then
           a(imol)  =  ao2(iband)
           if(iv .ge. 49600 .and. iv. le. 52710)  a(imol)  = .4704
           aa(imol) = aao2(iband)
           bb(imol) = bbo2(iband)
           cc(imol) = cco2(iband)
      endif
c  ---nh3
      imol = 11
      iw = -1
      if (iv .ge.     0 .and. iv .le.   385)  iw = 52
      if (iv .ge.   390 .and. iv .le.  2150)  iw = 53
      iband = iw - 51
      ibnd(imol) = iw
      if(iw .gt.  0) then
           a(imol)  =  anh3(iband)
           aa(imol) = aanh3(iband)
           bb(imol) = bbnh3(iband)
           cc(imol) = ccnh3(iband)
      endif
c  ---no
      imol = 8
      iw = -1
      if (iv .ge.  1700 .and. iv .le.  2005) iw  = 54
      iband = iw - 53
      ibnd(imol) = iw
      if(iw .gt.  0) then
           a(imol)  =  ano
           aa(imol) = aano
           bb(imol) = bbno
           cc(imol) = ccno
      endif
c  ---no2
      iw = -1
      imol = 10
      if((iv .ge.   580 .and. iv .le.   925) .or.
     *   (iv .ge.  1515 .and. iv .le.  1695) .or.
     *   (iv .ge.  2800 .and. iv .le.  2970)) iw = 55
      iband = iw - 54
      ibnd(imol) = iw
      if(iw .gt.  0) then
           a(imol)  =  ano2(iband)
           aa(imol) = aano2(iband)
           bb(imol) = bbno2(iband)
           cc(imol) = ccno2(iband)
      endif
c  ---so2
      imol = 9
      iw = -1
      if (iv .ge.     0 .and. iv .le.   185)  iw = 56
      if((iv .ge.   400 .and. iv .le.   650) .or.
     *   (iv .ge.   950 .and. iv .le.  1460) .or.
     *   (iv .ge.  2415 .and. iv .le.  2580)) iw = 57
      iband = iw - 55
      ibnd(imol) = iw
      if(iw .gt.  0) then
           a(imol)  =  aso2(iband)
           aa(imol) = aaso2(iband)
           bb(imol) = bbso2(iband)
           cc(imol) = ccso2(iband)
      endif
      return
      end