1 subroutine deinst ( typenh,
3 > nbenti, suppor, indire, indien,
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 des Seuils - Tri
27 c ______________________________________________________________________
29 c . nom . e/s . taille . description .
30 c .____________________________________________________________________.
31 c . typenh . e . 1 . type d'entites concernees .
32 c . . . . 0 : noeuds .
33 c . . . . 1 : aretes .
34 c . . . . 2 : triangles .
35 c . . . . 3 : tetraedres .
36 c . . . . 4 : quadrangles .
37 c . . . . 5 : pyramides .
38 c . . . . 6 : hexaedres .
39 c . . . . 7 : pentaedres .
40 c . seuihe . e . 1 . borne superieure absolue de l'erreur entite.
41 c . seuibe . e . 1 . borne inferieure absolue de l'erreur entite.
42 c . nbenti . e . 1 . nombre d'entites pour les entites .
43 c . suppor . e . nbenti . support pour les entites .
44 c . indire . e . nbenti . valeurs reelles pour les entites .
45 c . indien . s . nbenti . valeurs entieres filtrees pour les entites .
46 c . ulsort . e . 1 . numero d'unite logique de la liste standard.
47 c . langue . e . 1 . langue des messages .
48 c . . . . 1 : francais, 2 : anglais .
49 c . codret . es . 1 . code de retour des modules .
50 c . . . . 0 : pas de probleme .
51 c . . . . 2 : probleme dans le traitement .
52 c ______________________________________________________________________
55 c 0. declarations et dimensionnement
58 c 0.1. ==> generalites
64 parameter ( nompro = 'DEINST' )
77 integer suppor(nbenti), indien(nbenti)
79 double precision seuibe, seuihe
80 double precision indire(nbenti)
82 integer ulsort, langue, codret
84 c 0.4. ==> variables locales
89 parameter (nbmess = 10 )
90 character*80 texte(nblang,nbmess)
91 c ______________________________________________________________________
100 write (ulsort,texte(langue,1)) 'Entree', nompro
104 texte(1,4) = '(''Transfert de reel a entier pour les '',a))'
105 texte(1,5) = '(''Seuil haut = '',g13.5)'
106 texte(1,6) = '(''Seuil bas = '',g13.5)'
108 texte(2,4) = '(''Transfert de reel a entier pour les '',a))'
109 texte(2,5) = '(''High threshold = '',g13.5)'
110 texte(2,6) = '(''Low threshold = '',g13.5)'
112 #ifdef _DEBUG_HOMARD_
113 write (ulsort,texte(langue,4)) mess14(langue,3,typenh)
114 write (ulsort,texte(langue,5)) seuihe
115 write (ulsort,texte(langue,6)) seuibe
121 c 2. transfert de reel a entier
124 do 21 , iaux = 1, nbenti
125 cgn write (ulsort,90012) 'support pour', iaux, suppor(iaux)
127 if ( suppor(iaux).ne.0 ) then
128 cgn write (ulsort,90024) 'indire pour', iaux, indire(iaux)
130 if ( indire(iaux).le.seuibe ) then
132 elseif ( indire(iaux).ge.seuihe ) then
137 cgn write (ulsort,90012) '==> indien pour', iaux, indien(iaux)
147 if ( codret.ne.0 ) then
151 write (ulsort,texte(langue,1)) 'Sortie', nompro
152 write (ulsort,texte(langue,2)) codret
156 #ifdef _DEBUG_HOMARD_
157 write (ulsort,texte(langue,1)) 'Sortie', nompro