44 character*16 nomcoo(2)
45 character*16 unicoo(2)
49 character*16 nomnoe(4)
54 parameter(mdim = 2, maa =
"maa1",nnoe = 4, sdim=2)
56 data coo /0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0/
57 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
58 data nomnoe /
"nom1",
"nom2",
"nom3",
"nom4"/
59 data numnoe /1,2,3,4/, nufano /0,1,2,2/
62 call mfiope(fid,
'test4.med',med_acc_rdwr, cret)
64 if (cret .ne. 0 )
then 65 print *,
'Erreur creation du fichier' 71 call mmhcre(fid,maa,mdim,sdim,
72 & med_unstructured_mesh,
'un premier maillage pour test4',
73 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
75 if (cret .ne. 0 )
then 76 print *,
'Erreur creation du maillage' 82 call mmhcow(fid,maa,med_no_dt,med_no_it,dt,
83 & med_full_interlace,nnoe,coo,cret)
85 if (cret .ne. 0 )
then 86 print *,
'Erreur ecriture des coordonnees des noeuds' 91 call mmheaw(fid,maa,med_no_dt,med_no_it,med_node,
92 & med_none,nnoe,nomnoe,cret)
94 if (cret .ne. 0 )
then 95 print *,
'Erreur ecriture des noms des noeuds' 100 call mmhenw(fid,maa,med_no_dt,med_no_it,med_node,
101 & med_none,nnoe,numnoe,cret)
103 if (cret .ne. 0 )
then 104 print *,
'Erreur ecriture des numeros des noeuds' 110 call mmhfnw(fid,maa,med_no_dt,med_no_it,med_node,
111 & med_none,nnoe,nufano,cret)
113 if (cret .ne. 0 )
then 114 print *,
'Erreur ecriture des numeros de famille' 121 if (cret .ne. 0 )
then 122 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 mmheaw(fid, mname, numdt, numit, entype, geotype, n, ename, cret)
subroutine mmhfnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhenw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)