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 mficlo(fid, cret)
subroutine mmhcow(fid, name, numdt, numit, dt, swm, n, coo, cret)
subroutine mmhgnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
subroutine mfiope(fid, name, access, cret)