1 subroutine esecs4 ( idfmed,
3 > numdt, numit, instan,
4 > ulsort, langue, codret)
6 c ______________________________________________________________________
10 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
12 c Version originale enregistree le 18 juin 1996 sous le numero 96036
13 c aupres des huissiers de justice Simart et Lavoir a Clamart
14 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
15 c aupres des huissiers de justice
16 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
18 c HOMARD est une marque deposee d'Electricite de France
24 c ______________________________________________________________________
26 c Entree-Sortie : ECriture des informations Supplementaires - 4
28 c ______________________________________________________________________
29 c . nom . e/s . taille . description .
30 c .____________________________________________________________________.
31 c . idfmed . e . 1 . identificateur du fichier MED .
32 c . coocst . e . 1 . coordonnee constante eventuelle .
33 c . numdt . e . 1 . numero du pas de temps .
34 c . numit . e . 1 . numero d'iteration .
35 c . instan . e . 1 . pas de temps .
36 c . ulsort . e . 1 . numero d'unite logique de la liste standard.
37 c . langue . e . 1 . langue des messages .
38 c . . . . 1 : francais, 2 : anglais .
39 c . codret . es . 1 . code de retour des modules .
40 c . . . . 0 : pas de probleme .
41 c ______________________________________________________________________
44 c 0. declarations et dimensionnement
47 c 0.1. ==> generalites
53 parameter ( nompro = 'ESECS4' )
67 double precision coocst
68 double precision instan
70 integer ulsort, langue, codret
72 c 0.4. ==> variables locales
83 parameter ( nbmess = 150 )
84 character*80 texte(nblang,nbmess)
86 c ______________________________________________________________________
96 write (ulsort,texte(langue,1)) 'Entree', nompro
100 texte(1,4) = '(''... Ecriture de la dimension constante '',g15.8)'
101 texte(1,5) = '(/,''..... pour les '',a)'
103 texte(2,4) = '(''... Writings of constant dimension '',g15.8)'
104 texte(2,5) = '(/,''..... for '',a)'
108 #ifdef _DEBUG_HOMARD_
109 write (ulsort,texte(langue,4)) coocst
113 c 2. Ecriture sous forme de valeur scalaire
116 c 2.1. ==> Creation de la variable scalaire
118 if ( codret.eq.0 ) then
122 novals(1:13) = 'Dim_Constante'
125 sau200(1:64) = novals
126 do 21 , iaux = 65 , 200
127 sau200(iaux:iaux) = ' '
131 #ifdef _DEBUG_HOMARD_
132 write (ulsort,texte(langue,3)) 'MPRCRE', nompro
134 call mprcre ( idfmed, novals, jaux, sau200, dtunit, codret )
138 c 2.2. ==> Ecriture de la valeur
140 if ( codret.eq.0 ) then
142 #ifdef _DEBUG_HOMARD_
143 write (ulsort,texte(langue,3)) 'MPRRVW', nompro
145 call mprrvw ( idfmed, novals, numdt, numit, instan,
154 if ( codret.ne.0 ) then
158 write (ulsort,texte(langue,1)) 'Sortie', nompro
159 write (ulsort,texte(langue,2)) codret
160 write (ulsort,texte(langue,4)) coocst
164 #ifdef _DEBUG_HOMARD_
165 write (ulsort,texte(langue,1)) 'Sortie', nompro