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 mmhfnr(fid, name, numdt, numit, entype, geotype, num, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mmhmii(fid, it, name, sdim, mdim, mtype, desc, dtunit, stype, nstep, atype, aname, aunit, cret)
subroutine mficlo(fid, cret)
subroutine mmhnmh(fid, n, cret)
subroutine mmhpgr(fid, name, numdt, numit, entype, cmode, index, con, 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)