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'