Télécharger affpav.eso

Retour à la liste

Numérotation des lignes :

affpav
  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.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. IF (J.EQ.2) IPT2=IP
  12. IF (J.EQ.3) IPT3=IP
  13. IF (J.EQ.4) IPT4=IP
  14. IF (J.EQ.5) IPT5=IP
  15. IF (J.EQ.6) IPT6=IP
  16. RETURN
  17. END
  18.  
  19.  

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