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