1 subroutine pcmanc ( lgopti, taopti, lgoptr, taoptr,
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 aPres adaptation - Conversion de MAillage - Non Conforme
27 c ______________________________________________________________________
29 c . nom . e/s . taille . description .
30 c .____________________________________________________________________.
31 c . lgopti . e . 1 . longueur du tableau des options .
32 c . taopti . e . lgopti . tableau des options .
33 c . lgoptr . e . 1 . longueur du tableau des options reelles .
34 c . taoptr . e . lgoptr . tableau des options .
35 c . lgopts . e . 1 . longueur du tableau des options caracteres .
36 c . taopts . e . lgopts . tableau des options caracteres .
37 c . lgetco . e . 1 . longueur du tableau de l'etat courant .
38 c . taetco . e . lgetco . tableau de l'etat courant .
39 c . ulsort . e . 1 . numero d'unite logique de la liste standard.
40 c . langue . e . 1 . langue des messages .
41 c . . . . 1 : francais, 2 : anglais .
42 c . codret . es . 1 . code de retour des modules .
43 c . . . . 0 : pas de probleme .
44 c . . . . 5 : mauvais type de code de calcul associe .
45 c ______________________________________________________________________
48 c 0. declarations et dimensionnement
51 c 0.1. ==> generalites
57 parameter ( nompro = 'PCMANC' )
69 integer taopti(lgopti)
72 double precision taoptr(lgoptr)
75 character*8 taopts(lgopts)
78 integer taetco(lgetco)
80 integer ulsort, langue, codret
82 c 0.4. ==> variables locales
85 integer nretap, nrsset
93 parameter ( nbmess = 10 )
94 character*80 texte(nblang,nbmess)
96 c 0.5. ==> initialisations
97 c ______________________________________________________________________
101 c=======================================================================
102 if ( codava.eq.0 ) then
103 c=======================================================================
111 #ifdef _DEBUG_HOMARD_
112 write (ulsort,texte(langue,1)) 'Entree', nompro
116 if ( taopti(11).eq.26 .or.
117 > taopti(11).eq.36 ) then
119 elseif ( taopti(11).eq.46 .or.
120 > taopti(11).eq.56 ) then
122 elseif ( taopti(11).eq.46 .or.
123 > taopti(11).eq.76 ) then
129 texte(1,4) = '(/,a6,1x,'''//saux07//' - COMPLEMENTS'')'
130 texte(1,5) = '(28(''=''),/)'
132 texte(2,4) = '(/,a6,1x,'''//saux07//' - ADDITIONAL OPERATIONS'')'
133 texte(2,5) = '(38(''=''),/)'
137 c 1.4. ==> le numero de sous-etape
140 nrsset = taetco(2) + 1
143 call utcvne ( nretap, nrsset, saux, iaux, codret )
147 write (ulsort,texte(langue,4)) saux
148 write (ulsort,texte(langue,5))
151 c 2. Passage du maillage 2D au maillage 3D pour un maillage extrude
153 #ifdef _DEBUG_HOMARD_
154 write (ulsort,90002) '2. 2D -> 3D ; codret', codret
157 if ( codret.eq.0 ) then
159 if ( taopti(39).ne.0 ) then
161 #ifdef _DEBUG_HOMARD_
162 write (ulsort,texte(langue,3)) 'PCMA23', nompro
164 call pcma23 ( taopts(2),
165 > taopti(40), taoptr(4), taopts(20),
166 > ulsort, langue, codret )
173 c 3. Les recollements par equivalence
175 #ifdef _DEBUG_HOMARD_
176 write (ulsort,90002) '3. recollements ; codret', codret
179 if ( taopti(30).eq.-2 .or.
180 > taopti(30).eq.1 .or.
181 > taopti(30).eq.2 .or.
182 > taopti(30).eq.3 ) then
184 if ( codret.eq.0 ) then
187 if ( ( taopti(11).eq.36 ) .or. ( taopti(11).eq.56 ) ) then
190 #ifdef _DEBUG_HOMARD_
191 write (ulsort,90002) 'nonexm', nonexm
194 #ifdef _DEBUG_HOMARD_
195 write (ulsort,texte(langue,3)) 'PCMARC', nompro
197 call pcmarc ( taopts(2), taopts(20),
199 > ulsort, langue, codret )
209 if ( codret.ne.0 ) then
213 write (ulsort,texte(langue,1)) 'Sortie', nompro
214 write (ulsort,texte(langue,2)) codret
218 #ifdef _DEBUG_HOMARD_
219 write (ulsort,texte(langue,1)) 'Sortie', nompro
223 c=======================================================================
225 c=======================================================================