Aller à la documentation de ce fichier.
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 mprpri(fid, it, name, type, desc, dtunit, nstep, cret)
subroutine mprcsi(fid, name, it, numdt, numit, dt, cret)
subroutine mprrvr(fid, name, numdt, numit, val, cret)
subroutine mprnpr(fid, n, cret)
subroutine mfiope(fid, name, access, cret)
subroutine mficlo(fid, cret)
subroutine mprivr(fid, name, numdt, numit, val, cret)