C LINEQ1    SOURCE    CHAT      05/01/13    01:18:44     5004           
      SUBROUTINE LINEQ1(B,D,X)
C===================================================
C                                                  =
C     RESOLUTION DES EQUATIONS LINEAIRES           =
C       B*D=X                                      =
C     OUTPUT: X                                    =
C                                                  =
C===================================================
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION B(2,2),D(2),X(2)
      DATA EPSI/1.D-9/
      DET=B(1,1)*B(2,2)-B(1,2)*B(2,1)
      X(1)= (D(1)*B(2,2)-D(2)*B(1,2))/DET
      X(2)=-(D(1)*B(2,1)-D(2)*B(1,1))/DET
      IF(ABS(DET).LT.EPSI) PRINT*,'LINEQ1: |DET|<1.D-9'
      END