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