1 subroutine vcme27 ( notftr, nofatr, cofatr,
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 aVant adaptation - Conversion de Maillage Extrude - phase 27
29 c Determine les familles pour la relation quadrangles/triangles
30 c ______________________________________________________________________
32 c . nom . e/s . taille . description .
33 c .____________________________________________________________________.
34 c . notftr . e . 1 . nombre d'origine des carac. des triangles .
35 c . nofatr . e . 1 . nombre d'origine de familles de triangles .
36 c . cofatr . e . notftr*. codes d'origine des familles des triangles .
38 c . nhtrfa . e . char8 . objet decrivant les familles de triangles .
39 c . pcfatr . es . 1 . codes des familles des triangles .
40 c . pcfaqu . es . 1 . codes des familles des quadrangles .
41 c . pcfahe . e . 1 . codes des familles des hexaedres .
42 c . ulsort . e . 1 . numero d'unite logique de la liste standard.
43 c . langue . e . 1 . langue des messages .
44 c . . . . 1 : francais, 2 : anglais .
45 c . codret . e . 1 . code de retour des modules .
46 c . . . . 0 : pas de probleme .
47 c . . . . 1 : probleme .
48 c ______________________________________________________________________
51 c 0. declarations et dimensionnement
54 c 0.1. ==> generalites
60 parameter ( nompro = 'VCME27' )
75 integer notftr, nofatr, cofatr(notftr,nofatr)
82 integer ulsort, langue, codret
84 c 0.4. ==> variables locales
91 parameter ( nbmess = 10 )
92 character*80 texte(nblang,nbmess)
94 c 0.5. ==> initialisations
95 c ______________________________________________________________________
103 #ifdef _DEBUG_HOMARD_
104 write (ulsort,texte(langue,1)) 'Entree', nompro
113 c. Parcours des familles initiales
115 #ifdef _DEBUG_HOMARD_
116 write (ulsort,90002) '3. parcours ; codret', codret
119 c 2.1. ==> Taille initiale du tableau
124 c 2.2. ==> Allongement de la taille du tableau des familles de triangles
128 if ( codret.eq.0 ) then
133 #ifdef _DEBUG_HOMARD_
134 write (ulsort,texte(langue,3)) 'UTFAM2', nompro
136 call utfam2 ( iaux, nhtrfa, nctftr, nbftr0,
138 > ulsort, langue, codret)
142 c 2.3. ==> Programme utilitaire
144 if ( codret.eq.0 ) then
146 #ifdef _DEBUG_HOMARD_
147 write (ulsort,texte(langue,3)) 'VCME28', nompro
149 call vcme28 ( numfam,
151 > notftr, nofatr, cofatr,
155 > ulsort, langue, codret )
159 c 2.4. ==> A rallonger ?
161 if ( codret.eq.0 ) then
163 if ( nbftri.lt.0 ) then
173 c 3. Redimensionnement final
175 #ifdef _DEBUG_HOMARD_
176 write (ulsort,90002) '3. Redimensionnement ; codret', codret
177 write (ulsort,90002) 'nbftri', nbftri
178 write (ulsort,90002) 'nbftr0', nbftr0
181 if ( nbftri.ne.nbftr0 ) then
183 if ( codret.eq.0 ) then
186 #ifdef _DEBUG_HOMARD_
187 write (ulsort,texte(langue,3)) 'UTFAM2', nompro
189 call utfam2 ( iaux, nhtrfa, nctftr, nbftri,
191 > ulsort, langue, codret)
201 if ( codret.ne.0 ) then
205 write (ulsort,texte(langue,1)) 'Sortie', nompro
206 write (ulsort,texte(langue,2)) codret
210 #ifdef _DEBUG_HOMARD_
211 write (ulsort,texte(langue,1)) 'Sortie', nompro