3 c gmtoas : les Tableaux pour les Objets Alloues en String
5 c nomobj : nom des objets strutures crees
6 c nomobc : nom des objets attaches aux champs des objets strutures crees
7 c nomtbp : nom des types simples de base et des types structures crees
9 character*8 nomobj(nobjx), nomobc(nobcx)
10 character*8 nomtbp( -ntybma : nobjx )
12 common / gmtoas / nomobj, nomobc, nomtbp