1 subroutine deitri ( decare, decfac,
4 > ulsort, langue, codret)
5 c ______________________________________________________________________
9 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
11 c Version originale enregistree le 18 juin 1996 sous le numero 96036
12 c aupres des huissiers de justice Simart et Lavoir a Clamart
13 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
14 c aupres des huissiers de justice
15 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
17 c HOMARD est une marque deposee d'Electricite de France
23 c ______________________________________________________________________
25 c traitement des DEcisions - Initialisation de l'indicateur entier
27 c - cas des TRiangles - Initialisation
29 c ______________________________________________________________________
31 c . nom . e/s . taille . description .
32 c .____________________________________________________________________.
33 c . decare . s .0:nbarto. decisions des aretes .
34 c . decfac . s . -nbquto. decision sur les faces (quad. + tri.) .
36 c . aretri . e .nbtrto*3. numeros des 3 aretes des triangles .
37 c . pertri . e . nbtrto . pere des triangles .
38 c . trsupp . e . nbtrto . support pour les triangles .
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 . . . . 2 : probleme dans le traitement .
45 c ______________________________________________________________________
48 c 0. declarations et dimensionnement
51 c 0.1. ==> generalites
57 parameter ( nompro = 'DEITRI' )
71 integer decare(0:nbarto), decfac(-nbquto:nbtrto)
72 integer aretri(nbtrto,3), pertri(nbtrto)
73 integer trsupp(nbtrto)
75 integer ulsort, langue, codret
77 c 0.4. ==> variables locales
80 integer letria, lepere
84 parameter (nbmess = 30 )
85 character*80 texte(nblang,nbmess)
86 c ______________________________________________________________________
92 c 1.1. ==> Les messages
97 write (ulsort,texte(langue,1)) 'Entree', nompro
107 c 2. traitement des indicateurs portant sur les triangles
110 #ifdef _DEBUG_HOMARD_
111 write(ulsort,texte(langue,4)) mess14(langue,3,2)
114 do 21 , letria = 1, nbtrto
116 if ( trsupp(letria).ne.0 ) then
118 c 2.1. ==> Inhibition du raffinement par defaut : on garde la face
122 do 211 , areloc = 1, 3
123 decare(aretri(letria,areloc)) = 0
126 c 2.2. ==> Inhibition du deraffinement par defaut : on garde le pere
127 c de la face designee s'il existe
129 lepere = pertri(letria)
131 if ( lepere.gt.0 ) then
134 do 212 , areloc = 1, 3
135 decare(aretri(lepere,areloc)) = 0
148 if ( codret.ne.0 ) then
152 write (ulsort,texte(langue,1)) 'Sortie', nompro
153 write (ulsort,texte(langue,2)) codret
157 #ifdef _DEBUG_HOMARD_
158 write (ulsort,texte(langue,1)) 'Sortie', nompro