subroutine adjust
c---multiply parameter vv(1) in elements vv(2) through vv(3) by vv(4)
c------------------------------------------------------------------------
      save
c
      include 'param_sz.h'
      include 'var_char.h'
      include 'misccom.h'
      include 'syscom.h'
      include 'ucom.h'
c
c--------------------------------------------------------------------------
c*
      if(nn.lt.4)return
      np=vv(1)
      if(np.lt.2 .or. np.gt.10)return
      n1=vv(2)
      if(n1.lt.1 .or. n1.gt.nel)return
      n2=vv(3)
      if(n2.lt.n1)return
      if(n2.gt.nel)n2=nel
      fac=vv(4)
      do 10 n=n1,n2
      el(np,n)=fac*el(np,n)
   10 continue
      return
      end
c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*