;+
;FUNCTION:   nibble_long
;PURPOSE:
;  Converts an unsigned long into a 32-element byte array where the 
;  elements are the individual bits (0 or 1).  LSB is stored in 
;  element 0 and MSB is in element 32.  No error checking for maximum 
;  speed.
;USAGE:
;  bits = nibble_long(lword)
;INPUTS:
;       lword : A unsigned long scalar.
;KEYWORDS:
;CREATED BY:	David L. Mitchell  02-06-11
;FILE:  nibble_long.pro
;VERSION:  1.0
;LAST MODIFICATION:  06-02-11
;-
function nibble_long, lword

  return, byte(ishft(lword,-indgen(32)) mod 2B)

end