Télécharger la plaquette Cast3M


fr en

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            ILISSP: pointeur vers seg ilisse cas des points
  11. C            ILISSF: pointeur vers seg ilisse cas des flottants
  12. C                      segment de numéro i est le j ieme de la pile)
  13. C            IFFORM: entier qui vaut 1 si sauvegarde formatée sinon 0
  14. C
  15. C     04/04/14: Modif GF: 	-Declaration des segments en utilisant la derniere specif Esope
  16. C				-Nouveau segment LISPIL
  17. C======================================================================
  18. C      SEGMENT/ICOLAC/(ICOLA(NITLAC),KCOLA(NITLAC),MCOLA(NITLAC),
  19. C     1  KCOLAC(NITLAC),ILISSG,IFFORM)
  20.       SEGMENT ICOLAC
  21.          integer icola(nitlac)
  22.          integer kcola(nitlac)
  23.          integer mcola(nitlac)
  24.          integer kcolac(nitlac)
  25.          integer ilissg
  26.          integer ilissp
  27.          integer ilissf
  28.          integer ifform
  29.       ENDSEGMENT
  30.       pointeur icola1.icolac
  31.  
  32. C      SEGMENT/ITLACC/(ITLAC(0)),ITLAC1.ITLACC,ITLAC2.ITLACC,
  33. C     1 ITLAC3.ITLACC,ITLAC4.ITLACC,ITLAC5.ITLACC,ITLAC6.ITLACC
  34.       SEGMENT ITLACC
  35.          integer itlac(0)
  36.       ENDSEGMENT
  37.       pointeur ITLAC1.ITLACC
  38.       pointeur ITLAC2.ITLACC
  39.       pointeur ITLAC3.ITLACC
  40.       pointeur ITLAC4.ITLACC
  41.       pointeur ITLAC5.ITLACC
  42.       pointeur ITLAC6.ITLACC
  43.  
  44.       SEGMENT ISGTR
  45. **       character*(LONOM) isgtrc(ks)
  46.          character*(24) isgtrc(ks)
  47.          integer isgtri(ks)
  48.       ENDSEGMENT
  49.  
  50.       SEGMENT ILISSE
  51.          integer npgcd
  52.          integer iliseg(nlisse)
  53.       ENDSEGMENT
  54.  
  55. C	Liste de segments ICOLAC pour la communication entre collaborateurs
  56. C		La pile iProc contient les elements echanges avec le collaborateur iProc
  57.       SEGMENT LISPIL
  58.         integer proc(nproc)
  59.       ENDSEGMENT 
  60.  

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