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'
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
Cette routine permet de créer un maillage dans un fichier.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine msdjcr(fid, lmname, jname, des, dom, rmname, cret)
Cette routine permet de créer un joint dans un maillage.
subroutine msdcrw(fid, lmname, jname, numdt, numit, entlcl, geolcl, entdst, geodst, n, corrtab, cret)
Cette routine permet l'écriture d'une correspondance dans un joint pour un type de couple d'entité en...