FUNCTION ibsetf, bitset, bitpos

;+
; NAME:
;	ibsetf
; PURPOSE:
;	Sets a bit in a longword (32-bit) integer
; CATEGORY:
;	Bits and bytes
; CALLING SEQUENCE:
;	Result = ibsetf(bitset, bitpos)
; INPUT:
;	bitset longword integer 32 bits longword integer.
;				Its bit at bit position bitpos
;				will be set at 1
;	bitpos longword integer The bit position of bit to be
;				set as 1 (0 <= bitpos <= 31)
; OUTPUT:  
;	Result longword integer Same at bitset bitwise except 
;				at bit position bitpos
; INCLUDE:
	@compile_opt.pro	; On error, return to caller
; SEE ALSO:
;	ibclrf, ibtestf
; MODIFICATION HISTORY:
;	8/23/00		Kevin Nguyen
;-
RETURN, bitset OR ishft(1L, bitpos)
END