1 subroutine eslsch ( nochso,
2 > nbseal, adcact, adcaet, adcart,
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 Entree-Sortie - Lecture d'une Solution - les CHamps a lire
26 c ______________________________________________________________________
28 c . nom . e/s . taille . description .
29 c .____________________________________________________________________.
30 c . nochso . e . char8 . nom de l'objet decrivant les chmps a lire .
31 c . . . . si blanc, on lit tous les champs du fichier.
32 c . nbseal . s . 1 . nombre de sequences a lire .
33 c . . . . si = -1, on lit tous les champs du fichier .
34 c . adcact . s . 1 . adresse du champ CarCaChp de nochso .
35 c . adcaet . s . 1 . adresse du champ CarEnChp de nochso .
36 c . . . . 1. type de support au sens MED .
37 c . . . . -1, si on prend tous les supports .
38 c . . . . 2. 1, si numero du pas de temps, 0 sinon .
39 c . . . . 3. numero du pas de temps .
40 c . . . . 4. 1, si numero d'ordre, 0 sinon .
41 c . . . . 5. numero d'ordre .
42 c . . . . 6. 1, si instant, 0 sinon .
43 c . . . . 7. 1, si aux noeuds par elements, 0 sinon, .
44 c . . . . -1, si non precise .
45 c . . . . 8. numero du champ noeuds/element associe .
46 c . . . . 9. numero du champ associe dans HOMARD .
47 c . . . . 10. type d'interpolation .
48 c . . . . 0, si automatique .
49 c . . . . 1 si degre 1, 2 si degre 2, 3 si iso-P2 .
50 c . . . . 11. 1, s'il fait partie du champ en cours .
51 c . . . . d'examen, 0, sinon .
52 c . . . . 12. type de champ edfl64/edin64 .
53 c . adcart . s . 1 . adresse du champ CarReChp de nochso .
54 c . ulsort . e . 1 . numero d'unite logique de la liste standard.
55 c . langue . e . 1 . langue des messages .
56 c . . . . 1 : francais, 2 : anglais .
57 c . codret . es . 1 . code de retour des modules .
58 c . . . . 0 : pas de probleme .
59 c . . . . 1 : probleme .
60 c ______________________________________________________________________
63 c 0. declarations et dimensionnement
66 c 0.1. ==> generalites
72 parameter ( nompro = 'ESLSCH' )
89 integer nbseal, adcact, adcaet, adcart
93 integer ulsort, langue, codret
95 c 0.4. ==> variables locales
98 integer codre1, codre2, codre3, codre4
104 parameter ( nbmess = 150 )
105 character*80 texte(nblang,nbmess)
107 c 0.5. ==> initialisations
108 c ______________________________________________________________________
116 #ifdef _DEBUG_HOMARD_
117 write (ulsort,texte(langue,1)) 'Entree', nompro
123 texte(1,4) = '(/,''Lecture de tous les champs du fichier'')'
125 texte(2,4) = '(/,''Readings of all fields from the file.'')'
130 c 2. tous les champs sont a lire
133 if ( nochso.eq.blan08 ) then
137 #ifdef _DEBUG_HOMARD_
138 write (ulsort,texte(langue,4))
142 c 3. on lit les champs enregistres
147 c 3.1. ==> reperage des informations stockees
149 #ifdef _DEBUG_HOMARD_
150 call gmprsx (nompro, nochso )
151 call gmprsx (nompro, nochso//'.CarCaChp' )
152 call gmprsx (nompro, nochso//'.CarEnChp' )
153 call gmprsx (nompro, nochso//'.CarReChp' )
156 call gmliat ( nochso, 1, nbseal, codre1 )
157 call gmadoj ( nochso//'.CarCaChp', adcact, iaux, codre2 )
158 call gmadoj ( nochso//'.CarEnChp', adcaet, iaux, codre3 )
159 call gmadoj ( nochso//'.CarReChp', adcart, iaux, codre4 )
161 codre0 = min ( codre1, codre2, codre3, codre4 )
162 codret = max ( abs(codre0), codret,
163 > codre1, codre2, codre3, codre4 )
165 c 3.2. ==> impression
168 if ( codret.eq.0 ) then
170 do 32 , iaux = 1 , nbseal
172 if ( codret.eq.0 ) then
175 call uts8ch ( smem(adcact+8*(iaux-1)), jaux, saux64,
176 > ulsort, langue, codret )
180 if ( codret.eq.0 ) then
182 call utlgut ( jaux, saux64, ulsort, langue, codret )
186 if ( codret.eq.0 ) then
188 write (ulsort,texte(langue,32)) saux64(1:jaux)
189 if ( imem(adcaet+12*iaux-11).gt.0 ) then
190 write (ulsort,texte(langue,113)) imem(adcaet+12*iaux-10)
192 if ( imem(adcaet+12*iaux-9).gt.0 ) then
193 write (ulsort,texte(langue,114)) imem(adcaet+12*iaux-8)
195 if ( imem(adcaet+12*iaux-7).gt.0 ) then
196 write (ulsort,texte(langue,115)) rmem(adcart+iaux-1)
212 if ( codret.ne.0 ) then
216 write (ulsort,texte(langue,1)) 'Sortie', nompro
217 write (ulsort,texte(langue,2)) codret
221 #ifdef _DEBUG_HOMARD_
222 write (ulsort,texte(langue,1)) 'Sortie', nompro