C SYLIN2    SOURCE    CHAT      05/01/13    03:28:40     5004           
      SUBROUTINE SYLIN2(A,B,X1,X2)                                              
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
      DIMENSION A(4),B(2)                                                       
C                                                                               
C-----------------------------------------------                                
C     RESOLUTION 2 EQUATIONS DEUX INCONNUES                                     
C-----------------------------------------------                                
C                                                                               
      DET=A(1)*A(4)-A(2)*A(3)                                                   
      DET1=B(1)*A(4)-B(2)*A(2)                                                  
      DET2=B(2)*A(1)-B(1)*A(3)                                                  
      X1=DET1/DET                                                               
      X2=DET2/DET                                                               
      RETURN                                                                    
      END