Télécharger noutru.eso

Retour à la liste

Numérotation des lignes :

  1. C NOUTRU SOURCE CHAT 06/03/16 21:23:07 5336
  2. C FAIT PASSER A L'INSTRUCTION SUIVANTE EN SAUTANT L'AFFECTATION
  3. C
  4. SUBROUTINE NOUTRU
  5. IMPLICIT INTEGER(I-N)
  6. -INC CCNOYAU
  7. -INC SMBLOC
  8. -INC CCOPTIO
  9. NOMLU=0
  10. IBPILE= 10
  11. IHPILE= 9
  12. ISTOP=0
  13. IMOTLU=0
  14. IAVA=1
  15. RETURN
  16. END
  17.  
  18.  

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