;+
; NAME:
;       LITTLE_ENDIAN
;
; PURPOSE:
;      
;      LITTLE_ENDIAN performs a test to check the endianness on the 
;      host computer. If the computer is little_endian it returns 1, 
;      if the computer is big_endian it returns 0.
;                                                                  
;
; CATEGORY:
;       Hansteen/Wikstol Data analysis SW
;
; CALLING SEQUENCE:
;	endian = little_endian()
; INPUTS:
;	none
; KEYWORD PARAMETERS:
;
;
; OUTPUTS:
;	1: computer is little_endian
;	0: computer is big_endian
;
; CALLS:
;       BYTE
;
; COMMON BLOCKS:
;       
;
; PROCEDURE:
;
;
; RESTRICTIONS:
;
;
; MODIFICATION HISTORY:
;       26-Jan-2006: Oivind Wikstol
;-
function little_endian
  endian = (byte(1,0,1))[0]
  return, endian
end