1 : C PROCSA SOURCE CHAT 06/03/16 21:24:08 5336 2 : SUBROUTINE PROCSA 3 : C SAUVETAGE COMPLET DE L'ETAT DE CCNOYAU ET DE CCREDLE 4 : C EN VUE DES PROCEDURES 5 : IMPLICIT INTEGER(I-N) 6 : -INC CCNOYAU 7 : -INC CCREDLE 8 : -INC SMBLOC 9 : SREDLE=IREDLE 10 : SEGINI MPROCE 11 : MPROCD=MPROCE 12 : MPOOB=JPOOB 13 : KTABNO=ITABNO 14 : LLCTAB=LECTAB 15 : LTTINT=ITTINT 16 : LSTOP=ISTOP 17 : LBPILE=IBPILE 18 : LHPILE=IHPILE 19 : LMOTLU=IMOTLU 20 : LPTEM=IPTEM 21 : LBNOM=NBNOM 22 : LNILU=INILU 23 : LOMLU=NOMLU 24 : LEGAL=IEGAL 25 : LIPOS=IPOS 26 : LDPAR=IDPAR 27 : LFPAR=IFPAR 28 : LNTEXT=INTEXT 29 : LPVINT=IPVINT 30 : LINTPO=IINTPO 31 : LNTEMP=INTEMP 32 : LRAZ=IRAZ 33 : LEXT=TEXT 34 : LOT=MOT 35 : LCOUR=ICOUR 36 : LPREC=IPREC 37 : LRAN=NRAN 38 : LLU=ILU 39 : LUTIL=MBFONC 40 : LFINAN=IFINAN 41 : LINT=ITINTE(/1) 42 : LTAB=ITANOM(/2) 43 : SEGDES ITTINT,ITABNO,JPOOB 44 : C 45 : C MISE EN PLACE D'UNE NOUVELLE LECTURE ( INILIR) 46 : C 47 : N=0 48 : M=LTAB 49 : SEGINI ITTINT,ITABNO 50 : N=20 51 : M=0 52 : SEGINI JPOOB 53 : IBPILE=10 54 : IHPILE=9 55 : IMOTLU=0 56 : ISTOP=0 57 : DO 23 I=1,LINT 58 : ITINTE(**)=0 59 : 23 CONTINUE 60 : LECTAB=0 61 : NBNOM=0 62 : IPVINT=0 63 : INILU=1 64 : IINTPO=1 65 : INTEMP=0 66 : NOMLU=0 67 : IPREC=1 68 : IDPAR=0 69 : ICOUR=2 70 : IFINAN=2 71 : IPOS=2 72 : SEGDES MPROCE 73 : RETURN 74 : END 75 :
© Cast3M 2003 - All rights reserved.
Disclaimer