1 subroutine utmess ( messag, nblxms, nblims,
2 > ulsort, langue, codret )
3 c ______________________________________________________________________
7 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
9 c Version originale enregistree le 18 juin 1996 sous le numero 96036
10 c aupres des huissiers de justice Simart et Lavoir a Clamart
11 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
12 c aupres des huissiers de justice
13 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
15 c HOMARD est une marque deposee d'Electricite de France
21 c ______________________________________________________________________
22 c UTilitaire - MESSages
24 c ______________________________________________________________________
26 c . nom . e/s . taille . description .
27 c .____________________________________________________________________.
28 c . messag . s . ch<200 . nom du fichier de configuration .
29 c . nblxms . e . 1 . nombre de lignes maximum du message .
30 c . nblims . s . 1 . nombre de lignes du message .
31 c . ulsort . e . 1 . unite logique de la sortie generale .
32 c . langue . e . 1 . langue des messages .
33 c . . . . 1 : francais, 2 : anglais .
34 c . codret . s . 1 . code de retour des modules .
35 c . . . . 0 : pas de probleme .
36 c . . . . 1 : probleme .
37 c ______________________________________________________________________
40 c 0. declarations et dimensionnement
43 c 0.1. ==> generalites
49 parameter ( nompro = 'UTMESS' )
59 integer nblxms, nblims
61 character*40 messag(nblang,*)
63 integer ulsort, langue, codret
65 c 0.4. ==> variables locales
70 parameter ( nbmess = 10 )
71 character*80 texte(nblang,nbmess)
73 c 0.5. ==> initialisations
74 c ______________________________________________________________________
77 c 1. initialisations des messages
85 messag(1,1) = 'Cette version est destinee exclusivement'
86 messag(1,2) = ' au couplage avec Code_Neptune. '
87 messag(2,1) = ' Use with Code_Neptune only '
92 messag(1,1) = 'Cette version est destinee exclusivement'
93 messag(1,2) = ' au couplage avec Code_Saturne. '
94 messag(2,1) = ' Use with Code_Saturne only '
99 c 1234567890123456789012345678901234567890
100 messag(1,1) = 'Cette version est destinee exclusivement'
101 messag(1,2) = ' au couplage avec ESTEL_3D. '
102 messag(1,3) = ' Simulation dans le systeme Telemac '
103 messag(2,1) = ' Use with ESTEL_3D only '
104 messag(2,2) = ' Simulation in Telemac system '
109 messag(1,1) = 'Cette version est destinee exclusivement'
110 messag(1,2) = ' au couplage avec Code_Aster. '
111 messag(2,1) = ' Use with Code_Aster only '
116 messag(1,1) = ' Cette version est destinee au CEA '
117 messag(1,2) = ' exclusivement pour des travaux de R&D '
118 messag(1,3) = ' Aucune commercialisation des resultats '
119 messag(1,4) = ' n''est possible sans autorisation EDF. '
120 messag(2,1) = ' This release is given to CEA '
121 messag(2,2) = ' for R&D studies only. '
122 messag(2,3) = ' No trade is allowed '
123 messag(2,4) = ' without EDF authorization '
127 messag(1,1) = ' Usage exclusivement avec SALOME '
128 messag(2,1) = ' Use with SALOME only '
131 messag(1,1) = ' Usage exclusivement avec SALOME '
132 messag(2,1) = ' Use with SALOME only '
134 c 1234567890123456789012345678901234567890
146 if ( iaux.le.nblxms ) then
156 if ( codret.ne.0 ) then
160 write (ulsort,texte(langue,1)) 'Sortie', nompro
161 write (ulsort,texte(langue,2)) codret
165 #ifdef _DEBUG_HOMARD_
166 write (ulsort,texte(langue,1)) 'Sortie', nompro