Esope source files

   1 : C LINEQU    SOURCE    CHAT      05/01/13    01:18:48     5004           
   2 :       SUBROUTINE LINEQU(C11,C12,C21,C22,B1,B2,X1,X2)
   3 : C===================================================
   4 : C                                                  =
   5 : C     RESOLUTION DES EQUATIONS LINEAIRES           =
   6 : C     C11*X1+C12*X2=B1                             =
   7 : C     C21*X1+C22*X2=B2                             =
   8 : C                                                  =
   9 : C     OUTPUT: X1,X2                                =
  10 : C                                                  =
  11 : C===================================================
  12 :       IMPLICIT INTEGER(I-N)
  13 :       IMPLICIT REAL*8(A-H,O-Z)
  14 :       DATA EPSI/1.D-5/
  15 :       DET=C11*C22-C12*C21
  16 :       X1= (B1*C22-B2*C12)/DET
  17 :       X2=-(B1*C21-B2*C11)/DET
  18 :       END
  19 :  
  20 :