1 subroutine utmcen ( motcle, valeur, imopti,
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 : Mot-Cle - ENtier qui lui est associe
25 c ______________________________________________________________________
27 c . nom . e/s . taille . description .
28 c .____________________________________________________________________.
29 c . motcle . e . char*8 . mot-cle a rechercher .
30 c . valeur . s . 1 . valeur entiere associee au mot-cle .
31 c . imopti . e . 1 . choix d'impression en mode optimise .
32 c . . . . 0 : jamais .
33 c . . . . 1 : si codret = 2 .
34 c . . . . 2 : si codret = 2, 4 .
35 c . . . . 3 : si codret = 2 ou 5 .
36 c . . . . 4 : si codret = 2, 4 ou 5 .
37 c . ulsort . e . 1 . numero d'unite logique de la liste standard.
38 c . langue . e . 1 . langue des messages .
39 c . . . . 1 : francais, 2 : anglais .
40 c . codret . es . 1 . code de retour des modules .
41 c . . . . 0 : pas de probleme .
42 c . . . . 2 : probleme au decodage du mot-cle .
43 c . . . . 4 : le mot-cle n'a pas ete defini .
44 c . . . . 5 : le mot-cle est defini plusieurs fois .
45 c ______________________________________________________________________
48 c 0. declarations et dimensionnement
51 c 0.1. ==> generalites
57 parameter ( nompro = 'UTMCEN' )
71 integer ulsort, langue, codret
73 c 0.4. ==> variables locales
78 integer nombre, numero
85 parameter ( nbmess = 20 )
86 character*80 texte(nblang,nbmess)
88 c 0.5. ==> initialisations
89 c ______________________________________________________________________
98 write (ulsort,texte(langue,1)) 'Entree', nompro
102 texte(1,10) = '(''Option liee au mot-cle '',a8,'' :'')'
103 texte(1,12) = '(''Elle est illisible.'')'
104 texte(1,14) = '(''Elle n''''est pas definie.'')'
105 texte(1,15) = '(''Elle est definie plusieurs fois.'')'
107 texte(2,10) = '(''Option for keyword '',a8,'' :'')'
108 texte(2,12) = '(''It cannot be read.'')'
109 texte(2,14) = '(''It does not exist.'')'
110 texte(2,15) = '(''It exists more than once.'')'
112 cgn write (ulsort,texte(langue,10)) motcle
118 c 2.1. ==> recherche du pseudo-fichier associe au mot-cle
122 call utfin1 ( motcle, numero,
123 > nombre, option, loptio,
124 > ulsort, langue, codre0 )
126 c 2.2. ==> aucune option n'a ete precisee
128 if ( codre0.eq.2 ) then
132 c 2.3. ==> definition multiple
134 elseif ( codre0.eq.0 .and. nombre.gt.1 ) then
138 c 2.4. ==> probleme de lecture
140 elseif ( codre0.ne.0 ) then
149 if ( loptio.lt.10 ) then
150 write(fmtent(3:3),'(i1)') loptio
152 write(fmtent(3:4),'(i2)') loptio
154 read ( option(1:loptio),fmtent) valeur
164 #ifdef _DEBUG_HOMARD_
165 if ( codret.ne.0 .and. imopti.ge.0 ) then
167 if ( ( imopti.eq.1 .and. codret.eq.2 ) .or.
168 > ( imopti.eq.2 .and.
169 > ( codret.eq.2 .or. codret.eq.4 ) ) .or.
170 > ( imopti.eq.3 .and.
171 > ( codret.eq.2 .or. codret.eq.5 ) ) .or.
172 > ( imopti.eq.4 .and.
173 > ( codret.eq.2 .or. codret.eq.4 .or. codret.eq.5 ) ) ) then
178 write (ulsort,texte(langue,1)) 'Sortie', nompro
179 write (ulsort,texte(langue,2)) codret
180 write (ulsort,texte(langue,10)) motcle
181 write (ulsort,texte(langue,10+codret))