1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
28
29 implicit none
30 include 'med.hf'
31
32
33 integer*8 fid
34 integer cret, mdim, nse2, ntr3, sdim
35 character*64 maa
36 parameter(mdim = 2,nse2 = 5,maa = "maa1", ntr3 = 2, sdim=2)
37 integer se2 (2*nse2)
38 character*16 nomse2(nse2)
39 integer numse2(nse2),nufase2(nse2)
40 integer tr3 (3*ntr3)
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)
50 real*8 dt
51 data nomcoo /"x","y"/, unicoo /"cm","cm"/
52 parameter(dt=0.0)
53
54
55 call mfiope(fid,
'test16.med',med_acc_rdwr, cret)
56 print *,cret
57 if (cret .ne. 0 ) then
58 print *,'Erreur creation du fichier'
59 call efexit(-1)
60 endif
61
62
63 call mmhcre(fid,maa,mdim,sdim,med_unstructured_mesh,
64 & 'Un maillage pour test16',"",
65 & med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
66 print *,cret
67 if (cret .ne. 0 ) then
68 print *,'Erreur creation du maillage'
69 call efexit(-1)
70 endif
71
72
73
74
75
76
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,
80 & cret)
81 print *,cret
82 if (cret .ne. 0 ) then
83 print *,'Erreur des elements'
84 call efexit(-1)
85 endif
86
87
88
89
90
91
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,
95 & cret)
96 print *,cret
97 if (cret .ne. 0 ) then
98 print *,'Erreur ecriture des elements'
99 call efexit(-1)
100 endif
101
102
104 print *,cret
105 if (cret .ne. 0 ) then
106 print *,'Erreur fermeture du fichier'
107 call efexit(-1)
108 endif
109
110 end
111
subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)
subroutine mmhelw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, iname, nname, inum, num, ifam, fam, cret)