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)
Ouverture d'un fichier MED.
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
Cette routine permet de lire le nombre d'entités dans un maillage pour une étape de calcul donnée.
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
Cette routine permet de lire les informations relatives à un maillage dans un fichier.
subroutine mmhelr(fid, name, numdt, numit, entype, geotype, cmode, swm, con, iname, nname, inum, num, ifam, fam, cret)