Sources Esope | Cast3M

C RAZPIL    SOURCE    CHAT      06/03/16    21:25:20     5336
C   REINITIALISE LA PILE DE COMMUNICATION ET LA TABLE DES OBJETS
C   TEMPORAIRES
C
      SUBROUTINE RAZPIL
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU
-INC SMBLOC
-INC CCREDLE
-INC CCOPTIO
      SREDLE=IREDLE
      NOMLU= 0
      IBPILE=10
      IHPILE=9
      IMOTLU=0
      ISTOP=0
      IF(IPTEM.EQ.0) RETURN
           ISSPOT=ISPOTE
           DO 8987 IKL = 1, IIPOTE
           ITBNOM=IPOTEM(IKL)
           INOOB2(ITBNOM)='ANNULE'
           IOUEP2(ITBNOM)=1
 8987      CONTINUE
           IIPOTE=0
      IPTEM=0
      INTEXT=0
      RETURN
      END