Télécharger inspil.eso

Retour à la liste

Numérotation des lignes :

  1. C INSPIL SOURCE CHAT 06/03/16 21:19:23 5336
  2. C INSERE LE CONTENU D'UN OBJET DE TYPE TEXTE DANS LA PILE DEJA DECODES
  3. C APRES AVOIR AU BESOIN FAIT LA TRADUCTION DU TEXTE
  4. SUBROUTINE INSPIL(MTAXTE,IPL)
  5. IMPLICIT INTEGER(I-N)
  6.  
  7. -INC PPARAM
  8. -INC CCOPTIO
  9. -INC SMTEXTE
  10. -INC CCNOYAU
  11. MTEXTE=MTAXTE
  12. IF(IIMPI.EQ.1756)WRITE(IOIMP,53) MTAXTE
  13. 53 FORMAT( ' ENTREE DANS INSPIL POUR TEXTE : MTEXTE ',I5)
  14. CALL TRADTE(MTAXTE,MTRA)
  15. MTRADU=MTRA
  16. SEGACT MTEXTE,MTRADU
  17. C--
  18. C-- ON PLACE LA PHRASE INTERPRETER DANS LA PILE A LA PLACE DE
  19. C-- L'OBJET TEXTE
  20. C--
  21. ILON=MTRAD(/1)
  22. IF(IIMPI.EQ.1756)WRITE(IOIMP,54) MTEXTE,MTRADU,ILON
  23. 54 FORMAT(' INSPIL APRES TRADTE MTEXTE MTRADU ILON ',3I6)
  24.  
  25. IF( ILON.EQ.0) THEN
  26. JPOOB1(IPL)=.FALSE.
  27. SEGDES MTEXTE,MTRADU
  28. RETURN
  29. ENDIF
  30. IDEC=ILON-1
  31. IF(IDEC.NE.0) THEN
  32. ILO=JTYOBJ(/2)-IHPILE
  33. ICRE=IDEC-ILO
  34. IF(ICRE.GT.0) THEN
  35. N=JTYOBJ(/2)+ICRE
  36. SEGADJ JPOOB
  37. ENDIF
  38. ITI=IHPILE +IDEC
  39. IDECA=IHPILE-IPL
  40. IF(IDECA.EQ.0) GO TO 157
  41. DO 158 IDCA=1,IDECA
  42. JPOOB1(ITI+1-IDCA)=JPOOB1(IHPILE+1-IDCA)
  43. JPOOB2(ITI+1-IDCA)=JPOOB2(IHPILE+1-IDCA)
  44. JPOOB4(ITI+1-IDCA)=JPOOB4(IHPILE+1-IDCA)
  45. JTYOBJ(ITI+1-IDCA)=JTYOBJ(IHPILE+1-IDCA)
  46. 158 CONTINUE
  47. 157 CONTINUE
  48. IHPILE=ITI
  49. ENDIF
  50. IKLA=IPL
  51. DO 243 IPEU=1,ILON
  52. IPLAC=MTRAD(IPEU)
  53. JPOOB1(IKLA)=.TRUE.
  54. JPOOB2(IKLA)=IPLAC
  55. JPOOB4(IKLA)=IOUEP2(IPLAC)
  56. JTYOBJ(IKLA)=INOOB2(IPLAC)
  57. IKLA=IKLA+1
  58. 243 CONTINUE
  59. SEGDES MTEXTE,MTRADU
  60. RETURN
  61. END
  62.  
  63.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales