; ------------------------------------------------------------------
;
; ------------------------------------------------------------------

PRO RH_EXTRAIRE1, fichier, hd, hf, fichier_ext

@rh_common.inc

  IF NOT (rh_open(fichier,/mono)) THEN RETURN
  f = '("Lecture   ",(a),"   ", 3(i2.2,":"),i2.2, "  ", 3(i2.2,":"),i2.2)'
  print, format = f,fichier, hd, hf
  print, format='("Creation  ",(a))', fichier_ext

;k0 Heure de debut
  rh_hdeb, hd, k0, h
  hd = h
  print, format='("Debut  ", 3(i2.2,":"),i2.2)', hd
  
;k1 = heure de fin
  rh_hdeb, hf, k1, h
  hf = h 
  if (k1 gt k0) then begin     ;pour finir sur la derniere frequence
     k1 = k1 - 1L
     hf = rh_readh(k1)
  endif 

;
  k2= k1-k0+1
  IF k2 LT 1 THEN return

;Open fichier extrait
  OPENW,unit,fichier_ext,/GET_LUN

;Ecriture entete
  entfi2 = entfi
  ENTFI2.HDEB  = hd
  ENTFI2.HFIN  = hf
; longueur de l'entete a reecrire
  entfi2.lgent = n_tags(entfi,/length)
  IF entFI.endian EQ 1 THEN WRITEU, UNIT, swap_endian(entFi2) $
      ELSE WRITEU,UNIT,entfi2
  FOR k = k0, k1 do begin
      bFI = aFI(k)
      WRITEU, UNIT, bFI
  ENDFOR
   
;Close fichiers		
  CLOSE,UNIT
  FREE_LUN,UNIT
  RH_CLOSE
  print, format='("Fin    ", 3(i2.2,":"),i2.2)', hf
END