40 character*16 nomcoo(2)
41 character*16 unicoo(2)
43 parameter( mdim = 2, nfamn = 2 , sdim = 2)
45 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
48 call mfiope(fid,
'test8.med',med_acc_rdwr, cret)
50 if (cret .ne. 0 )
then
51 print *,
'Erreur creation du fichier'
56 call mmhcre(fid,maa,mdim,sdim,med_unstructured_mesh,
57 &
'un maillage pour test8',
"",med_sort_dtit,
58 & med_cartesian,nomcoo,unicoo,cret)
60 if (cret .ne. 0 )
then
61 print *,
'Erreur creation du maillage'
79 call mfacre(fid,maa,nomfam,numfam,ngro,gro,cret)
81 if (cret .ne. 0 )
then
82 print *,
'Erreur creation de la famille 0'
89 write(str,
'(I1.0)') (-numfam)
90 nomfam =
"FAMILLE_ELEMENT_"//str
93 call mfacre(fid,maa,nomfam,numfam,ngro,gro,cret)
95 if (cret .ne. 0 )
then
96 print *,
'Erreur creation de famille'
102 write(str,
'(I1.0)') numfam
103 nomfam =
"FAMILLE_NOEUD_"//str
106 call mfacre(fid,maa,nomfam,numfam,ngro,gro,cret)
108 if (cret .ne. 0 )
then
109 print *,
'Erreur creation de famille'
118 if (cret .ne. 0 )
then
119 print *,
'Erreur fermeture du fichier'