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

      subroutine sint(v1,v1c,dv,npt,conti,conto) 3
c
c     interpolation  for continuum with lowtran
c
      dimension conti(*)
      conto=0.
      i=(v1c-v1)/dv+1.00001
      if(i.ge.npt)go to 10
      conto=conti(i)
      imod=mod(v1c,10.)
      if(imod.gt.0) conto=(conti(i)+conti(i+1))/2.
10    continue
      return
      end