src/tool/Gestion_MTU/gmdmpr.F

   1       subroutine gmdmpr ( 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 .  derniere modif octo 93 gn programme generique
  22 c .           modif juin 93 jyb (ntrour=0)
  23 c .                 15/06/89 jc jyb
  24 c ......................................................................
  25 c .
  26 c .  - interet:
  27 c .       impression detaillee du contenu du tableau de travail reel
  28 c .          ( caracteristiques des trous et des zones allouees)
  29 c_______________________________________________________________________
  30 c .        .     .        .                                            .
  31 c .  nom   . e/s . taille .           description                      .
  32 c .____________________________________________________________________.
  33 c . gmimp  . e   .    1   . 0 => pas d'impression                      .
  34 c .        .     .        . <=2 => impression simple                   .
  35 c .        .     .        . >2 => impression etendue                   .
  36 c ______________________________________________________________________
  37 c----
  38 c 0. declarations et dimensionnement
  39 c----
  40 c
  41 c
  42 c 0.1. ==> generalites
  43 c
  44       implicit none
  45       save
  46 c
  47 #include "gmmaxt.h"
  48 c
  49 c 0.2. ==> communs
  50 c
  51 #include "gmreel.h"
  52 c
  53 #include "gmadur.h"
  54 #include "gmtrrl.h"
  55 c
  56 #include "gmalrl.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 = int(rmem(1))
  76       typtab = 'r'
  77       call gmdmpg ( minmer, ntrour, nballr, ptrour, ltrour,
  78      >      ptallr, lgallr, adur, nommxr, nomalr, iaux, typtab,
  79      >      gmimp )
  80 c
  81       end