33 character*32 maa , jnt, maadst
38 parameter(maa =
"maa1",maadst=
"maa1", domdst=2,
40 data cor /1,2,3,4,5,6/, jnt /
"joint"/
41 data des /
"joint avec le sous-domaine 2" /
46 call efouvr(fid,
'test29.med',med_lecture_ecriture, cret)
48 if (cret .ne. 0 )
then 49 print *,
'Erreur creation du fichier' 55 call efmaac(fid,maa,mdim,med_non_structure,
56 &
'Un maillage pour test29',cret)
58 if (cret .ne. 0 )
then 59 print *,
'Erreur creation du maillage' 64 call efjntc(fid,maa,jnt,des,domdst,maadst,cret)
66 if (cret .ne. 0 )
then 67 print *,
'Erreur creation joint' 73 call efjnte(fid,maa,jnt,cor,ncor,
74 & med_noeud,0,med_noeud,0,
77 if (cret .ne. 0 )
then 78 print *,
'Erreur ecriture correspondance (Noeud,Noeud)' 84 call efjnte(fid,maa,jnt,cor,ncor,
85 & med_noeud,0,med_maille,med_tria3,
88 if (cret .ne. 0 )
then 89 print *,
'Erreur ecriture correspondance (Noeud,Tria3)' 94 call efferm (fid,cret)
96 if (cret .ne. 0 )
then 97 print *,
'Erreur fermeture du fichier'