/*
 *  SPA_MODF.C
 *
 *    (c)Copyright 1992-1997 Obvious Implementations Corp.  Redistribution and
 *    use is allowed under the terms of the DICE-LICENSE FILE,
 *    DICE-LICENSE.TXT.
 *
 *  float frac = fmodf(float value, float *ip);
 *
 *  (converts to either _ffpmodf() or _spmodf()), this file converts
 *  to _spmodf().
 */

#ifdef _FFP_FLOAT
#undef _FFP_FLOAT
#endif

#ifndef _SP_FLOAT
#define _SP_FLOAT
#endif

#include <math.h>

float
fmodf(value, ip)
float value;
float *ip;
{
    if (value >= 0.0)
	*ip = ffloor(value);
    else
	*ip = fceil(value);
    return(value - *ip);
}