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,nomcoo,unicoo,cret)
65 print *,
"Maillage de nom : ",maa,
" et de dimension :", mdim
73 call mmhnme(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,med_connectivity,med_descending,chgt,tsf,nse2,cret)
81 call mmhnme(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,med_connectivity,med_descending,chgt,tsf,ntr3,cret)
88 print *,
"Nombre de MED_SEG2 : ",nse2,
" - nombre de MED_TRIA3 : ",ntr3
93 allocate (se2(tse2*nse2),se21(tse2*nse2),nomse2(nse2),numse2(nse2), nufase2(nse2),stat=ret )
98 allocate (tr3(ntr3*ttr3), nomtr3(ntr3), numtr3(ntr3),nufatr3(ntr3),stat=ret )
105 call mmhcyr(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,med_descending,med_full_interlace,se2,cret)
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,nomse2,cret)
161 call mmhenr(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,numse2,cret)
172 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,nufase2,cret)
180 call mmhcyr(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,med_descending,med_no_interlace,tr3,cret)
188 call mmhear(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,nomtr3,cret)
200 call mmhenr(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,numtr3,cret)
212 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,nufatr3,cret)
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 mmhear(fid, mname, numdt, numit, entype, geotype, ename, cret)
subroutine mfrdea(nflt, flt, cret)
Desalloue un tableau de filtre de taille nfilter.
subroutine mmhenr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mfrcre(fid, nent, nvent, ncent, cs, swm, stm, pname, fltas, flta, flt, cret)
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
subroutine mmhcyr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, cret)
subroutine mmhfnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mfrall(nflt, flt, cret)
Alloue un tableau de filtres de taille nfilter.
subroutine mmhyar(fid, name, numdt, numit, entype, geotype, cmode, flt, con, cret)
subroutine mficlo(fid, cret)