34 integer n,npdt,i,j,
type,numdt,numo
38 call mfiope(fid,
'test21.med',med_acc_rdonly, cret)
40 if (cret .ne. 0 )
then
41 print *,
'Erreur ouverture du fichier'
44 print *,
'Ouverture du fichier test21.med'
50 if (cret .ne. 0 )
then
51 print *,
'Erreur lecture du nombre de variable'
54 print *,
'Nombre de variables scalaires : ',n
60 call mprpri(fid,i,nom,
type,desc,
63 if (cret .ne. 0 )
then
64 print *,
'Erreur lecture des infos'
67 print *,
'- Scalaire de nom : ',nom
69 print *,
' de type flottant'
71 print *,
' de type entier'
73 print *,
' Description associee : ',desc
74 print *,
' Nombre de valeurs : ',npdt
75 print *,
' Unite : ',dtunit
81 call mprcsi(fid,nom,j,numdt,numo,dt,cret)
83 if (cret .ne. 0 )
then
84 print *,
'Erreur infos pas de temps'
89 if (numdt.eq.med_no_dt)
then
90 print *,
' - Aucun pas de temps'
92 print *,
' - Pas de temps de numero ',numdt
93 print *,
' de valeur : ',dt
96 if (numo.eq.med_no_it)
then
97 print *,
' - Aucun numero ordre'
99 print *,
' - Numero ordre : ',numo
105 call mprrvr(fid,nom,numdt,numo,valr,cret)
107 if (cret .ne. 0 )
then
108 print *,
'Erreur lecture valeur'
111 print *,
' - Valeur : ',valr
115 call mprivr(fid,nom,numdt,numo,vali,cret)
117 if (cret .ne. 0 )
then
118 print *,
'Erreur lecture valeur'
121 print *,
' - Valeur : ',vali
132 if (cret .ne. 0 )
then
133 print *,
'Erreur fermeture du fichier'
136 print *,
'Fermeture du fichier test21.med'
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 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 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 mprcsi(fid, name, it, numdt, numit, dt, cret)
Cette routine permet la lecture des informations relatives à une séquence de calcul du paramètre numé...
subroutine mfiope(fid, name, access, cret)
Ouverture d'un fichier MED.