Télécharger razpil.eso

Retour à la liste

Numérotation des lignes :

  1. C RAZPIL SOURCE JC220346 17/08/03 21:15:15 9525
  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. NNOOB2=INOOB2(/2)
  20. DO 8987 IKL=1,IIPOTE
  21. ITBNOM=IPOTEM(IKL)
  22. IF (ITBNOM.GT.NNOOB2) GOTO 8987
  23. INOOB2(ITBNOM)='ANNULE'
  24. IOUEP2(ITBNOM)=1
  25. 8987 CONTINUE
  26. IIPOTE=0
  27. IPTEM=0
  28. RETURN
  29. END
  30.  
  31.  
  32.  

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