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' subroutine mficlo(fid, cret)
subroutine mprnpr(fid, n, cret)
subroutine mprrvr(fid, name, numdt, numit, val, cret)
subroutine mprcsi(fid, name, it, numdt, numit, dt, cret)
subroutine mprivr(fid, name, numdt, numit, val, cret)
subroutine mprpri(fid, it, name, type, desc, dtunit, nstep, cret)
subroutine mfiope(fid, name, access, cret)