MED fichier: Fichier source de test10.f

MED fichier

- Documentation MED
- Guides d'utilisation
- Guides de référence

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