27 #include "ioflags.hpp"
52 const real&
MakeHexReal(
int sign,
unsigned int expo, a_btyp manthigh, a_btyp mantlow)
55 ((a_btyp*)&a)[LOWREAL] = mantlow,
56 ((a_btyp*)&a)[HIGHREAL] = manthigh & 0xFFFFFL,
57 ((a_btyp*)&a)[HIGHREAL] |= ((a_btyp) (expo & 0x7FF)) << 20,
58 ((a_btyp*)&a)[HIGHREAL] |= (sign ? 0x80000000L : 0x00000000);