1 subroutine utmcre ( motcle, valeur,
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 - REel 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 . ulsort . e . 1 . numero d'unite logique de la liste standard.
32 c . langue . e . 1 . langue des messages .
33 c . . . . 1 : francais, 2 : anglais .
34 c . codret . es . 1 . code de retour des modules .
35 c . . . . 0 : pas de probleme .
36 c . . . . 2 : probleme au decodage du mot-cle .
37 c . . . . 4 : le mot-cle n'a pas ete defini .
38 c . . . . 5 : le mot-cle est defini plusieurs fois .
39 c ______________________________________________________________________
42 c 0. declarations et dimensionnement
45 c 0.1. ==> generalites
51 parameter ( nompro = 'UTMCRE' )
63 double precision valeur
64 integer ulsort, langue, codret
66 c 0.4. ==> variables locales
70 integer nombre, numero
77 parameter ( nbmess = 20 )
78 character*80 texte(nblang,nbmess)
80 c 0.5. ==> initialisations
81 c ______________________________________________________________________
90 write (ulsort,texte(langue,1)) 'Entree', nompro
94 texte(1,10) = '(''Option liee au mot-cle '',a8,'' :'')'
95 texte(1,12) = '(''Elle est illisible.'')'
96 texte(1,14) = '(''Elle n''''est pas definie.'')'
97 texte(1,15) = '(''Elle est definie plusieurs fois.'')'
99 texte(2,10) = '(''Option for keyword '',a8,'' :'')'
100 texte(2,12) = '(''It cannot be read.'')'
101 texte(2,14) = '(''It does not exist.'')'
102 texte(2,15) = '(''It exists more than once.'')'
108 c 2.1. ==> recherche du pseudo-fichier associe au mot-cle
112 call utfin1 ( motcle, numero,
113 > nombre, option, loptio,
114 > ulsort, langue, codre0 )
116 c 2.2. ==> aucune option n'a ete precisee
118 if ( codre0.eq.2 ) then
122 c 2.3. ==> definition multiple
124 elseif ( codre0.eq.0 .and. nombre.gt.1 ) then
128 c 2.4. ==> probleme de lecture
130 elseif ( codre0.ne.0 ) then
138 call utchre ( option, valeur,
139 > ulsort, langue, codret )
141 if ( codret.ne.0 ) then
147 #ifdef _DEBUG_HOMARD_
148 write (ulsort,texte(langue,1)) 'Sortie', nompro
158 #ifdef _DEBUG_HOMARD_
159 if ( codret.ne.0 ) then
161 if ( codret.eq.2 ) then
164 write (ulsort,texte(langue,1)) 'Sortie', nompro
165 write (ulsort,texte(langue,2)) codret
166 write (ulsort,texte(langue,10)) motcle
167 write (ulsort,texte(langue,10+codret))