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

      subroutine c8dta (c8l,v) 1
c **  ozone u.v + visible
      common /c4c8/ c4(133),c8(102)
      c8l=0.
      if(v.lt.13000.) return
      if(v.gt.50000.) return
      iv=v
      if(iv.gt.24200.and.iv.lt.27500) return
      xi=(v-13000.0)/200.0+1.
      if(iv.ge.27500) xi=(v-27500.0)/500.+57.
      n=xi+1.001
      xd=xi-float(n)
      c8l=c8(n)+xd*(c8(n)-c8(n-1))
      return
      end