1 subroutine utinla ( nfconf, lfconf,
2 > ulsort, langue, codret )
3 c ______________________________________________________________________
7 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
9 c Version originale enregistree le 18 juin 1996 sous le numero 96036
10 c aupres des huissiers de justice Simart et Lavoir a Clamart
11 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
12 c aupres des huissiers de justice
13 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
15 c HOMARD est une marque deposee d'Electricite de France
21 c ______________________________________________________________________
23 c UTilitaire : INitialisation de la LAngue
25 c ______________________________________________________________________
27 c . nom . e/s . taille . description .
28 c .____________________________________________________________________.
29 c . nfconf . e . ch<200 . nom du fichier de configuration .
30 c . lfconf . e . 1 . longueur du nom du fichier .
31 c . ulsort . s . 1 . numero d'unite logique de la liste standard.
32 c . langue . es . 1 . langue des messages .
33 c . . . . 1 : francais, 2 : anglais .
34 c ______________________________________________________________________
37 c 0. declarations et dimensionnement
40 c 0.1. ==> generalites
46 parameter ( nompro = 'UTINLA' )
59 integer ulsort, langue, codret
61 c 0.4. ==> variables locales
73 parameter ( nbmess = 20 )
74 character*80 texte(nblang,nbmess)
76 c 0.5. ==> initialisations
77 c ______________________________________________________________________
79 if ( langue.le.0 .or. langue.gt.nblang ) then
90 write (ulsort,texte(langue,1)) 'Entree', nompro
94 texte(1,20) = '(/,''Fichier de configuration :'')'
95 texte(1,4) = '(''Decodage du parametre : '',a8)'
96 texte(1,5) = '(''La langue par defaut est utilisee.'')'
97 texte(1,6) = '(''Erreur de decodage.'')'
98 texte(1,7) = '(''Aucune langue n''''est associe.'')'
99 texte(1,8) = '(''Plusieurs langues sont definies.'')'
100 texte(1,9) = '(''Il est absent du fichier.'')'
101 texte(1,10) = '(''Desole, cette langue est inconnue :'')'
103 texte(2,20) = '(/,''Configuration file :'')'
104 texte(2,4) = '(''Uncoding of parameter '',a8)'
105 texte(2,5) = '(''The default language is used.'')'
106 texte(2,6) = '(''Error during uncoding.'')'
107 texte(2,7) = '(''No language is connected to.'')'
108 texte(2,8) = '(''Several languages are defined.'')'
109 texte(2,9) = '(''It is missing.'')'
110 texte(2,10) = '(''Sorry, this language is unknown.'')'
113 c 2. decodage de la langue choisie
116 c 2.1. ==> recherche du mot-cle
119 call ugfino ( motcle, noptio, loptio,
121 > ulsort, langue, codret)
123 c 2.2. ==> recherche du type de langue
125 if ( codret.eq.0 ) then
127 if ( loptio.eq.6 ) then
129 if ( noptio(1:loptio).eq.'French' .or.
130 > noptio(1:loptio).eq.'french' .or.
131 > noptio(1:loptio).eq.'FRENCH' ) then
140 elseif ( loptio.eq.8 ) then
142 if ( noptio(1:loptio).eq.'Francais' .or.
143 > noptio(1:loptio).eq.'francais' .or.
144 > noptio(1:loptio).eq.'FRANCAIS' ) then
153 elseif ( loptio.eq.7 ) then
155 if ( noptio(1:loptio).eq.'Anglais' .or.
156 > noptio(1:loptio).eq.'anglais' .or.
157 > noptio(1:loptio).eq.'ANGLAIS' .or.
158 > noptio(1:loptio).eq.'English' .or.
159 > noptio(1:loptio).eq.'english' .or.
160 > noptio(1:loptio).eq.'ENGLISH' ) then
171 elseif ( codret.eq.1 ) then
174 elseif ( codret.eq.2 ) then
177 elseif ( codret.eq.3 ) then
185 c 2.3. ==> messages d'erreur eventuels
187 #ifdef _DEBUG_HOMARD_
188 write (ulsort,texte(langue,2)) codret
191 if ( codret.ne.0 ) then
193 #ifdef _DEBUG_HOMARD_
194 write (ulsort,texte(langue,20))
195 if ( lfconf.gt.0 .and. len(nfconf).gt.0 ) then
196 write (ulsort,*) nfconf(1:lfconf)
200 write (ulsort,texte(langue,4)) motcle
201 write (ulsort,texte(langue,codret))
202 if ( codret.eq.9 ) then
203 if ( loptio.gt.0 ) then
204 write (ulsort,*) noptio(1:loptio)
209 write (ulsort,texte(langue,5))