Télécharger la plaquette Cast3M


fr en

Télécharger procre.eso

Retour à la liste

Numérotation des lignes : 

procre

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

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