34 integer,
allocatable,
dimension (:) :: se2,se21
35 character*16,
allocatable,
dimension (:) :: nomse2
36 integer,
allocatable,
dimension (:) :: numse2,nufase2
39 integer,
allocatable,
dimension (:) :: tr3
40 character*16,
allocatable,
dimension (:) :: nomtr3
41 integer,
allocatable,
dimension (:) :: numtr3,nufatr3
46 integer :: mdim,edim,nstep,stype,atype
48 integer,
parameter :: profil (2) = (/ 2,3 /)
51 character*16 nomcoo(2)
52 character*16 unicoo(2)
59 call mfiope(fid,
'test6.med',med_acc_rdonly, cret)
64 call mmhmii(fid,1,maa,edim,mdim,
type,desc,dtunit,stype,nstep,atype
65 "Maillage de nom : ",maa,
" et de dimension :", mdim
73 call mmhnme(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2
81 call mmhnme(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,med_connectivity
88 print *,
"Nombre de MED_SEG2 : ",nse2,
" - nombre de MED_TRIA3 : "
93 allocate (se2(tse2*nse2),se21(tse2*nse2),nomse2(nse2),numse2(nse2)
98 allocate (tr3(ntr3*ttr3), nomtr3(ntr3), numtr3(ntr3),nufatr3(ntr3)
105 call mmhcyr(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,med_descending
114 if (cret .eq. 0)
then
122 if (cret .eq. 0)
then
123 call mfrcre(fid,nse2,1,edim,2,med_full_interlace,med_global_stmode
124 med_no_profile,med_undef_size,flta,flt(1),cret)
132 call mmhyar(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,med_descending
141 if (cret .eq. 0)
then
150 call mmhear(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2
161 call mmhenr(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2
172 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2
180 call mmhcyr(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,med_descending
188 call mmhear(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,nomtr3
200 call mmhenr(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,numtr3
212 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,nufatr3
225 print *,
"Connectivite des segments : "
229 print *,
"Noms des segments :"
234 print *,
"Numeros des segments :"
238 print *,
"Numeros des familles des segments :"
241 print *,
"Connectivite des triangles :"
245 print *,
"Noms des triangles :"
250 print *,
"Numeros des triangles :"
254 print *,
"Numeros des familles des triangles :"
260 deallocate (se2,se21,nomse2,numse2,nufase2,tr3,nomtr3,numtr3,nufatr3
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
Cette routine permet de lire le nombre d'entités dans un maillage pour une étape de calcul donnée.
subroutine mmhear(fid, mname, numdt, numit, entype, geotype, ename, cret)
Cette routine permet de lire les noms d'un type d'entité d'un maillage.
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
Cette routine permet de lire les informations relatives à un maillage dans un fichier.
subroutine mfrcre(fid, nent, nvent, ncent, cs, swm, stm, pname, fltas, flta, flt, cret)
subroutine mfrall(nflt, flt, cret)
subroutine mfrdea(nflt, flt, cret)
subroutine mmhfnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mmhenr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mmhcyr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, cret)
subroutine mmhyar(fid, name, numdt, numit, entype, geotype, cmode, flt, con, cret)