src/tool/Gestion_MTU/gmdmpi.F

   1       subroutine gmdmpi ( gmimp )
   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 octo 93 gn programme generique
  23 c .           modif juin 93 jyb (ntroui=0)
  24 c .           modif 15/06/89 jc jyb
  25 c ......................................................................
  26 c .
  27 c .  - interet:
  28 c .       impression detaillee du contenu du tableau de travail entier
  29 c .          ( caracteristiques des trous et des zones allouees)
  30 c_______________________________________________________________________
  31 c .        .     .        .                                            .
  32 c .  nom   . e/s . taille .           description                      .
  33 c .____________________________________________________________________.
  34 c . gmimp  . e   .    1   . 0 => pas d'impression                      .
  35 c .        .     .        . <=2 => impression simple                   .
  36 c .        .     .        . >2 => impression etendue                   .
  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 #include "gmmaxt.h"
  49 c
  50 c 0.2. ==> communs
  51 c
  52 #include "gmenti.h"
  53 c
  54 #include "gmadui.h"
  55 #include "gmtren.h"
  56 #include "gmalen.h"
  57 c
  58 c 0.3. ==> arguments
  59 c
  60       integer gmimp
  61 c
  62 c 0.4. ==> variables locales
  63 c
  64       character*1 typtab
  65 c
  66       integer iaux
  67 c
  68 c 0.5. ==> initialisations
  69 c ______________________________________________________________________
  70 c
  71 c---
  72 c 2. appel du programme generique
  73 c---
  74 c
  75       iaux = imem(1)
  76       typtab = 'i'
  77       call gmdmpg ( minmei, ntroui, nballi, ptroui, ltroui,
  78      >      ptalli, lgalli, adui, nommxi, nomali, iaux, typtab,
  79      >      gmimp )
  80 c
  81       end