36 integer natt, attide, attval
42 parameter( mdim = 2, nfamn = 2 )
46 call efouvr(fid,
'test8.med',med_lecture_ecriture, cret)
48 if (cret .ne. 0 )
then
49 print *,
'Erreur creation du fichier'
54 call efmaac(fid,maa,mdim,med_non_structure,
55 &
'un maillage pour test8',cret)
57 if (cret .ne. 0 )
then
58 print *,
'Erreur creation du maillage'
75 call effamc(fid,maa,nomfam,numfam,attide,attval,attdes,
78 if (cret .ne. 0 )
then
79 print *,
'Erreur creation de la famille 0'
86 write(
str,
'(I1.0)') (-numfam)
87 nomfam =
"FAMILLE_ELEMENT_"//
str
91 attdes=
"description attribut"
94 print *, nomfam,
" - ",numfam,
" - ",attide,
" - ",
97 call effamc(fid,maa,nomfam,numfam,attide,attval,attdes,
100 if (cret .ne. 0 )
then
101 print *,
'Erreur creation de famille'
107 write(
str,
'(I1.0)') numfam
108 nomfam =
"FAMILLE_NOEUD_"//
str
112 attdes=
"description attribut"
115 print *, nomfam,
" - ",numfam,
" - ",attide,
" - ",
117 call effamc(fid,maa,nomfam,numfam,attide,attval,attdes,
118 & natt,gro,ngro,cret)
120 if (cret .ne. 0 )
then
121 print *,
'Erreur creation de famille'
128 call efferm (fid,cret)
130 if (cret .ne. 0 )
then
131 print *,
'Erreur fermeture du fichier'