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'