src/tool/Gestion_MTU/uglanm.F

   1       subroutine uglanm ( lang , ulsort, codret )
   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    Utilitaires des Gestionnaires : LANgue des Messages
  23 c    -               -               ---        -
  24 c ______________________________________________________________________
  25 c
  26 c   modifie la langue des messages des gestionnaires
  27 c ______________________________________________________________________
  28 c .        .     .        .                                            .
  29 c .  nom   . e/s . taille .           description                      .
  30 c .____________________________________________________________________.
  31 c . lang   . e   .   1    . code de la langue souhaitee                .
  32 c .        .     .        . 1 : francais                               .
  33 c .        .     .        . 2 : anglais                                .
  34 c . ulsort . e   .   1    . unite logique d'impression des messages    .
  35 c . codret .  s  .    1   . 0 : tout va bien                           .
  36 c .        .     .        . 2 : problemes pour la memoire              .
  37 c .        .     .        . 3 : problemes pour les unites logiques     .
  38 c ______________________________________________________________________
  39 c
  40 c====
  41 c 0. declarations et dimensionnement
  42 c====
  43 c
  44 c 0.1. ==> generalites
  45 c
  46       implicit none
  47       save
  48 c
  49       character*6 nompro
  50       parameter ( nompro = 'UGLANM' )
  51 c
  52 #include "genbla.h"
  53 #include "gelggt.h"
  54 c
  55 c 0.2. ==> communs
  56 c
  57 c 0.3. ==> arguments
  58 c
  59       integer lang , ulsort
  60       integer codret
  61 c
  62 c 0.4. ==> variables locales
  63 c
  64 #ifdef _DEBUG_HOMARD_
  65       integer iaux
  66 #endif
  67 c
  68       integer tabges(lgtage)
  69 c
  70       integer guimp, gmimp, raison
  71       integer code
  72       integer langue
  73 c
  74       integer nbmess
  75       parameter ( nbmess = 10 )
  76       character*80 texte(nblang,nbmess)
  77 c
  78 c 0.5. ==> initialisations
  79 c ______________________________________________________________________
  80 c
  81 c====
  82 c 1. messages
  83 c====
  84 c
  85       codret = 0
  86 c
  87 #include "impr01.h"
  88 c
  89       texte(1,10) = '(''Le numero de langue '',i2,'' pour les'')'
  90       texte(1,4) = '(''messages des gestionnaires est incorrect.'')'
  91       texte(1,5) = '(''Il doit etre compris entre 1 et '',i8)'
  92 c
  93       texte(2,10) = '(''The language code # '',i2,'' wanted for'')'
  94       texte(2,4) = '(''managers messages is not correct.'')'
  95       texte(2,5) = '(''It must be included between 1 and '',i8)'
  96 c
  97 c====
  98 c 2. recuperation de l'information
  99 c===
 100 c
 101       code = 1
 102       call ugtabl ( code, tabges, ulsort)
 103 c
 104       langue = tabges(4)
 105 c
 106 #ifdef _DEBUG_HOMARD_
 107       write (ulsort,texte(langue,1)) 'Entree', nompro
 108       call dmflsh (iaux)
 109 #endif
 110 c
 111 c====
 112 c 3. verification de la validite du numero.
 113 c    Il faut que le numero soit compris entre 1 et le nombre maximal
 114 c    de langues.
 115 c====
 116 c
 117       if ( lang.lt.1 .or. lang.gt.nblang ) then
 118 c
 119         write (ulsort,texte(langue,1)) 'Sortie', nompro
 120         write (ulsort,texte(langue,10)) lang
 121         write (ulsort,texte(langue,4))
 122         write (ulsort,texte(langue,5)) nblang
 123 c
 124         guimp = 1
 125         gmimp = 0
 126         raison = 1
 127         call ugstop (nompro,ulsort,guimp, gmimp, raison)
 128 c
 129       endif
 130 c
 131 c====
 132 c 4. changement dans les differents gestionnaires
 133 c====
 134 c
 135       call gmlanm ( lang )
 136       call gtlanm ( lang )
 137       call gulanm ( lang, codret )
 138 c
 139 c====
 140 c 5. archivage du numero
 141 c====
 142 c
 143       if ( codret.eq.0 ) then
 144 c
 145         tabges(4) = lang
 146 c
 147         code = 0
 148         call ugtabl ( code, tabges, ulsort)
 149 c
 150       endif
 151 c
 152       end