Esope source files

   1 : C VERIF     SOURCE    CHAT      05/01/13    04:05:35     5004           
   2 :       SUBROUTINE VERIF(A,B,M,X,LU,C)
   3 : C
   4 :       IMPLICIT INTEGER(I-N)
   5 :       IMPLICIT REAL*8(A-H,O-Z)
   6 :       DIMENSION A(M,M),B(M),X(M),C(M)
   7 : C       
   8 :       DO 50 I=LU-1,1,+1
   9 : C
  10 :       DO 55 J=I+1,LU
  11 :       C(I)=A(I,J)*X(I)-B(I)
  12 :    55 CONTINUE
  13 : C
  14 :    50 CONTINUE
  15 : C
  16 :       RETURN
  17 :       END
  18 : 
  19 :  
  20 :