1 subroutine gustat ( gunmbr )
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 but : etablit les statistiques relatives a la gestion des unites
23 c ______________________________________________________________________
25 c . nom . e/s . taille . description .
26 c .____________________________________________________________________.
27 c . gunmbr . e . * . les nombres caracteristiques de la gestion .
28 c . . . .(1): nb maxi d'unites ouvertes form/sequ .
29 c . . . .(2): nb maxi d'unites ouvertes bina/sequ .
30 c . . . .(3): nb maxi d'unites ouvertes bina/dire sta.
31 c . . . .(4): nb maxi d'unites ouvertes bina/dire spe.
32 c . . . .(5): nb total d'unites ouvertes form/sequ .
33 c . . . .(6): nb total d'unites ouvertes bina/sequ .
34 c . . . .(7): nb total d'unites ouvertes bina/dire st.
35 c . . . .(8): nb total d'unites ouvertes bina/dire sp.
36 c . . . .(9): nb actuel d'unites ouvertes form/sequ .
37 c . . . .(10): nb actuel d'unites ouvertes bina/sequ .
38 c . . . .(11): nb actuel d'unites ouvertes bina/dire .
39 c . . . .(12): nb actuel d'unites ouvertes bina/dire .
40 c . . . .(13): nb maxi d'unites ouvertes tous types .
41 c . . . .(14): numero de l'entree standard .
42 c . . . .(15): numero de la sortie standard .
43 c . . . .(16): numero de l'unite des messages du gu .
44 c . . . .(17): langue des messages du gu .
45 c ______________________________________________________________________
48 c 0. declarations et dimensionnement
51 c 0.1. ==> generalites
58 parameter ( nompro = 'GUSTAT' )
71 integer gunmbr(lgunmb)
73 c 0.4. ==> variables locales
81 parameter ( nbmess = 10 )
82 character*80 texte(nblang,nbmess)
84 character*31 chstat(nblang,5)
89 c 0.5. ==> initialisations
90 c ______________________________________________________________________
101 #ifdef _DEBUG_HOMARD_
105 #ifdef _DEBUG_HOMARD_
106 write (ulsort,texte(langue,1)) 'Entree', nompro
110 #ifdef _DEBUG_HOMARD_
112 chstat(1,1) = 'Formate, acces sequentiel '
113 chstat(1,2) = 'Binaire, acces sequentiel '
114 chstat(1,3) = 'Binaire, acces direct standard '
115 chstat(1,4) = 'Binaire, acces direct special '
116 chstat(1,5) = 'Tous types confondus '
118 chstat(2,1) = 'Formatted, sequential access '
119 chstat(2,2) = 'Binary, sequential access '
120 chstat(2,3) = 'Binary, standard direct access '
121 chstat(2,4) = 'Binary, special direct access '
122 chstat(2,5) = 'All kinds of files '
125 > '('':'',22x,''Unites logiques employees'',22x,'':'')'
127 > '('':'',20x,''Type'',19x,'': Nombre : Nombre :'')'
129 > '('':'',43x ,'': maximum : cumule :'')'
132 > '('':'',26x,''Used logical units'',25x,'':'')'
134 > '('':'',20x,''Type'',19x,'': Maximum : Accumulated:'')'
136 > '('':'',43x ,'': number : number :'')'
145 write (ulsort,texte(langue,4))
147 write (ulsort,texte(langue,5))
148 write (ulsort,texte(langue,6))
152 write (ulsort,21004) chstat(langue,iaux),
153 > gunmbr(iaux), gunmbr(iaux+4)
156 iaux = gunmbr(5) + gunmbr(6) + gunmbr(7) + gunmbr(8)
158 write (ulsort,21004) chstat(langue,5), gunmbr(13), iaux
162 21002 format(71('.'))
163 21003 format(':',69('.'),':')
164 21004 format(': ',a31,11x,':',i7,5x,':',i7,5x,':')