SUBROUTINE MATINV ( A, N )
Argument Definitions (+ indicates altered content)
INTEGER            N
REAL              +A(20,20)
Description
MATINV - INVERTS A REAL SQUARE (N BY N) MATRIX A AND STORES 
   THE RESULTANT INVERSE BACK IN A.  THE METHOD USED IS GAUSS- 
   JORDAN ELIMINATION WITH COMPLETE PIVOTING (SEE, FOR EXAMPLE, 
   A.RALSTON AND H.S.WILF (1967), MATHEMATICAL METHODS FOR 
   DIGITAL COMPUTERS, VOL. 2,  ARTICLE BY J.H.WILKINSON.) 
THIS ROUTINE IS SHARE NO. ANL F402 BY B.S.GARBOW OF ARGONNE 
NATIONAL LABORATORY, ARGONNE, ILLINOIS
Source file:matinv.f
Intrinsic Functions Called
GENERIC            ABS
Local Variables (+ indicates altered content)
INTEGER           +I,         +I1,        +I2,        +ICOLUM
INTEGER           +IROW,      +J,         +J1,        +K
INTEGER           +K1,        +L,         +L1,        +L2
INTEGER           +LL
REAL              +DETERM,    +TEMP
Referenced Common Block Variables (+ indicates altered content)
PON                INTEGER           +INDEX(20,2)
PON                INTEGER           +IPIVOT(20)
PON                REAL              +PIVOT(20)