34 integer mdim,nind,nmaa,
type,quoi,rep,typmaa
41 character*16 comp, comp2(2)
42 character*16 unit, unit2(2)
52 call efouvr(fid,
'test27.med',med_lecture, cret)
53 if (cret .ne. 0 )
then 54 print *,
'Erreur ouverture du fichier' 59 print *,
'Ouverture du fichier test27.med' 62 call efnmaa(fid,nmaa,cret)
64 if (cret .ne. 0 )
then 65 print *,
'Erreur lecture du nombre de maillage' 75 call efmaai(fid,i,maa,mdim,typmaa,desc,cret)
77 if (cret .ne. 0 )
then 78 print *,
'Erreur lecture maillage info' 81 print *,
'Maillge de nom : ',maa
82 print *,
'- Dimension : ',mdim
83 if (typmaa.eq.med_structure)
then 84 print *,
'- Type : MED_STRUCTURE' 86 print *,
'- Type : MED_NON_STRUCTURE' 90 if (typmaa.eq.med_structure)
then 91 call efnagl(fid,maa,
type,cret)
93 if (cret .ne. 0 )
then 94 print *,
'Erreur lecture nature de la grille' 97 if (type.eq.med_grille_cartesienne)
then 98 print *,
'- Nature de la grille :',
99 &
'MED_GRILLE_CARTESIENNE' 101 if (type.eq.med_grille_standard)
then 102 print *,
'- Nature de la grille : MED_GRILLE_STANDARD' 107 if ((type.eq.med_grille_standard)
108 & .and. (typmaa.eq.med_structure))
then 110 call efnema(fid,maa,med_coor,med_noeud,0,0,nnoe,cret)
112 if (cret .ne. 0 )
then 113 print *,
'Erreur lecture nombre de noeud' 116 print *,
'- Nombre de noeuds : ',nnoe
118 call efscol(fid,maa,mdim,strgri,cret)
120 if (cret .ne. 0 )
then 121 print *,
'Erreur lecture structure de la grille' 124 print *,
'- Structure de la grille : ',strgri
126 call efcool(fid,maa,mdim,coo,
127 & med_full_interlace,med_all,tmp,
128 & 0,rep,comp2,unit2,cret)
130 if (cret .ne. 0 )
then 131 print *,
'Erreur lecture des coordonnees des noeuds' 134 print *,
'- Coordonnees :' 140 if ((type.eq.med_grille_cartesienne)
141 & .and. (typmaa.eq.med_structure))
then 155 call efnema(fid,maa,quoi,med_noeud,0,0,nind,cret)
157 if (cret .ne. 0 )
then 158 print *,
'Erreur lecture taille indice' 162 print *,
'- Nombre d indices : ',nind
164 call eficol(fid,maa,mdim,indice,nind,axe,comp,unit,
167 if (cret .ne. 0 )
then 168 print *,
'Erreur lecture indices de coordonnées' 171 print *,
'- Axe ',comp
172 print *,
' unite : ',unit
183 call efferm (fid,cret)
185 if (cret .ne. 0 )
then 186 print *,
'Erreur fermeture du fichier' 189 print *,
'Fermeture du fichier'