33 integer cret, fid, mdim, nse2, ntr3, sdim
35 parameter(mdim = 2,nse2 = 5,maa =
"maa1", ntr3 = 2, sdim=2)
37 character*16 nomse2(nse2)
38 integer numse2(nse2),nufase2(nse2)
40 character*16 nomtr3(ntr3)
41 integer numtr3(ntr3), nufatr3(ntr3)
42 data se2 /1,2,1,3,2,4,3,4,2,3/
43 data nomse2 /
"se1",
"se2",
"se3",
"se4",
"se5"/
44 data numse2 /1,2,3,4,5/, nufase2 /-1,-1,0,-2,-3/
45 data tr3 /1,2,-5,-5,3,-4/
46 data nomtr3 /
"tr1",
"tr2"/,numtr3/4,5/,nufatr3/0,-1/
47 character*16 nomcoo(2)
48 character*16 unicoo(2)
50 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
54 call mfiope(fid,
'test16.med',med_acc_rdwr, cret)
56 if (cret .ne. 0 )
then
57 print *,
'Erreur creation du fichier'
62 call mmhcre(fid,maa,mdim,sdim,med_unstructured_mesh,
63 &
'Un maillage pour test16',
"",
64 & med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
66 if (cret .ne. 0 )
then
67 print *,
'Erreur creation du maillage'
76 call mmhelw(fid,maa,med_no_dt,med_no_it,dt,med_descending_edge,
77 & med_seg2,med_descending,med_no_interlace,nse2,se2,
78 & med_true,nomse2,med_true,numse2,med_true,nufase2,
81 if (cret .ne. 0 )
then
82 print *,
'Erreur des elements'
91 call mmhelw(fid,maa,med_no_dt,med_no_it,dt,med_cell,
92 & med_tria3,med_descending,med_no_interlace,ntr3,tr3,
93 & med_true,nomtr3,med_true,numtr3,med_true,nufatr3,
96 if (cret .ne. 0 )
then
97 print *,
'Erreur ecriture des elements'
104 if (cret .ne. 0 )
then
105 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 mmhelw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, iname, nname, inum, num, ifam, fam, cret)
Cette routine permet l'écriture d'un type d'élément d'un maillage non structuré pour une séquence de ...
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.