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 mprnpr(fid, n, cret)
Cette routine permet la lecture du nombre de paramètre numérique scalaire dans un fichier.
subroutine mprrvr(fid, name, numdt, numit, val, cret)
Cette routine permet la lecture de la valeur d'un paramètre numérique scalaire.
subroutine mprpri(fid, it, name, type, desc, dtunit, nstep, cret)
Cette routine permet la lecture des informations relatives à un paramètre scalaire via un itérateur.
subroutine mprcsi(fid, name, it, numdt, numit, dt, cret)
Cette routine permet la lecture des informations relatives à une étape de calcul du paramètre numériq...
subroutine mficlo(fid, cret)
Fermeture d'un fichier MED.
subroutine mprivr(fid, name, numdt, numit, val, cret)
Cette routine permet la lecture de la valeur d'un paramètre numérique scalaire.
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.