Télécharger procre.eso

Retour à la liste

Numérotation des lignes :

  1. C PROCRE SOURCE PV 09/09/10 21:15:26 6500
  2. SUBROUTINE PROCRE
  3. C REMISE EN ETAT DE LA LECTURE DE CRAN EN DESSOUS
  4. IMPLICIT INTEGER(I-N)
  5. -INC CCNOYAU
  6. -INC SMBLOC
  7. -INC CCREDLE
  8. sredle=iredle
  9. call ooohor(0,0)
  10. SEGACT MBLOC*MOD
  11. I2=ITINTE(/1)
  12. I1 = ITANOM(/2)
  13. SEGSUP ITTINT,ITABNO,JPOOB
  14. MPROCE=MPROCD
  15. SEGACT MPROCE
  16. C
  17. C REPRISE DANS MPROCE DE L'ETAT DE LA LECTURE
  18. C
  19. JPOOB=MPOOB
  20. ITABNO=KTABNO
  21. LECTAB=LLCTAB
  22. ISTOP=LSTOP
  23. IBPILE=LBPILE
  24. IHPILE=LHPILE
  25. IMOTLU=LMOTLU
  26. IPTEM=LPTEM
  27. NBNOM=LBNOM
  28. INILU=LNILU
  29. NOMLU=LOMLU
  30. IEGAL=LEGAL
  31. IPOS=LIPOS
  32. IDPAR=LDPAR
  33. IFPAR=LFPAR
  34. MBFONC=LUTIL
  35. INTEXT=LNTEXT
  36. ITTINT=LTTINT
  37. IPVINT=LPVINT
  38. IINTPO=LINTPO
  39. INTEMP=LNTEMP
  40. IRAZ=LRAZ
  41. TEXT=LEXT
  42. MOT(1:72)=LOT(1:72)
  43. ICOUR=LCOUR
  44. IPREC=LPREC
  45. NRAN=LRAN
  46. ILU=LLU
  47. IFINAN=LFINAN
  48. SEGACT ITABNO*MOD
  49. SEGACT JPOOB*MOD
  50. SEGACT ITTINT*MOD
  51. IF(ITANOM(/2).GE.I1) GO TO 10
  52. M=I1
  53. SEGADJ ITABNO
  54. 10 CONTINUE
  55. IF(ITINTE(/1).GE.I2) GO TO 20
  56. K=I2-ITINTE(/1)
  57. DO 21 I=1,K
  58. ITINTE(**)=0
  59. 21 CONTINUE
  60. 20 CONTINUE
  61. SEGSUP MPROCE
  62. MPROCD=MPROCE
  63. END
  64.  
  65.  
  66.  

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