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'
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 mmhenw(fid, name, numdt, numit, entype, geotype, n, num, cret)
Cette routine permet d'écrire les numéros d'un type d'entité d'un maillage.
subroutine mmhfnw(fid, name, numdt, numit, entype, geotype, n, num, cret)
Cette routine permet l'écriture des numéros de famille d'un type d'entité d'un maillage.
subroutine mmhcyw(fid, name, numdt, numit, dt, entype, geotype, cmode, swm, n, con, cret)
Cette routine permet d'écrire dans un maillage le tableau des connectivités pour un type géométrique ...
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mmheaw(fid, mname, numdt, numit, entype, geotype, n, ename, cret)
Cette routine permet d'écrire les noms d'un type d'entité d'un maillage.