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);
subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine mmhelr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, iname, nname, inum, num, ifam, fam, 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)