Lines Matching refs:iptr
31 * modf(value, iptr) returns the signed fractional part of value
32 * and stores the integer part indirectly through iptr.
39 modf(value, iptr)
41 register double *iptr;
46 *iptr = value; /* it must be an integer */
48 *iptr = absvalue + MAXPOWTWO; /* shift fraction off right */
49 *iptr -= MAXPOWTWO; /* shift back without fraction */
50 while (*iptr > absvalue) /* above arithmetic might round */
51 *iptr -= 1.0; /* test again just to be sure */
53 *iptr = -*iptr;
55 return (value - *iptr); /* signed fractional part */