PRO RH_MAJ_HEADER, filename
; appel : RH_MAJ_HEADER,'nrh2_3270_h70_20070519_081716c03_i.fts'
; dans le cas ou dpatch s'est plante en fin de fichier, 
;  cette procedure corrige le header et met les heures de debut et de fin.

if n_elements(filename) eq 0 then begin
    print,' Erreur appel : RH_MAJ_HEADER,filename '
    return
endif
;filename = 'nrh2_1509_h70_20081116_080640c05_i.fts'
;filename = 'nrh2_3270_h70_20070519_081716c03_i.fts'
a=mrdfits(filename,1,h,range=[0,0])
imstd = a(0).time
print,msh(a(0).time)
nb_enr=fxpar(h,'naxis2')
a=mrdfits(filename,1,h,range=[nb_enr-1,nb_enr-1])

imstf = a(0).time
print,msh(a(0).time)
if imstf eq 0 then begin
   k= nb_enr-2
   while imstf eq 0 and k ge 0 do begin
   a=mrdfits(filename,1,h,range=[k,k],/silent)
   imstf = a(0).time
   k=k-1
   endwhile 
   k=k+1
   print, 'Fichier INCOMPLET : ', nb_enr,' records prevus'
   print, 'Heure de fin      : ', msh(a(0).time), ' Record # ',k
; Dans ce cas il faudrait raccourcir le fichier !
; on se contente de corriger le nb de records dans le header(naxis2)
   nb_enr = k+1
   a=mrdfits(filename,1,h,range=[nb_enr-1,nb_enr-1])
   imstf = a(0).time
   print, 'Heure de fin      : ', msh(a(0).time)
endif
ch_dateobs=fxpar(h,'date-obs')
dateobs = strsplit(ch_dateobs,'-',/extract)
dateobs = [dateobs[2],dateobs[1],dateobs[0]]
mmin=0.
mmax=0.
;stop
rh_mod_header,filename,dateobs,imstd,imstf,mmin,mmax,nbre_enrgt=nb_enr
return
end