1 subroutine utfino ( mctyob, option, nomfic, lnomfi,
3 > ulsort, langue, codret )
5 c ______________________________________________________________________
9 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
11 c Version originale enregistree le 18 juin 1996 sous le numero 96036
12 c aupres des huissiers de justice Simart et Lavoir a Clamart
13 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
14 c aupres des huissiers de justice
15 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
17 c HOMARD est une marque deposee d'Electricite de France
23 c ______________________________________________________________________
25 c but : renvoyer le nom unix complet correspondant a un fichier
26 c de nom symbolique donne
27 c remarque : si la variable nomfic est trop grande, elle est completee
29 c remarque : utfino et utfin2 sont des clones
30 c ______________________________________________________________________
32 c . nom . e/s . taille . description .
33 c .____________________________________________________________________.
34 c . mctyob . e . ch8 . nom symbolique du type de fichier .
35 c . option . e . 1 . 0 : le nom est renvoye tel quel .
36 c . . . . 1 : les minuscules deviennent majuscules .
37 c . . . . 2 : les majuscules deviennent minuscules .
38 c . . . . si negatif, on interdit tout caractere .
39 c . . . . non alphabetique .
40 c . nomfic . s . ch* . nom unix du fichier associe .
41 c . lnomfi . s . 1 . longueur du nom unix du fichier associe .
42 c . optimp . e . 1 . 0 : pas d'affichage de message .
43 c . . . . 1 : affichage de message d'erreur .
44 c . ulsort . e . 1 . unite logique d'impression .
45 c . langue . e . 1 . langue des messages .
46 c . . . . 1 : francais, 2 : anglais .
47 c . codret . s . 1 . code de retour .
48 c . . . . 0 : pas de probleme .
49 c . . . . 1 : la configuration est perdue .
50 c . . . . 2 : pas de nom dans la base .
51 c . . . . 4 : la chaine prevue est trop courte .
52 c ______________________________________________________________________
55 c 0. declarations et dimensionnement
58 c 0.1. ==> generalites
64 parameter ( nompro = 'UTFINO' )
76 integer option, lnomfi
77 integer ulsort, langue, codret
79 c 0.4. ==> variables locales
82 integer numero, nombre, ulmess
85 parameter ( nbmess = 10 )
86 character*80 texte(nblang,nbmess)
90 c 0.5. ==> initialisations
91 c ______________________________________________________________________
95 c si on recherche le fichier de la liste standard, il faut
96 c imprimer sur la sortie standard.
101 #ifdef _DEBUG_HOMARD_
102 write (ulsort,texte(langue,1)) 'Entree', nompro
106 texte(1,10) = '(1x,''La configuration est perdue.'')'
108 > '(1x,''Objet '',a8,'' : '',i4,'' fichiers possibles.'')'
110 texte(2,10) = '(1x,''The configuration is lost.'')'
112 > '(1x,''Object '',a8,'' : '',i4,'' available files.'')'
114 if ( mctyob.eq.mclist ) then
115 call gusost ( ulmess )
121 c 2. appel de l'utilitaire : on n'est interesse que par le premier
122 c fichier ou le mot-cle apparait
123 c code retour : 0 : pas de probleme
124 c 1 : la configuration est perdue
125 c 2 : pas de nom dans la base
127 c 4 : la chaine nomfic est trop courte
132 call utfin1 ( mctyob, numero,
133 > nombre, nomfic, lnomfi,
134 > ulmess, langue, codret )
136 if ( codret.eq.3 ) then
140 if ( codret.ne.0 ) then
142 #ifdef _DEBUG_HOMARD_
143 write (ulsort,texte(langue,1)) 'Sortie', nompro
145 if ( optimp.gt.0 ) then
147 write (ulsort,texte(langue,2)) codret
148 if ( codret.eq.1 ) then
149 write (ulmess,texte(langue,10))
151 call utosme ( mctyob, ulsort, langue )
152 write (ulmess,texte(langue,4)) mctyob, nombre
154 #ifdef _DEBUG_HOMARD_
163 c 3. conversion eventuelle
166 if ( codret.eq.0 ) then
168 if ( option.ne.0 ) then
170 call utmnmj ( option, nomfic, iaux,
171 > ulmess, langue, codret )