**==mtx_zero.f  
C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C
      SUBROUTINE  MTX_ZERO (R,M,N)
C
C Purpose: Zeros mxn matrix R
C
C      IMPLICIT NONE
      INTEGER  M, N
      REAL     R(M,N)
C
C-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
C Local Variables:
C
      INTEGER  I,J
C
C------------------------------------------------------------------------------
C
      DO 30 I = 1 , M
         DO 20 J = 1 , N
            R(I,J) = 0.0
 20      CONTINUE
 30   CONTINUE
C
      RETURN
      END
