ADAS Subroutine matinv

      SUBROUTINE MATINV(A,N,B,M,DETERM)                        
      IMPLICIT REAL*8 (A-H,O-Z)                              
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 PROGRAM: MATINV ************************
C
C PURPOSE: MATRIX INVERSION WITH ACCOMPANYING SOLUTION
C          OF LINEAR EQUATIONS   
C
C NOTES: THIS ROUTINE IS NOT YET PROPERLY ANNOTATED
C
C UNIX-IDL PORT:
C
C VERSION: 1.1                          DATE: 12-12-95
C MODIFIED: TIM HAMMOND (TESSELLA SUPPORT SERVICES PLC)
C               - FIRST VERSION
C
C VERSION  : 1.2                          
C DATE     : 10-04-2007
C MODIFIED : Allan Whiteford
C               - Modified documentation as part of automated
C		  subroutine documentation preparation.
C
C-----------------------------------------------------------------------
C
      INTEGER             M,           N
      REAL*8              A(30,30),    B(30),       DETERM