; -----------------------------------------------------------
; h0 = heure en centiemes
; Renvoie h  = h0 en [hr, min, sec, cent]
; -----------------------------------------------------------

FUNCTION rh_hih, h0

  h = intarr(4)
  h(0) = FIX(h0/360000.)
  h0 = h0 mod 360000
  h(1) = FIX(h0/6000.)
  h0 = h0 mod 6000
  h(2) = FIX(h0/100.)
  h(3) = FIX(h0 mod 100)
  RETURN, h
END