ADAS Subroutine matin1

      SUBROUTINE MATIN1(N,A,B)
C-----------------------------------------------------------------------
C  *******************FORTRAN77 SUBROUTINE: MATIN1 *********************
C
C  PURPOSE: MATRIX INVERSION
C
C  CALLING PROGRAM:
C           LSTSQ
C
C  INPUT:
C           N  NUMBER OF DATA POINTS
C
C  I/O      (R*8)  A(,) 'N' BY 'N' MATRIX
C                            INPUT : MATRIX TO BE INVERTED
C                            OUTPUT: INVERTED MATRIX
C           (R*8)  B()  = A.X = B
C                            INPUT : RIGHT HAND SIDE VECTOR 'B'
C                            OUTPUT: SOLUTION VECTOR 'X'
C
C  DATE: 02/07/95				VERSION 1.1
C  WRITTEN: A.LANZAFAME & D.H.BROOKS, UNIV.OF STRATHCLYDE
C           CONVERTED FROM BURGESS BBC BASIC
C
C-----------------------------------------------------------------------
      INTEGER             N
      REAL*8              A(N,N),      B(N)