Télécharger refus.eso

Retour à la liste

Numérotation des lignes :

  1. C REFUS SOURCE PV 18/10/17 11:46:25 9965
  2. C SUBROUTINE REFUS
  3. C
  4. C CE SERVEUR FAIT PARTIE DU NOYAU DE GESTION DES OBJETS.(GIBI 1.00)
  5. C IL A POUR BUT DE REFUSER UNE DONNEE DE TYPE MOT
  6. C IL REMET IPILE(IMOTLU) A 1
  7. C
  8. SUBROUTINE REFUS
  9. IMPLICIT INTEGER(I-N)
  10. -INC CCNOYAU
  11. -INC CCOPTIO
  12. -INC CCASSIS
  13. IF(IIMPI.EQ.1876) WRITE(IOIMP,1754) IMOTLU,IBPILE,IHPILE ,JPOOB
  14. 1754 FORMAT(' REFUS : IMOTLU IBPILE IHPILE JPOOB ',4I6)
  15. ith=0
  16. if (nbesc.ne.0) ith=oothrd
  17. if (ith.ne.0) then
  18. call liresc('annule ',iret,-1,iretou)
  19. return
  20. endif
  21. IF(IMOTLU.EQ.0) CALL ERREUR (38)
  22. IF (IMOTLU.EQ.0) RETURN
  23. JPOOB1(IMOTLU)=.TRUE.
  24. IF(IBPILE.GT.IMOTLU) IBPILE=IMOTLU
  25. IF(IHPILE.LT.IMOTLU) IHPILE=IMOTLU
  26. IMOTLU=0
  27. RETURN
  28. END
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  

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