C PROCSA SOURCE PV090527 24/01/09 21:15:23 11817 SUBROUTINE PROCSA C SAUVETAGE COMPLET DE L'ETAT DE CCNOYAU ET DE CCREDLE C EN VUE DES PROCEDURES IMPLICIT INTEGER(I-N) -INC CCNOYAU -INC CCREDLE -INC SMBLOC SREDLE=IREDLE SEGINI MPROCE MPROCD=MPROCE MPOOB=JPOOB KTABNO=ITABNO LLCTAB=LECTAB LTTINT=ITTINT LSTOP=ISTOP LBPILE=IBPILE LHPILE=IHPILE LMOTLU=IMOTLU LPTEM=IPTEM LBNOM=NBNOM LNILU=INILU LOMLU=NOMLU LEGAL=IEGAL LIPOS=IPOS LDPAR=IDPAR LFPAR=IFPAR LNTEXT=INTEXT LPVINT=IPVINT LINTPO=IINTPO LNTEMP=INTEMP LRAZ=IRAZ LEXT=TEXT LOT=MOT LCOUR=ICOUR LPREC=IPREC LRAN=NRAN LLU=ILU LUTIL=MBFONC LFINAN=IFINAN LINT=ITINTE(/1) LTAB=ITANOM(/2) SEGDES ITTINT,ITABNO,JPOOB C C MISE EN PLACE D'UNE NOUVELLE LECTURE ( INILIR) C N=0 M=LTAB SEGINI ITTINT,ITABNO N=20 M=0 SEGINI JPOOB IBPILE=10 IHPILE=9 IMOTLU=0 ISTOP=0 DO 23 I=1,LINT ITINTE(**)=0 23 CONTINUE LECTAB=0 NBNOM=0 IPVINT=0 INILU=1 IINTPO=1 INTEMP=0 NOMLU=0 IPREC=1 IDPAR=0 ICOUR=2 IFINAN=2 IPOS=2 SEGDES MPROCE RETURN END