MED fichier
f/test10f.f
1 C* This file is part of MED.
2 C*
3 C* COPYRIGHT (C) 1999 - 2020 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 
mfdipw
subroutine mfdipw(fid, fname, numdt, numit, dt, etype, gtype, stm, pname, lname, swm, cs, n, val, cret)
Definition: medfield.f:111
mficlo
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
Definition: medfile.f:82
med_double
double med_double
Definition: med.h:338
mfdivw
subroutine mfdivw(fid, fname, numdt, numit, dt, etype, gtype, swm, cs, n, val, cret)
Definition: medfield.f:63
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:342
mlnliw
subroutine mlnliw(fid, mname, lname, cret)
Cette routine permet d'écrire un lien dans un fichier MED.
Definition: medlink.f:21
test10
program test10
Definition: test10.f:24
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
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
mpfprw
subroutine mpfprw(fid, pname, psize, profil, cret)
Definition: medprofile.f:21
mfdrpw
subroutine mfdrpw(fid, fname, numdt, numit, dt, etype, gtype, stm, pname, lname, swm, cs, n, val, cret)
Definition: medfield.f:87
mlclow
subroutine mlclow(fid, lname, gtype, sdim, ecoo, swm, nip, ipcoo, wght, giname, isname, cret)
Definition: medlocalization.f:22