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

      subroutine o3hht1(v,c) 1,1
c     subroutine o3hht1(v1c,v2c,dvc,nptc,c)
      parameter (npts=2690)
      common /o3hh1/ v1s,v2s,dvs,s(npts)
c
      call o3int(v ,v1s,dvs,npts,s,c)
c
      return
      end