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

      subroutine schrun(v,cprun) 1
      common /shur/ shn(430)
      data v1,v2,dv,inum /49600.,51710.,5.,425/
      cprun = -20.
      if(v .lt. v1) go to 20
      if(v .gt. v2) go to 20
      ind = (v - v1)/dv + 1.0001
      if(ind . gt. inum) then
            print*,'  ind gt inum  v ind ',v,ind
            go to 20
      endif
      cprun = shn(ind)
20    return
      end