33 integer :: cret, ret, nse2, mdim, sdim
34 integer,
allocatable,
dimension(:) ::se2
35 character*16,
allocatable,
dimension(:) ::nomse2
36 integer,
allocatable,
dimension(:) ::numse2,nufase2
38 integer,
allocatable,
dimension(:) ::tr3
39 character*16,
allocatable,
dimension(:) ::nomtr3
40 integer,
allocatable,
dimension(:) ::numtr3
41 integer,
allocatable,
dimension(:) ::nufatr3
44 integer :: inoele1,inuele1,inoele2,inuele2,ifaele1,ifaele2
46 integer i,
type,rep,nstep,stype
48 character*16 nomcoo(2)
49 character*16 unicoo(2)
53 call mfiope(fid,
'test16.med',med_acc_rdonly, cret)
58 call mmhmii(fid,1,maa,sdim,mdim,
type,desc,dtunit,stype,nstep,rep,nomcoo,unicoo,cret)
59 print *,
"Maillage de nom : ",maa,
" et de dimension ",mdim
65 call mmhnme(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,med_connectivity,med_descending,chgt,tsf,nse2,cret)
70 call mmhnme(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,med_connectivity,med_descending,chgt,tsf,ntr3,cret)
74 print *,
"Nombre de MED_SEG2 : ",nse2,
" - nombre de MED_TRIA3 : ",ntr3
78 allocate(se2(tse2*nse2),nomse2(nse2),numse2(nse2),nufase2(nse2),stat=ret)
80 allocate(tr3(ntr3*ttr3),nomtr3(ntr3),numtr3(ntr3),nufatr3(ntr3),stat=ret)
88 call mmhelr(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,med_descending,med_no_interlace,se2,&
89 inoele1,nomse2,inuele1,numse2,ifaele1,nufase2,cret)
100 call mmhelr(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,med_descending,med_no_interlace,tr3,&
101 inoele2,nomtr3,inuele2,numtr3,ifaele2,nufatr3,cret)
111 print *,
"Connectivite des segments : ",se2
113 if (inoele1 .eq. med_true)
then
114 print *,
"Noms des segments : ",nomse2
117 if (inuele1 .eq. med_true)
then
118 print *,
"Numeros des segments : ",numse2
121 print *,
"Numeros des familles des segments : ",nufase2
124 print *,
"Connectivite des triangles : ",tr3
126 if (inoele2 .eq. med_true)
then
127 print *,
"Noms des triangles :", nomtr3
130 if (inuele2 .eq. med_true)
then
131 print *,
"Numeros des triangles :", numtr3
134 print *,
"Numeros des familles des triangles :", nufatr3
140 deallocate(se2,nomse2,numse2,nufase2);
141 deallocate(tr3,nomtr3,numtr3,nufatr3);