32 character*32 maa , equ
37 parameter(maa =
"maa1",mdim = 3,ncor = 3 )
38 data cor /1,2,3,4,5,6/, equ /
"equivalence"/
39 data des /
"equivalence sur les mailles MED_TRIA3" /
42 call efouvr(fid,
'test12.med',med_lecture_ecriture, cret)
44 if (cret .ne. 0 )
then
45 print *,
'Erreur creation du fichier'
51 call efmaac(fid,maa,mdim,med_non_structure,
52 &
'Un maillage pour test12',cret)
54 if (cret .ne. 0 )
then
55 print *,
'Erreur creation du maillage'
60 call efequc(fid,maa,equ,des,cret)
62 if (cret .ne. 0 )
then
63 print *,
'Erreur creation equivalence'
68 call efeque(fid,maa,equ,cor,ncor,
69 & med_maille,med_tria3,cret)
71 if (cret .ne. 0 )
then
72 print *,
'Erreur ecriture de correspondances'
77 call efferm (fid,cret)
79 if (cret .ne. 0 )
then
80 print *,
'Erreur fermeture du fichier'