33 lines
692 B
C
33 lines
692 B
C
|
/*
|
||
|
|
(c) copyright 1989 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
||
|
|
See the copyright notice in the ACK home directory, in the file "Copyright".
|
||
|
|
*/
|
||
|
|
|
||
|
|
/* $Header$ */
|
||
|
|
|
||
|
|
#include "misc.h"
|
||
|
|
|
||
|
|
flt_modf(e, ipart, fpart)
|
||
|
|
register flt_arith *e, *ipart, *fpart;
|
||
|
|
{
|
||
|
|
if (e->flt_exp < 0) {
|
||
|
|
*fpart = *e;
|
||
|
|
ipart->flt_sign = 0;
|
||
|
|
ipart->flt_exp = 0;
|
||
|
|
ipart->m1 = ipart->m2 = 0;
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
if (e->flt_exp >= 63) {
|
||
|
|
fpart->flt_sign = 0;
|
||
|
|
fpart->flt_exp = 0;
|
||
|
|
fpart->m1 = fpart->m2 = 0;
|
||
|
|
*ipart = *e;
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
*ipart = *e;
|
||
|
|
/* "loose" low order bits */
|
||
|
|
b64_sft(&(ipart->flt_mantissa), 63 - e->flt_exp);
|
||
|
|
b64_sft(&(ipart->flt_mantissa), e->flt_exp - 63);
|
||
|
|
flt_sub(e, ipart, fpart);
|
||
|
|
}
|