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'