34 integer mdim,nind,nmaa,
type,quoi,rep,typmaa
35 integer edim,nstep,stype,atype, chgt, tsf
42 character*16 nomcoo(2), unicoo(2)
48 character(16) :: dtunit
52 call mfiope(fid,
'test27.med',med_acc_rdonly, cret)
53 if (cret .ne. 0 )
then 54 print *,
'Erreur ouverture du fichier' 58 print *,
'Ouverture du fichier test27.med' 63 if (cret .ne. 0 )
then 64 print *,
'Erreur lecture du nombre de maillage' 74 call mmhmii(fid,i,maa,edim,mdim,
type,desc,
75 & dtunit,stype,nstep,atype,
78 if (cret .ne. 0 )
then 79 print *,
'Erreur lecture maillage info' 82 print *,
'Maillage de nom : ',maa
83 print *,
'- Dimension : ',mdim
84 if (type.eq.med_structured_mesh)
then 85 print *,
'- Type : structure' 87 print *,
'- Type : non structure' 91 if (type.eq.med_structured_mesh)
then 92 call mmhgtr(fid,maa,typmaa,cret)
94 if (cret .ne. 0 )
then 95 print *,
'Erreur lecture nature de la grille' 98 if (typmaa.eq.med_cartesian_grid)
then 99 print *,
'- Nature de la grille : cartesienne' 101 if (typmaa.eq.med_curvilinear_grid)
then 102 print *,
'- Nature de la grille : curviligne' 108 if ((typmaa.eq.med_curvilinear_grid)
109 & .and. (type.eq.med_structured_mesh))
then 111 call mmhnme(fid,maa,med_no_dt,med_no_it,med_node,
112 & med_none,med_coordinate,med_no_cmode,
113 & chgt,tsf,nnoe,cret)
115 if (cret .ne. 0 )
then 116 print *,
'Erreur lecture nombre de noeud' 119 print *,
'- Nombre de noeuds : ',nnoe
121 call mmhgsr(fid,maa,med_no_dt,med_no_it,strgri,cret)
124 if (cret .ne. 0 )
then 125 print *,
'Erreur lecture structure de la grille' 128 print *,
'- Structure de la grille : ',strgri
130 call mmhcor(fid,maa,med_no_dt,med_no_it,
131 & med_full_interlace,coo,cret)
133 if (cret .ne. 0 )
then 134 print *,
'Erreur lecture des coordonnees des noeuds' 137 print *,
'- Coordonnees :' 143 if ((typmaa.eq.med_cartesian_grid)
144 & .and. (type.eq. med_structured_mesh))
then 148 quoi = med_coordinate_axis1
151 quoi = med_coordinate_axis2
154 quoi = med_coordinate_axis3
158 call mmhnme(fid,maa,med_no_dt,med_no_it,med_node,
159 & med_none,quoi,med_no_cmode,
160 & chgt,tsf,nind,cret)
162 if (cret .ne. 0 )
then 163 print *,
'Erreur lecture taille indice' 167 print *,
'- Nombre d indices : ',nind
169 call mmhgcr(fid,maa,med_no_dt,med_no_it,
172 if (cret .ne. 0 )
then 173 print *,
'Erreur lecture indices de coordonnées' 176 print *,
'- Axe ', nomcoo
177 print *,
' unite : ',unicoo
190 if (cret .ne. 0 )
then 191 print *,
'Erreur fermeture du fichier' 194 print *,
'Fermeture du fichier'