1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
26
27 implicit none
28 include 'med.hf'
29
30
31 integer*8 fid
32 integer cret, domdst
33 character*64 maa , jnt, maadst
34 character*200 des
35 integer mdim ,ncor
36 integer cor(6)
37 character*16 nomcoo(2)
38 character*16 unicoo(2)
39 data nomcoo /"x","y"/, unicoo /"cm","cm"/
40
41 parameter(maa ="maa1",maadst="maa2", domdst=2,
42 & mdim = 2,ncor = 3 )
43 data cor /1,2,3,4,5,6/, jnt / "joint"/
44 data des / "joint avec le sous-domaine 2" /
45
46
47
48
49 call mfiope(fid,
'test29.med',med_acc_rdwr,cret)
50 print *,cret
51 if (cret .ne. 0 ) then
52 print *,'Erreur creation du fichier'
53 call efexit(-1)
54 endif
55
56
57
58 call mmhcre(fid,maa,mdim,mdim,
59 & med_unstructured_mesh,'Un maillage pour test29',
60 & "",med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
61 print *,cret
62 if (cret .ne. 0 ) then
63 print *,'Erreur creation du maillage'
64 call efexit(-1)
65 endif
66
67
68 call msdjcr(fid,maa,jnt,des,domdst,maadst,cret)
69 print *,cret
70 if (cret .ne. 0 ) then
71 print *,'Erreur creation joint'
72 call efexit(-1)
73 endif
74
75
76
77 call msdcrw(fid,maa,jnt,med_no_dt,med_no_it,
78 & med_node,med_none,med_node,med_none,
79 & ncor,cor,cret)
80 print *,cret
81 if (cret .ne. 0 ) then
82 print *,'Erreur ecriture correspondance (Noeud,Noeud)'
83 call efexit(-1)
84 endif
85
86
87
88 call msdcrw(fid,maa,jnt,med_no_dt,med_no_it,
89 & med_node,med_none,med_cell,med_tria3,
90 & ncor,cor,cret)
91 print *,cret
92 if (cret .ne. 0 ) then
93 print *,'Erreur ecriture correspondance (Noeud,Tria3)'
94 call efexit(-1)
95 endif
96
97
99 print *,cret
100 if (cret .ne. 0 ) then
101 print *,'Erreur fermeture du fichier'
102 call efexit(-1)
103 endif
104
105 end
subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine msdcrw(fid, lmname, jname, numdt, numit, entlcl, geolcl, entdst, geodst, n, corrtab, cret)
subroutine msdjcr(fid, lmname, jname, des, dom, rmname, cret)
subroutine mmhcre(fid, name, sdim, mdim, mtype, desc, dtunit, stype, atype, aname, aunit, cret)