33 parameter(maa =
"maillage_test19")
35 parameter(des =
"un maillage pour test19")
57 character*80 nomgro(ngroup)
63 integer indgeo(ngeo+1)
64 character*200 attdes,gro
69 data nomgro /
"GROUPE1",
"GROUPE2",
"GROUPE3" /
70 data ent / 1,2, 3,4,6, 1,4 /
71 data ind / 1, 3, 6, 8 /
72 data geo / med_seg2, med_tria3, med_tetra4 /
73 data indgeo / 1,4,6,7 /
76 call efouvr(fid,
'test19.med',med_lecture_ecriture, cret)
78 if (cret .ne. 0 )
then
79 print *,
'Erreur creation du fichier'
82 print *,
'Creation du fichier test19.med'
85 call efmaac(fid,maa,mdim,med_non_structure,des,cret)
87 if (cret .ne. 0 )
then
88 print *,
'Erreur creation du maillage'
91 print *,
'Creation du maillage'
94 call effamc(fid,maa,
'FAMILLE_0',0,attide,attval,attdes,0,gro,0,
97 if (cret .ne. 0 )
then
98 print *,
'Erreur creation de la famille 0'
101 print *,
'Creation de la famille 0'
104 call efg2fc(fid,maa,nomgro,ind,ngroup,ent,nent,med_noeud,
105 & typgeo,indtmp,0,cret)
107 if (cret .ne. 0 )
then
108 print *,
'Erreur creation des familles de noeud'
111 print *,
'Creation des familles de noeuds dans test19.med'
114 call efg2fc(fid,maa,nomgro,ind,ngroup,ent,nent,med_maille,
115 & geo,indgeo,ngeo,cret)
117 if (cret .ne. 0 )
then
118 print *,
'Erreur creation des familles de maille'
121 print *,
'Creation des familles de mailles dans test19.med'
124 call efferm (fid,cret)
126 if (cret .ne. 0 )
then
127 print *,
'Erreur fermeture du fichier'
130 print *,
'Fermeture du fichier'