Télécharger systli.eso

Retour à la liste

Numérotation des lignes :

  1. C SYSTLI SOURCE CHAT 05/01/13 03:29:09 5004
  2. SUBROUTINE SYSTLI(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. CALL TRILI (A,B,M,LU)
  9. CALL RESYST (A,B,M,X,LU)
  10. CALL VERIF(A,B,M,X,LU,C)
  11. C CALL AFFIL(LU,X,M,C)
  12. C
  13. RETURN
  14. END
  15.  
  16.  
  17.  
  18.  

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