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'