/* moduloc.c * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Modulo function for REAL numbers. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Andrew L. Stanger HAO/NCAR 26 March 1999 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ double moduloc (x, y) double x ; double y ; { double z ; z = x - y * (int) (x / y) ; return (z) ; }