39 character*16 nomcoo(2)
40 character*16 unicoo(2)
42 parameter( mdim = 2, nfamn = 2 , sdim = 2)
44 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
47 call mfiope(fid,
'test8.med',med_acc_rdwr, cret)
49 if (cret .ne. 0 )
then
50 print *,
'Erreur creation du fichier'
55 call mmhcre(fid,maa,mdim,sdim,med_unstructured_mesh,
56 &
'un maillage pour test8',
"",med_sort_dtit,
57 & med_cartesian,nomcoo,unicoo,cret)
59 if (cret .ne. 0 )
then
60 print *,
'Erreur creation du maillage'
78 call mfacre(fid,maa,nomfam,numfam,ngro,gro,cret)
80 if (cret .ne. 0 )
then
81 print *,
'Erreur creation de la famille 0'
88 write(str,
'(I1.0)') (-numfam)
89 nomfam =
"FAMILLE_ELEMENT_"//str
92 call mfacre(fid,maa,nomfam,numfam,ngro,gro,cret)
94 if (cret .ne. 0 )
then
95 print *,
'Erreur creation de famille'
101 write(str,
'(I1.0)') numfam
102 nomfam =
"FAMILLE_NOEUD_"//str
105 call mfacre(fid,maa,nomfam,numfam,ngro,gro,cret)
107 if (cret .ne. 0 )
then
108 print *,
'Erreur creation de famille'
117 if (cret .ne. 0 )
then
118 print *,
'Erreur fermeture du fichier'
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.
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.