Return to h_abs.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / libsF77

Power 6/32 Unix version 1.2b

short h_abs(x)
short *x;
{
if(*x >= 0)
	return(*x);
return(- *x);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.