1 /* $NetBSD: fmod.c,v 1.1.1.1 2016/01/13 18:41:48 christos Exp $ */
2
3 /* Copyright (C) 1989, 1990, 1991, 1992 Free Software Foundation, Inc.
4 Written by James Clark (jjc@jclark.com)
5
6 This file is part of groff.
7
8 groff is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 2, or (at your option) any later
11 version.
12
13 groff is distributed in the hope that it will be useful, but WITHOUT ANY
14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
16 for more details.
17
18 You should have received a copy of the GNU General Public License along
19 with groff; see the file COPYING. If not, write to the Free Software
20 Foundation, 51 Franklin St - Fifth Floor, Boston, MA 02110-1301, USA. */
21
22 #include <math.h>
23
fmod(x,y)24 double fmod(x, y)
25 double x, y;
26 {
27 double quot = x/y;
28 return x - (quot < 0.0 ? ceil(quot) : floor(quot)) * y;
29 }
30
31