Télécharger TMCOLAC.INC

Retour à la liste

Numérotation des lignes :

  1. C -INC TMCOLAC
  2. C=======================================================================
  3. C ICOLAC : KCOLA : POINTEUR SUR LA PILE ITLACC
  4. C MCOLA : NOMBRE D'OBJETS INSPECTES DANS LA PILE
  5. C ICOLA : POINTEUR SUR ISGTR ( NOM-NOM-RANG DANS ITLACC)
  6. C KCOLAC: CONTIENT POUR CHAQUE PILE LE NOMBRE D'OBJETS A
  7. C SORTIR
  8. C ILISSG: pointeur vers seg ilisse qui contient la place de
  9. C l'objet dans la pile itlacc ( iliseg(i)=j : le
  10. C segment de numéro i est le j ieme de la pile)
  11. C IFFORM: entier qui vaut 1 si sauvegarde formatée sinon 0
  12. C
  13. C 04/04/14: Modif GF: -Declaration des segments en utilisant la derniere specif Esope
  14. C -Nouveau segment LISPIL
  15. C======================================================================
  16. C SEGMENT/ICOLAC/(ICOLA(NITLAC),KCOLA(NITLAC),MCOLA(NITLAC),
  17. C 1 KCOLAC(NITLAC),ILISSG,IFFORM)
  18. SEGMENT ICOLAC
  19. integer icola(nitlac)
  20. integer kcola(nitlac)
  21. integer mcola(nitlac)
  22. integer kcolac(nitlac)
  23. integer ilissg
  24. integer ilissp
  25. integer ifform
  26. ENDSEGMENT
  27. pointeur icola1.icolac
  28.  
  29. C SEGMENT/ITLACC/(ITLAC(0)),ITLAC1.ITLACC,ITLAC2.ITLACC,
  30. C 1 ITLAC3.ITLACC,ITLAC4.ITLACC,ITLAC5.ITLACC,ITLAC6.ITLACC
  31. SEGMENT ITLACC
  32. integer itlac(0)
  33. ENDSEGMENT
  34. pointeur ITLAC1.ITLACC
  35. pointeur ITLAC2.ITLACC
  36. pointeur ITLAC3.ITLACC
  37. pointeur ITLAC4.ITLACC
  38. pointeur ITLAC5.ITLACC
  39. pointeur ITLAC6.ITLACC
  40.  
  41. SEGMENT ISGTR
  42. character*8 isgtrc(ks)
  43. integer isgtri(ks)
  44. ENDSEGMENT
  45.  
  46. SEGMENT ILISSE
  47. integer npgcd
  48. integer iliseg(nlisse)
  49. ENDSEGMENT
  50.  
  51. C Liste de segments ICOLAC pour la communication entre collaborateurs
  52. C La pile iProc contient les elements echanges avec le collaborateur iProc
  53. SEGMENT LISPIL
  54. integer proc(nproc)
  55. ENDSEGMENT
  56.  

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