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'
subroutine mfacre(fid, name, fname, fnum, ngro, gname, 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)