      subroutine matus2
c ================================== ( Inria    ) =============
c
c     Copyright INRIA
      include '../stack.h'
c
c      integer iadr, sadr
c      iadr(l)=l+l-1
c      sadr(l)=(l/2)+1
c
      return
      end
