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