src/tool/Gestion_MTU/gtlanm.F

   1       subroutine gtlanm ( lang )
   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 : LANgue des Messages'
  23 c     -                      -         ---        -
  24 c ______________________________________________________________________
  25 c
  26 c but : modifie la langue des messages du gestionnaire des mesures
  27 c       de temps
  28 c ______________________________________________________________________
  29 c .        .     .        .                                            .
  30 c .  nom   . e/s . taille .           description                      .
  31 c .____________________________________________________________________.
  32 c . lang   . e   .   1    . code de la langue souhaitee                .
  33 c ______________________________________________________________________
  34 c
  35 c====
  36 c 0. declarations et dimensionnement
  37 c====
  38 c
  39 c 0.1. ==> generalites
  40 c
  41       implicit none
  42       save
  43 c
  44       character*6 nompro
  45       parameter ( nompro = 'GTLANM' )
  46 c
  47 #include "genbla.h"
  48 c
  49 #include "gtnbse.h"
  50 c
  51 c 0.2. ==> communs
  52 c
  53 c 0.3. ==> arguments
  54 c
  55       integer lang
  56 c
  57 c 0.4. ==> variables locales
  58 c
  59 #include "gtdita.h"
  60 c
  61       integer iaux, code
  62 c
  63       integer langue
  64       integer ulsort
  65 c
  66       integer nbmess
  67       parameter ( nbmess = 10 )
  68       character*80 texte(nblang,nbmess)
  69 c
  70 c 0.5. ==> initialisations
  71 c ______________________________________________________________________
  72 c
  73 c====
  74 c 1. initialisation des messages
  75 c====
  76 c
  77 #include "impr01.h"
  78 c
  79       texte(1,4) = '(''Le numero de langue '',i2,'' voulu'')'
  80       texte(1,5) = '(''pour les sorties GT est incorrect.'')'
  81       texte(1,6) = '(''Il doit etre compris entre 1 et '',i8)'
  82 c
  83       texte(2,4) = '(''The language code # '',i2,'' wanted for'')'
  84       texte(2,5) = '(''GT messages is not correct.'')'
  85       texte(2,6) = '(''It must be included between 1 and '',i8)'
  86 c
  87 c====
  88 c 2. recuperation de l'archivage
  89 c====
  90 c
  91       code = 1
  92       iaux = nbsep1
  93       call gttabl ( code, iaux, nbrapp, ouvert, titsec, tpscpu )
  94       langue = nbrapp(-3)
  95       ulsort = nbrapp(0)
  96 c
  97 #ifdef _DEBUG_HOMARD_
  98       write (ulsort,texte(langue,1)) 'Entree', nompro
  99       call dmflsh (iaux)
 100 #endif
 101 c
 102 c====
 103 c 3. verification de la validite du numero.
 104 c    Il faut que le numero soit compris entre 1 et le nombre maximal
 105 c    de langue.
 106 c====
 107 c
 108       if ( lang.lt.1 .or. lang.gt.nblang ) then
 109 c
 110         write (ulsort,texte(langue,1)) 'Sortie', nompro
 111         write (ulsort,texte(langue,4)) lang
 112         write (ulsort,texte(langue,5))
 113         write (ulsort,texte(langue,6)) nblang
 114 c
 115       endif
 116 c
 117 c====
 118 c 5. archivage du numero et du nouveau message
 119 c====
 120 c
 121       nbrapp(-3) = lang
 122 c
 123       code = 0
 124       iaux = nbsep1
 125       call gttabl ( code, iaux, nbrapp, ouvert, titsec, tpscpu )
 126 c
 127 #ifdef _DEBUG_HOMARD_
 128       write (ulsort,texte(langue,1)) 'Sortie', nompro
 129       call dmflsh (iaux)
 130 #endif
 131 c
 132       end