1 subroutine utmcch ( motcle, lgvale, 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 - CHaracter 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 . lgvale . s . 1 . longueur de la chaine .
31 c . valeur . s .char*(*). valeur caractere associee au mot-cle .
32 c . ulsort . e . 1 . numero d'unite logique de la liste standard.
33 c . langue . e . 1 . langue des messages .
34 c . . . . 1 : francais, 2 : anglais .
35 c . codret . es . 1 . code de retour des modules .
36 c . . . . 0 : pas de probleme .
37 c . . . . 2 : probleme au decodage du mot-cle .
38 c . . . . 4 : le mot-cle n'a pas ete defini .
39 c . . . . 5 : le mot-cle est defini plusieurs fois .
40 c ______________________________________________________________________
43 c 0. declarations et dimensionnement
46 c 0.1. ==> generalites
52 parameter ( nompro = 'UTMCCH' )
67 integer ulsort, langue, codret
69 c 0.4. ==> variables locales
73 integer nombre, numero
76 parameter ( nbmess = 20 )
77 character*80 texte(nblang,nbmess)
79 c 0.5. ==> initialisations
80 c ______________________________________________________________________
89 write (ulsort,texte(langue,1)) 'Entree', nompro
93 texte(1,10) = '(''Option liee au mot-cle '',a8,'' :'')'
94 texte(1,12) = '(''Elle est illisible.'')'
95 texte(1,14) = '(''Elle n''''est pas definie.'')'
96 texte(1,15) = '(''Elle est definie plusieurs fois.'')'
98 texte(2,10) = '(''Option for keyword '',a8,'' :'')'
99 texte(2,12) = '(''It cannot be read.'')'
100 texte(2,14) = '(''It does not exist.'')'
101 texte(2,15) = '(''It exists more than once.'')'
104 c 2. caractere associe
107 c 2.1. ==> recherche du pseudo-fichier associe au mot-cle
111 call utfin1 ( motcle, numero,
112 > nombre, valeur, lgvale,
113 > ulsort, langue, codre0 )
115 c 2.2. ==> aucune option n'a ete precisee
117 if ( codre0.eq.2 ) then
121 c 2.3. ==> definition multiple
123 elseif ( codre0.eq.0 .and. nombre.gt.1 ) then
127 c 2.4. ==> probleme de lecture
129 elseif ( codre0.ne.0 ) then
133 c 2.5. ==> tout va bien
145 #ifdef _DEBUG_HOMARD_
146 if ( codret.ne.0 ) then
148 if ( codret.eq.2 ) then
153 write (ulsort,texte(langue,1)) 'Sortie', nompro
154 write (ulsort,texte(langue,2)) codret
155 write (ulsort,texte(langue,10)) motcle
156 write (ulsort,texte(langue,10+codret))
160 #ifdef _DEBUG_HOMARD_
161 write (ulsort,texte(langue,1)) 'Sortie', nompro