MED fichier: Fichier source de test10f.f

MED fichier

test10f.f
Aller à la documentation de ce fichier.
1 C* This file is part of MED.
2 C*
3 C* COPYRIGHT (C) 1999 - 2023 EDF R&D, CEA/DEN
4 C* MED is free software: you can redistribute it and/or modify
5 C* it under the terms of the GNU Lesser General Public License as published by
6 C* the Free Software Foundation, either version 3 of the License, or
7 C* (at your option) any later version.
8 C*
9 C* MED is distributed in the hope that it will be useful,
10 C* but WITHOUT ANY WARRANTY; without even the implied warranty of
11 C* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 C* GNU Lesser General Public License for more details.
13 C*
14 C* You should have received a copy of the GNU Lesser General Public License
15 C* along with MED. If not, see <http://www.gnu.org/licenses/>.
16 C*
17
18 C ******************************************************************************
19 C * - Nom du fichier : test10.f
20 C *
21 C * - Description : ecriture de champs de resultats MED
22 C *
23 C ******************************************************************************
24 program test10
25 C
26 implicit none
27 include 'med.hf'
28 C
29 integer*8 fid
30 integer ret,user_interlace,user_mode
31 integer ftypecha
32 real*8 a,b,p1,p2,dt
33
34 character*64 maa1,maa2,maa3
35 character*13 lien_maa2
36 character*16 nomcoo(3)
37 character*16 unicoo(3)
38 C CHAMP N°1
39 character*64 nomcha1
40 character*16 comp1(2), unit1(2)
41 character*16 dtunit1, nounit
42 integer ncomp1
43 C MODEL N°1 DE LOC. DES PTS DE GAUSS PR CHAMP1
44 integer ngauss1_1
45 character*64 gauss1_1
46 real*8 refcoo1(12), gscoo1_1(12), wg1_1(6)
47 integer nval1_1, nent1_1
48 real*8 valr1_1(1*6*2)
49 C MODEL N°2 DE LOC. DES PTS DE GAUSS PR CHAMP1
50 integer ngauss1_2
51 character*64 gauss1_2
52 real*8 gscoo1_2(6), wg1_2(3)
53 integer nval1_2, nent1_2
54 real*8 valr1_2(2*3*2)
55 real*8 valr1_2p(2*3)
56 C MODEL N°3 DE LOC. DES PTS DE GAUSS PR CHAMP1
57 integer ngauss1_3,nval1_3, nent1_3
58 real*8 valr1_3(2*3*2)
59 real*8 valr1_3p(2*2)
60
61 C CHAMP N°2
62 character*64 nomcha2
63 character*16 comp2(3), unit2(3)
64 integer ncomp2, nval2
65 integer valr2(5*3), valr2p(3*3)
66
67 C CHAMP N°3
68 character*64 nomcha3
69 character*16 comp3(2), unit3(2)
70 integer ncomp3, nval3, nent3
71 integer valr3(5*4*2), valr3p(3*4*2)
72
73 C PROFILS UTILISES
74 character*64 nomprofil1
75 integer profil1(2) , profil2(3)
76
77 parameter(user_interlace = med_full_interlace)
78 parameter(user_mode = med_compact_stmode )
79 parameter(ftypecha = med_double )
80 parameter( a=0.446948490915965d0, b=0.091576213509771d0 )
81 parameter( p1=0.11169079483905d0, p2=0.0549758718227661d0 )
82 C MAILLAGES
83 parameter( maa1 = "maa1", maa2 = "maa2", maa3 = "maa3" )
84 parameter( lien_maa2= "./testfoo.med" )
85 C CHAMP N°1
86 parameter( nomcha1 = "champ reel" )
87 parameter( ncomp1 = 2 )
88 parameter( dtunit1 = " ")
89 parameter( nounit = " ")
90 C MODEL N°1 DE LOC. DES PTS DE GAUSS PR CHAMP1
91 parameter( gauss1_1 = "Model n1" )
92 parameter( ngauss1_1 = 6 )
93 C MODEL N°2 DE LOC. DES PTS DE GAUSS PR CHAMP1
94 parameter( gauss1_2 = "Model n2" )
95 parameter( ngauss1_2 = 3 )
96 C MODEL N°3 DE LOC. DES PTS DE GAUSS PR CHAMP1
97 parameter( ngauss1_3 = 6 )
98 parameter( nval1_3 = 6 )
99 C CHAMP N°2
100 parameter( nomcha2="champ entier")
101 parameter( ncomp2 = 3, nval2= 5 )
102 C CHAMP N°3
103 parameter( nomcha3="champ entier 3")
104 parameter( ncomp3 = 2, nval3= 5*4 )
105 C PROFILS
106 parameter( nomprofil1 = "PROFIL(champ(1))" )
107
108
109 C CHAMP N°1
110 data comp1 /"comp1", "comp2"/
111 data unit1 /"unit1","unit2"/
112 C MODEL N°1 DE LOC. DES PTS DE GAUSS PR CHAMP1
113 data nval1_1 / 1*6 /
114 data nent1_1 / 1 /
115 data refcoo1 / -1.0,1.0, -1.0,-1.0, 1.0,-1.0, -1.0,0.0,
116 1 0.0,-1.0, 0.0,0.0 /
117 data valr1_1 / 0.0,1.0, 2.0,3.0, 10.0,11.0, 12.0,13.0,
118 1 20.0,21.0, 22.0,23.0/
119 C MODEL N°2 DE LOC. DES PTS DE GAUSS PR CHAMP1
120 data nent1_2 / 2 /
121 data valr1_2 / 0.0,1.0, 2.0,3.0, 10.0,11.0,
122 1 12.0,13.0, 20.0,21.0, 22.0,23.0 /
123 data valr1_2p / 12.0,13.0, 20.0,21.0, 22.0,23.0 /
124 C MODEL N°3 DE LOC. DES PTS DE GAUSS PR CHAMP1
125 data nent1_3 / 6 /
126 data valr1_3 / 0.0,1.0, 2.0,3.0, 10.0,11.0, 12.0,13.0,
127 1 20.0,21.0, 22.0,23.0 /
128 data valr1_3p / 2.0,3.0, 10.0,11.0 /
129 C CHAMP N°2
130 data comp2 /"comp1", "comp2", "comp3"/
131 data unit2 /"unit1","unit2", "unit3"/
132 data valr2 / 0,1,2, 10,11,12, 20,21,22, 30,31,32, 40,41,42 /
133 data valr2p / 0,1,2, 20,21,22, 40,41,42 /
134 C CHAMP N°3
135 data nent3 / 5 /
136 data comp3 /"comp1", "comp2"/
137 data unit3 /"unit1","unit2"/
138 data valr3 / 0,1, 10,11, 20,21, 30,31,
139 1 40,41, 50,51, 60,61, 70,71,
140 1 80,81, 90,91, 100,101, 110,111,
141 1 120,121, 130,131, 140,141, 150,151,
142 1 160,161, 170,171, 180,181, 190,191 /
143 data valr3p / 0,1, 10,11, 20,21, 30,31,
144 1 80,81, 90,91, 100,101, 110,111,
145 1 160,161, 170,171, 180,181, 190,191 /
146
147
148 C PROFILS
149 data profil1 /2,3/
150 data profil2 /1,3,5/
151
152 data nomcoo /"x","y","z"/, unicoo /"cm","cm","cm"/
153
154 ret = 0
155
156 gscoo1_1(1) = 2*b-1
157 gscoo1_1(2) = 1-4*b
158 gscoo1_1(3) = 2*b-1
159 gscoo1_1(4) = 2*b-1
160 gscoo1_1(5) = 1-4*b
161 gscoo1_1(6) = 2*b-1
162 gscoo1_1(7) = 1-4*a
163 gscoo1_1(8) = 2*a-1
164 gscoo1_1(9) = 2*a-1
165 gscoo1_1(10) = 1-4*a
166 gscoo1_1(11) = 2*a-1
167 gscoo1_1(12) = 2*a-1
168
169 wg1_1(1) = 4*p2
170 wg1_1(2) = 4*p2
171 wg1_1(3) = 4*p2
172 wg1_1(4) = 4*p1
173 wg1_1(5) = 4*p1
174 wg1_1(6) = 4*p1
175
176 nval1_2 = 2*3
177 gscoo1_2(1) = -2.0d0/3
178 gscoo1_2(2) = 1.0d0/3
179 gscoo1_2(3) = -2.0d0/3
180 gscoo1_2(4) = -2.0d0/3
181 gscoo1_2(5) = 1.0d0/3
182 gscoo1_2(6) = -2.0d0/3
183
184 wg1_2(1) = 2.0d0/3
185 wg1_2(2) = 2.0d0/3
186 wg1_2(3) = 2.0d0/3
187
188 C ** ouverture du fichier **
189 call mfivop(fid,'test10f.med', med_acc_rdwr,
190 & med_major_num, med_minor_num, med_release_num, ret)
191 print *,ret
192 if (ret .ne. 0 ) then
193 print *,'Erreur à l''ouverture du fichier : ','test10.med'
194 call efexit(-1)
195 endif
196
197 C ** creation du maillage maa1 de dimension 3 **
198 call mmhcre(fid,maa1,3,3,
199 & med_unstructured_mesh,'Maillage vide',
200 & "",med_sort_dtit,med_cartesian,nomcoo,unicoo,ret)
201 print *,ret
202 if (ret .ne. 0 ) then
203 print *,'Erreur à la création du maillage : ', maa1
204 call efexit(-1)
205 endif
206
207 C ** creation du maillage maa3 de dimension 3 **
208 call mmhcre(fid,maa3,3,3,
209 & med_unstructured_mesh,'Maillage vide',
210 & "",med_sort_dtit,med_cartesian,nomcoo,unicoo,ret)
211 print *,ret
212 if (ret .ne. 0 ) then
213 print *,'Erreur à la création du maillage : ', maa3
214 call efexit(-1)
215 endif
216
217
218 C ** creation du champ réel n°1 **
219 call mfdcre(fid,nomcha1,ftypecha,ncomp1,comp1,unit1,
220 & dtunit1,maa1,ret)
221 print *,ret
222 if (ret .ne. 0 ) then
223 print *,'Erreur à la création du champ : ', nomcha1
224 call efexit(-1)
225 endif
226
227 C ** creation du champ entier n°2 **
228 call mfdcre(fid,nomcha2,med_int,ncomp2,comp2,unit2,
229 & dtunit1,maa1,ret)
230 print *,ret
231 if (ret .ne. 0 ) then
232 print *,'Erreur à la création du champ : ', nomcha2
233 call efexit(-1)
234 endif
235
236 C ** creation du lien au fichier distant contenant maa2 **
237 call mlnliw(fid,maa2,lien_maa2,ret)
238 print *,ret
239 if (ret .ne. 0 ) then
240 print *,'Erreur à la création du lien : ', lien_maa2
241 call efexit(-1)
242 endif
243
244
245 C ** creation de la localisation des points de Gauss modèle n°1 **
246 call mlclow(fid,gauss1_1,med_tria6,2,refcoo1,user_interlace,
247 & ngauss1_1,gscoo1_1, wg1_1,med_no_interpolation,
248 & med_no_mesh_support, ret)
249 print *,ret
250 if (ret .ne. 0 ) then
251 print *,'Erreur à la création du modèle n°1 : ', gauss1_1
252 call efexit(-1)
253 endif
254
255 C ** creation de la localisation des points de Gauss modèle n°2 **
256 call mlclow(fid,gauss1_2,med_tria6,2,refcoo1,user_interlace,
257 & ngauss1_2,gscoo1_2, wg1_2,med_no_interpolation,
258 & med_no_mesh_support, ret)
259 print *,ret
260 if (ret .ne. 0 ) then
261 print *,'Erreur à la création du modèle n°2 : ', gauss1_2
262 call efexit(-1)
263 endif
264
265
266 C ** Ecriture du champ n°1
267 C ** - enregistre uniquement la composante n°2 de valr1_1
268 C ** - pas de pas de temps, ni de numero d'ordre
269 dt = 0.0
270 call mfdrpw(fid,nomcha1,med_no_dt,med_no_it,dt,med_cell,
271 & med_tria6,user_mode,med_allentities_profile,
272 & gauss1_1,user_interlace,2,nent1_1,valr1_1,ret)
273 print *,ret
274 if (ret .ne. 0 ) then
275 print *,'Erreur à l''écriture du champ : ', nomcha1,'et.1'
276 call efexit(-1)
277 endif
278
279 C ** Nouvelle Ecriture du champ reel en mode remplacement
280 C ** - complete le champ precedent en enregistrant les composantes 1
281 C ** - pas de pas de temps, ni de numero d'ordre
282 call mfdrpw(fid,nomcha1,med_no_dt,med_no_it,dt,med_cell,
283 & med_tria6,user_mode,med_allentities_profile,
284 & gauss1_1,user_interlace,1,nent1_1,valr1_1,ret)
285 print *,ret
286 if (ret .ne. 0 ) then
287 print *,'Erreur à l''écriture du champ : ', nomcha1,'et.2'
288 call efexit(-1)
289 endif
290
291 C ** Ecriture sur le champ reel
292 C ** - De la 1ere composante du tableau valr1_2
293 C ** - Avec un pas de temps égal a 5.5
294 C ** - Pas de numero d'ordre
295 C ** - maa2 est distant
296 dt = 5.5
297 call mfdrpw(fid,nomcha1,1,med_no_it,dt,med_cell,med_tria6,
298 & user_mode,med_allentities_profile,gauss1_2,
299 & user_interlace,1,nent1_2,valr1_2,ret)
300 print *,ret
301 if (ret .ne. 0 ) then
302 print *,'Erreur à l''écriture du champ : ', nomcha1,'et.3'
303 call efexit(-1)
304 endif
305
306 C ** Ecriture sur le champ reel
307 C ** - De la 2ere composante du tableau valr1_2
308 C ** - Avec un pas de temps égal a 5.5
309 C ** - Pas de numero d'ordre
310 C ** - maa1 est local
311 call mfdrpw(fid,nomcha1,1,med_no_it,dt,med_cell,med_tria6,
312 & user_mode,med_allentities_profile,gauss1_2,
313 & user_interlace,2,nent1_2,valr1_2,ret)
314 print *,ret
315 if (ret .ne. 0 ) then
316 print *,'Erreur à l''écriture du champ : ', nomcha1,'et.4'
317 call efexit(-1)
318 endif
319
320
321 C ** Ecriture sur le champ reel
322 C ** - De la 1ere composante du tableau valr1_1
323 C ** - Avec un pas de temps égal a 5.5
324 C ** - Numero d'ordre egal a 2
325 call mfdrpw(fid,nomcha1,1,2,dt,med_cell,med_tria6,
326 & user_mode,med_allentities_profile,gauss1_1,
327 & user_interlace,1,nent1_1,valr1_1,ret)
328 print *,ret
329 if (ret .ne. 0 ) then
330 print *,'Erreur à l''écriture du champ : ', nomcha1,'et.5'
331 call efexit(-1)
332 endif
333
334 C ** Creation de profil
335 C ** - qui selectionne uniquement le 2e element du tableau valr1
336 call mpfprw(fid,nomprofil1,1,profil1,ret)
337 print *,ret
338 if (ret .ne. 0 ) then
339 print *,'Erreur à la création du profil : ', nomprofil1
340 call efexit(-1)
341 endif
342
343
344 C ** Ecriture du champ reel
345 C ** - Toutes les composantes du 2e element de valr1_1 (MED_ALL)
346 C ** - Extrait a partir du profil de nom "profil1(1)"
347 C ** - Pas de temps = 5.6
348 C ** - Numero d'ordre = 2
349 dt = 5.6
350 call mfdrpw(fid,nomcha1,2,2,dt,med_cell,med_tria6,
351 & user_mode, nomprofil1, med_no_localization,
352 & user_interlace,med_all_constituent,
353 & nval1_3,valr1_3p,ret)
354 print *,ret
355 if (ret .ne. 0 ) then
356 print *,'Erreur à l''écriture du champ : ', nomcha1,'et.6'
357 call efexit(-1)
358 endif
359
360 C ** Ecriture du champ reel
361 C ** - Toutes les composantes du 2e element de valr1_2p (MED_ALL)
362 C ** - Extrait a partir du profil de nom "profil1(1)"
363 C ** - Pas de temps = 5.6
364 C ** - Numero d'ordre = 2
365 call mfdrpw(fid,nomcha1,2,2,dt,med_cell,med_tria6,
366 & user_mode, nomprofil1, gauss1_2,
367 & user_interlace,med_all_constituent,
368 & nent1_2,valr1_2p,ret)
369 print *,ret
370 if (ret .ne. 0 ) then
371 print *,'Erreur à l''écriture du champ : ', nomcha1,'et.7'
372 call efexit(-1)
373 endif
374
375
376 C ** Ecriture du champ reel
377 C ** - 2e composante du 2e element du champ
378 C ** - Extrait a partir du profil de nom "profil1(1)"
379 C ** - Pas de temps = 5.7
380 C ** - Numero d'ordre = 2
381 dt = 5.7
382 call mfdrpw(fid,nomcha1,3,2,dt,med_cell,med_tria6,
383 & user_mode, nomprofil1, med_no_localization,
384 & user_interlace,2,
385 & nent1_3,valr1_3p,ret)
386 print *,ret
387 if (ret .ne. 0 ) then
388 print *,'Erreur à l''écriture du champ : ', nomcha1,'et.8a'
389 call efexit(-1)
390 endif
391
392 C ** Ecriture du champ reel
393 C ** - 1e composante du 2e element du champ
394 C ** - Extrait a partir du profil de nom "profil1(1)"
395 C ** - Pas de temps = 5.7
396 C ** - Numero d'ordre = 2
397 dt = 5.7
398 call mfdrpw(fid,nomcha1,3,2,dt,med_cell,med_tria6,
399 & user_mode, nomprofil1, med_no_localization,
400 & user_interlace,1,
401 & nent1_3,valr1_3p,ret)
402 print *,ret
403 if (ret .ne. 0 ) then
404 print *,'Erreur à l''écriture du champ : ', nomcha1,'et.8b'
405 call efexit(-1)
406 endif
407
408
409 C ** Ecriture du champ entier n°2
410 C ** - 1ere composante des éléments de valr2
411 C ** - pas de pas de temps, ni de numero d'ordre
412 dt = 0.0
413 call mfdivw(fid,nomcha2,med_no_dt,med_no_it,dt,
414 & med_descending_edge,med_seg2,user_interlace,
415 & 1,nval2,valr2,ret)
416 print *,ret
417 if (ret .ne. 0 ) then
418 print *,'Erreur à l''écriture du champ : ', nomcha2,'et.1'
419 call efexit(-1)
420 endif
421
422 C ** Ecriture du champ entier n°2
423 C ** - 2ere composante des éléments de valr2
424 C ** - pas de pas de temps, ni de numero d'ordre
425 C ** - pour des raisons de complétude des tests on change
426 C ** le type d'élément (aucun sens phys.))
427 call mfdivw(fid,nomcha2,med_no_dt,med_no_it,dt,
428 & med_node,med_none,user_interlace,
429 & 2,nval2,valr2,ret)
430 print *,ret
431 if (ret .ne. 0 ) then
432 print *,'Erreur à l''écriture du champ : ', nomcha2,'et.2'
433 call efexit(-1)
434 endif
435
436
437 C ** Ecriture du champ entier n°2
438 C ** - 3ere composante des éléments de valr2
439 C ** - pas de pas de temps, ni de numero d'ordre
440 C ** - pour des raisons de complétude des tests on change
441 C ** le type d'élément (aucun sens phys.))
442 call mfdivw(fid,nomcha2,med_no_dt,med_no_it,dt,
443 & med_descending_face,med_tria6,user_interlace,
444 & 3,nval2,valr2,ret)
445 print *,ret
446 if (ret .ne. 0 ) then
447 print *,'Erreur à l''écriture du champ : ', nomcha2,'et.3'
448 call efexit(-1)
449 endif
450
451 C ** Creation de profil
452 C ** - selectionne les elements 1,3,5 du tableau valr2
453 call mpfprw(fid,"PROFIL(champ2)",3,profil2,ret)
454 print *,ret
455 if (ret .ne. 0 ) then
456 print *,'Erreur à l''écriture du profil : ',
457 1 'profil2(champ2)'
458 call efexit(-1)
459 endif
460
461
462 C ** Ecriture du champ entier n°2
463 C ** - 3eme composante des éléments de valr2
464 C ** - pas de pas de temps, ni de numero d'ordre
465 C ** - profils
466 C ** - pour des raisons de complétude des tests on change
467 C ** le type d'élément (aucun sens phys.))
468 call mfdipw(fid,nomcha2,med_no_dt,med_no_it,dt,
469 & med_cell,med_tria6,user_mode,"PROFIL(champ2)",
470 & med_no_localization,user_interlace,3,
471 & nval2,valr2p,ret)
472 print *,ret
473 if (ret .ne. 0 ) then
474 print *,'Erreur à l''écriture du profil : ',
475 1 'profil2(champ2)'
476 call efexit(-1)
477 endif
478
479 C ** creation du champ entier n°3 **
480 call mfdcre(fid,nomcha3,med_int,ncomp3,comp3,unit3,
481 & dtunit1,maa1,ret)
482 print *,ret
483 if (ret .ne. 0 ) then
484 print *,'Erreur à la création du champ : ', nomcha3
485 call efexit(-1)
486 endif
487
488 C ** Ecriture du champ entier n°3
489 C ** - 1ere composante des éléments de valr3
490 C ** - pas de pas de temps, ni de numero d'ordre
491 C ** - pour des raisons de complétude des tests on change
492 C ** le type d'élément (aucun sens phys.))
493 call mfdivw(fid,nomcha3,med_no_dt,med_no_it,dt,
494 & med_cell,med_quad4,user_interlace,
495 & 1,nval3,valr3,ret)
496 print *,ret
497 if (ret .ne. 0 ) then
498 print *,'Erreur à l''écriture du champ : ', nomcha3,'et.1'
499 call efexit(-1)
500 endif
501
502 C ** Ecriture du champ entier n°3
503 C ** - les composantes des éléments de valr3
504 C ** - pas de pas de temps, ni de numero d'ordre
505 C ** - pour des raisons de complétude des tests on change
506 C ** le type d'élément (aucun sens phys.))
507 call mfdivw(fid,nomcha3,med_no_dt,med_no_it,dt,
508 & med_node_element,med_quad4,user_interlace,
509 & med_all_constituent,nent3,valr3,ret)
510 print *,ret
511 if (ret .ne. 0 ) then
512 print *,'Erreur à l''écriture du champ : ', nomcha3,'et.2'
513 call efexit(-1)
514 endif
515
516 C ** Ecriture du champ entier n°3
517 C ** - les composantes des éléments de valr3
518 C ** - pas de pas de temps, ni de numero d'ordre
519 C ** - profils
520 C ** - pour des raisons de complétude des tests on change
521 C ** le type d'élément (aucun sens phys.))
522 c call efchae(fid,maa3,nomcha3,valr3p,USER_INTERLACE,nval3,
523 c 1 MED_NOGAUSS,MED_ALL,"PROFIL(champ2)",USER_MODE,
524 c 1 MED_NOEUD_MAILLE,
525 c 1 MED_QUAD4,MED_NOPDT,nounit,dt,MED_NONOR,ret)
526 call mfdipw(fid,nomcha3,med_no_dt,med_no_it,dt,
527 & med_node_element,med_quad4,user_mode,
528 & "PROFIL(champ2)",med_no_localization,
529 & user_interlace,med_all_constituent,
530 & nent3,valr3p,ret)
531 print *,ret
532 if (ret .ne. 0 ) then
533 print *,'Erreur à l''écriture du profil : ',
534 1 'profil2(champ2)'
535 call efexit(-1)
536 endif
537
538 C ** Fermeture du fichier *
539 call mficlo(fid,ret)
540 if (ret .ne. 0 ) then
541 print *,'Erreur à la fermeture du fichier : '
542 ret = -1
543 endif
544
545 print *,"Le code retour : ",ret
546 call efexit(ret)
547
548 end
549
550
551
mlnliw
subroutine mlnliw(fid, mname, lname, cret)
Cette routine permet d'écrire un lien dans un fichier MED.
Definition: medlink.f:21
med_double
double med_double
Definition: med.h:340
mfdipw
subroutine mfdipw(fid, fname, numdt, numit, dt, etype, gtype, stm, pname, lname, swm, cs, n, val, cret)
Cette fonction permet d'écrire les valeurs d'un champ définies sur des entités d'un maillage pour une...
Definition: medfield.f:111
mpfprw
subroutine mpfprw(fid, pname, psize, profil, cret)
Cette routine permet d'écrire un profil dans un fichier MED.
Definition: medprofile.f:21
mmhcre
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
Cette routine permet de créer un maillage dans un fichier.
Definition: medmesh.f:20
med_int
int med_int
Definition: med.h:344
test10
program test10
Definition: test10.f:24
mfdivw
subroutine mfdivw(fid, fname, numdt, numit, dt, etype, gtype, swm, cs, n, val, cret)
Cette fonction permet d'écrire les valeurs d'un champ définies sur des entités d'un maillage pour une...
Definition: medfield.f:63
mficlo
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
Definition: medfile.f:82
mfivop
subroutine mfivop(fid, name, access, major, minor, rel, cret)
Ouverture d'un fichier MED en indiquant la version du modèle à utiliser en cas de création d'un nouve...
Definition: medfile.f:20
ftypecha
#define ftypecha
Definition: 4.0.1/test10.c:56
mfdcre
subroutine mfdcre(fid, fname, ftype, ncomp, cname, cunit, dtunit, mname, cret)
Cette fonction crée un champ dans un fichier.
Definition: medfield.f:22
mlclow
subroutine mlclow(fid, lname, gtype, sdim, ecoo, swm, nip, ipcoo, wght, giname, isname, cret)
Cette routine permet l'écriture d'une localisation localizationname de points d'intégration dans/auto...
Definition: medlocalization.f:22
mfdrpw
subroutine mfdrpw(fid, fname, numdt, numit, dt, etype, gtype, stm, pname, lname, swm, cs, n, val, cret)
Cette fonction permet d'écrire les valeurs d'un champ définies sur des entités d'un maillage pour une...
Definition: medfield.f:87