35 parameter(maa =
"maillage_test19")
37 parameter(des =
"un maillage pour test19")
59 character*80 nomgro(ngroup)
65 integer indgeo(ngeo+1)
66 character*200 attdes,gro
71 data nomgro /
"GROUPE1",
"GROUPE2",
"GROUPE3" /
72 data ent / 1,2, 3,4,6, 1,4 /
73 data ind / 1, 3, 6, 8 /
74 data geo / med_seg2, med_tria3, med_tetra4 /
75 data indgeo / 1,4,6,7 /
78 call efouvr(fid,
'test19.med',med_lecture_ecriture, cret)
80 if (cret .ne. 0 )
then
81 print *,
'Erreur creation du fichier'
84 print *,
'Creation du fichier test19.med'
87 call efmaac(fid,maa,mdim,med_non_structure,des,cret)
89 if (cret .ne. 0 )
then
90 print *,
'Erreur creation du maillage'
93 print *,
'Creation du maillage'
96 call effamc(fid,maa,
'FAMILLE_0',0,attide,attval,attdes,0,gro,0,
99 if (cret .ne. 0 )
then
100 print *,
'Erreur creation de la famille 0'
103 print *,
'Creation de la famille 0'
106 call efg2fc(fid,maa,nomgro,ind,ngroup,ent,nent,med_noeud,
107 & typgeo,indtmp,0,cret)
109 if (cret .ne. 0 )
then
110 print *,
'Erreur creation des familles de noeud'
113 print *,
'Creation des familles de noeuds dans test19.med'
116 call efg2fc(fid,maa,nomgro,ind,ngroup,ent,nent,med_maille,
117 & geo,indgeo,ngeo,cret)
119 if (cret .ne. 0 )
then
120 print *,
'Erreur creation des familles de maille'
123 print *,
'Creation des familles de mailles dans test19.med'
126 call efferm (fid,cret)
128 if (cret .ne. 0 )
then
129 print *,
'Erreur fermeture du fichier'
132 print *,
'Fermeture du fichier'