Sources Esope | Cast3M

noutru
C NOUTRU    SOURCE    CB215821  24/07/17    21:15:13     11961          
C   FAIT PASSER A L'INSTRUCTION SUIVANTE EN SAUTANT L'AFFECTATION
C
      SUBROUTINE NOUTRU
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU
-INC SMBLOC
 
-INC PPARAM
-INC CCOPTIO
      NOMLU=0
      IBPILE= 10
      IHPILE= 9
      ISTOP=0
      IMOTLU=0
      IAVA=1
      INTEXT=0
      RETURN
      END