32 integer mdim,nse2,ntr3,sdim
33 parameter(nse2=5, ntr3=2, mdim=2, sdim=2)
35 character*16 nomse2(nse2)
36 integer numse2(nse2),nufase2(nse2)
38 character*16 nomcoo(2)
39 character*16 unicoo(2)
43 character*16 nomtr3(ntr3)
44 integer numtr3(ntr3), nufatr3(ntr3)
49 data nomcoo /
"x",
"y"/, unicoo /
"cm",
"cm"/
50 data se2 / 1,2,1,3,2,4,3,4,2,3 /
51 data nomse2 /
"se1",
"se2",
"se3",
"se4",
"se5" /
52 data numse2 / 1,2,3,4,5 /, nufase2 /-1,-1,0,-2,-3/
53 data tr3 /1,2,-5,-5,3,-4 /, nomtr3 /
"tr1",
"tr2"/,
55 data nufatr3 /0,-1/, maa /
"maa1"/
58 call mfiope(fid,
'test6.med',med_acc_rdwr, cret)
60 if (cret .ne. 0 )
then
61 print *,
'Erreur creation du fichier'
66 call mmhcre(fid,maa,mdim,sdim,
67 & med_unstructured_mesh,
'un maillage pour test6',
68 &
"",med_sort_dtit,med_cartesian,nomcoo,unicoo,cret)
70 if (cret .ne. 0 )
then
71 print *,
'Erreur creation du maillage'
76 call mmhcyw(fid,maa,med_no_dt,med_no_it,dt,
77 & med_descending_edge,med_seg2,med_descending,
78 & med_no_interlace,nse2,se2,cret)
80 if (cret .ne. 0 )
then
81 print *,
'Erreur ecriture de la connectivite'
86 call mmheaw(fid,maa,med_no_dt,med_no_it,med_descending_edge,
87 & med_seg2,nse2,nomse2,cret)
89 if (cret .ne. 0 )
then
90 print *,
'Erreur ecriture des noms'
95 call mmhenw(fid,maa,med_no_dt,med_no_it,med_descending_edge,
96 & med_seg2,nse2,numse2,cret)
98 if (cret .ne. 0 )
then
99 print *,
'Erreur ecriture des numeros'
104 call mmhfnw(fid,maa,med_no_dt,med_no_it,med_descending_edge,
105 & med_seg2,nse2,nufase2,cret)
107 if (cret .ne. 0 )
then
108 print *,
'Erreur ecriture des numéros de famille'
113 call mmhcyw(fid,maa,med_no_dt,med_no_it,dt,
114 & med_cell,med_tria3,med_descending,
115 & med_no_interlace,ntr3,tr3,cret)
117 if (cret .ne. 0 )
then
118 print *,
'Erreur ecriture de la connectivite'
123 call mmheaw(fid,maa,med_no_dt,med_no_it,med_cell,
124 & med_tria3,ntr3,nomtr3,cret)
126 if (cret .ne. 0 )
then
127 print *,
'Erreur ecriture des noms'
132 call mmhenw(fid,maa,med_no_dt,med_no_it,med_cell,
133 & med_tria3,ntr3,numtr3,cret)
135 if (cret .ne. 0 )
then
136 print *,
'Erreur ecriture des numeros'
141 call mmhfnw(fid,maa,med_no_dt,med_no_it,med_cell,
142 & med_tria3,ntr3,nufatr3,cret)
144 if (cret .ne. 0 )
then
145 print *,
'Erreur ecriture des numeros de famille'
152 if (cret .ne. 0 )
then
153 print *,
'Erreur a la fermeture du fichier'