Télécharger argu1.eso

Retour à la liste

Numérotation des lignes :

  1. C ARGU1 SOURCE PV 16/11/17 21:15:04 9181
  2. SUBROUTINE ARGU1(ITYP,IRET,ICODE,IRETOU,MPROCI)
  3. C
  4. C SERT A LIRE UNE VALEUR DE TYPE "ITYP" DANS L'ETAGE INFERIEUR DE LA
  5. C PROCEDURE PUIS A REMETTRE TOUT EN PLACE
  6. C
  7. C EN ENTREE MPROCE = SEGMENT REPRESENTANT L'ETAT DE LECTURE DU NIVEAU
  8. C INFERIEUR EN SORTIE NOUVELLE VALEUR POUR SE SEGMENT. IL FAUT FAIRE
  9. C LA MISE A JOUR DU SEGMENT MBLOC A L'EXTERIEUR
  10. C
  11. IMPLICIT INTEGER (Y)
  12. IMPLICIT INTEGER (I-N)
  13. -INC CCOPTIO
  14. -INC CCNOYAU
  15. -INC SMBLOC
  16. -INC CCREDLE
  17. CHARACTER*(*) ITYP
  18. CHARACTER*72 CYOT
  19. CHARACTER*500 CYEXT
  20. sredle=iredle
  21. C SAUVETAGE COMPLET DE L'ETAT DE CCNOYAU ET DE CCREDLE
  22. C EN VUE D'Y REVENIR
  23. MPROCE=MPROCI
  24. YPOOB=JPOOB
  25. YTABNO=ITABNO
  26. YLCTAB=LECTAB
  27. YTTINT=ITTINT
  28. YSTOP=ISTOP
  29. YBPILE=IBPILE
  30. YHPILE=IHPILE
  31. YMOTLU=IMOTLU
  32. YPTEM=IPTEM
  33. YBNOM=NBNOM
  34. YNILU=INILU
  35. YOMLU=NOMLU
  36. YEGAL=IEGAL
  37. YIPOS=IPOS
  38. YDPAR=IDPAR
  39. YFPAR=IFPAR
  40. YNTEXT=INTEXT
  41. YPVINT=IPVINT
  42. YINTPO=IINTPO
  43. YNTEMP=INTEMP
  44. YRAZ=IRAZ
  45. CYEXT=TEXT
  46. CYOT=MOT
  47. YCOUR=ICOUR
  48. YPREC=IPREC
  49. YRAN=NRAN
  50. YLU=ILU
  51. YUTIL=MBFONC
  52. YFINAN=IFINAN
  53. YINT=ITINTE(/1)
  54. I2=YINT
  55. YTAB= ITANOM(/2)
  56. I1=YTAB
  57. SEGDES ITTINT,ITABNO,JPOOB
  58. C REMISE EN ETAT DE LA LECTURE DE CRAN EN DESSOUS
  59. SEGACT MPROCE
  60. C
  61. C REPRISE DANS MPROCE DE L'ETAT DE LA LECTURE
  62. C
  63. JPOOB=MPOOB
  64. ITABNO=KTABNO
  65. LECTAB=LLCTAB
  66. ISTOP=LSTOP
  67. IBPILE=LBPILE
  68. IHPILE=LHPILE
  69. IMOTLU=LMOTLU
  70. IPTEM=LPTEM
  71. NBNOM=LBNOM
  72. INILU=LNILU
  73. NOMLU=LOMLU
  74. IEGAL=LEGAL
  75. IPOS=LIPOS
  76. IDPAR=LDPAR
  77. IFPAR=LFPAR
  78. MBFONC=LUTIL
  79. INTEXT=LNTEXT
  80. ITTINT=LTTINT
  81. IPVINT=LPVINT
  82. IINTPO=LINTPO
  83. INTEMP=LNTEMP
  84. IRAZ=LRAZ
  85. TEXT=LEXT
  86. MOT(1:72)=LOT(1:72)
  87. ICOUR=LCOUR
  88. IPREC=LPREC
  89. NRAN=LRAN
  90. ILU=LLU
  91. IFINAN=LFINAN
  92. SEGACT ITABNO*MOD,ITTINT*MOD,JPOOB*MOD
  93. IF(ITANOM(/2).GE.I1) GO TO 10
  94. M=I1
  95. SEGADJ ITABNO
  96. 10 CONTINUE
  97. IF(ITINTE(/1).GE.I2) GO TO 20
  98. K=I2-ITINTE(/1)
  99. DO 21 I=1,K
  100. ITINTE(**)=0
  101. 21 CONTINUE
  102. 20 CONTINUE
  103. SEGSUP MPROCE
  104. C
  105. C ON EST PRET A FAIRE UNE LECTURE ON PASSE PAR LIRABJ
  106. C
  107. CALL LIRABJ (ITYP,IRET,ICODE,IRETOU)
  108. C
  109. C ON SAUVE LE NOUVEL ETAT DE LA LECTURE DANS UN SEGMENT MPROCE
  110. C EQUIVALLENT A PROCSA
  111. C
  112. SEGINI MPROCE
  113. MPROCI=MPROCE
  114. MPOOB=JPOOB
  115. KTABNO=ITABNO
  116. LLCTAB=LECTAB
  117. LTTINT=ITTINT
  118. LSTOP=ISTOP
  119. LBPILE=IBPILE
  120. LHPILE=IHPILE
  121. LMOTLU=IMOTLU
  122. LPTEM=IPTEM
  123. LBNOM=NBNOM
  124. LNILU=INILU
  125. LOMLU=NOMLU
  126. LEGAL=IEGAL
  127. LIPOS=IPOS
  128. LDPAR=IDPAR
  129. LFPAR=IFPAR
  130. LNTEXT=INTEXT
  131. LPVINT=IPVINT
  132. LINTPO=IINTPO
  133. LNTEMP=INTEMP
  134. LRAZ=IRAZ
  135. LEXT=TEXT
  136. LOT=MOT
  137. LCOUR=ICOUR
  138. LPREC=IPREC
  139. LRAN=NRAN
  140. LLU=ILU
  141. LUTIL=MBFONC
  142. LFINAN=IFINAN
  143. LINT=ITINTE(/1)
  144. LTAB=ITANOM(/2)
  145. I2=ITINTE(/1)
  146. I1 = ITANOM(/2)
  147. SEGDES ITTINT,ITABNO,JPOOB
  148. C
  149. C REPRISE DE L'ETAT DE LECTURE EN ENTREE DU SUBROUTINE
  150. C
  151. JPOOB=YPOOB
  152. ITABNO=YTABNO
  153. LECTAB=YLCTAB
  154. ISTOP=YSTOP
  155. IBPILE=YBPILE
  156. IHPILE=YHPILE
  157. IMOTLU=YMOTLU
  158. IPTEM=YPTEM
  159. NBNOM=YBNOM
  160. INILU=YNILU
  161. NOMLU=YOMLU
  162. IEGAL=YEGAL
  163. IPOS=YIPOS
  164. IDPAR=YDPAR
  165. IFPAR=YFPAR
  166. MBFONC=YUTIL
  167. INTEXT=YNTEXT
  168. ITTINT=YTTINT
  169. IPVINT=YPVINT
  170. IINTPO=YINTPO
  171. INTEMP=YNTEMP
  172. IRAZ=YRAZ
  173. TEXT=CYEXT
  174. MOT(1:72)=CYOT(1:72)
  175. ICOUR=YCOUR
  176. IPREC=YPREC
  177. NRAN=YRAN
  178. ILU=YLU
  179. IFINAN=YFINAN
  180. SEGACT ITABNO*MOD,ITTINT*MOD,JPOOB*MOD
  181. IF(ITANOM(/2).GE.I1) GO TO 12
  182. M=I1
  183. SEGADJ ITABNO
  184. 12 CONTINUE
  185. IF(ITINTE(/1).GE.I2) GO TO 22
  186. K=I2-ITINTE(/1)
  187. DO 23 I=1,K
  188. ITINTE(**)=0
  189. 23 CONTINUE
  190. 22 CONTINUE
  191. SEGDES MPROCE
  192. RETURN
  193. END
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  

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