34 integer n,npdt,i,j,
type,numdt,numo
38 call mfiope(fid,
'test21.med',med_acc_rdonly, cret)
40 if (cret .ne. 0 )
then
41 print *,
'Erreur ouverture du fichier'
44 print *,
'Ouverture du fichier test21.med'
50 if (cret .ne. 0 )
then
51 print *,
'Erreur lecture du nombre de variable'
54 print *,
'Nombre de variables scalaires : ',n
60 call mprpri(fid,i,nom,
type,desc,
63 if (cret .ne. 0 )
then
64 print *,
'Erreur lecture des infos'
67 print *,
'- Scalaire de nom : ',nom
68 if (type.eq.med_float64)
then
69 print *,
' de type flottant'
71 print *,
' de type entier'
73 print *,
' Description associee : ',desc
74 print *,
' Nombre de valeurs : ',npdt
75 print *,
' Unite : ',dtunit
81 call mprcsi(fid,nom,j,numdt,numo,dt,cret)
83 if (cret .ne. 0 )
then
84 print *,
'Erreur infos pas de temps'
89 if (numdt.eq.med_no_dt)
then
90 print *,
' - Aucun pas de temps'
92 print *,
' - Pas de temps de numero ',numdt
93 print *,
' de valeur : ',dt
96 if (numo.eq.med_no_it)
then
97 print *,
' - Aucun numero ordre'
99 print *,
' - Numero ordre : ',numo
102 if (type.eq.med_float64)
then
105 call mprrvr(fid,nom,numdt,numo,valr,cret)
107 if (cret .ne. 0 )
then
108 print *,
'Erreur lecture valeur'
111 print *,
' - Valeur : ',valr
115 call mprivr(fid,nom,numdt,numo,vali,cret)
117 if (cret .ne. 0 )
then
118 print *,
'Erreur lecture valeur'
121 print *,
' - Valeur : ',vali
132 if (cret .ne. 0 )
then
133 print *,
'Erreur fermeture du fichier'
136 print *,
'Fermeture du fichier test21.med'