1 subroutine eslee0 ( idfmed, nomamd,
2 > typenh, typgeo, typent,
3 > nbencf, nbenca, nbrfma, nbrama,
6 > 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 : LEcture d'une Entite - 0
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 . typenh . e . 1 . code des entites .
35 c . . . . -1 : noeuds .
36 c . . . . 0 : mailles-points .
37 c . . . . 1 : aretes .
38 c . . . . 2 : triangles .
39 c . . . . 3 : tetraedres .
40 c . . . . 4 : quadrangles .
41 c . . . . 5 : pyramides .
42 c . . . . 6 : hexaedres .
43 c . . . . 7 : pentaedres .
44 c . typgeo . e . 1 . type geometrique au sens MED .
45 c . typent . e . 1 . type d'entite au sens MED .
46 c . nbencf . e . 1 . nombre d'entites decrites par faces .
47 c . nbenca . e . 1 . nombre d'entites decrites par aretes .
48 c . nbrfma . e . 1 . nbre noeuds par maille si connec. par noeud.
49 c . . . . nbre faces par maille si connectivite desce.
50 c . nbrama . e . 1 . nbre aretes par maille si volume .
51 c . codeen . s .nbencf**. connectivite descendante des mailles .
52 c . coaren . s .nbenca**. connectivite des mailles par aretes .
53 c . tabaux . . * . tableau tampon .
54 c . ulsort . e . 1 . numero d'unite logique de la liste standard.
55 c . langue . e . 1 . langue des messages .
56 c . . . . 1 : francais, 2 : anglais .
57 c . codret . es . 1 . code de retour des modules .
58 c . . . . 0 : pas de probleme .
59 c ______________________________________________________________________
62 c 0. declarations et dimensionnement
65 c 0.1. ==> generalites
71 parameter ( nompro = 'ESLEE0' )
85 integer typenh, typgeo, typent
86 integer nbencf, nbenca, nbrfma, nbrama
87 integer codeen(*), coaren(*)
92 integer ulsort, langue, codret
94 c 0.4. ==> variables locales
103 parameter ( nbmess = 150 )
104 character*80 texte(nblang,nbmess)
105 c ______________________________________________________________________
113 #ifdef _DEBUG_HOMARD_
114 write (ulsort,texte(langue,1)) 'Entree', nompro
118 texte(1,4) = '(''... Lecture des '',i10,1x,a)'
120 texte(2,4) = '(''... Readings of '',i10,1x,a)'
126 #ifdef _DEBUG_HOMARD_
127 write (ulsort,texte(langue,4)) nbencf, mess14(langue,3,typenh)
131 c 2. Lecture des connectivites
134 if ( codret.eq.0 ) then
136 if ( typenh.eq.1 ) then
143 if ( typenh.eq.0 ) then
148 ccc write (ulsort,90002) 'typent', typent
149 ccc write (ulsort,90002) 'typgeo', typgeo
150 ccc write (ulsort,90002) 'iaux ', iaux
151 ccc write (ulsort,90002) 'nbencf', nbencf
152 ccc write (ulsort,90002) 'nbrfma, nbrama', nbrfma, nbrama
153 ccc write (ulsort,90002) 'dim1 ', dim1
155 #ifdef _DEBUG_HOMARD_
156 write (ulsort,texte(langue,3)) 'ESLMMC', nompro
158 call eslmmc ( idfmed, nomamd,
159 > typenh, typent, typgeo,
160 > iaux, nbencf, dim1, nbrfma,
164 > ulsort, langue, codret )
169 c 3. Mise en place de la connectivite des volumes
172 if ( codret.eq.0 ) then
174 if ( typenh.eq.3 .or. typenh.eq.5 .or.
175 > typenh.eq.6 .or. typenh.eq.7 ) then
177 #ifdef _DEBUG_HOMARD_
178 write (ulsort,texte(langue,3)) 'ESLEE1', nompro
180 call eslee1 ( typenh, nbencf, nbenca, nbrfma, nbrama,
181 > codeen, coaren, tabaux,
182 > ulsort, langue, codret )
192 if ( codret.ne.0 ) then
196 write (ulsort,texte(langue,1)) 'Sortie', nompro
197 write (ulsort,texte(langue,2)) codret
201 #ifdef _DEBUG_HOMARD_
202 write (ulsort,texte(langue,1)) 'Sortie', nompro