;+
; NAME:
;	iword
; PURPOSE:
;	Swaps pair of bytes within a "word"
; CATEGORY:
; CALLING SEQUENCE:
;	result = iword(bytes)
; INPUTS:
;	bytes	pair on input bytes (byte pair, or word)
; OUTPUTS:
;	Return word with input bytes swapped
; OPTIONAL OUTPUT PARAMETERS:
; COMMON BLOCKS:
; SIDE EFFECTS:
; RESTRICTIONS:
; PROCEDURE:
;	Swaps pair of bytes (IBM/DEC compatability...)
; MODIFICATION HISTORY:
;	RDB  1990
;-

function	iword,bytes

obyte = bytarr(2)

obyte(0) = bytes(1)
obyte(1) = bytes(0)

return,(fix(obyte,0,1))(0)
end