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'
subroutine mmhnow(fid, name, numdt, numit, dt, swm, n, coo, iname, nname, inum, num, ifam, fam, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
subroutine mficlo(fid, cret)