2 c gmtoai : les Tableaux pour les Objets Alloues en Integer
4 c typobj : numero du type de chaque objet alloue.
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
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
16 c valatt : valeurs des attributs pour l'ensemble des objets alloues.
17 c l'indexage se fait par le pointeur adrdsa.
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
25 integer typobj,adrdso,adrdsa,valatt,
26 > iptobj,iptchp,iptatt
28 common /gmtoai/ typobj(nobjx), adrdso(nobjx), adrdsa(nobjx),
30 > iptobj, iptchp, iptatt