38 integer indexp(np),indexf(nf)
42 parameter(nf2=8,np2=3)
43 integer indexp2(np2),indexf2(nf2)
49 data indexf / 1,4,7,10,13,16,19,22,25 /
50 data conn / 1,2,3,4,5,6,7,8,9,10,11,12,13,14,
51 & 15,16,17,18,19,20,21,22,23,24 /
52 data indexp2 / 1,5,9 /
53 data indexf2 / med_tria3,med_tria3,med_tria3,med_tria3,
54 & med_tria3,med_tria3,med_tria3,med_tria3 /
55 data conn2 / 1,2,3,4,5,6,7,8 /
56 data nom /
"poly1",
"poly2"/
57 data num / 1,2 /, fam / 0,-1 /
61 call efouvr(fid,
'test25.med',med_lecture_ecriture, cret)
63 if (cret .ne. 0 )
then 64 print *,
'Erreur creation du fichier' 67 print *,
'Creation du fichier test25.med' 70 call efmaac(fid,maa,mdim,med_non_structure,
71 &
'un maillage pour test25',cret)
72 if (cret .ne. 0 )
then 73 print *,
'Erreur creation du maillage' 77 print *,
'Creation du maillage' 80 call efpece(fid,maa,indexp,np,indexf,nf,conn,med_nod,cret)
82 if (cret .ne. 0 )
then 83 print *,
'Erreur ecriture connectivite des polyedres' 86 print *,
'Ecriture des connectivites des mailles 87 & de type MED_POLYEDRE' 88 print *,
'Description nodale' 91 call efpece(fid,maa,indexp2,np2,indexf2,nf2,conn2,med_desc,cret)
93 if (cret .ne. 0 )
then 94 print *,
'Erreur ecriture connectivite des polyedres' 97 print *,
'Ecriture des connectivites des mailles 98 & de type MED_POLYEDRE' 99 print *,
'Description descendante' 102 call efnome(fid,maa,nom,n,med_maille,med_polyedre,
105 if (cret .ne. 0 )
then 106 print *,
'Erreur ecriture noms des polyedres' 109 print *,
'Ecriture des noms des polyedress' 112 call efnume(fid,maa,num,n,med_maille,med_polyedre,
115 if (cret .ne. 0 )
then 116 print *,
'Erreur ecriture numeros des polyedres' 119 print *,
'Ecriture des numeros des polyedres' 122 call effame(fid,maa,fam,n,
123 & med_maille,med_polyedre,cret)
125 if (cret .ne. 0 )
then 126 print *,
'Erreur ecriture numeros de familles polyedres' 129 print *,
'Ecriture des numeros de familles des polyedres' 132 call efferm (fid,cret)
134 if (cret .ne. 0 )
then 135 print *,
'Erreur fermeture du fichier' 138 print *,
'Fermeture du fichier'