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