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'