44 character*16 nomcoo(2)
45 character*16 unicoo(2)
49 character*16 nomnoe(4)
54 parameter(mdim = 2, maa =
"maa1",nnoe = 4, sdim=2)
56 data coo /0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0/
57 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
58 data nomnoe /
"nom1",
"nom2",
"nom3",
"nom4"/
59 data numnoe /1,2,3,4/, nufano /0,1,2,2/
62 call mfiope(fid,
'test4.med',med_acc_rdwr, cret)
64 if (cret .ne. 0 )
then
65 print *,
'Erreur creation du fichier'
71 call mmhcre(fid,maa,mdim,sdim,
72 & med_unstructured_mesh,
'un premier maillage pour test4',
73 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
75 if (cret .ne. 0 )
then
76 print *,
'Erreur creation du maillage'
82 call mmhcow(fid,maa,med_no_dt,med_no_it,dt,
83 & med_full_interlace,nnoe,coo,cret)
85 if (cret .ne. 0 )
then
86 print *,
'Erreur ecriture des coordonnees des noeuds'
91 call mmheaw(fid,maa,med_no_dt,med_no_it,med_node,
92 & med_none,nnoe,nomnoe,cret)
94 if (cret .ne. 0 )
then
95 print *,
'Erreur ecriture des noms des noeuds'
100 call mmhenw(fid,maa,med_no_dt,med_no_it,med_node,
101 & med_none,nnoe,numnoe,cret)
103 if (cret .ne. 0 )
then
104 print *,
'Erreur ecriture des numeros des noeuds'
110 call mmhfnw(fid,maa,med_no_dt,med_no_it,med_node,
111 & med_none,nnoe,nufano,cret)
113 if (cret .ne. 0 )
then
114 print *,
'Erreur ecriture des numeros de famille'
121 if (cret .ne. 0 )
then
122 print *,
'Erreur fermeture du fichier'
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
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.
subroutine mmheaw(fid, mname, numdt, numit, entype, geotype, n, ename, cret)
Cette routine permet d'écrire les noms d'un type d'entité d'un maillage.
subroutine mmhfnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhenw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)