c **********************************************************************
c *                                                                    *
c *                                                                    *
c *                                                                    *
c *                                                    Leslie Young    *
c *                                                    07 Jul 1998     *
c *                                                                    *
c **********************************************************************

      subroutine sread(ib, wav, str, wid, eng, nlines,stot,wav0
     & ,wmin,wmax)

      implicit double precision (o-z, a-h)
      dimension wav(1), str(1), wid(1), eng(1)
      dimension fn(9), selmin(9), selmax(9)

      character fn*80
      data fn/
c     CH4 = molecule 6
     &  '/planet/hitran96/hitran96/by_molec/06_hit96.par'
     & ,'/planet/hitran96/hitran96/by_molec/06_hit96.par'
     & ,'/planet/hitran96/hitran96/by_molec/06_hit96.par'
     & ,'/planet/hitran96/hitran96/by_molec/06_hit96.par'
c     C2H2 = molecule 26
     & ,'/planet/hitran96/hitran96/by_molec/26_hit96.par'
     & ,'/planet/hitran96/hitran96/by_molec/26_hit96.par'
c     C2H6 = molecule 27
     & ,'/planet/hitran96/hitran96/by_molec/27_hit96.par'
c     HCN = molecule 23
     & ,'/planet/hitran96/hitran96/by_molec/23_hit96.par'
     & ,'/planet/hitran96/hitran96/by_molec/23_hit96.par'/

c     selmin = minimum wavenumber
c                 CH4     CH4a   CH4b   CH4c  C2H2   C2H2a 
      data selmin/1071., 2809., 3900., 5891.,  646., 3151.
c                 C2H6    HCNb   HCNb
     &          ,  720.,  3158.,   2./

c     selmax = maximum wavenumber
c                 CH4     CH4a   CH4b   CH4c  C2H2   C2H2a 
      data selmax/1544., 3210., 4279., 6107.,  811., 3398. 
c                 C2H6    HCNb   HCNb
     &          ,  933.,  3422.,  132./


      call hitran(fn(ib), selmin(ib), selmax(ib)
     &     ,wav,str,wid,eng,nlines
     &     ,stot,wav0,wmin, wmax)
      
      return 
      end