34 integer n,npdt,i,j,
type,numdt,numo
38 call efouvr(fid,
'test21.med',med_lecture,cret)
40 if (cret .ne. 0 )
then
41 print *,
'Erreur ouverture du fichier'
44 print *,
'Ouverture du fichier test21.med'
48 call efnsca(fid,n,cret)
50 if (cret .ne. 0 )
then
51 print *,
'Erreur lecture du nombre de variable'
54 print *,
'Nombre de variables scalaires : ',n
60 call efscai(fid,i,nom,
type,desc,cret)
62 if (cret .ne. 0 )
then
63 print *,
'Erreur lecture des infos'
66 print *,
'- Scalaire de nom : ',nom
68 print *,
' de type flottant'
70 print *,
' de type entier'
72 print *,
' Description associee : ',desc
77 call efnspd(fid,nom,npdt,cret)
78 if (cret .ne. 0 )
then
79 print *,
'Erreur lecture du nombre de pas de temps'
83 print *,
' Nombre de valeurs : ',npdt
86 call efspdi(fid,nom,j,numdt,dtunit,dt,numo,cret)
88 if (cret .ne. 0 )
then
89 print *,
'Erreur infos pas de temps'
94 if (numdt.eq.med_nopdt)
then
95 print *,
' - Aucun pas de temps'
97 print *,
' - Pas de temps de numero ',numdt
98 print *,
' de valeur : ',dt
99 print *,
' unite : ',dtunit
102 if (numo.eq.med_nonor)
then
103 print *,
' - Aucun numero ordre'
105 print *,
' - Numero ordre : ',numo
111 call efscfl(fid,nom,valr,numdt,numo,cret)
113 if (cret .ne. 0 )
then
114 print *,
'Erreur lecture valeur'
117 print *,
' - Valeur : ',valr
121 call efscel(fid,nom,vali,numdt,numo,cret)
123 if (cret .ne. 0 )
then
124 print *,
'Erreur lecture valeur'
127 print *,
' - Valeur : ',vali
136 call efferm(fid,cret)
138 if (cret .ne. 0 )
then
139 print *,
'Erreur fermeture du fichier'
142 print *,
'Fermeture du fichier test21.med'