33 character*32 maa , equ
38 parameter(maa =
"maa1",mdim = 3,ncor = 3 )
39 data cor /1,2,3,4,5,6/, equ /
"equivalence"/
40 data des /
"equivalence sur les mailles MED_TRIA3" /
43 call efouvr(fid,
'test12.med',med_lecture_ecriture, cret)
45 if (cret .ne. 0 )
then
46 print *,
'Erreur creation du fichier'
52 call efmaac(fid,maa,mdim,med_non_structure,
53 &
'Un maillage pour test12',cret)
55 if (cret .ne. 0 )
then
56 print *,
'Erreur creation du maillage'
61 call efequc(fid,maa,equ,des,cret)
63 if (cret .ne. 0 )
then
64 print *,
'Erreur creation equivalence'
69 call efeque(fid,maa,equ,cor,ncor,
70 & med_maille,med_tria3,cret)
72 if (cret .ne. 0 )
then
73 print *,
'Erreur ecriture de correspondances'
78 call efferm (fid,cret)
80 if (cret .ne. 0 )
then
81 print *,
'Erreur fermeture du fichier'