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

      subroutine hno3 (v,habs) 1
c
c     hno3  statistical band parameters
c
      dimension h1(15), h2(16), h3(13)
c     array h1 contains hno3 abs, coef(cm-1atm-1) from  850 to 920 cm-1
      data h1/2.197,3.911,6.154,8.150,9.217,9.461,11.56,11.10,11.17,12.4
     10,10.49,7.509,6.136,4.899,2.866/
c     array h2 contains hno3 abs, coef(cm-1atm-1) from 1275 to1350 cm-1
      data h2/2.828,4.611,6.755,8.759,10.51,13.74,18.00,21.51,23.09,21.6
     18,21.32,16.82,16.42,17.87,14.86,8.716/
c     array h3 contains hno3 abs, coef(cm-1atm-1) from 1675 to1735 cm-1
      data h3/5.003,8.803,14.12,19.83,23.31,23.58,23.22,21.09,26.99,25.8
     14,24.79,17.68,9.420/
      habs=0.
      if (v.ge.850.0.and.v.le.920.0) go to 5
      if (v.ge.1275.0.and.v.le.1350.0) go to 10
      if (v.ge.1675.0.and.v.le.1735.0) go to 15
      return
    5 i=(v-845.)/5.
      habs=h1(i)
      return
   10 i=(v-1270.)/5.
      habs=h2(i)
      return
   15 i=(v-1670.)/5.
      habs=h3(i)
      return
      end