[unix-history] / usr / src / usr.bin / f77 / libF77 / i_dim.c

/*
 *	"@(#)i_dim.c	1.1"
 */

long int i_dim(a,b)
long int *a, *b;
{
return( *a > *b ? *a - *b : 0);
}
Commit	Line	Data
1caa78d8 DW	1	/*
	2	* "@(#)i_dim.c 1.1"
	3	*/
	4
	5	long int i_dim(a,b)
	6	long int a, b;
	7	{
	8	return( a > b ? a - b : 0);
	9	}