2.9BSD/usr/src/lib/libF77/i_inot.c

/* INOT fortran callable.    PLW 8/7/79.*/
long int i_inot(x)
	long int *x;
{
	return(~*x);
}