1 subroutine gmadoj ( nom, iadres, long, iret)
2 c ______________________________________________________________________
6 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
8 c Version originale enregistree le 18 juin 1996 sous le numero 96036
9 c aupres des huissiers de justice Simart et Lavoir a Clamart
10 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
11 c aupres des huissiers de justice
12 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
14 c HOMARD est une marque deposee d'Electricite de France
20 c ______________________________________________________________________
21 c rechercher l'adresse memoire de l' objet-terminal simple
22 c d'un nom etendu et la taille de cet objet
23 c ...........................................................
26 c nom : character*(*) : nom etendu
27 c ...........................................................
30 c iadres : adresse memoire de l'objet-terminal
31 c long : la taille de cet objet (en mots)
32 c iret : code de retour :
33 c -4 : erreur : nom etendu invalide
34 c -3 : erreur : objet-terminal de'nom' non defini
35 c -2 : erreur : objet-terminal de'nom' est un objet
37 c -1 : erreur : objet-terminal de 'nom' est defini
40 c ...........................................................
43 c 0. declarations et dimensionnement
46 c 0.1. ==> generalites
60 integer iadres,long,iret
62 c 0.4. ==> variables locales
64 character*8 objrep,objter,chater
66 integer idec,ioal,ityp,iadr
69 c 0.5. ==> initialisations
70 c ______________________________________________________________________
73 c 1. les initialisations
80 c 1. decodage du nom etendu
82 call gbdnoe(nom,objrep,objter,chater,idec)
90 else if (idec.eq.1) then
92 c objet-terminal non defini
96 else if (idec.eq.2) then
98 c objet-terminal defini mais non alloue
106 c 'nom' n'a qu'un element
108 call gbobal(objter,ityp,ioal)
120 c 2. objet-terminal defini et alloue : appel gbcara
122 if ( iret.eq.0 ) then
124 call gbcara(objter,nrotab,iadr,long,letype)
126 if (coergm.gt.1) then
127 write(ulsort,*) ' gmadoj -> retour gbcara > 1'
128 call ugstop('gmadoj',ulsort,1,1,1)
130 if (coergm.eq.0) then