Sources Esope | Cast3M

inspil
C INSPIL    SOURCE    CHAT      06/03/16    21:19:23     5336
C   INSERE LE CONTENU D'UN OBJET DE TYPE TEXTE DANS LA PILE DEJA DECODES
C   APRES AVOIR AU BESOIN FAIT LA TRADUCTION DU TEXTE
      SUBROUTINE INSPIL(MTAXTE,IPL)
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
-INC SMTEXTE
-INC CCNOYAU
      MTEXTE=MTAXTE
      IF(IIMPI.EQ.1756)WRITE(IOIMP,53) MTAXTE
  53  FORMAT( ' ENTREE DANS INSPIL POUR TEXTE : MTEXTE ',I5)
      CALL TRADTE(MTAXTE,MTRA)
      MTRADU=MTRA
      SEGACT MTEXTE,MTRADU
C--
C--  ON PLACE LA PHRASE INTERPRETER DANS LA PILE A LA PLACE DE
C--  L'OBJET TEXTE
C--
      ILON=MTRAD(/1)
      IF(IIMPI.EQ.1756)WRITE(IOIMP,54) MTEXTE,MTRADU,ILON
   54 FORMAT('  INSPIL  APRES TRADTE MTEXTE MTRADU  ILON ',3I6)
 
      IF( ILON.EQ.0) THEN
         JPOOB1(IPL)=.FALSE.
         SEGDES MTEXTE,MTRADU
         RETURN
      ENDIF
      IDEC=ILON-1
      IF(IDEC.NE.0) THEN
         ILO=JTYOBJ(/2)-IHPILE
         ICRE=IDEC-ILO
         IF(ICRE.GT.0) THEN
            N=JTYOBJ(/2)+ICRE
            SEGADJ JPOOB
         ENDIF
         ITI=IHPILE +IDEC
         IDECA=IHPILE-IPL
         IF(IDECA.EQ.0) GO TO 157
         DO 158 IDCA=1,IDECA
         JPOOB1(ITI+1-IDCA)=JPOOB1(IHPILE+1-IDCA)
         JPOOB2(ITI+1-IDCA)=JPOOB2(IHPILE+1-IDCA)
         JPOOB4(ITI+1-IDCA)=JPOOB4(IHPILE+1-IDCA)
         JTYOBJ(ITI+1-IDCA)=JTYOBJ(IHPILE+1-IDCA)
  158    CONTINUE
  157    CONTINUE
         IHPILE=ITI
      ENDIF
      IKLA=IPL
      DO 243 IPEU=1,ILON
      IPLAC=MTRAD(IPEU)
            JPOOB1(IKLA)=.TRUE.
            JPOOB2(IKLA)=IPLAC
            JPOOB4(IKLA)=IOUEP2(IPLAC)
            JTYOBJ(IKLA)=INOOB2(IPLAC)
            IKLA=IKLA+1
  243 CONTINUE
      SEGDES  MTEXTE,MTRADU
      RETURN
      END