Télécharger procsa.eso

Retour à la liste

Numérotation des lignes :

  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.  
  76.  

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