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

      subroutine c4dta (c4l,v) 1
c **  n2 continuum
      common /c4c8/ c4(133),c8(102)
      c4l=0.
      if(v.lt.2080.) return
      if(v.gt.2740.) return
      iv=v
      l=(iv-2080)/5+1
      c4l=c4(l)
      return
      end