1 subroutine gtnoms ( numero, langue, titre )
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 ______________________________________________________________________
21 c premiere creation le 30.12.88 gn
22 c ______________________________________________________________________
24 c 'Gestion du Temps : NOM de Section'
26 c ______________________________________________________________________
28 c . nom . e/s . taille . description .
29 c .____________________________________________________________________.
30 c . numero . e . 1 . numero de la section a mesurer .
31 c . langue . e . 1 . langue des messages .
32 c . . . . 1 : francais, 2 : anglais .
33 c . titre . e . ch*24 . nom a donner a la section .
34 c ______________________________________________________________________
37 c 0. declarations et dimensionnement
40 c 0.1. ==> generalites
46 parameter ( nompro = 'GTNOMS' )
55 integer numero, langue
59 c 0.4. ==> variables locales
63 integer code, iaux, ifin, lontit
69 parameter ( nbmess = 10 )
71 character*80 texte(nblang,nbmess)
74 c 1. initialisation des messages
80 c 2. recuperation de l'information
85 call gttabl ( code, iaux, nbrapp, ouvert, titsec, tpscpu )
90 write (ulsort,texte(langue,1)) 'Entree', nompro
95 c 3. gestion de la section
98 c 3.1. ==> verification du numero
100 if ( numero.lt.1 .or. numero.gt.nbsect ) then
101 write (ulsort,texte(langue,1)) 'Sortie', nompro
102 lontit = min(24,len(titre))
103 if (lontit.gt.0) then
104 write (ulsort,31000) titre(1:lontit), numero, nbsect
106 write (ulsort,31000) ' ',
110 call gtstop ( nompro , ulsort , iaux )
114 > 'On veut donner le nom ''',a24,''' a la section',i8,'.',
115 >/'C''est impossible. Il faut un numero entre 1 et',i8,'.',/)
117 c 3.2. ==> verification du numero de la langue
119 if ( langue.lt.1 .or. langue.gt.nblang ) then
120 write (ulsort,texte(langue,1)) 'Sortie', nompro
121 lontit = min(24,len(titre))
122 if (lontit.gt.0) then
123 write (ulsort,32000) titre(1:lontit), numero, langue, nblang
125 write (ulsort,32000) ' ',
126 > numero, langue, nblang
129 call gtstop ( nompro , ulsort , iaux )
133 > 'On veut donner le nom ''',a24,''' a la section',i8,'.',
134 >/'Il est impossible de donner la langue',i8,'.',
135 >/'Il faut un code de langue entre 1 et',i8,'.',/)
137 c 3.3. ==> determination de la longueur de la chaine de caracteres
140 lontit = min(24,len(titre))
142 if ( lontit.le.0 ) then
146 do 33 , iaux = lontit , 1 , -1
147 if ( titre(iaux:iaux) .ne. ' ' ) then
154 c 3.4. ==> affectation du titre a la section en cours
158 if ( ifin.gt.0 ) then
159 titr2 (1:ifin) = titre (1:ifin)
162 do 341 , iaux = ifin+1 , 24
163 titr2 (iaux:iaux) = ' '
166 titsec (langue,numero) = titr2
169 c 4. on archive l'information
174 call gttabl ( code, iaux, nbrapp, ouvert, titsec, tpscpu )
176 #ifdef _DEBUG_HOMARD_
177 write (ulsort,texte(langue,1)) 'Sortie', nompro