34 integer cret, mdim, nse2, ntr3, sdim
36 parameter(mdim = 2,nse2 = 5,maa =
"maa1", ntr3 = 2, sdim=2)
38 character*16 nomse2(nse2)
39 integer numse2(nse2),nufase2(nse2)
41 character*16 nomtr3(ntr3)
42 integer numtr3(ntr3), nufatr3(ntr3)
43 data se2 /1,2,1,3,2,4,3,4,2,3/
44 data nomse2 /
"se1",
"se2",
"se3",
"se4",
"se5"/
45 data numse2 /1,2,3,4,5/, nufase2 /-1,-1,0,-2,-3/
46 data tr3 /1,2,-5,-5,3,-4/
47 data nomtr3 /
"tr1",
"tr2"/,numtr3/4,5/,nufatr3/0,-1/
48 character*16 nomcoo(2)
49 character*16 unicoo(2)
51 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
55 call mfiope(fid,
'test16.med',med_acc_rdwr, cret)
57 if (cret .ne. 0 )
then 58 print *,
'Erreur creation du fichier' 63 call mmhcre(fid,maa,mdim,sdim,med_unstructured_mesh,
64 &
'Un maillage pour test16',
"",
65 & med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
67 if (cret .ne. 0 )
then 68 print *,
'Erreur creation du maillage' 77 call mmhelw(fid,maa,med_no_dt,med_no_it,dt,med_descending_edge,
78 & med_seg2,med_descending,med_no_interlace,nse2,se2,
79 & med_true,nomse2,med_true,numse2,med_true,nufase2,
82 if (cret .ne. 0 )
then 83 print *,
'Erreur des elements' 92 call mmhelw(fid,maa,med_no_dt,med_no_it,dt,med_cell,
93 & med_tria3,med_descending,med_no_interlace,ntr3,tr3,
94 & med_true,nomtr3,med_true,numtr3,med_true,nufatr3,
97 if (cret .ne. 0 )
then 98 print *,
'Erreur ecriture des elements' 105 if (cret .ne. 0 )
then 106 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 mmhelw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, iname, nname, inum, num, ifam, fam, cret)