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

      subroutine o2int(v1c,v1,dv,npt,c,carray,a,aarray,b,barray) 1
c
c     interpolation for o2 pressure induced continuum, necessary for
c          lowtran7 formulation  (modeled after the lowtran uv-o3 bands)
c
      dimension carray(74),aarray(74),barray(74)
      c=0.
      a=0.
      b=0.
      i=(v1c-v1)/dv+1.00001
      if(i.lt.1  )go to 10
      if(i.gt.npt)go to 10
      c=carray(i)
      a=aarray(i)
      b=barray(i)
10    continue
      return
      end