Télécharger razpil.eso

Retour à la liste

Numérotation des lignes :

razpil
  1. C RAZPIL SOURCE PV090527 24/01/09 21:15:24 11817
  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.  
  8. -INC PPARAM
  9. -INC CCNOYAU
  10. -INC SMBLOC
  11. -INC CCREDLE
  12. -INC CCOPTIO
  13.  
  14. SREDLE= IREDLE
  15. NOMLU = 0
  16. IBPILE= 10
  17. IHPILE= 9
  18. IMOTLU= 0
  19. ISTOP = 0
  20. IF (IPTEM.EQ.0) RETURN
  21. ISSPOT=ISPOTE
  22. NNOOB2=INOOB2(/2)
  23. DO 8987 IKL=1,IIPOTE
  24. ITBNOM=IPOTEM(IKL)
  25. IF (ITBNOM.GT.NNOOB2) GOTO 8987
  26. INOOB2(ITBNOM)='ANNULE'
  27. IOUEP2(ITBNOM)=1
  28. 8987 CONTINUE
  29. IIPOTE=0
  30. IPTEM =0
  31. END
  32.  
  33.  

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