1 subroutine deeli1 ( insoar, decare, hetare,
2 > ulsort, langue, codret )
3 c ______________________________________________________________________
7 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
9 c Version originale enregistree le 18 juin 1996 sous le numero 96036
10 c aupres des huissiers de justice Simart et Lavoir a Clamart
11 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
12 c aupres des huissiers de justice
13 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
15 c HOMARD est une marque deposee d'Electricite de France
21 c ______________________________________________________________________
23 c traitement des DEcisions - ELements Ignores - 1
25 c ______________________________________________________________________
27 c . nom . e/s . taille . description .
28 c .____________________________________________________________________.
29 c . insoar . e . nbarma . information sur les sommets des aretes .
30 c . . . . 0 : ses deux sommets appartiennent .
31 c . . . . exclusivement a un element soumis a .
32 c . . . . l'adaptation .
33 c . . . . -1 : son 1er sommet appartient a un element.
35 c . . . . le 2nd sommet appartient exclusivement.
36 c . . . . a un element soumis a l'adaptation .
37 c . . . . -2 : son 2nd sommet appartient a un element.
39 c . . . . le 1er sommet appartient exclusivement.
40 c . . . . a un element soumis a l'adaptation
41 c . . . . 2 : ses deux sommets appartiennent a un .
42 c . . . . element ignore .
43 c . decare . e . nbarto . decisions des aretes .
44 c . hetare . e . nbarto . historique de l'etat des aretes .
45 c . ulsort . e . 1 . numero d'unite logique de la liste standard.
46 c . langue . e . 1 . langue des messages .
47 c . . . . 1 : francais, 2 : anglais .
48 c . codret . es . 1 . code de retour des modules .
49 c . . . . 0 : pas de probleme .
50 c . . . . 1 : il existe encore des non conformites .
51 c ______________________________________________________________________
54 c 0. declarations et dimensionnement
57 c 0.1. ==> generalites
63 parameter ( nompro = 'DEELI1' )
75 integer decare(0:nbarto)
76 integer hetare(nbarto)
77 integer insoar(nbarma)
79 integer ulsort, langue, codret
81 c 0.4. ==> variables locales
84 integer larete, etatar
87 parameter ( nbmess = 10 )
88 character*80 texte(nblang,nbmess)
90 c 0.5. ==> initialisations
91 c ______________________________________________________________________
100 write (ulsort,texte(langue,1)) 'Entree', nompro
104 texte(1,9) = '(''Le raffinement atteint la zone interdite'')'
105 texte(1,10) = '(''Nombre d''''aretes touchees :'',i6)'
107 texte(2,9) ='(''Refinement reached the forbidden zone'')'
108 texte(2,10) ='(''Number of reached edges :'',i6)'
113 c 2. on explore toutes les aretes actives du macro-maillage : il ne
114 c sert a rien de controle des aretes filles car elles ne peuvent pas
116 c on verifie qu'il n'y a pas de situation pour laquelle
117 c l'arete d'un element ignore a ete decoupee
122 do 20 , larete = 1 , nbarma
124 etatar = mod( hetare(larete) , 10 )
126 if ( etatar.eq.0 ) then
128 if ( decare(larete).eq.2 ) then
130 if ( insoar(larete).eq.2 ) then
146 if ( codret.ne.0 ) then
150 write (ulsort,texte(langue,9))
151 write (ulsort,texte(langue,10)) codret
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