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

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