1 subroutine utcvne ( nretap, nrsset, textet, lgtext, codret )
2 c ______________________________________________________________________
6 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
8 c Version originale enregistree le 18 juin 1996 sous le numero 96036
9 c aupres des huissiers de justice Simart et Lavoir a Clamart
10 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
11 c aupres des huissiers de justice
12 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
14 c HOMARD est une marque deposee d'Electricite de France
20 c ______________________________________________________________________
22 c UTilitaire - ConVertit le Numero d'Etape
24 c ______________________________________________________________________
26 c . nom . e/s . taille . description .
27 c .____________________________________________________________________.
28 c . nretap . e . 1 . numero d'etape en entier .
29 c . nrsset . e . 1 . numero de sous-etape en entier .
30 c . textet . s .char*(*). textet : nretap.nrsset. .
31 c . lgtext . s . 1 . longueur du textet .
32 c . codret . s . 1 . 0 : pas de probleme .
33 c . . . . 1 : conversion impossible .
34 c ______________________________________________________________________
37 c 0. declarations et dimensionnement
40 c 0.1. ==> generalites
46 parameter ( nompro = 'UTCVNE' )
56 integer nretap, nrsset, lgtext
61 c 0.4. ==> variables locales
64 integer ulsort, langue
69 parameter ( nbmess = 10 )
70 character*80 texte(nblang,nbmess)
72 c 0.5. ==> initialisations
73 c ______________________________________________________________________
81 call gusost ( ulsort )
84 c 1.1. ==> filtrage initial
85 c s'il est negatif, c'est une erreur
87 if ( nretap.le.0 ) then
94 c 1.2. ==> conversion en entier
96 if ( codret.eq.0 ) then
98 call utench ( nretap, 'g', iaux, c3aux,
99 > ulsort, langue, codret )
103 if ( codret.eq.0 ) then
106 textet (1:lgtext) = c3aux(1:iaux)//'.'
110 c 1.3. ==> numero de sous-etape
111 c s'il est negatif, on ne mentionne rien
113 if ( nrsset.ge.0 ) then
115 if ( codret.eq.0 ) then
117 call utench ( nrsset, 'g', iaux, c3aux,
118 > ulsort, langue, codret )
122 if ( codret.eq.0 ) then
124 textet (lgtext+1:lgtext+iaux+1) = c3aux(1:iaux)//'.'
125 lgtext = lgtext+iaux+1
135 if ( codret.ne.0 ) then
144 do 21 , iaux = lgtext+1 , lgtx00
145 textet(iaux:iaux) = ' '