33 integer mdim,nind,nmaa,
type,quoi,rep,typmaa
40 character*16 comp, comp2(2)
41 character*16 unit, unit2(2)
51 call efouvr(fid,
'test27.med',med_lecture, cret)
52 if (cret .ne. 0 )
then
53 print *,
'Erreur ouverture du fichier'
58 print *,
'Ouverture du fichier test27.med'
61 call efnmaa(fid,nmaa,cret)
63 if (cret .ne. 0 )
then
64 print *,
'Erreur lecture du nombre de maillage'
74 call efmaai(fid,i,maa,mdim,typmaa,desc,cret)
76 if (cret .ne. 0 )
then
77 print *,
'Erreur lecture maillage info'
80 print *,
'Maillge de nom : ',maa
81 print *,
'- Dimension : ',mdim
82 if (typmaa.eq.med_structure)
then
83 print *,
'- Type : MED_STRUCTURE'
85 print *,
'- Type : MED_NON_STRUCTURE'
89 if (typmaa.eq.med_structure)
then
90 call efnagl(fid,maa,
type,cret)
92 if (cret .ne. 0 )
then
93 print *,
'Erreur lecture nature de la grille'
96 if (type.eq.med_grille_cartesienne)
then
97 print *,
'- Nature de la grille :',
98 &
'MED_GRILLE_CARTESIENNE'
100 if (type.eq.med_grille_standard)
then
101 print *,
'- Nature de la grille : MED_GRILLE_STANDARD'
106 if ((type.eq.med_grille_standard)
107 & .and. (typmaa.eq.med_structure))
then
109 call efnema(fid,maa,med_coor,med_noeud,0,0,nnoe,cret)
111 if (cret .ne. 0 )
then
112 print *,
'Erreur lecture nombre de noeud'
115 print *,
'- Nombre de noeuds : ',nnoe
117 call efscol(fid,maa,mdim,strgri,cret)
119 if (cret .ne. 0 )
then
120 print *,
'Erreur lecture structure de la grille'
123 print *,
'- Structure de la grille : ',strgri
125 call efcool(fid,maa,mdim,coo,
126 & med_full_interlace,med_all,tmp,
127 & 0,rep,comp2,unit2,cret)
129 if (cret .ne. 0 )
then
130 print *,
'Erreur lecture des coordonnees des noeuds'
133 print *,
'- Coordonnees :'
139 if ((type.eq.med_grille_cartesienne)
140 & .and. (typmaa.eq.med_structure))
then
154 call efnema(fid,maa,quoi,med_noeud,0,0,nind,cret)
156 if (cret .ne. 0 )
then
157 print *,
'Erreur lecture taille indice'
161 print *,
'- Nombre d indices : ',nind
163 call eficol(fid,maa,mdim,indice,nind,axe,comp,unit,
166 if (cret .ne. 0 )
then
167 print *,
'Erreur lecture indices de coordonnées'
170 print *,
'- Axe ',comp
171 print *,
' unite : ',unit
182 call efferm (fid,cret)
184 if (cret .ne. 0 )
then
185 print *,
'Erreur fermeture du fichier'
188 print *,
'Fermeture du fichier'