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