1 subroutine gtinit ( ulsort, lgmess, imprgt )
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 : INITialisation'
27 c ______________________________________________________________________
29 c but : initialiser la gestion des mesures de temps
30 c - on archive ce point de depart
31 c ______________________________________________________________________
33 c . nom . e/s . taille . description .
34 c .____________________________________________________________________.
35 c . ulsort . e . 1 . numero de l'unite logique ou imprimer .
36 c . . . . les messages du gestionnaire de temps .
37 c . lgmess . e . 1 . langue des message de gt .
38 c . imprgt . e . 1 . pilotage des impressions .
39 c . . . . 1 : le standard .
40 c . . . . 2 : le detail des sections .
41 c ______________________________________________________________________
44 c 0. declarations et dimensionnement
47 c 0.1. ==> generalites
53 parameter ( nompro = 'GTINIT' )
64 integer ulsort, lgmess, imprgt
66 c 0.4. ==> variables locales
71 integer iaux, jaux, code
74 integer numann, datheu
76 double precision tuser, tsyst
79 parameter ( blanc = ' ' )
82 parameter ( nbmess = 10 )
83 character*80 texte(nblang,nbmess)
85 c 0.5. ==> initialisations
86 c ______________________________________________________________________
92 if ( lgmess.ge.1 .and. lgmess.le.nblang ) then
100 #ifdef _DEBUG_HOMARD_
101 write (ulsort,texte(langue,1)) 'Entree', nompro
105 texte(1,10) = 'Ensemble du programme '
107 texte(2,10) = 'Total program '
110 c 2. verification que l'initialisation n'est pas deja faite
114 call ugtabl ( code, tabges, ulsort)
116 if ( tabges(2).ne.0 ) then
117 write (ulsort,texte(langue,1)) 'Sortie', nompro
120 call gtstop ( nompro , ulsort , iaux )
124 >'L''initialisation du gestionnaire a deja ete faite.',/,
125 >'Il ne faut faire appel qu''une seule fois a GTINIT.',//)
128 c 3. initialisation de dmtemp
131 call dmtemp ( tuser, tsyst )
134 c 4. acquisition de la date et de l'heure actuelle
137 call ugdhco ( numann, datheu )
140 c 5. initialisation des differents tableaux
151 do 51 , iaux = 1 , nbsect
154 ouvert (iaux) = .false.
160 ouvert (nbsep1) = .true.
161 tpscpu (nbsep1) = 0.d0
163 do 52 , jaux = 1 , nblang
164 do 521 , iaux = 1 , nbsect
165 titsec (jaux,iaux) = blanc
167 titsec (jaux,nbsep1) = texte(lgmess,10)(1:24)
171 c 6. on archive l'information
174 c 6.1. ==> pour le gestionnaire des mesures de temps de calcul
178 call gttabl ( code, iaux, nbrapp, ouvert, titsec, tpscpu )
180 c 6.2. ==> attention, l'initialisation de ulsort doit se faire par
181 c le programme gtmess, pour controler la validite du numero
183 call gtmess ( ulsort )
185 c 6.3. ==> archivage pour le gestionnaire global
190 call ugtabl ( code, tabges, ulsort)
192 #ifdef _DEBUG_HOMARD_
193 write (ulsort,texte(langue,1)) 'Sortie', nompro