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

      subroutine o3int(v1c,v1,dv,npt,conti,conto) 3
c
c     interpolation  for  o3 continuum with lowtran
c
      dimension conti(*)
      conto=0.
      i=(v1c-v1)/dv+1.00001
      if(i.lt.1  )go to 10
      if(i.gt.npt)go to 10
      conto=conti(i)
10    continue
      return
      end