Esope source files

   1 : C SYLIN2    SOURCE    CHAT      05/01/13    03:28:40     5004           
   2 :       SUBROUTINE SYLIN2(A,B,X1,X2)                                              
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 :       DIMENSION A(4),B(2)                                                       
   6 : C                                                                               
   7 : C-----------------------------------------------                                
   8 : C     RESOLUTION 2 EQUATIONS DEUX INCONNUES                                     
   9 : C-----------------------------------------------                                
  10 : C                                                                               
  11 :       DET=A(1)*A(4)-A(2)*A(3)                                                   
  12 :       DET1=B(1)*A(4)-B(2)*A(2)                                                  
  13 :       DET2=B(2)*A(1)-B(1)*A(3)                                                  
  14 :       X1=DET1/DET                                                               
  15 :       X2=DET2/DET                                                               
  16 :       RETURN                                                                    
  17 :       END                                                                       
  18 :