38 parameter(mdim=2,maa=
"maa1",nnoe=4,sdim=2)
42 character*16 nomcoo(mdim), unicoo(mdim)
46 character*16 nomnoe(nnoe)
47 integer numnoe(nnoe), nufano(nnoe)
51 data coo /0.0, 0.0, 1.0, 0.0, 0.0, 1.0, 1.0, 1.0/
52 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
53 data nomnoe /
"nom1",
"nom2",
"nom3",
"nom4"/
54 data numnoe /1,2,3,4/,nufano /0,1,2,2/
57 call mfiope(fid,
'test14.med',med_acc_rdwr, cret)
59 if (cret .ne. 0 )
then
60 print *,
'Erreur creation du fichier'
65 call mmhcre(fid,maa,mdim,sdim,med_unstructured_mesh,
66 &
'un maillage pour test14',
"",med_sort_dtit,
67 & med_cartesian,nomcoo,unicoo,cret)
69 if (cret .ne. 0 )
then
70 print *,
'Erreur creation du maillage'
80 call mmhnow(fid,maa,med_no_dt,med_no_it,dt,med_full_interlace,
81 & nnoe,coo,med_true,nomnoe,med_true,numnoe,
82 & med_true,nufano,cret)
84 if (cret .ne. 0 )
then
85 print *,
'Erreur ecriture des noeuds'
92 if (cret .ne. 0 )
then
93 print *,
'Erreur fermeture du fichier'