Télécharger noutru.eso

Retour à la liste

Numérotation des lignes :

  1. C NOUTRU SOURCE CB215821 19/11/15 21:15:52 10378
  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.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. NOMLU=0
  12. IBPILE= 10
  13. IHPILE= 9
  14. ISTOP=0
  15. IMOTLU=0
  16. IAVA=1
  17. RETURN
  18. END
  19.  
  20.  
  21.  
  22.  

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