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)
Cette routine permet la création d'une famille portant sur les entités d'un maillage.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
Cette routine permet de créer un maillage dans un fichier.