1 subroutine gagpmc ( objet,
2 > ix, jx, chemin, lgchem, nbchem,
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 construction du graphe d'un objet structure
26 c ______________________________________________________________________
28 c . nom . e/s . taille . description .
29 c .____________________________________________________________________.
30 c . objet . e . ch8 . nom de l'objet dont on doit construire le .
32 c . ix,jx . e . 1 . dimension du tableau chemin(.,.) .
33 c . chemin . s .(ix,jx) . tableau des chemins du graphe de l'objet .
34 c . lgchem . s . ix . longueur des chemins .
35 c . nbchem . s . 1 . nombre de chemins .
36 c . impopt . e . 1 . 1 : on imprime le graphe ; 0 : non .
37 c . codret . s . 1 . code de retour : .
39 c . . . . -1 : dimensionnement insuffisant .
40 c . . . . -2 : objet non structure .
41 c .____________________________________________________________________.
44 c 0. declarations et dimensionnement
47 c 0.1. ==> generalites
52 parameter ( nompro = 'GAGPMC' )
78 integer ix,jx,nbchem, impopt, codret
82 character*8 chemin(ix,jx)
85 parameter ( nbmess = 10 )
86 character*80 texte(nblang,nbmess)
88 c 0.4. ==> variables locales
94 integer nbrobj, nbrcha
96 c 0.5. ==> initialisations
97 c ______________________________________________________________________
105 #ifdef _DEBUG_HOMARD_
106 write (ulsort,texte(langue,1)) 'Entree', nompro
111 > '(/,''=======> graphe VTOC-MC de '',a8,'' <========'',/)'
114 > '(/,''=======> graph VTOC-CM of '',a8,'' <========'',/)'
115 #ifdef _DEBUG_HOMARD_
117 write (ulsort,texte(langue,1)) 'Sortie', nompro
118 90000 format (70('='))
122 c 2. appel du programme generique
125 if (impopt.eq.1) then
126 write (ulsort,texte(langue,10)) objet
131 call gagpmf ( objet, chemin, lgchem, nbchem,
132 > ix, jx, nbrobj, nbrcha,
133 > nomobj, typobj, adrdso, nomobc,
139 if (impopt.eq.1) then
140 write (ulsort,texte(langue,10)) objet
143 #ifdef _DEBUG_HOMARD_