version 1.1, 2000/12/22 10:03:28 |
version 1.4, 2004/02/13 05:48:35 |
|
|
/* |
/* |
* $OpenXM: $ |
* $OpenXM: OpenXM_contrib2/asir2000/engine/pari-mp.c,v 1.3 2003/02/14 22:29:09 ohara Exp $ |
*/ |
*/ |
/* for f-itv.c */ |
/* for f-itv.c */ |
|
|
#include "genpari.h" |
#if defined(PARI) |
|
|
|
#include <genpari.h> |
#include "itv-pari.h" |
#include "itv-pari.h" |
|
|
|
# if PARI_VERSION_CODE > 131588 |
|
extern ulong hiremainder, overflow; |
|
# endif |
|
|
|
|
GEN |
GEN |
PariAddDown(GEN x, GEN y) |
PariAddDown(GEN x, GEN y) |
{ |
{ |
Line 348 PariMulirDown(GEN x, GEN y) |
|
Line 354 PariMulirDown(GEN x, GEN y) |
|
avma=av;return z; |
avma=av;return z; |
} |
} |
|
|
#ifdef LONG_IS_32BIT |
#if defined(LONG_IS_32BIT) |
#define DIVCONVI 14 |
#define DIVCONVI 14 |
#endif |
#endif |
|
|
#ifdef LONG_IS_64BIT |
#if defined(LONG_IS_64BIT) |
#define DIVCONVI 7 |
#define DIVCONVI 7 |
#endif |
#endif |
|
|
Line 490 PariDivrrDown(GEN x, GEN y) |
|
Line 496 PariDivrrDown(GEN x, GEN y) |
|
z[1]=ex1;*z=z0;return z; |
z[1]=ex1;*z=z0;return z; |
} |
} |
|
|
|
#endif /* PARI */ |