36 parameter(maa =
"maillage_test19")
38 parameter(des =
"un maillage pour test19")
60 character*80 nomgro(ngroup)
66 integer indgeo(ngeo+1)
67 character*200 attdes,gro
72 data nomgro /
"GROUPE1",
"GROUPE2",
"GROUPE3" /
73 data ent / 1,2, 3,4,6, 1,4 /
74 data ind / 1, 3, 6, 8 /
75 data geo / med_seg2, med_tria3, med_tetra4 /
76 data indgeo / 1,4,6,7 /
79 call efouvr(fid,
'test19.med',med_lecture_ecriture, cret)
81 if (cret .ne. 0 )
then
82 print *,
'Erreur creation du fichier'
85 print *,
'Creation du fichier test19.med'
88 call efmaac(fid,maa,mdim,med_non_structure,des,cret)
90 if (cret .ne. 0 )
then
91 print *,
'Erreur creation du maillage'
94 print *,
'Creation du maillage'
97 call effamc(fid,maa,
'FAMILLE_0',0,attide,attval,attdes,0,gro,0,
100 if (cret .ne. 0 )
then
101 print *,
'Erreur creation de la famille 0'
104 print *,
'Creation de la famille 0'
107 call efg2fc(fid,maa,nomgro,ind,ngroup,ent,nent,med_noeud,
108 & typgeo,indtmp,0,cret)
110 if (cret .ne. 0 )
then
111 print *,
'Erreur creation des familles de noeud'
114 print *,
'Creation des familles de noeuds dans test19.med'
117 call efg2fc(fid,maa,nomgro,ind,ngroup,ent,nent,med_maille,
118 & geo,indgeo,ngeo,cret)
120 if (cret .ne. 0 )
then
121 print *,
'Erreur creation des familles de maille'
124 print *,
'Creation des familles de mailles dans test19.med'
127 call efferm (fid,cret)
129 if (cret .ne. 0 )
then
130 print *,
'Erreur fermeture du fichier'
133 print *,
'Fermeture du fichier'