Télécharger perm25.eso

Retour à la liste

Numérotation des lignes :

perm25
  1. C PERM25 SOURCE BP208322 16/06/27 21:16:23 8990
  2. c
  3. SUBROUTINE PERM25(N,F,J,FB,RC)
  4. C
  5. C ASSIGNMENT OF COLUMN J .
  6. C
  7. INTEGER N,I,J,JJ
  8. INTEGER F(N)
  9. INTEGER FB(N),RC(N)
  10. 1 I = RC(J)
  11. FB(J) = I
  12. JJ = F(I)
  13. F(I) = J
  14. J = JJ
  15. IF ( J .GT. 0 ) GO TO 1
  16. RETURN
  17. END
  18.  
  19.  

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