1 subroutine utcach ( nocham,
3 > nbcomp, nbtvch, typcha,
4 > adnocp, adcaen, adcare, adcaca,
5 > 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 UTilitaire - CAracteristiques d'un CHamp
28 c ______________________________________________________________________
30 c . nom . e/s . taille . description .
31 c .____________________________________________________________________.
32 c . nocham . e . char8 . nom de l'objet champ .
33 c . nomcha . s . char64 . nom du champ .
34 c . nbcomp . s . 1 . nombre de composantes .
35 c . nbtvch . s . 1 . nombre de tableaux du champ .
36 c . typcha . s . 1 . edin64/edfl64 selon entier/reel .
37 c . adnocp . s . 1 . adresse des noms des champ et composantes .
38 c . adcaen . s . 1 . adresse des caracteristiques entieres .
39 c . adcare . s . 1 . adresse des caracteristiques reelles .
40 c . adcaca . s . 1 . adresse des caracteristiques caracteres .
41 c . ulsort . e . 1 . numero d'unite logique de la liste standard.
42 c . langue . e . 1 . langue des messages .
43 c . . . . 1 : francais, 2 : anglais .
44 c . codret . es . 1 . code de retour des modules .
45 c . . . . 0 : pas de probleme .
46 c . . . . 1 : probleme .
47 c ______________________________________________________________________
50 c 0. declarations et dimensionnement
53 c 0.1. ==> generalites
59 parameter ( nompro = 'UTCACH' )
74 integer nbcomp, nbtvch, typcha
75 integer adnocp, adcaen, adcare, adcaca
77 integer ulsort, langue, codret
79 c 0.4. ==> variables locales
82 integer codre1, codre2, codre3, codre4, codre5
83 integer codre6, codre7
87 parameter ( nbmess = 10 )
88 character*80 texte(nblang,nbmess)
90 c 0.5. ==> initialisations
91 c ______________________________________________________________________
101 #ifdef _DEBUG_HOMARD_
102 write (ulsort,texte(langue,1)) 'Entree', nompro
106 texte(1,4) = '(''Nom du champ : '',a32)'
108 >'(''. Composante '',i2,'' : '',a16,''(unite : '',a16,'')'')'
110 texte(2,4) = '(''Name of the field : '',a32)'
112 >'(''. Component '',i2,'' : '',a8,''(unit : '',a8,'')'')'
114 #ifdef _DEBUG_HOMARD_
115 call gmprsx (nompro, nocham )
116 call gmprsx (nompro, nocham//'.Nom_Comp' )
117 call gmprsx (nompro, nocham//'.Cham_Ent' )
118 call gmprsx (nompro, nocham//'.Cham_Ree' )
119 call gmprsx (nompro, nocham//'.Cham_Car' )
123 c 2. caracteristiques de l'objet contenant le champ
126 if ( codret.eq.0 ) then
128 call gmliat ( nocham, 1, nbcomp, codre1 )
129 call gmliat ( nocham, 2, nbtvch, codre2 )
130 call gmliat ( nocham, 3, typcha, codre3 )
131 call gmadoj ( nocham//'.Nom_Comp', adnocp, iaux, codre4 )
132 call gmadoj ( nocham//'.Cham_Ent', adcaen, iaux, codre5 )
133 call gmadoj ( nocham//'.Cham_Ree', adcare, iaux, codre6 )
134 call gmadoj ( nocham//'.Cham_Car', adcaca, iaux, codre7 )
136 codre0 = min ( codre1, codre2, codre3, codre4, codre5,
138 codret = max ( abs(codre0), codret,
139 > codre1, codre2, codre3, codre4, codre5,
148 if ( codret.eq.0 ) then
151 call uts8ch ( smem(adnocp), iaux, nomcha,
152 > ulsort, langue, codret )
156 #ifdef _DEBUG_HOMARD_
157 write (ulsort,texte(langue,4)) nomcha
158 do 31 , iaux = 1 , nbcomp
159 write (ulsort,texte(langue,5)) iaux,
160 > smem(adnocp+3+iaux)//smem(adnocp+4+iaux),
161 > smem(adnocp+2*nbcomp+3+iaux)//smem(adnocp+2*nbcomp+4+iaux)
169 if ( codret.ne.0 ) then
173 write (ulsort,texte(langue,1)) 'Sortie', nompro
174 write (ulsort,texte(langue,2)) codret
178 #ifdef _DEBUG_HOMARD_
179 write (ulsort,texte(langue,1)) 'Sortie', nompro