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