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

      subroutine o3hht0(v,c) 1,1
      parameter (npts=2687)
      common /o3hh0/ v1s,v2s,dvs,s(npts)
c
      call o3int(v ,v1s,dvs,npts,s,c)
      return
      end