43 character*16 nomcoo(2)
44 character*16 unicoo(2)
48 character*16 nomnoe(4)
53 parameter(mdim = 2, maa =
"maa1",nnoe = 4, sdim=2)
55 data coo /0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0/
56 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
57 data nomnoe /
"nom1",
"nom2",
"nom3",
"nom4"/
58 data numnoe /1,2,3,4/, nufano /0,1,2,2/
61 call mfiope(fid,
'test4.med',med_acc_rdwr, cret)
63 if (cret .ne. 0 )
then
64 print *,
'Erreur creation du fichier'
70 call mmhcre(fid,maa,mdim,sdim,
71 & med_unstructured_mesh,
'un premier maillage pour test4',
72 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
74 if (cret .ne. 0 )
then
75 print *,
'Erreur creation du maillage'
81 call mmhcow(fid,maa,med_no_dt,med_no_it,dt,
82 & med_full_interlace,nnoe,coo,cret)
84 if (cret .ne. 0 )
then
85 print *,
'Erreur ecriture des coordonnees des noeuds'
90 call mmheaw(fid,maa,med_no_dt,med_no_it,med_node,
91 & med_none,nnoe,nomnoe,cret)
93 if (cret .ne. 0 )
then
94 print *,
'Erreur ecriture des noms des noeuds'
99 call mmhenw(fid,maa,med_no_dt,med_no_it,med_node,
100 & med_none,nnoe,numnoe,cret)
102 if (cret .ne. 0 )
then
103 print *,
'Erreur ecriture des numeros des noeuds'
109 call mmhfnw(fid,maa,med_no_dt,med_no_it,med_node,
110 & med_none,nnoe,nufano,cret)
112 if (cret .ne. 0 )
then
113 print *,
'Erreur ecriture des numeros de famille'
120 if (cret .ne. 0 )
then
121 print *,
'Erreur fermeture du fichier'