Esope source files

   1 : C NOUTRU    SOURCE    CHAT      06/03/16    21:23:07     5336           
   2 : C   FAIT PASSER A L'INSTRUCTION SUIVANTE EN SAUTANT L'AFFECTATION   
   3 : C                                                                   
   4 :       SUBROUTINE NOUTRU                                             
   5 :       IMPLICIT INTEGER(I-N)
   6 : -INC CCNOYAU                                                        
   7 : -INC SMBLOC                                                         
   8 : -INC CCOPTIO                                                        
   9 :       NOMLU=0                                                       
  10 :       IBPILE= 10                                                    
  11 :       IHPILE= 9                                                     
  12 :       ISTOP=0                                                       
  13 :       IMOTLU=0                                                      
  14 :       IAVA=1                                                        
  15 :       INTEXT=0                                                      
  16 :       RETURN                                                        
  17 :       END                               
  18 :