C LINEQU    SOURCE    CHAT      05/01/13    01:18:48     5004           
      SUBROUTINE LINEQU(C11,C12,C21,C22,B1,B2,X1,X2)
C===================================================
C                                                  =
C     RESOLUTION DES EQUATIONS LINEAIRES           =
C     C11*X1+C12*X2=B1                             =
C     C21*X1+C22*X2=B2                             =
C                                                  =
C     OUTPUT: X1,X2                                =
C                                                  =
C===================================================
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DATA EPSI/1.D-5/
      DET=C11*C22-C12*C21
      X1= (B1*C22-B2*C12)/DET
      X2=-(B1*C21-B2*C11)/DET
      END