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 mmheaw(fid, mname, numdt, numit, entype, geotype, n, ename, cret)
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mmhenw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhfnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
subroutine mficlo(fid, cret)