31 integer cret,fid, domdst
32 character*32 maa , jnt, maadst
37 parameter(maa =
"maa1",maadst=
"maa1", domdst=2,
39 data cor /1,2,3,4,5,6/, jnt /
"joint"/
40 data des /
"joint avec le sous-domaine 2" /
45 call efouvr(fid,
'test29.med',med_lecture_ecriture, cret)
47 if (cret .ne. 0 )
then
48 print *,
'Erreur creation du fichier'
54 call efmaac(fid,maa,mdim,med_non_structure,
55 &
'Un maillage pour test29',cret)
57 if (cret .ne. 0 )
then
58 print *,
'Erreur creation du maillage'
63 call efjntc(fid,maa,jnt,des,domdst,maadst,cret)
65 if (cret .ne. 0 )
then
66 print *,
'Erreur creation joint'
72 call efjnte(fid,maa,jnt,cor,ncor,
73 & med_noeud,0,med_noeud,0,
76 if (cret .ne. 0 )
then
77 print *,
'Erreur ecriture correspondance (Noeud,Noeud)'
83 call efjnte(fid,maa,jnt,cor,ncor,
84 & med_noeud,0,med_maille,med_tria3,
87 if (cret .ne. 0 )
then
88 print *,
'Erreur ecriture correspondance (Noeud,Tria3)'
93 call efferm (fid,cret)
95 if (cret .ne. 0 )
then
96 print *,
'Erreur fermeture du fichier'