1 subroutine gubila ( codfic )
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 but : - imprime les statistiques
23 c - ferme toutes les unites logiques, sauf l'entree et la sortie
25 c ______________________________________________________________________
27 c . nom . e/s . taille . description .
28 c .____________________________________________________________________.
29 c . codfic . e . 1 . code pilotant le type d'info a imprimer .
30 c ______________________________________________________________________
33 c 0. declarations et dimensionnement
36 c 0.1. ==> generalites
43 parameter ( nompro = 'GUBILA' )
59 c 0.4. ==> variables locales
63 integer iaux, jaux, code
64 integer gunmbr(lgunmb)
65 integer statut(mbmxul), lnomfi(mbmxul)
70 character*200 nomfic(mbmxul)
74 parameter ( nbmess = 3 )
75 character*80 texte(nblang,nbmess)
78 c 0.5. ==> initialisations
79 c ______________________________________________________________________
82 c 1. recuperation de l'information
90 call gutabl ( code, gunmbr, statut, nomfic, lnomfi )
98 write (ulsort,texte(langue,1)) 'Entree', nompro
103 c 2. impressions recapitulatives
106 c 2.1. ==> statistiques
108 call gustat ( gunmbr )
110 c 2.2. ==> etat des lieux au moment de l'appel
112 if ( codfic.ne.0 ) then
119 c 3. fermeture de toutes les unites logiques, sauf les standard et
120 c sauf celle ou sont imprimes les messages du gestionnaire. Elle
121 c sera fermee tout a la fin.
124 do 3 , iaux = 1 , mbmxul
126 if ( statut(iaux).ge.3 .and. statut(iaux).le.5 .and.
127 > iaux.ne.ulsort ) then
130 call guferm ( nomfic(iaux), lnomfi(iaux), jaux, codref )
136 if ( ulsort.ge.1 .and. ulsort.le.mbmxul ) then
137 if ( statut(ulsort).eq.3 ) then
138 call gufeul ( ulsort , codref )
139 else if ( statut(ulsort).ne.2 ) then