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.  
  12. -INC PPARAM
  13. -INC CCOPTIO
  14. -INC CCASSIS
  15. IF(IIMPI.EQ.1876) WRITE(IOIMP,1754) IMOTLU,IBPILE,IHPILE ,JPOOB
  16. 1754 FORMAT(' REFUS : IMOTLU IBPILE IHPILE JPOOB ',4I6)
  17. ith=0
  18. if (nbesc.ne.0) ith=oothrd
  19. if (ith.ne.0) then
  20. call liresc('annule ',iret,-1,iretou)
  21. return
  22. endif
  23. IF(IMOTLU.EQ.0) CALL ERREUR (38)
  24. IF (IMOTLU.EQ.0) RETURN
  25. JPOOB1(IMOTLU)=.TRUE.
  26. IF(IBPILE.GT.IMOTLU) IBPILE=IMOTLU
  27. IF(IHPILE.LT.IMOTLU) IHPILE=IMOTLU
  28. IMOTLU=0
  29. RETURN
  30. END
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  

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