1 subroutine cmcp1c ( indtri, triint,
4 > aretri, famtri, hettri,
5 > filtri, pertri, nivtri,
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 Creation du Maillage - Conformite - decoupage des Pentaedres
31 c Construction des triangles internes
32 c ______________________________________________________________________
34 c . nom . e/s . taille . description .
35 c .____________________________________________________________________.
36 c . indtri . es . 1 . indice du dernier triangle cree .
37 c . triint . s . 2 . triangles internes au pentaedre .
38 c . . . . 1 = bordant la face f1 .
39 c . . . . 2 = bordant la face f2 .
40 c . lesare . e . 2 . liste des aretes du pentaedre utiles .
41 c . . . . 1 = arete non decoupee face 1 et pyramide .
42 c . . . . 2 = arete non decoupee face 2 et pyramide .
43 c . areqtr . e . (2,2) . aretes tri tracees sur les faces decoupees .
44 c . aretri . es .nouvtr*3. numeros des 3 aretes des triangles .
45 c . hettri . es . nouvtr . historique de l'etat des triangles .
46 c . filtri . es . nouvtr . premier fils des triangles .
47 c . pertri . es . nouvtr . pere des triangles .
48 c . nivtri . es . nouvtr . niveau des triangles .
49 c . famtri . es . nouvtr . famille des triangles .
50 c . niveau . e . 1 . niveau a attribuer aux triangles .
51 c . ulsort . e . 1 . unite logique de la sortie generale .
52 c . langue . e . 1 . langue des messages .
53 c . . . . 1 : francais, 2 : anglais .
54 c . codret . es . 1 . code de retour des modules .
55 c . . . . 0 : pas de probleme .
56 c . . . . 1 : aucune arete ne correspond .
57 c ______________________________________________________________________
60 c 0. declarations et dimensionnement
63 c 0.1. ==> generalites
69 parameter ( nompro = 'CMCP1C' )
86 integer aretri(nouvtr,3), famtri(nouvtr)
87 integer hettri(nouvtr), filtri(nouvtr), pertri(nouvtr)
88 integer nivtri(nouvtr)
90 integer ulsort, langue, codret
92 c 0.4. ==> variables locales
98 parameter ( nbmess = 10 )
99 character*80 texte(nblang,nbmess)
100 c ______________________________________________________________________
110 #ifdef _DEBUG_HOMARD_
111 write (ulsort,texte(langue,1)) 'Entree', nompro
120 c 2. Les triangles s'appuient sur les 2 aretes non decoupees
121 c triint(1) = borde la face triangulaire F1
122 c triint(2) = borde la face triangulaire F2
127 #ifdef _DEBUG_HOMARD_
128 write (ulsort,texte(langue,3)) 'CMCTRI_1', nompro
130 call cmctri ( aretri, famtri, hettri,
131 > filtri, pertri, nivtri,
132 > indtri, areqtr(2,1), areqtr(1,1), lesare(1),
137 #ifdef _DEBUG_HOMARD_
138 write (ulsort,texte(langue,3)) 'CMCTRI_2', nompro
140 call cmctri ( aretri, famtri, hettri,
141 > filtri, pertri, nivtri,
142 > indtri, areqtr(1,2), areqtr(2,2), lesare(2),
149 if ( codret.ne.0 ) then
153 write (ulsort,texte(langue,1)) 'Sortie', nompro
154 write (ulsort,texte(langue,2)) codret
158 #ifdef _DEBUG_HOMARD_
159 write (ulsort,texte(langue,1)) 'Sortie', nompro