C NOUTRU    SOURCE    CHAT      06/03/16    21:23:07     5336           
C   FAIT PASSER A L'INSTRUCTION SUIVANTE EN SAUTANT L'AFFECTATION   
C                                                                   
      SUBROUTINE NOUTRU                                             
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU                                                        
-INC SMBLOC                                                         
-INC CCOPTIO                                                        
      NOMLU=0                                                       
      IBPILE= 10                                                    
      IHPILE= 9                                                     
      ISTOP=0                                                       
      IMOTLU=0                                                      
      IAVA=1                                                        
      INTEXT=0                                                      
      RETURN                                                        
      END