src/tool/Gestion_MTU/gmtoai.h

   1 c
   2 c  gmtoai : les Tableaux pour les Objets Alloues en Integer
   3 c
   4 c typobj : numero du type de chaque objet alloue.
   5 c
   6 c adrdso : reperage des champs associes a chaque objet alloue.
   7 c          cela sert d'indexage pour le tableau nomobc, ainsi :
   8 c          les champs relatifs a l'objet i sont stockes entre
   9 c          les indices adrdso(i) et adrdso(i)+nbcham(typobj(i))-1 inclus
  10 c
  11 c adrdsa : reperage des attributs associes a chaque objet alloue.
  12 c          cela sert d'indexage pour le tableau valatt, ainsi :
  13 c          les attributs relatifs a l'objet i sont stockes entre
  14 c          les indices adrdsa(i) et adrdsa(i)+nbattr(typobj(i))-1 inclus
  15 c
  16 c valatt : valeurs des attributs pour l'ensemble des objets alloues.
  17 c          l'indexage se fait par le pointeur adrdsa.
  18 c
  19 c Rappel : nobjx = nombre d'objets alloues
  20 c          nobcx = nombre cumule d'attributs pour les objets alloues
  21 c          iptobj = numero du prochain objet a allouer
  22 c          iptchp = 1er indice disponible dans le tableau nomobc
  23 c          iptatt = 1er indice disponible dans le tableau valatt
  24 c
  25       integer typobj,adrdso,adrdsa,valatt,
  26      >        iptobj,iptchp,iptatt
  27 c
  28       common /gmtoai/ typobj(nobjx), adrdso(nobjx), adrdsa(nobjx),
  29      >                valatt(nobcx),
  30      >                iptobj, iptchp, iptatt