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'