30 integer cret, fid,mdim,nmaa,npoly,i,j,k,taille
31 integer edim,nstep,stype,atype, chgt, tsf
36 integer index(ni),ind1,ind2
41 character*16 nomcoo(2)
42 character*16 unicoo(2)
43 character(16) :: dtunit
46 call mfiope(fid,
'test23.med',med_acc_rdonly, cret)
48 if (cret .ne. 0 )
then
49 print *,
'Erreur ouverture du fichier'
52 print *,
'Ouverture du fichier test23.med'
57 if (cret .ne. 0 )
then
58 print *,
'Erreur lecture nombre de maillage'
61 print *,
'Nombre de maillages : ',nmaa
68 call mmhmii(fid,i,maa,edim,mdim,
type,desc,
69 & dtunit,stype,nstep,atype,
71 if (cret .ne. 0 )
then
72 print *,
'Erreur lecture infos maillage'
76 print *,
'Maillage : ',maa
77 print *,
'Dimension : ',mdim
80 call mmhnme(fid,maa,med_no_dt,med_no_it,med_cell,med_polygon,
81 & med_index_node,med_nodal,chgt,tsf,isize,cret)
84 if (cret .ne. 0 )
then
85 print *,
'Erreur lecture du nombre de polygone'
88 print *,
'Nombre de mailles MED_POLYGONE : ',npoly
91 call mmhnme(fid,maa,med_no_dt,med_no_it,med_cell,med_polygon,
92 & med_connectivity,med_nodal,chgt,tsf,taille,cret)
94 if (cret .ne. 0 )
then
95 print *,
'Erreur lecture infos polygones'
98 print *,
'Taille de la connectivite : ',taille
101 call mmhpgr(fid,maa,med_no_dt,med_no_it,med_cell,
102 & med_nodal,index,con,cret)
104 if (cret .ne. 0 )
then
105 print *,
'Erreur lecture des connectivites polygones'
108 print *,
'Lecture de la connectivite des polygones'
111 call mmhear(fid,maa,med_no_dt,med_no_it,
112 & med_cell,med_polygon,nom,cret)
114 if (cret .ne. 0 )
then
115 print *,
'Erreur lecture des noms des polygones'
118 print *,
'Lecture des noms'
121 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_cell,med_polygon,
124 if (cret .ne. 0 )
then
125 print *,
'Erreur lecture des numeros des polygones'
128 print *,
'Lecture des numeros'
131 call mmhfnr(fid,maa,med_no_dt,med_no_it,med_cell,med_polygon,
134 if (cret .ne. 0 )
then
135 print *,
'Erreur lecture des numeros de famille des
139 print *,
'Lecture des numeros de famille'
142 print *,
'Affichage des resultats'
145 print *,
'>> Maille polygone ',j
146 print *,
'---- Connectivite ---- : '
153 print *,
'---- Numero ----: ',num(j)
154 print *,
'---- Numero de famille ---- : ',fam(j)
163 if (cret .ne. 0 )
then
164 print *,
'Erreur fermeture du fichier'
167 print *,
'Fermeture du fichier'