Télécharger procsa.eso

Retour à la liste

Numérotation des lignes :

procsa
  1. C PROCSA SOURCE PV090527 24/01/09 21:15:23 11817
  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.  

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