30 integer cret, fid,mdim,nmaa,npoly,i,j,k,taille
35 integer index(ni),ind1,ind2
42 call efouvr(fid,
'test23.med',med_lecture, cret)
44 if (cret .ne. 0 )
then
45 print *,
'Erreur ouverture du fichier'
48 print *,
'Ouverture du fichier test23.med'
51 call efnmaa(fid,nmaa,cret)
53 if (cret .ne. 0 )
then
54 print *,
'Erreur lecture nombre de maillage'
57 print *,
'Nombre de maillages : ',nmaa
64 call efmaai(fid,i,maa,mdim,
type,desc,cret)
65 if (cret .ne. 0 )
then
66 print *,
'Erreur lecture infos maillage'
70 print *,
'Maillage : ',maa
71 print *,
'Dimension : ',mdim
74 call efnema(fid,maa,med_conn,med_maille,med_polygone,
77 if (cret .ne. 0 )
then
78 print *,
'Erreur lecture du nombre de polygone'
81 print *,
'Nombre de mailles MED_POLYGONE : ',npoly
84 call efpygi(fid,maa,med_maille,med_nod,taille,cret)
86 if (cret .ne. 0 )
then
87 print *,
'Erreur lecture infos polygones'
90 print *,
'Taille de la connectivite : ',taille
93 call efpgcl(fid,maa,index,npoly+1,con,med_maille,
96 if (cret .ne. 0 )
then
97 print *,
'Erreur lecture des connectivites polygones'
100 print *,
'Lecture de la connectivite des polygones'
103 call efnoml(fid,maa,nom,npoly,med_maille,med_polygone,
106 if (cret .ne. 0 )
then
107 print *,
'Erreur lecture des noms des polygones'
110 print *,
'Lecture des noms'
113 call efnuml(fid,maa,num,npoly,med_maille,med_polygone,
116 if (cret .ne. 0 )
then
117 print *,
'Erreur lecture des numeros des polygones'
120 print *,
'Lecture des numeros'
123 call effaml(fid,maa,fam,npoly,med_maille,med_polygone,
126 if (cret .ne. 0 )
then
127 print *,
'Erreur lecture des numeros de famille des
131 print *,
'Lecture des numeros de famille'
134 print *,
'Affichage des resultats'
137 print *,
'>> Maille polygone ',j
138 print *,
'---- Connectivite ---- : '
144 print *,
'---- Nom ---- : ',nom(j)
145 print *,
'---- Numero ----: ',num(j)
146 print *,
'---- Numero de famille ---- : ',fam(j)
153 call efferm (fid,cret)
155 if (cret .ne. 0 )
then
156 print *,
'Erreur fermeture du fichier'
159 print *,
'Fermeture du fichier'