Télécharger la plaquette Cast3M


fr en

Télécharger procsa.eso

Retour à la liste

Numérotation des lignes : 

procsa

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

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