34 integer nmaa, mdim , nnoe,
type, ind,sdim
36 character*16 nomcoo(2)
37 character*16 unicoo(2)
38 character(16) :: dtunit
40 integer nstep, stype, atype,chgt,tsf
42 parameter(mdim = 2, maa =
"maa1",sdim=2)
44 data coo /0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0/
45 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
49 call mfiope(fid,
'test31.med',med_acc_rdwr, cret)
51 if (cret .ne. 0 )
then
52 print *,
'Erreur ouverture du fichier test31.med'
59 call mmhcre(fid,maa,mdim,sdim,
60 & med_unstructured_mesh,
61 &
'un premier maillage pour test4',
62 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
64 if (cret .ne. 0 )
then
65 print *,
'Erreur creation du maillage'
71 call mmhcow(fid,maa,med_no_dt,med_no_it,dt,
72 & med_full_interlace,nnoe,coo,cret)
74 if (cret .ne. 0 )
then
75 print *,
'Erreur ecriture des coordonnees des noeuds'
79 print
'(A,I1,A,A4,A,I1,A,I4)',
'maillage '
80 & ,ind,
' de nom ',maa,
' et de dimension ',mdim,
81 &
' comportant le nombre de noeud ',nnoe
85 if (nnoe.gt.100) nnoe=100
92 call mmhgnw(fid,maa,med_no_dt,med_no_it,med_node,med_none,
95 if (cret .ne. 0 )
then
96 print *,
'Erreur ecriture numerotation globale '
102 if (cret .ne. 0 )
then
103 print *,
'Erreur fermeture du fichier'