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

      subroutine o3uv(v,c) 1
      parameter (npt=133)
      common /o3uvf/ v1 ,v2 ,dv ,s(npt)
c
c     interpolation  for  o3 continuum with lowtran
c
      c    =0.
      i=(v  -v1)/dv+1.00001
      if(i.lt.1   )go to 10
      if(i.gt.npt )go to 10
      vr = i*dv + v1
      if(vr. le. (v+.1) .and .vr.ge. (v-.1)) go to 5
      if(i .eq. npt ) i=npt-1
      am = (      c0 = s(i) - am * vr
      c  = am * v + c0
      go to 10
5     c    =    s(i)
10    continue
c
      return
      end