34 parameter(maa =
"maillage_test19")
36 parameter(des =
"un maillage pour test19")
58 character*80 nomgro(ngroup)
64 integer indgeo(ngeo+1)
65 character*200 attdes,gro
70 data nomgro /
"GROUPE1",
"GROUPE2",
"GROUPE3" /
71 data ent / 1,2, 3,4,6, 1,4 /
72 data ind / 1, 3, 6, 8 /
73 data geo / med_seg2, med_tria3, med_tetra4 /
74 data indgeo / 1,4,6,7 /
77 call efouvr(fid,
'test19.med',med_lecture_ecriture, cret)
79 if (cret .ne. 0 )
then
80 print *,
'Erreur creation du fichier'
83 print *,
'Creation du fichier test19.med'
86 call efmaac(fid,maa,mdim,med_non_structure,des,cret)
88 if (cret .ne. 0 )
then
89 print *,
'Erreur creation du maillage'
92 print *,
'Creation du maillage'
95 call effamc(fid,maa,
'FAMILLE_0',0,attide,attval,attdes,0,gro,0,
98 if (cret .ne. 0 )
then
99 print *,
'Erreur creation de la famille 0'
102 print *,
'Creation de la famille 0'
105 call efg2fc(fid,maa,nomgro,ind,ngroup,ent,nent,med_noeud,
106 & typgeo,indtmp,0,cret)
108 if (cret .ne. 0 )
then
109 print *,
'Erreur creation des familles de noeud'
112 print *,
'Creation des familles de noeuds dans test19.med'
115 call efg2fc(fid,maa,nomgro,ind,ngroup,ent,nent,med_maille,
116 & geo,indgeo,ngeo,cret)
118 if (cret .ne. 0 )
then
119 print *,
'Erreur creation des familles de maille'
122 print *,
'Creation des familles de mailles dans test19.med'
125 call efferm (fid,cret)
127 if (cret .ne. 0 )
then
128 print *,
'Erreur fermeture du fichier'
131 print *,
'Fermeture du fichier'