/* $Header:bset_l.c 12.0$ */
/* $ACIS:bset_l.c 12.0$ */
/* $Source: /ibm/acis/usr/src/usr.lib/libF77/RCS/bset_l.c,v $ */

#ifndef lint
static char *rcsid = "$Header:bset_l.c 12.0$";
#endif

/* @(#)bset_l.c	5.1 - 86/12/09 - 09:03:58 */
#include "bit.h"

/* The result is equal to the value of n with the ith bit set to 1.
 * The right most bit is bit 0.
 */

long bset_l(n,i)
long *n, *i;
{
	if (*i < 0 || *i >= NBLI)
		return(0L);
	return(*n | (1L << *i));
}
