Télécharger razpil.eso

Retour à la liste

Numérotation des lignes :

  1. C RAZPIL SOURCE CHAT 06/03/16 21:25:20 5336
  2. C REINITIALISE LA PILE DE COMMUNICATION ET LA TABLE DES OBJETS
  3. C TEMPORAIRES
  4. C
  5. SUBROUTINE RAZPIL
  6. IMPLICIT INTEGER(I-N)
  7. -INC CCNOYAU
  8. -INC SMBLOC
  9. -INC CCREDLE
  10. -INC CCOPTIO
  11. SREDLE=IREDLE
  12. NOMLU= 0
  13. IBPILE=10
  14. IHPILE=9
  15. IMOTLU=0
  16. ISTOP=0
  17. IF(IPTEM.EQ.0) RETURN
  18. ISSPOT=ISPOTE
  19. DO 8987 IKL = 1, IIPOTE
  20. ITBNOM=IPOTEM(IKL)
  21. INOOB2(ITBNOM)='ANNULE'
  22. IOUEP2(ITBNOM)=1
  23. 8987 CONTINUE
  24. IIPOTE=0
  25. IPTEM=0
  26. RETURN
  27. END
  28.  
  29.  

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