1 subroutine gmmess (ulmess)
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 'Gestion de la Memoire : unite de sortie des MESSages'
24 c ______________________________________________________________________
26 c but : modifie le numero de l'unite logique des messages du
27 c gestionnaire de memoire
28 c ______________________________________________________________________
30 c . nom . e/s . taille . description .
31 c .____________________________________________________________________.
32 c . ulmess . e . 1 . unite logique voulue pour les messages .
33 c ______________________________________________________________________
36 c 0. declarations et dimensionnement
39 c 0.1. ==> generalites
45 parameter ( nompro = 'GMMESS' )
58 c 0.4. ==> variables locales
60 logical imprim, dejavu
62 integer lgimpr, ulimpr
64 integer guimp, gmimp, raison
68 parameter ( nbmess = 10 )
69 character*80 texte(nblang,nbmess)
71 c 0.5. ==> initialisations
73 data dejavu / .false. /
74 c ______________________________________________________________________
77 c 1. initialisation des messages
78 c remarque : on doit faire qqe chose pour prevenir des cas ou le
79 c numero de l'unite logique ou de la langue serait nul.
85 call gusost ( ulimpr )
88 if ( langue.le.0 ) then
97 write (ulimpr,texte(lgimpr,1)) nompro
100 texte(1,10) = '(''Le numero d''''unite logique '',i2,'' voulu'')'
102 >'(''pour les sorties GM n''''a pas le bon statut GU.'')'
104 texte(2,10) = '(''The logical unit # '',i2,'' wanted for'')'
105 texte(2,4) = '(''GM messages has not the right status in GU.'')'
108 c 2. verification de la validite du numero. il faut que le statut soit :
109 c 2 : Sortie standard (sequentiel formate)
110 c 3 : Ouvert en acces sequentiel formate
114 call guinfu ( ulmess, codret, imprim )
116 if ( codret.ne.2 .and. codret.ne.3 ) then
118 write (ulimpr,texte(lgimpr,1)) nompro
119 write (ulimpr,texte(lgimpr,10)) ulmess
120 write (ulimpr,texte(lgimpr,4))
125 call ugstop(nompro,ulimpr,guimp, gmimp, raison)
130 c 3. archivage du numero