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

      subroutine o3hht2(v,c) 1,1
      parameter (npts=2690)
      common /o3hh2/ v1s,v2s,dvs,s(npts)
c
      call o3int(v ,v1s,dvs,npts,s,c)
c
      return
      end