1 subroutine vcme23 ( nhpefa,
5 > 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 aVant adaptation - Conversion de Maillage Extrude - phase 23
28 c Determine les familles pour la relation hexaedres/pentaedres
29 c ______________________________________________________________________
31 c . nom . e/s . taille . description .
32 c .____________________________________________________________________.
33 c . nhpefa . e . char8 . objet decrivant les familles de pentaedres .
34 c . pcfaqu . es . 1 . codes des familles des quadrangles .
35 c . pcfahe . es . 1 . codes des familles des hexaedres .
36 c . pcfape . s . 1 . codes des familles de pentaedres .
37 c . ulsort . e . 1 . numero d'unite logique de la liste standard.
38 c . langue . e . 1 . langue des messages .
39 c . . . . 1 : francais, 2 : anglais .
40 c . codret . e . 1 . code de retour des modules .
41 c . . . . 0 : pas de probleme .
42 c . . . . 1 : probleme .
43 c ______________________________________________________________________
46 c 0. declarations et dimensionnement
49 c 0.1. ==> generalites
55 parameter ( nompro = 'VCME23' )
76 integer ulsort, langue, codret
78 c 0.4. ==> variables locales
85 parameter ( nbmess = 10 )
86 character*80 texte(nblang,nbmess)
88 c 0.5. ==> initialisations
89 c ______________________________________________________________________
98 write (ulsort,texte(langue,1)) 'Entree', nompro
107 c. Parcours des familles initiales
109 #ifdef _DEBUG_HOMARD_
110 write (ulsort,90002) '3. parcours ; codret', codret
113 c 2.1. ==> Taille initiale du tableau
118 c 2.2. ==> Allongement de la taille du tableau des familles
123 if ( codret.eq.0 ) then
128 #ifdef _DEBUG_HOMARD_
129 write (ulsort,texte(langue,3)) 'UTFAM2', nompro
131 call utfam2 ( iaux, nhpefa, nctfpe, nbfpe0,
133 > ulsort, langue, codret)
137 c 2.3. ==> Programme utilitaire
139 if ( codret.eq.0 ) then
141 #ifdef _DEBUG_HOMARD_
142 write (ulsort,texte(langue,3)) 'VCME24', nompro
144 call vcme24 ( numfam,
149 > ulsort, langue, codret )
153 c 2.4. ==> A rallonger ?
155 if ( codret.eq.0 ) then
157 if ( nbfpen.lt.0 ) then
167 c 3. Redimensionnement final
169 #ifdef _DEBUG_HOMARD_
170 write (ulsort,90002) '3. Redimensionnement ; codret', codret
171 write (ulsort,90002) 'nbfpen', nbfpen
172 write (ulsort,90002) 'nbfpe0', nbfpe0
175 if ( nbfpen.ne.nbfpe0 ) then
177 if ( codret.eq.0 ) then
180 #ifdef _DEBUG_HOMARD_
181 write (ulsort,texte(langue,3)) 'UTFAM2', nompro
183 call utfam2 ( iaux, nhpefa, nctfpe, nbfpen,
185 > ulsort, langue, codret)
195 if ( codret.ne.0 ) then
199 write (ulsort,texte(langue,1)) 'Sortie', nompro
200 write (ulsort,texte(langue,2)) codret
204 #ifdef _DEBUG_HOMARD_
205 write (ulsort,texte(langue,1)) 'Sortie', nompro