![]() ![]() | ![]() |
version 1.14, 2013/12/20 02:02:24 | version 1.17, 2015/08/08 14:19:42 | ||
---|---|---|---|
|
|
||
/* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.13 2006/08/27 22:17:28 noro Exp $ */ | /* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.16 2015/08/06 10:01:52 fujimoto Exp $ */ | ||
#define PRINTHAT (fortran_output?PUTS("**"):PUTS("^")) | #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^")) | ||
|
|
||
} | } | ||
} | } | ||
fprintf(stderr,"\n"); | fprintf(stderr,"\n"); | ||
#if defined(__MINGW32__) || defined(__MINGW64__) | |||
fflush(stderr); | |||
#endif | |||
} | } | ||
#endif | #endif | ||
#endif | #endif | ||
|
|
||
int i,expo; | int i,expo; | ||
m = (unsigned int *)&BDY((Real)q); | m = (unsigned int *)&BDY((Real)q); | ||
#if defined(__i386__) || defined(MIPSEL) || defined(VISUAL) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__x86_64) | #if defined(__i386__) || defined(MIPSEL) || defined(VISUAL) || defined(__MINGW32__) || defined(__MINGW64__) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__x86_64) | ||
u = m[1]; l = m[0]; | u = m[1]; l = m[0]; | ||
#else | #else | ||
u = m[0]; l = m[1]; | u = m[0]; l = m[1]; | ||
|
|
||
case N_A: | case N_A: | ||
PUTS("("); PRINTR(ALG,(R)BDY((Alg)q)); PUTS(")"); | PUTS("("); PRINTR(ALG,(R)BDY((Alg)q)); PUTS(")"); | ||
break; | break; | ||
#if defined(PARI) | |||
case N_B: | case N_B: | ||
PRINTBF((BF)q); break; | PRINTBF((BF)q); break; | ||
#endif | |||
#if defined(INTERVAL) | #if defined(INTERVAL) | ||
case N_IP: | case N_IP: | ||
case N_IntervalBigFloat: | case N_IntervalBigFloat: |