33 character*64 maa , jnt, maadst
37 character*16 nomcoo(2)
38 character*16 unicoo(2)
39 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
41 parameter(maa =
"maa1",maadst=
"maa2", domdst=2,
43 data cor /1,2,3,4,5,6/, jnt /
"joint"/
44 data des /
"joint avec le sous-domaine 2" /
49 call mfiope(fid,
'test29.med',med_acc_rdwr,cret)
51 if (cret .ne. 0 )
then
52 print *,
'Erreur creation du fichier'
58 call mmhcre(fid,maa,mdim,mdim,
59 & med_unstructured_mesh,
'Un maillage pour test29',
60 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
62 if (cret .ne. 0 )
then
63 print *,
'Erreur creation du maillage'
68 call msdjcr(fid,maa,jnt,des,domdst,maadst,cret)
70 if (cret .ne. 0 )
then
71 print *,
'Erreur creation joint'
77 call msdcrw(fid,maa,jnt,med_no_dt,med_no_it,
78 & med_node,med_none,med_node,med_none,
81 if (cret .ne. 0 )
then
82 print *,
'Erreur ecriture correspondance (Noeud,Noeud)'
88 call msdcrw(fid,maa,jnt,med_no_dt,med_no_it,
89 & med_node,med_none,med_cell,med_tria3,
92 if (cret .ne. 0 )
then
93 print *,
'Erreur ecriture correspondance (Noeud,Tria3)'
100 if (cret .ne. 0 )
then
101 print *,
'Erreur fermeture du fichier'