31 integer cret,mdim,nmaa,npoly,i,j,k,taille
36 integer index(ni),ind1,ind2
43 call efouvr(fid,
'test23.med',med_lecture, cret)
45 if (cret .ne. 0 )
then
46 print *,
'Erreur ouverture du fichier'
49 print *,
'Ouverture du fichier test23.med'
52 call efnmaa(fid,nmaa,cret)
54 if (cret .ne. 0 )
then
55 print *,
'Erreur lecture nombre de maillage'
58 print *,
'Nombre de maillages : ',nmaa
65 call efmaai(fid,i,maa,mdim,
type,desc,cret)
66 if (cret .ne. 0 )
then
67 print *,
'Erreur lecture infos maillage'
71 print *,
'Maillage : ',maa
72 print *,
'Dimension : ',mdim
75 call efnema(fid,maa,med_conn,med_maille,med_polygone,
78 if (cret .ne. 0 )
then
79 print *,
'Erreur lecture du nombre de polygone'
82 print *,
'Nombre de mailles MED_POLYGONE : ',npoly
85 call efpygi(fid,maa,med_maille,med_nod,taille,cret)
87 if (cret .ne. 0 )
then
88 print *,
'Erreur lecture infos polygones'
91 print *,
'Taille de la connectivite : ',taille
94 call efpgcl(fid,maa,index,npoly+1,con,med_maille,
97 if (cret .ne. 0 )
then
98 print *,
'Erreur lecture des connectivites polygones'
101 print *,
'Lecture de la connectivite des polygones'
104 call efnoml(fid,maa,nom,npoly,med_maille,med_polygone,
107 if (cret .ne. 0 )
then
108 print *,
'Erreur lecture des noms des polygones'
111 print *,
'Lecture des noms'
114 call efnuml(fid,maa,num,npoly,med_maille,med_polygone,
117 if (cret .ne. 0 )
then
118 print *,
'Erreur lecture des numeros des polygones'
121 print *,
'Lecture des numeros'
124 call effaml(fid,maa,fam,npoly,med_maille,med_polygone,
127 if (cret .ne. 0 )
then
128 print *,
'Erreur lecture des numeros de famille des
132 print *,
'Lecture des numeros de famille'
135 print *,
'Affichage des resultats'
138 print *,
'>> Maille polygone ',j
139 print *,
'---- Connectivite ---- : '
145 print *,
'---- Nom ---- : ',nom(j)
146 print *,
'---- Numero ----: ',num(j)
147 print *,
'---- Numero de famille ---- : ',fam(j)
154 call efferm (fid,cret)
156 if (cret .ne. 0 )
then
157 print *,
'Erreur fermeture du fichier'
160 print *,
'Fermeture du fichier'