1 subroutine dehovf ( option,
2 > nbento, enthom, 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 - HOmologues - Verification des Faces
27 c ______________________________________________________________________
29 c . nom . e/s . taille . description .
30 c .____________________________________________________________________.
31 c . option . e . 1 . variantes .
32 c . . . . 2 : triangles .
33 c . . . . 4 : quadrangles .
34 c . nbento . e . 1 . nombre d'entites total .
35 c . enthom . e . nbento . ensemble des entites homologues .
36 c . decfac . e . -nbquto. decision sur les faces (quad. + tri.) .
38 c . nompra . e . char6 . nom du programme appelant .
39 c . phase . e . 1 . phase du programme appelant .
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 . es . 1 . code de retour des modules .
46 c . . . . 0 : pas de probleme .
47 c . . . . 1 : desaccord sur les decisions entre .
48 c . . . . entites homologues .
49 c ______________________________________________________________________
52 c 0. declarations et dimensionnement
55 c 0.1. ==> generalites
61 parameter ( nompro = 'DEHOVF' )
78 integer enthom(nbento)
79 integer decfac(-nbquto:nbtrto)
83 integer ulsort, langue, codret
85 c 0.4. ==> variables locales
91 parameter ( nbmess = 10 )
92 character*80 texte(nblang,nbmess)
93 character*9 saux09(nblang,0:1)
95 c 0.5. ==> initialisations
96 c ______________________________________________________________________
104 #ifdef _DEBUG_HOMARD_
105 write (ulsort,texte(langue,1)) 'Entree', nompro
110 > '(''Pour les deux '',a,'' homologues'',i6,'' et'',i6)'
111 texte(1,5) = '(''. '',a,'' numero'',i7,'' : decision = '',i2)'
112 texte(1,6) = '(''... Probleme ...'')'
114 > '(/,a8,a6,'' : '',i8,'' erreur(s) sur les '',a,''.'')'
117 > '(''For the two homologous '',a,i6,'' and'',i6)'
118 texte(2,5) = '(''. '',a,'' #'',i7,'' : decision = '',i2)'
119 texte(2,6) = '(''... Problem ...'')'
120 texte(2,7) = '(/,a8,a6,'' : '',i8,'' error(s) over '',a,''.'')'
123 saux09(1,0) = 'Debut de '
124 saux09(1,1) = 'Fin de '
125 saux09(2,0) = 'Start of '
126 saux09(2,1) = 'End of '
129 c 2. controle des decisions sur les faces
130 c on boucle uniquement sur les faces de la face periodique 2
135 if ( homolo.ge.3 ) then
137 do 21 , iaux = 1 , nbento
139 if ( enthom(iaux).gt.0 ) then
143 if ( option.eq.4 ) then
148 #ifdef _DEBUG_HOMARD_
149 write (ulsort,texte(langue,4)) mess14(langue,3,option),
151 write (ulsort,texte(langue,5)) mess14(langue,2,option),
152 > iaux, decfac(face1)
153 write (ulsort,texte(langue,5)) mess14(langue,2,option),
154 > enthom(iaux), decfac(face2)
157 if ( decfac(face1).ne.decfac(face2) ) then
158 write (ulsort,texte(langue,4)) mess14(langue,3,option),
160 write (ulsort,texte(langue,5)) mess14(langue,2,option),
161 > iaux, decfac(face1)
162 write (ulsort,texte(langue,5)) mess14(langue,2,option),
163 > enthom(iaux), decfac(face2)
164 write (ulsort,texte(langue,6))
172 if ( jaux.ne.0 ) then
173 write (ulsort,texte(langue,7))
174 > saux09(langue,phase), nompra, jaux, mess14(langue,3,option)
184 if ( codret.ne.0 ) then
188 write (ulsort,texte(langue,1)) 'Sortie', nompro
189 write (ulsort,texte(langue,2)) codret
193 #ifdef _DEBUG_HOMARD_
194 write (ulsort,texte(langue,1)) 'Sortie', nompro