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

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

/* @(#)bittab.c	5.1 - 86/12/09 - 09:03:50 */
/* mask[k] asserts right most k bits of a long. When used as a mask
 * (i.e. A & mask[k]) the bits to the left of the k bits are cleared.
 */

long F77mask[33] = {
	0x0,
	0x1, 0x3, 0x7, 0xf,
	0x1f, 0x3f, 0x7f, 0xff,
	0x1ff, 0x3ff, 0x7ff, 0xfff,
	0x1fff, 0x3fff, 0x7fff, 0xffff,
	0x1ffff, 0x3ffff, 0x7ffff, 0xfffff,
	0x1fffff, 0x3fffff, 0x7fffff, 0xffffff,
	0x1ffffff, 0x3ffffff, 0x7ffffff, 0xfffffff,
	0x1fffffff, 0x3fffffff, 0x7fffffff, 0xffffffff
	};

/* zmask[k] asserts k+1 right most bits. */

long *F77zmask = &F77mask[1];
