1 subroutine esecno ( idfmed, nomamd,
3 > numdt, numit, instan,
5 > ulsort, langue, codret)
7 c ______________________________________________________________________
11 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
13 c Version originale enregistree le 18 juin 1996 sous le numero 96036
14 c aupres des huissiers de justice Simart et Lavoir a Clamart
15 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
16 c aupres des huissiers de justice
17 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
19 c HOMARD est une marque deposee d'Electricite de France
25 c ______________________________________________________________________
27 c Entree-Sortie : ECriture des NOeuds
29 c ______________________________________________________________________
30 c . nom . e/s . taille . description .
31 c .____________________________________________________________________.
32 c . idfmed . e . 1 . identificateur du fichier MED .
33 c . nomamd . e . char64 . nom du maillage MED voulu .
34 c . ltbiau . e . 1 . longueur allouee a tbiaux .
35 c . tbiaux . . * . tableau tampon entier .
36 c . numdt . e . 1 . numero du pas de temps .
37 c . numit . e . 1 . numero d'iteration .
38 c . instan . e . 1 . pas de temps .
39 c . ulsort . e . 1 . numero d'unite logique de la liste standard.
40 c . langue . e . 1 . langue des messages .
41 c . . . . 1 : francais, 2 : anglais .
42 c . codret . es . 1 . code de retour des modules .
43 c . . . . 0 : pas de probleme .
44 c ______________________________________________________________________
47 c 0. declarations et dimensionnement
50 c 0.1. ==> generalites
56 parameter ( nompro = 'ESECNO' )
74 integer ltbiau, tbiaux(*)
79 double precision instan
81 integer ulsort, langue, codret
83 c 0.4. ==> variables locales
88 integer adcoor, adhist, adarno
89 integer adhono, addera
90 integer adcoco, adinfg
92 integer adfami, adcofa
95 parameter ( nbmess = 150 )
96 character*80 texte(nblang,nbmess)
97 c ______________________________________________________________________
105 #ifdef _DEBUG_HOMARD_
106 write (ulsort,texte(langue,1)) 'Entree', nompro
110 texte(1,4) = '(''. Ecriture des noeuds.'')'
112 texte(2,4) = '(''. Writings of nodes.'')'
118 #ifdef _DEBUG_HOMARD_
119 write (ulsort,texte(langue,4))
121 ccc call gmprsx ( nompro, nhnoeu )
122 ccc call gmprsx ( nompro, nhnoeu//'.HistEtat' )
127 #ifdef _DEBUG_HOMARD_
128 write (ulsort,texte(langue,3)) 'UTAD21', nompro
130 call utad21 ( nhnoeu,
131 > adcoor, adhist, adarno,
136 > ulsort, langue, codret )
141 c 3.1. ==> Ecriture de la connectivite et des familles
142 #ifdef _DEBUG_HOMARD_
143 write (ulsort,90002) '3.1. connectivite ; codret', codret
146 if ( codret.eq.0 ) then
148 #ifdef _DEBUG_HOMARD_
149 write (ulsort,texte(langue,3)) 'ESEMNO', nompro
151 call esemno ( idfmed, nomamd,
152 > nbnoto, sdim, rmem(adcoor), imem(adfami),
153 > numdt, numit, instan,
154 > ulsort, langue, codret )
158 c 3.2. ==> Ecriture des complements
159 #ifdef _DEBUG_HOMARD_
160 write (ulsort,90002) '3.2. complements ; codret', codret
163 if ( codret.eq.0 ) then
165 #ifdef _DEBUG_HOMARD_
166 write (ulsort,texte(langue,3)) 'ESECN1', nompro
168 call esecn1 ( idfmed, nomamd,
171 > numdt, numit, instan,
173 > ulsort, langue, codret )
181 if ( codret.ne.0 ) then
185 write (ulsort,texte(langue,1)) 'Sortie', nompro
186 write (ulsort,texte(langue,2)) codret
190 #ifdef _DEBUG_HOMARD_
191 write (ulsort,texte(langue,1)) 'Sortie', nompro