35 integer n,npdt,i,j,
type,numdt,numo
39 call mfiope(fid,
'test21.med',med_acc_rdonly, cret)
41 if (cret .ne. 0 )
then
42 print *,
'Erreur ouverture du fichier'
45 print *,
'Ouverture du fichier test21.med'
51 if (cret .ne. 0 )
then
52 print *,
'Erreur lecture du nombre de variable'
55 print *,
'Nombre de variables scalaires : ',n
61 call mprpri(fid,i,nom,
type,desc,
64 if (cret .ne. 0 )
then
65 print *,
'Erreur lecture des infos'
68 print *,
'- Scalaire de nom : ',nom
70 print *,
' de type flottant'
72 print *,
' de type entier'
74 print *,
' Description associee : ',desc
75 print *,
' Nombre de valeurs : ',npdt
76 print *,
' Unite : ',dtunit
82 call mprcsi(fid,nom,j,numdt,numo,dt,cret)
84 if (cret .ne. 0 )
then
85 print *,
'Erreur infos pas de temps'
90 if (numdt.eq.med_no_dt)
then
91 print *,
' - Aucun pas de temps'
93 print *,
' - Pas de temps de numero ',numdt
94 print *,
' de valeur : ',dt
97 if (numo.eq.med_no_it)
then
98 print *,
' - Aucun numero ordre'
100 print *,
' - Numero ordre : ',numo
106 call mprrvr(fid,nom,numdt,numo,valr,cret)
108 if (cret .ne. 0 )
then
109 print *,
'Erreur lecture valeur'
112 print *,
' - Valeur : ',valr
116 call mprivr(fid,nom,numdt,numo,vali,cret)
118 if (cret .ne. 0 )
then
119 print *,
'Erreur lecture valeur'
122 print *,
' - Valeur : ',vali
133 if (cret .ne. 0 )
then
134 print *,
'Erreur fermeture du fichier'
137 print *,
'Fermeture du fichier test21.med'