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

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