src/tool/Gestion_MTU/gmobal.F

   1       subroutine gmobal (nom,iret)
   2 c ______________________________________________________________________
   3 c
   4 c                             H O M A R D
   5 c
   6 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
   7 c
   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
  13 c
  14 c    HOMARD est une marque deposee d'Electricite de France
  15 c
  16 c Copyright EDF 1996
  17 c Copyright EDF 1998
  18 c Copyright EDF 2002
  19 c Copyright EDF 2020
  20 c ______________________________________________________________________
  21 c
  22 c     sous programme d'interrogation si l'objet de nom etendu "nom"
  23 c     est alloue ou non
  24 c     ...........................................................
  25 c
  26 c     entrees :
  27 c
  28 c       nom   : character*(*) : nom etendu
  29 c
  30 c     ...........................................................
  31 c
  32 c     sorties : iret   : code de retour :
  33 c
  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     ...........................................................
  39 c
  40 c 0. declarations et dimensionnement
  41 c
  42 c
  43 c 0.1. ==> generalites
  44 c
  45       implicit none
  46       save
  47 c
  48 c 0.2. ==> communs
  49 c
  50 c
  51 c 0.3. ==> arguments
  52 c
  53       character*(*) nom
  54       integer iret
  55 c
  56 c 0.4. ==> variables locales
  57 c
  58       character*8 objrep,objter,chater
  59       integer     idec,ityp
  60 c
  61 c 1.  decodage du nom etendu
  62 c
  63       call gbdnoe(nom,objrep,objter,chater,idec)
  64 c
  65       if (idec.lt.0) then
  66 c
  67 c        nom etendu invalide
  68 c
  69          iret = -1
  70 c
  71       else if (idec.eq.0) then
  72 c
  73 c        'nom' n'a qu'un element
  74 c
  75          call gbobal(objter,ityp,iret)
  76 c
  77       else if (idec.eq.3) then
  78 c
  79 c        objet-terminal defini et alloue
  80 c
  81          call gbobal(objter,ityp,iret)
  82 c
  83       else
  84 c
  85 c        objet-terminal non alloue
  86 c
  87          iret = 0
  88 c
  89       endif
  90 c
  91       end