Aller à la documentation de ce fichier.
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 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...
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 msdjcr(fid, lmname, jname, des, dom, rmname, cret)
Cette routine permet de créer un joint dans un maillage.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.