1 subroutine utsvm0 ( typenh, option, nhenti, nosvmn,
2 > ulsort, langue, codret )
3 c ______________________________________________________________________
7 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
9 c Version originale enregistree le 18 juin 1996 sous le numero 96036
10 c aupres des huissiers de justice Simart et Lavoir a Clamart
11 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
12 c aupres des huissiers de justice
13 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
15 c HOMARD est une marque deposee d'Electricite de France
21 c ______________________________________________________________________
23 c UTilitaire - creation de SauVegardes du Maillage iteration N - 0
25 c ______________________________________________________________________
27 c . nom . e/s . taille . description .
28 c .____________________________________________________________________.
29 c . typenh . e . 1 . code des entites au sens homard .
30 c . . . . -1 : noeuds .
31 c . . . . 0 : mailles-points .
32 c . . . . 1 : segments .
33 c . . . . 2 : triangles .
34 c . . . . 3 : tetraedres .
35 c . . . . 4 : quadrangles .
36 c . . . . 5 : pyramides .
37 c . . . . 6 : hexaedres .
38 c . . . . 7 : pentaedres .
39 c . option . e . 1 . option de pilotage des sauvegardes .
40 c . . . . c'est un multiple des entiers suivants : .
41 c . . . . 2 : Fille et HistEtat .
42 c . . . . 3 : EntiFamm .
43 c . . . . 5 : InfoSup2 .
44 c . nhenti . e . ch8 . nom de l'objet contenant l'entite .
45 c . nosvmn . s . ch8 . nom de l'objet contenant les sauvegardes du.
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 ______________________________________________________________________
54 c 0. declarations et dimensionnement
57 c 0.1. ==> generalites
63 parameter ( nompro = 'UTSVM0' )
75 integer typenh, option
76 character*8 nhenti, nosvmn
78 integer ulsort, langue, codret
80 c 0.4. ==> variables locales
83 integer codre1, codre2
89 parameter ( nbmess = 10 )
90 character*80 texte(nblang,nbmess)
92 c 0.5. ==> initialisations
93 c ______________________________________________________________________
99 c 1.1. ==> les messages
103 #ifdef _DEBUG_HOMARD_
104 write (ulsort,texte(langue,1)) 'Entree', nompro
109 > '(''Sauvegardes des branches relatives aux '',a)'
110 texte(1,5) = '(''Option :'',i10)'
112 texte(2,4) = '(''Saving of arrays for '',a)'
113 texte(2,5) = '(''Option :'',i10)'
115 #ifdef _DEBUG_HOMARD_
116 write (ulsort,texte(langue,4)) mess14(langue,3,typenh)
117 write (ulsort,texte(langue,5)) option
120 c 1.2. ==> types d'entites
122 saux02 = suffix(3,typenh)(1:2)
130 if ( option.ne.0 ) then
132 c 2.1. ==> Fille et Etat
134 if ( mod(option,2).eq.0 ) then
136 call gmcpoj ( nhenti//'.Fille',
137 > nosvmn//'.Fille_'//saux02, codre1 )
138 call gmcpoj ( nhenti//'.HistEtat',
139 > nosvmn//'.HEtat_'//saux02, codre2 )
141 codre0 = min ( codre1, codre2 )
142 codret = max ( abs(codre0), codret,
147 c 2.2. ==> Branche Famille
149 if ( mod(option,3).eq.0 ) then
151 call gmcpoj ( nhenti//'.Famille.EntiFamm',
152 > nosvmn//'.Famil_'//saux02, codre0 )
154 codret = max ( abs(codre0), codret )
158 c 2.5. ==> Branche InfoSup2 (eventuellement)
160 if ( mod(option,5).eq.0 ) then
162 call gmobal ( nhenti//'.InfoSup2', codre1 )
164 if ( codre1.eq.0 ) then
166 elseif ( codre1.eq.2 ) then
167 call gmcpoj ( nhenti//'.InfoSup2',
168 > nosvmn//'.Insu2_'//saux02, codre0 )
173 codret = max ( abs(codre0), codret )
183 if ( codret.ne.0 ) then
187 write (ulsort,texte(langue,1)) 'Sortie', nompro
188 write (ulsort,texte(langue,2)) codret
189 write(ulsort,texte(langue,4)) mess14(langue,3,typenh)
190 call gmprsx (nompro,nhenti)
191 call gmprsx (nompro,nosvmn)
195 #ifdef _DEBUG_HOMARD_
196 write (ulsort,texte(langue,1)) 'Sortie', nompro