Télécharger verif.eso

Retour à la liste

Numérotation des lignes :

  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.  
  21.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales