1 subroutine gmobal (nom,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 ______________________________________________________________________
22 c sous programme d'interrogation si l'objet de nom etendu "nom"
24 c ...........................................................
28 c nom : character*(*) : nom etendu
30 c ...........................................................
32 c sorties : iret : code de retour :
34 c -1 : erreur : nom etendu invalide
35 c 0 : objet non alloue
36 c 1 : objet structure alloue
37 c 2 : objet simple alloue
38 c ...........................................................
40 c 0. declarations et dimensionnement
43 c 0.1. ==> generalites
56 c 0.4. ==> variables locales
58 character*8 objrep,objter,chater
61 c 1. decodage du nom etendu
63 call gbdnoe(nom,objrep,objter,chater,idec)
71 else if (idec.eq.0) then
73 c 'nom' n'a qu'un element
75 call gbobal(objter,ityp,iret)
77 else if (idec.eq.3) then
79 c objet-terminal defini et alloue
81 call gbobal(objter,ityp,iret)
85 c objet-terminal non alloue