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
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 mmhcyr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mmhear(fid, mname, numdt, numit, entype, geotype, ename, cret)
subroutine mmhyar(fid, name, numdt, numit, entype, geotype, cmode, flt, con, cret)
subroutine mfrdea(nflt, flt, cret)
subroutine mmhenr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mfrall(nflt, flt, cret)
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
subroutine mmhfnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mficlo(fid, cret)
subroutine mfrcre(fid, nent, nvent, ncent, cs, swm, stm, pname, fltas, flta, flt, cret)