37 integer natt, attide, attval
43 parameter( mdim = 2, nfamn = 2 )
47 call efouvr(fid,
'test8.med',med_lecture_ecriture, cret)
49 if (cret .ne. 0 )
then
50 print *,
'Erreur creation du fichier'
55 call efmaac(fid,maa,mdim,med_non_structure,
56 &
'un maillage pour test8',cret)
58 if (cret .ne. 0 )
then
59 print *,
'Erreur creation du maillage'
76 call effamc(fid,maa,nomfam,numfam,attide,attval,attdes,
79 if (cret .ne. 0 )
then
80 print *,
'Erreur creation de la famille 0'
87 write(
str,
'(I1.0)') (-numfam)
88 nomfam =
"FAMILLE_ELEMENT_"//
str
92 attdes=
"description attribut"
95 print *, nomfam,
" - ",numfam,
" - ",attide,
" - ",
98 call effamc(fid,maa,nomfam,numfam,attide,attval,attdes,
101 if (cret .ne. 0 )
then
102 print *,
'Erreur creation de famille'
108 write(
str,
'(I1.0)') numfam
109 nomfam =
"FAMILLE_NOEUD_"//
str
113 attdes=
"description attribut"
116 print *, nomfam,
" - ",numfam,
" - ",attide,
" - ",
118 call effamc(fid,maa,nomfam,numfam,attide,attval,attdes,
119 & natt,gro,ngro,cret)
121 if (cret .ne. 0 )
then
122 print *,
'Erreur creation de famille'
129 call efferm (fid,cret)
131 if (cret .ne. 0 )
then
132 print *,
'Erreur fermeture du fichier'