1 subroutine mmcnp2 ( nomail, nhnoeu, nharet,
3 > ulsort, langue, codret )
4 c ______________________________________________________________________
8 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
10 c Version originale enregistree le 18 juin 1996 sous le numero 96036
11 c aupres des huissiers de justice Simart et Lavoir a Clamart
12 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
13 c aupres des huissiers de justice
14 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
16 c HOMARD est une marque deposee d'Electricite de France
22 c ______________________________________________________________________
24 c Modification de Maillage - DEGRe
26 c ______________________________________________________________________
28 c . nom . e/s . taille . description .
29 c .____________________________________________________________________.
30 c . nomail . e . ch8 . nom de l'objet contenant le maillage .
31 c . nhnoeu . e . ch8 . branche des noeuds dans le maillage .
32 c . nharet . e . ch8 . branche des aretes dans le maillage .
33 c . indnoe . es . 1 . indice du dernier noeud cree .
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 . . . . 1 : probleme .
40 c ______________________________________________________________________
43 c 0. declarations et dimensionnement
46 c 0.1. ==> generalites
52 parameter ( nompro = 'MMCNP2' )
71 character*8 nhnoeu, nharet
75 integer ulsort, langue, codret
77 c 0.4. ==> variables locales
80 integer codre1, codre2, codre3, codre4
81 integer phetno, pareno, pcoono
82 integer pfamno, pnp2ar
87 parameter ( nbmess = 10 )
88 character*80 texte(nblang,nbmess)
90 c 0.5. ==> initialisations
93 c ______________________________________________________________________
96 c 1. Reallocation des tableaux
99 if ( codret.eq.0 ) then
103 call gmmod ( nhnoeu//'.Coor',
104 > pcoono, nbnoto, nouvno, sdim, sdim, codre1 )
105 call gmmod ( nhnoeu//'.HistEtat',
106 > phetno, nbnoto, nouvno, un, un, codre2 )
107 call gmmod ( nhnoeu//'.AretSupp',
108 > pareno, nbnoto, nouvno, un, un, codre3 )
109 call gmmod ( nhnoeu//'.Famille.EntiFamm',
110 > pfamno, nbnoto, nouvno, un, un, codre4 )
112 codre0 = min ( codre1, codre2, codre3, codre4 )
113 codret = max ( abs(codre0), codret,
114 > codre1, codre2, codre3, codre4 )
118 if ( codret.eq.0 ) then
120 call gmaloj ( nharet//'.InfoSupp', ' ', nbarto, pnp2ar, codre0 )
121 codret = max ( abs(codre0), codret )
126 c 2. creation des noeuds
129 if ( codret.eq.0 ) then
131 jaux = pnp2ar + nbarto - 1
132 do 21 , iaux = pnp2ar , jaux
136 #ifdef _DEBUG_HOMARD_
137 write (ulsort,texte(langue,3)) 'CMNO22', nompro
139 call cmno22 ( nomail,
141 > ulsort, langue, codret )
149 if ( codret.ne.0 ) then
153 write (ulsort,texte(langue,1)) 'Sortie', nompro
154 write (ulsort,texte(langue,2)) codret
158 #ifdef _DEBUG_HOMARD_
159 write (ulsort,texte(langue,1)) 'Sortie', nompro