Télécharger affpav.eso

Retour à la liste

Numérotation des lignes :

  1. C AFFPAV SOURCE CHAT 05/01/12 21:19:28 5004
  2. C UTILISE DANS L'OPERATEUR PAVE
  3. C RECONSTITUE D'APRES UNE TRADUCTION ESOPE POUR LE CRAY
  4. C CAR ACCIDENTELLEMENT DETRUIT PAR EBERSOLD
  5. C DONC SANS COMMENTAIRES
  6. SUBROUTINE AFFPAV(J,IP,IPT2,IPT3,IPT4,IPT5,IPT6)
  7. IMPLICIT INTEGER(I-N)
  8. -INC CCOPTIO
  9. IF (J.EQ.2) IPT2=IP
  10. IF (J.EQ.3) IPT3=IP
  11. IF (J.EQ.4) IPT4=IP
  12. IF (J.EQ.5) IPT5=IP
  13. IF (J.EQ.6) IPT6=IP
  14. RETURN
  15. END
  16.  
  17.  

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