/* floor.c - floor math routine *//* Copyright 1992-1993 Wind River Systems, Inc. *//*modification history--------------------01g,17nov00,tkt  return itself if it is ZERO or INF.01g,04may01,agf  fix return value of INF01f,05feb93,jdi  doc changes based on kdl review.01e,02dec92,jdi  doc tweaks.01d,28oct92,jdi  documentation cleanup.01c,20sep92,smb  documentation additions01b,30jul92,kdl  changed _d_type() calls to fpTypeGet().01a,08jul92,smb  documentation.*//*DESCRIPTIONSEE ALSO: American National Standard X3.159-1989NOMANUAL*/#include "vxWorks.h"#include "math.h"#include "stddef.h"#include "errno.h"#include "private/mathP.h"/********************************************************************************* floor - compute the largest integer less than or equal to a specified value (ANSI)** This routine returns the largest integer less than or equal to <v>, in* double precision.* * INCLUDE FILES: math.h** RETURNS:* The largest integral value less than or equal to <v>, in double precision.** SEE ALSO: mathALib*/double floor    (    double v	/* value to find the floor of */    )    {    double r;    switch (fpTypeGet (v, &r))	/* find out the type of v */	{	case ZERO:	return (0);	case INF:	case NAN:	return (v);	case INTEGER:	return (v);	case REAL:	return (((v < 0.0) && (v != r)) ? (r - 1.0) : (r));	default:	return (0);		/* this should never happen */	}    }