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'