Function rh_decodh, hlu

@rh_common.inc

   CASE entFI.hg OF
     '0': BEGIN
          h = fix([hlu(2)/256, 0, hlu(3)/256, 0])
          h = (h+ [0, hlu(2)-h(0)*256, 0, hlu(3)-h(2)*256])
          END
     '1': BEGIN
          h = fix([hlu(0)/256, 0, hlu(1)/256, 0])
          h = (h+ [0, hlu(0)-h(0)*256, 0, hlu(1)-h(2)*256])
          END
   ENDCASE
   return,h
end