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'