31 integer cret,mdim,nmaa,npoly,i,j,k,taille
32 integer edim,nstep,stype,atype, chgt, tsf
37 integer index(ni),ind1,ind2
42 character*16 nomcoo(2)
43 character*16 unicoo(2)
44 character(16) :: dtunit
47 call mfiope(fid,
'test23.med',med_acc_rdonly, cret)
49 if (cret .ne. 0 )
then
50 print *,
'Erreur ouverture du fichier'
53 print *,
'Ouverture du fichier test23.med'
58 if (cret .ne. 0 )
then
59 print *,
'Erreur lecture nombre de maillage'
62 print *,
'Nombre de maillages : ',nmaa
69 call mmhmii(fid,i,maa,edim,mdim,
type,desc,
70 & dtunit,stype,nstep,atype,
72 if (cret .ne. 0 )
then
73 print *,
'Erreur lecture infos maillage'
77 print *,
'Maillage : ',maa
78 print *,
'Dimension : ',mdim
81 call mmhnme(fid,maa,med_no_dt,med_no_it,med_cell,med_polygon,
82 & med_index_node,med_nodal,chgt,tsf,isize,cret)
85 if (cret .ne. 0 )
then
86 print *,
'Erreur lecture du nombre de polygone'
89 print *,
'Nombre de mailles MED_POLYGONE : ',npoly
92 call mmhnme(fid,maa,med_no_dt,med_no_it,med_cell,med_polygon,
93 & med_connectivity,med_nodal,chgt,tsf,taille,cret)
95 if (cret .ne. 0 )
then
96 print *,
'Erreur lecture infos polygones'
99 print *,
'Taille de la connectivite : ',taille
102 call mmhpgr(fid,maa,med_no_dt,med_no_it,med_cell,
103 & med_nodal,index,con,cret)
105 if (cret .ne. 0 )
then
106 print *,
'Erreur lecture des connectivites polygones'
109 print *,
'Lecture de la connectivite des polygones'
112 call mmhear(fid,maa,med_no_dt,med_no_it,
113 & med_cell,med_polygon,nom,cret)
115 if (cret .ne. 0 )
then
116 print *,
'Erreur lecture des noms des polygones'
119 print *,
'Lecture des noms'
122 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_cell,med_polygon,
125 if (cret .ne. 0 )
then
126 print *,
'Erreur lecture des numeros des polygones'
129 print *,
'Lecture des numeros'
132 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_cell,med_polygon,
135 if (cret .ne. 0 )
then
136 print *,
'Erreur lecture des numeros de famille des
140 print *,
'Lecture des numeros de famille'
143 print *,
'Affichage des resultats'
146 print *,
'>> Maille polygone ',j
147 print *,
'---- Connectivite ---- : '
154 print *,
'---- Numero ----: ',num(j)
155 print *,
'---- Numero de famille ---- : ',fam(j)
164 if (cret .ne. 0 )
then
165 print *,
'Erreur fermeture du fichier'
168 print *,
'Fermeture du fichier'
subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine mmhpgr(fid, name, numdt, numit, entype, cmode, index, con, cret)
subroutine mmhfnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mmhnmh(fid, n, cret)
subroutine mmhnme(fid, name, numdt, numit, entype, geotype, datype, cmode, chgt, tsf, n, cret)
subroutine mmhear(fid, mname, numdt, numit, entype, geotype, ename, cret)
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)