35 integer nmaa, mdim , nnoe,
type, ind,sdim
37 character*16 nomcoo(2)
38 character*16 unicoo(2)
39 character(16) :: dtunit
41 integer nstep, stype, atype,chgt,tsf
43 parameter(mdim = 2, maa =
"maa1",sdim=2)
45 data coo /0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0/
46 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
50 call mfiope(fid,
'test31.med',med_acc_rdwr, cret)
52 if (cret .ne. 0 )
then
53 print *,
'Erreur ouverture du fichier test31.med'
60 call mmhcre(fid,maa,mdim,sdim,
61 & med_unstructured_mesh,
62 &
'un premier maillage pour test4',
63 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
65 if (cret .ne. 0 )
then
66 print *,
'Erreur creation du maillage'
72 call mmhcow(fid,maa,med_no_dt,med_no_it,dt,
73 & med_full_interlace,nnoe,coo,cret)
75 if (cret .ne. 0 )
then
76 print *,
'Erreur ecriture des coordonnees des noeuds'
80 print
'(A,I1,A,A4,A,I1,A,I4)',
'maillage '
81 & ,ind,
' de nom ',maa,
' et de dimension ',mdim,
82 &
' comportant le nombre de noeud ',nnoe
86 if (nnoe.gt.100) nnoe=100
93 call mmhgnw(fid,maa,med_no_dt,med_no_it,med_node,med_none,
96 if (cret .ne. 0 )
then
97 print *,
'Erreur ecriture numerotation globale '
103 if (cret .ne. 0 )
then
104 print *,
'Erreur fermeture du fichier'
subroutine mmhgnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, 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)