subroutine set_nvar(nvar,nvalue)
      nvar=nvalue
      return
      end