**==mtx_inv.f  
C++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C
      SUBROUTINE  MTX_INV (A,R,N)
C
C Purpose: MTX_INV inverts matrix A and puts in R
C
C      IMPLICIT NONE
      INTEGER  N
      REAL     A(N,N),R(N,N)
C
C------------------------------------------------------------------------------
C
      CALL MTX_UNIT(R,N,N)
      CALL MTX_SOLVE_EQN(A,R,N,N)
C
      RETURN
      END