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'