      subroutine matusr
c
c     Copyright INRIA
      include '../stack.h'
c
c      integer iadr, sadr
c      iadr(l)=l+l-1
c      sadr(l)=(l/2)+1
      rhs = max(0,rhs)
c
c
      end
c

