      subroutine mupdtsr (sscale,inmemo,n,m,nrz)
c
c         arguments
c
      integer nrz,n,m
      logical sscale,inmemo
c----
c
c     This routine has to return:
c       m:      the numer of updates to form the approximate Hessien H,
c       inmemo = .true.  if the vectors y and s used to form H are
c                        stored in core memory,
c                .false. otherwise,
c     When inmemo=.false., the routine `ystbl', which stores and
c     restores (y,s) pairs, has to be rewritten.
c
c----
c
      m=(nrz-4*n)/(2*n+1)
      inmemo=.true.
      return
      end
