;+ ;FUNCTION: nibble_word ;PURPOSE: ; Converts an unsigned int into a 16-element byte array where the ; elements are the individual bits (0 or 1). LSB is stored in ; element 0 and MSB is in element 15. Note: if this function is ; fed a long, then it processes only the least significant word ; without crashing. No error checking for maximum speed. ;USAGE: ; bits = nibble_word(word) ;INPUTS: ; word : A unsigned integer scalar. ;KEYWORDS: ;CREATED BY: David L. Mitchell 01-15-98 ;FILE: nibble.pro ;VERSION: 1.2 ;LAST MODIFICATION: 01-31-98 ;- function nibble_word, word return, byte(ishft(word,-indgen(16)) mod 2B) end