31 integer cret,fid, domdst
32 character*64 maa , jnt, maadst
36 character*16 nomcoo(2)
37 character*16 unicoo(2)
38 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
40 parameter(maa =
"maa1",maadst=
"maa2", domdst=2,
42 data cor /1,2,3,4,5,6/, jnt /
"joint"/
43 data des /
"joint avec le sous-domaine 2" /
48 call mfiope(fid,
'test29.med',med_acc_rdwr,cret)
50 if (cret .ne. 0 )
then
51 print *,
'Erreur creation du fichier'
57 call mmhcre(fid,maa,mdim,mdim,
58 & med_unstructured_mesh,
'Un maillage pour test29',
59 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
61 if (cret .ne. 0 )
then
62 print *,
'Erreur creation du maillage'
67 call msdjcr(fid,maa,jnt,des,domdst,maadst,cret)
69 if (cret .ne. 0 )
then
70 print *,
'Erreur creation joint'
76 call msdcrw(fid,maa,jnt,med_no_dt,med_no_it,
77 & med_node,med_none,med_node,med_none,
80 if (cret .ne. 0 )
then
81 print *,
'Erreur ecriture correspondance (Noeud,Noeud)'
87 call msdcrw(fid,maa,jnt,med_no_dt,med_no_it,
88 & med_node,med_none,med_cell,med_tria3,
91 if (cret .ne. 0 )
then
92 print *,
'Erreur ecriture correspondance (Noeud,Tria3)'
99 if (cret .ne. 0 )
then
100 print *,
'Erreur fermeture du fichier'