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