date and time created 83/01/21 11:19:18 by dlw

[unix-history] / usr / src / usr.bin / f77 / libF77 / bit.c

/*
 *	"@(#)bit.c	1.1"
 *
 * bit set, clear, test routines
 *
 * calling sequences:
 *	logical l, bit, state
 *	call bis (bitnum, word)
 *	call bic (bitnum, word)
 *	call setbit (bitnum, word, state)
 *	l = bit (bitnum, word)
 * where:
 *	bis(bic) sets(clears) bitnum in word
 *	setbit sets bitnum in word to 1 if state is .true.
 *	bit tests bitnum in word and returns a logical (t/f) value
 */

long bis_(n, w)
long *n, *w;
{
	if (*n >= 0 && *n <= 31)
		*w |= (1L << (*n));
}

long bic_(n, w)
long *n, *w;
{
	if (*n >= 0 && *n <= 31)
		*w &= ~(1L << (*n));
}

long bit_(n, w)
long *n, *w;
{
	if (*n < 0 || *n > 31)
		return(0);
	return((*w & (1L << (*n))) != 0);
}

setbit_(n, w, s)
long *n, *w, *s;
{
	if (*s)
		bis_(n, w);
	else
		bic_(n, w);
}