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