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'