Télécharger argu1.eso

Retour à la liste

Numérotation des lignes :

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

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