Télécharger procre.eso

Retour à la liste

Numérotation des lignes :

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

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