/************************************************************************/
/* Return the fractional portion of the given argument                  */
/**************************************************************************/

double rem(double val)
{
	return(val -  floor(val));
}