```
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
```