Esope source files

   1 : C LINTRI    SOURCE    CHAT      05/01/13    01:18:57     5004           
   2 :       SUBROUTINE LINTRI(B,D,X)
   3 : C===================================================
   4 : C                                                  =
   5 : C     RESOLUTION DES TROIS EQUATIONS LINEAIRES     =
   6 : C       B*X=D                                      =
   7 : C     OUTPUT: X                                    =
   8 : C                                                  =
   9 : C===================================================
  10 :       IMPLICIT INTEGER(I-N)
  11 :       IMPLICIT REAL*8(A-H,O-Z)
  12 :       DIMENSION B(3,3),C(3,3),D(3),X(3)
  13 :       DATA EPSI/1.D-9/
  14 :       DO 10 I=1,3
  15 :   10  X(I)=0.D0
  15 :       CALL INVERT(B,C,DET,ICRI)
  16 :       DO 20 I=1,3
  17 :       DO 20 J=1,3
  18 :   20  X(I)=X(I)+C(I,J)*D(J)
  19 :       END
  20 :  
  21 :