32 integer :: cret,ret, fid, nse2, mdim, sdim
33 integer,
allocatable,
dimension(:) ::se2
34 character*16,
allocatable,
dimension(:) ::nomse2
35 integer,
allocatable,
dimension(:) ::numse2,nufase2
37 integer,
allocatable,
dimension(:) ::tr3
38 character*16,
allocatable,
dimension(:) ::nomtr3
39 integer,
allocatable,
dimension(:) ::numtr3
40 integer,
allocatable,
dimension(:) ::nufatr3
43 integer :: inoele1,inuele1,inoele2,inuele2,ifaele1,ifaele2
45 integer i,
type,rep,nstep,stype
47 character*16 nomcoo(2)
48 character*16 unicoo(2)
52 call mfiope(fid,
'test16.med',med_acc_rdonly, cret)
57 call mmhmii(fid,1,maa,sdim,mdim,
type,desc,dtunit,stype,nstep,rep,nomcoo,unicoo,cret)
58 print *,
"Maillage de nom : ",maa,
" et de dimension ",mdim
64 call mmhnme(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,med_connectivity,med_descending,chgt,tsf,nse2,cret)
69 call mmhnme(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,med_connectivity,med_descending,chgt,tsf,ntr3,cret)
73 print *,
"Nombre de MED_SEG2 : ",nse2,
" - nombre de MED_TRIA3 : ",ntr3
77 allocate(se2(tse2*nse2),nomse2(nse2),numse2(nse2),nufase2(nse2),stat=ret)
79 allocate(tr3(ntr3*ttr3),nomtr3(ntr3),numtr3(ntr3),nufatr3(ntr3),stat=ret)
87 call mmhelr(fid,maa,med_no_dt,med_no_it,med_descending_edge,med_seg2,med_descending,med_no_interlace,se2,&
88 inoele1,nomse2,inuele1,numse2,ifaele1,nufase2,cret)
99 call mmhelr(fid,maa,med_no_dt,med_no_it,med_cell,med_tria3,med_descending,med_no_interlace,tr3,&
100 inoele2,nomtr3,inuele2,numtr3,ifaele2,nufatr3,cret)
110 print *,
"Connectivite des segments : ",se2
112 if (inoele1 .eq. med_true)
then 113 print *,
"Noms des segments : ",nomse2
116 if (inuele1 .eq. med_true)
then 117 print *,
"Numeros des segments : ",numse2
120 print *,
"Numeros des familles des segments : ",nufase2
123 print *,
"Connectivite des triangles : ",tr3
125 if (inoele2 .eq. med_true)
then 126 print *,
"Noms des triangles :", nomtr3
129 if (inuele2 .eq. med_true)
then 130 print *,
"Numeros des triangles :", numtr3
133 print *,
"Numeros des familles des triangles :", nufatr3
139 deallocate(se2,nomse2,numse2,nufase2);
140 deallocate(tr3,nomtr3,numtr3,nufatr3);
subroutine mficlo(fid, 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 mfiope(fid, name, access, cret)
subroutine mmhelr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, iname, nname, inum, num, ifam, fam, cret)