1 subroutine esecig ( idfmed,
4 > ulsort, langue, codret)
6 c ______________________________________________________________________
10 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
12 c Version originale enregistree le 18 juin 1996 sous le numero 96036
13 c aupres des huissiers de justice Simart et Lavoir a Clamart
14 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
15 c aupres des huissiers de justice
16 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
18 c HOMARD est une marque deposee d'Electricite de France
24 c ______________________________________________________________________
26 c Entree-Sortie : ECriture des elements IGnores
28 c ______________________________________________________________________
29 c . nom . e/s . taille . description .
30 c .____________________________________________________________________.
31 c . idfmed . e . 1 . identificateur du fichier MED .
32 c . nhelig . e . char8 . nom de l'objet decrivant les ignores .
33 c . tbiaux . . * . tableau tampon entier .
34 c . ulsort . e . 1 . numero d'unite logique de la liste standard.
35 c . langue . e . 1 . langue des messages .
36 c . . . . 1 : francais, 2 : anglais .
37 c . codret . es . 1 . code de retour des modules .
38 c . . . . 0 : pas de probleme .
39 c ______________________________________________________________________
42 c 0. declarations et dimensionnement
45 c 0.1. ==> generalites
51 parameter ( nompro = 'ESECIG' )
69 integer ulsort, langue, codret
71 c 0.4. ==> variables locales
78 integer hfmdel, hnoeel
82 integer codre1, codre2, codre3
86 parameter ( nbmess = 150 )
87 character*80 texte(nblang,nbmess)
88 c ______________________________________________________________________
97 write (ulsort,texte(langue,1)) 'Entree', nompro
101 texte(1,4) = '(''. Ecriture des elements ignores.'')'
103 texte(2,4) = '(''. Writings of additional information.'')'
109 #ifdef _DEBUG_HOMARD_
110 write (ulsort,texte(langue,4))
115 cgn call gmprsx (nompro, nhelig )
116 cgn call gmprsx (nompro, nhelig//'.ConnNoeu' )
117 cgn call gmprsx (nompro, nhelig//'.FamilMED' )
120 c 2. Recuperation des adresses
122 #ifdef _DEBUG_HOMARD_
123 write (ulsort,*) '2. adresses ; codret = ', codret
126 call gmliat ( nhelig, 1, nbelig, codre1 )
127 call gmadoj ( nhelig//'.ConnNoeu', hnoeel, iaux, codre2 )
128 call gmadoj ( nhelig//'.FamilMED', hfmdel, iaux, codre3 )
130 codre0 = min ( codre1, codre2, codre3 )
131 codret = max ( abs(codre0),
132 > codre1, codre2, codre3 )
138 if ( codret.eq.0 ) then
140 if ( degre.eq.1 ) then
147 do 211 , iaux = 1 , nbelig
148 tbiaux(iaux) = imem(hfmdel+iaux-1)
151 do 212 , iaux = 1 , jaux
152 tbiaux(nbelig+iaux) = imem(hnoeel+iaux-1)
157 noprof(1:16) = 'Elements_Ignores'
159 iaux = nbelig*(nbnoel+1) + 1
160 #ifdef _DEBUG_HOMARD_
161 write (ulsort,texte(langue,61)) noprof
162 write (ulsort,texte(langue,62)) iaux
165 #ifdef _DEBUG_HOMARD_
166 write (ulsort,texte(langue,3)) 'MPFPRW', nompro
168 call mpfprw ( idfmed, noprof, iaux, tbiaux, codret )
176 if ( codret.ne.0 ) then
180 write (ulsort,texte(langue,1)) 'Sortie', nompro
181 write (ulsort,texte(langue,2)) codret
185 #ifdef _DEBUG_HOMARD_
186 write (ulsort,texte(langue,1)) 'Sortie', nompro