Télécharger perm15.eso

Retour à la liste

Numérotation des lignes :

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

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