30 integer cret, ret, fid
33 integer,
allocatable,
dimension (:) :: se2,se21
34 character*16,
allocatable,
dimension (:) :: nomse2
35 integer,
allocatable,
dimension (:) :: numse2,nufase2
38 integer,
allocatable,
dimension (:) :: tr3
39 character*16,
allocatable,
dimension (:) :: nomtr3
40 integer,
allocatable,
dimension (:) :: numtr3,nufatr3
45 integer :: mdim,edim,nstep,stype,atype
47 integer,
parameter :: profil (2) = (/ 2,3 /)
50 character*16 nomcoo(2)
51 character*16 unicoo(2)
58 call mfiope(fid,
'test6.med',med_acc_rdonly, cret)
63 call mmhmii(fid,1,maa,edim,mdim,
type,desc,dtunit,stype,nstep,atype
64 "Maillage de nom : ",maa,
" et de dimension :", mdim
72 call mmhnme(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2
80 call mmhnme(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,med_connectivity
87 print *,
"Nombre de MED_SEG2 : ",nse2,
" - nombre de MED_TRIA3 : " 92 allocate (se2(tse2*nse2),se21(tse2*nse2),nomse2(nse2),numse2(nse2)
97 allocate (tr3(ntr3*ttr3), nomtr3(ntr3), numtr3(ntr3),nufatr3(ntr3)
104 call mmhcyr(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,med_descending
113 if (cret .eq. 0)
then 121 if (cret .eq. 0)
then 122 call mfrcre(fid,nse2,1,edim,2,med_full_interlace,med_global_stmode
131 call mmhyar(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,med_descending
140 if (cret .eq. 0)
then 149 call mmhear(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2
160 call mmhenr(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2
171 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2
179 call mmhcyr(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,med_descending
187 call mmhear(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,nomtr3
199 call mmhenr(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,numtr3
211 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,nufatr3
224 print *,
"Connectivite des segments : " 228 print *,
"Noms des segments :" 233 print *,
"Numeros des segments :" 237 print *,
"Numeros des familles des segments :" 240 print *,
"Connectivite des triangles :" 244 print *,
"Noms des triangles :" 249 print *,
"Numeros des triangles :" 253 print *,
"Numeros des familles des triangles :" 259 deallocate (se2,se21,nomse2,numse2,nufase2,tr3,nomtr3,numtr3,nufatr3
subroutine mficlo(fid, cret)
subroutine mmhfnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mfrcre(fid, nent, nvent, ncent, cs, swm, stm, pname, fltas, flta, flt, cret)
subroutine mmhyar(fid, name, numdt, numit, entype, geotype, cmode, flt, con, cret)
subroutine mmhenr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mmhcyr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, cret)
subroutine mfrdea(nflt, flt, cret)
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
subroutine mmhear(fid, mname, numdt, numit, entype, geotype, ename, cret)
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
subroutine mfrall(nflt, flt, cret)
subroutine mfiope(fid, name, access, cret)