src/tool/Gestion_MTU/gtinfo.F

   1       subroutine gtinfo ( imprgt )
   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       des mesures de temps
  28 c ______________________________________________________________________
  29 c .        .     .        .                                            .
  30 c .  nom   . e/s . taille .           description                      .
  31 c .____________________________________________________________________.
  32 c . imprgt . e   .    1   . pilotage des impressions                   .
  33 c .        .     .        . 1 : le standard                            .
  34 c .        .     .        . 2 : le detail des sections                 .
  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 = 'GTINFO' )
  48 c
  49 #include "genbla.h"
  50 c
  51 #include "gtnbse.h"
  52 c
  53 c 0.2. ==> communs
  54 c
  55 c 0.3. ==> arguments
  56 c
  57       integer imprgt
  58 c
  59 c 0.4. ==> variables locales
  60 c
  61 #include "gtdita.h"
  62 c
  63       integer iaux, code
  64 c
  65       integer ulsort, langue
  66 c
  67       integer nbmess
  68       parameter ( nbmess = 10 )
  69       character*80 texte(nblang,nbmess)
  70 c
  71 c 0.5. ==> initialisations
  72 c ______________________________________________________________________
  73 c
  74 c====
  75 c 1. initialisation des messages
  76 c====
  77 c
  78 #include "impr01.h"
  79 c
  80       texte(1,4) = '(''Dans '',a,'', imprgt ='',i8)'
  81 c
  82       texte(2,4) = '(''In '',a,'', imprgt ='',i8)'
  83 c
  84 c====
  85 c 2. recuperation de l'archivage
  86 c====
  87 c
  88       code = 1
  89       iaux = nbsep1
  90       call gttabl ( code, iaux, nbrapp, ouvert, titsec, tpscpu )
  91       langue = nbrapp(-3)
  92       ulsort = nbrapp(0)
  93 c
  94 #ifdef _DEBUG_HOMARD_
  95       write (ulsort,texte(langue,1)) 'Entree', nompro
  96       call dmflsh (iaux)
  97 #endif
  98 c
  99 c====
 100 c 3. archivage du code de pilotage des impressions
 101 c====
 102 c
 103 #ifdef _DEBUG_HOMARD_
 104       write (ulsort,texte(langue,4)) nompro, imprgt
 105 #endif
 106 c
 107       nbrapp(-4) = imprgt
 108       code = 0
 109       iaux = nbsep1
 110       call gttabl ( code, iaux, nbrapp, ouvert, titsec, tpscpu )
 111 c
 112 #ifdef _DEBUG_HOMARD_
 113       write (ulsort,texte(langue,1)) 'Sortie', nompro
 114       call dmflsh (iaux)
 115 #endif
 116 c
 117       end