s_significandf.c revision 8870 
12912Sartem/* s_significandf.c -- float version of s_significand.c.
22912Sartem * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
32912Sartem */
42912Sartem
52912Sartem/*
62912Sartem * ====================================================
72912Sartem * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
82912Sartem *
92912Sartem * Developed at SunPro, a Sun Microsystems, Inc. business.
102912Sartem * Permission to use, copy, modify, and distribute this
112912Sartem * software is freely granted, provided that this notice
122912Sartem * is preserved.
132912Sartem * ====================================================
142912Sartem */
152912Sartem
162912Sartem#ifndef lint
172912Sartemstatic char rcsid[] = "$Id: s_significandf.c,v 1.1.1.1 1994/08/19 09:39:58 jkh Exp $";
182912Sartem#endif
192912Sartem
202912Sartem#include "math.h"
212912Sartem#include "math_private.h"
222912Sartem
232912Sartem#ifdef __STDC__
242912Sartem	float significandf(float x)
252912Sartem#else
262912Sartem	float significandf(x)
272912Sartem	float x;
282912Sartem#endif
292912Sartem{
302912Sartem	return __ieee754_scalbf(x,(float) -ilogbf(x));
312912Sartem}
322912Sartem