Esope source files

   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
  15 :       if (nbesc.ne.0) call ooonth(ith)
  16 :       if (ith.ne.0) then
  16 :         call liresc('annule  ',iret,-1,iretou)
  17 :         return
  18 :       endif
  18 :       IF(IMOTLU.EQ.0)  CALL ERREUR (38)                                         
  19 :       IF (IMOTLU.EQ.0) RETURN                                                   
  20 :       JPOOB1(IMOTLU)=.TRUE.                                                     
  21 :       IF(IBPILE.GT.IMOTLU) IBPILE=IMOTLU                                        
  22 :       IF(IHPILE.LT.IMOTLU) IHPILE=IMOTLU                                        
  23 :       IMOTLU=0                                                                  
  24 :       RETURN                                                                    
  25 :       END            
  26 :  
  27 :