35 integer n,npdt,i,j,
type,numdt,numo
39 call efouvr(fid,
'test21.med',med_lecture,cret)
41 if (cret .ne. 0 )
then
42 print *,
'Erreur ouverture du fichier'
45 print *,
'Ouverture du fichier test21.med'
49 call efnsca(fid,n,cret)
51 if (cret .ne. 0 )
then
52 print *,
'Erreur lecture du nombre de variable'
55 print *,
'Nombre de variables scalaires : ',n
61 call efscai(fid,i,nom,
type,desc,cret)
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
78 call efnspd(fid,nom,npdt,cret)
79 if (cret .ne. 0 )
then
80 print *,
'Erreur lecture du nombre de pas de temps'
84 print *,
' Nombre de valeurs : ',npdt
87 call efspdi(fid,nom,j,numdt,dtunit,dt,numo,cret)
89 if (cret .ne. 0 )
then
90 print *,
'Erreur infos pas de temps'
95 if (numdt.eq.med_nopdt)
then
96 print *,
' - Aucun pas de temps'
98 print *,
' - Pas de temps de numero ',numdt
99 print *,
' de valeur : ',dt
100 print *,
' unite : ',dtunit
103 if (numo.eq.med_nonor)
then
104 print *,
' - Aucun numero ordre'
106 print *,
' - Numero ordre : ',numo
112 call efscfl(fid,nom,valr,numdt,numo,cret)
114 if (cret .ne. 0 )
then
115 print *,
'Erreur lecture valeur'
118 print *,
' - Valeur : ',valr
122 call efscel(fid,nom,vali,numdt,numo,cret)
124 if (cret .ne. 0 )
then
125 print *,
'Erreur lecture valeur'
128 print *,
' - Valeur : ',vali
137 call efferm(fid,cret)
139 if (cret .ne. 0 )
then
140 print *,
'Erreur fermeture du fichier'
143 print *,
'Fermeture du fichier test21.med'