src/tool/Gestion_MTU/gmdesi.F

   1       subroutine gmdesi (nomtab,nbplac, detlg0)
   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 .  derniere modif decembre 93 gn appel au programme generique gmdesg
  23 c ......................................................................
  24 c .
  25 c .  - fonction :
  26 c .    desallocation d'un emplacement memoire dans le tableau des entier
  27 c . 'attention' le contenu du tableau est inchange
  28 c .
  29 c .  - realisation:
  30 c .    appel au programme generique gmdesg
  31 c .
  32 c .  - arguments:
  33 c .       donnees:     nomtab  -->  nom du tableau
  34 c .                    detlg0  --> vrai si le tableau est supprime
  35 c .                                s'il devient vide
  36 c .                       nbplac   -->  nombre de mots memoire liberes
  37 c ......................................................................
  38 c----
  39 c 0. declarations et dimensionnement
  40 c----
  41 c
  42 c
  43 c 0.1. ==> generalites
  44 c
  45       implicit none
  46       save
  47 c
  48       character*6 nompro
  49       parameter ( nompro = 'GMDESI' )
  50 c
  51 #include "genbla.h"
  52 #include "gmmaxt.h"
  53 c
  54 c 0.2. ==> communs
  55 c
  56 #include "gmadui.h"
  57 #include "gmtren.h"
  58 #include "gmalen.h"
  59 c
  60 #include "gmimpr.h"
  61 #include "envex1.h"
  62 #include "gmlang.h"
  63 #include "gmcoer.h"
  64 c
  65 c 0.3. ==> arguments
  66 c
  67       character*8 nomtab
  68 c
  69       integer nbplac
  70 c
  71       logical detlg0
  72 c
  73 c 0.4. ==> variables locales
  74 c
  75       integer iaux
  76 c
  77       character*1 typtab
  78 c
  79       integer nbmess
  80       parameter ( nbmess = 10 )
  81       character*80 texte(nblang,nbmess)
  82 c
  83 c====
  84 c 1. initialisations
  85 c====
  86 c
  87 #include "impr01.h"
  88 c
  89 #ifdef _DEBUG_HOMARD_
  90       write (ulsort,texte(langue,1)) 'Entree', nompro
  91       call dmflsh (iaux)
  92 #endif
  93 c
  94 c----
  95 c 2. appel au programme generique
  96 c----
  97 c
  98       typtab = 'i'
  99       call gmdesg ( nomtab, nbplac, typtab, detlg0,
 100      >      ntroui, nballi, ptroui, ltroui,
 101      >      ptalli, lgalli,adui, nomali )
 102 c
 103 c====
 104 c 3. Fin
 105 c====
 106 c
 107       if ( coergm.ne.0 ) then
 108 c
 109 #include "envex2.h"
 110 c
 111       endif
 112 c
 113       end