**==mtx_negate.f  
C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C
      SUBROUTINE  MTX_NEGATE (A,R,M,N)
C
C Purpose: Negates matrix A, result in R
C
C       IMPLICIT NONE
       INTEGER  M, N
       REAL     A(M,N), R(M,N)
C
C
C-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
C Local Variables:
C
      INTEGER  I, J
C
C------------------------------------------------------------------------------
C
      DO 30 J = 1 , N
         DO 20 I = 1 , M
            R(I,J) = -A(I,J)
 20      CONTINUE
 30   CONTINUE
C
      RETURN
      END
