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'
subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine msdcrw(fid, lmname, jname, numdt, numit, entlcl, geolcl, entdst, geodst, n, corrtab, cret)
subroutine msdjcr(fid, lmname, jname, des, dom, rmname, cret)
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)