src/tool/Gestion_MTU/gminfo.F

   1       subroutine gminfo ( imprg0 )
   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    'Gestion des mesures de Temps : INFOrmations'
  23 c     -                      -       ----
  24 c ______________________________________________________________________
  25 c
  26 c but : modifie la consigne d'impression des messages du gestionnaire
  27 c       de memoire
  28 c ______________________________________________________________________
  29 c .        .     .        .                                            .
  30 c .  nom   . e/s . taille .           description                      .
  31 c .____________________________________________________________________.
  32 c . imprg0 . e   .    1   . pilotage des impressions                   .
  33 c .        .     .        . 1 : le standard                            .
  34 c .        .     .        . 5 : le bilan                               .
  35 c ______________________________________________________________________
  36 c
  37 c====
  38 c 0. declarations et dimensionnement
  39 c====
  40 c
  41 c 0.1. ==> generalites
  42 c
  43       implicit none
  44       save
  45 c
  46       character*6 nompro
  47       parameter ( nompro = 'GMINFO' )
  48 c
  49 #include "genbla.h"
  50 c
  51 c 0.2. ==> communs
  52 c
  53 #ifdef _DEBUG_HOMARD_
  54 #include "gmimpr.h"
  55 #include "gmlang.h"
  56 #endif
  57 #include "gmopim.h"
  58 c
  59 c 0.3. ==> arguments
  60 c
  61       integer imprg0
  62 c
  63 c 0.4. ==> variables locales
  64 c
  65 #ifdef _DEBUG_HOMARD_
  66       integer iaux
  67 #endif
  68 c
  69       integer nbmess
  70       parameter ( nbmess = 10 )
  71       character*80 texte(nblang,nbmess)
  72 c
  73 c 0.5. ==> initialisations
  74 c ______________________________________________________________________
  75 c
  76 c====
  77 c 1. initialisation des messages
  78 c====
  79 c
  80 #include "impr01.h"
  81 c
  82 #ifdef _DEBUG_HOMARD_
  83       write (ulsort,texte(langue,1)) 'Entree', nompro
  84       call dmflsh (iaux)
  85 #endif
  86 c
  87       texte(1,4) = '(''Dans '',a,'', imprgm ='',i8)'
  88 c
  89       texte(2,4) = '(''In '',a,'', imprgm ='',i8)'
  90 c
  91 c====
  92 c 2. archivage
  93 c====
  94 c
  95       if ( mod(imprg0,5).eq.0 ) then
  96         imprgm = 5
  97       else
  98         imprgm = 1
  99       endif
 100 c
 101 #ifdef _DEBUG_HOMARD_
 102       write (ulsort,texte(langue,4)) nompro, imprgm
 103 #endif
 104 c
 105 #ifdef _DEBUG_HOMARD_
 106       write (ulsort,texte(langue,1)) 'Sortie', nompro
 107       call dmflsh (iaux)
 108 #endif
 109 c
 110       end