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 mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine mfacre(fid, name, fname, fnum, ngro, gname, cret)