39 parameter(mdim=2,maa=
"maa1",nnoe=4,sdim=2)
43 character*16 nomcoo(mdim), unicoo(mdim)
47 character*16 nomnoe(nnoe)
48 integer numnoe(nnoe), nufano(nnoe)
52 data coo /0.0, 0.0, 1.0, 0.0, 0.0, 1.0, 1.0, 1.0/
53 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
54 data nomnoe /
"nom1",
"nom2",
"nom3",
"nom4"/
55 data numnoe /1,2,3,4/,nufano /0,1,2,2/
58 call mfiope(fid,
'test14.med',med_acc_rdwr, cret)
60 if (cret .ne. 0 )
then
61 print *,
'Erreur creation du fichier'
66 call mmhcre(fid,maa,mdim,sdim,med_unstructured_mesh,
67 &
'un maillage pour test14',
"",med_sort_dtit,
68 & med_cartesian,nomcoo,unicoo,cret)
70 if (cret .ne. 0 )
then
71 print *,
'Erreur creation du maillage'
81 call mmhnow(fid,maa,med_no_dt,med_no_it,dt,med_full_interlace,
82 & nnoe,coo,med_true,nomnoe,med_true,numnoe,
83 & med_true,nufano,cret)
85 if (cret .ne. 0 )
then
86 print *,
'Erreur ecriture des noeuds'
93 if (cret .ne. 0 )
then
94 print *,
'Erreur fermeture du fichier'