1 : C ARGU1 SOURCE CHAT 06/03/17 13:33:56 5338 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*4 (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 106 : CALL LIRABJ (ITYP,IRET,ICODE,IRETOU) 107 : C 108 : C ON SAUVE LE NOUVEL ETAT DE LA LECTURE DANS UN SEGMENT MPROCE 109 : C EQUIVALLENT A PROCSA 110 : C 111 : SEGINI MPROCE 112 : MPROCI=MPROCE 113 : MPOOB=JPOOB 114 : KTABNO=ITABNO 115 : LLCTAB=LECTAB 116 : LTTINT=ITTINT 117 : LSTOP=ISTOP 118 : LBPILE=IBPILE 119 : LHPILE=IHPILE 120 : LMOTLU=IMOTLU 121 : LPTEM=IPTEM 122 : LBNOM=NBNOM 123 : LNILU=INILU 124 : LOMLU=NOMLU 125 : LEGAL=IEGAL 126 : LIPOS=IPOS 127 : LDPAR=IDPAR 128 : LFPAR=IFPAR 129 : LNTEXT=INTEXT 130 : LPVINT=IPVINT 131 : LINTPO=IINTPO 132 : LNTEMP=INTEMP 133 : LRAZ=IRAZ 134 : LEXT=TEXT 135 : LOT=MOT 136 : LCOUR=ICOUR 137 : LPREC=IPREC 138 : LRAN=NRAN 139 : LLU=ILU 140 : LUTIL=MBFONC 141 : LFINAN=IFINAN 142 : LINT=ITINTE(/1) 143 : LTAB=ITANOM(/2) 144 : I2=ITINTE(/1) 145 : I1 = ITANOM(/2) 146 : SEGDES ITTINT,ITABNO,JPOOB 147 : C 148 : C REPRISE DE L'ETAT DE LECTURE EN ENTREE DU SUBROUTINE 149 : C 150 : JPOOB=YPOOB 151 : ITABNO=YTABNO 152 : LECTAB=YLCTAB 153 : ISTOP=YSTOP 154 : IBPILE=YBPILE 155 : IHPILE=YHPILE 156 : IMOTLU=YMOTLU 157 : IPTEM=YPTEM 158 : NBNOM=YBNOM 159 : INILU=YNILU 160 : NOMLU=YOMLU 161 : IEGAL=YEGAL 162 : IPOS=YIPOS 163 : IDPAR=YDPAR 164 : IFPAR=YFPAR 165 : MBFONC=YUTIL 166 : INTEXT=YNTEXT 167 : ITTINT=YTTINT 168 : IPVINT=YPVINT 169 : IINTPO=YINTPO 170 : INTEMP=YNTEMP 171 : IRAZ=YRAZ 172 : TEXT=CYEXT 173 : MOT(1:72)=CYOT(1:72) 174 : ICOUR=YCOUR 175 : IPREC=YPREC 176 : NRAN=YRAN 177 : ILU=YLU 178 : IFINAN=YFINAN 179 : SEGACT ITABNO*MOD,ITTINT*MOD,JPOOB*MOD 180 : IF(ITANOM(/2).GE.I1) GO TO 12 181 : M=I1 182 : SEGADJ ITABNO 183 : 12 CONTINUE 184 : IF(ITINTE(/1).GE.I2) GO TO 22 185 : K=I2-ITINTE(/1) 186 : DO 23 I=1,K 187 : ITINTE(**)=0 188 : 23 CONTINUE 189 : 22 CONTINUE 190 : SEGDES MPROCE 191 : RETURN 192 : END 193 : 194 : 195 : 196 : 197 : 198 : 199 : 200 : 201 : 202 :
© Cast3M 2003 - All rights reserved.
Disclaimer