FUNCTION ibtestf, bitset, bitpos

;+
; NAME:
;	ibtestf
; PURPOSE:
;	Tests if the bit at bitpos of a longword (32-bit) integer is set
; CATEGORY:
;	Bits and bytes
; CALLING SEQUENCE:
;	Result = ibtestf(bitset, bitpos)
; INPUT:
;	bitset	longword integer  will be used to test if
;				  bit position, bitpos is zero or one
;	bitpos	longword integer  the bit postion, bit pos, being tested
; OUTPUT:
;	ibtestf		scalar; type:  byte
;			1B if bit is set;  0B bit is clear
; INCLUDE:
	@compile_opt.pro		; On error, return to caller
; SEE ALSO:
;	ibclrf,  ibsetf
; MODIFICATION HISTORY:
;	8/23/00		Kevin Nguyen
;-

RETURN, ( bitset AND ishft(1L, bitpos) ) NE 0L
END