Télécharger refus.eso

Retour à la liste

Numérotation des lignes :

  1. C REFUS SOURCE PV 06/04/20 21:16:10 5410
  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) call ooonth(ith)
  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.  

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