version 1.10, 2001/10/09 01:36:20 |
version 1.13, 2003/12/22 09:33:47 |
|
|
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* $OpenXM: OpenXM_contrib2/asir2000/io/bload.c,v 1.9 2001/09/03 07:01:08 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/io/bload.c,v 1.12 2003/02/14 22:29:15 ohara Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
#include "com.h" |
#include "com.h" |
#if PARI |
#if defined(PARI) |
#include "genpari.h" |
#include "genpari.h" |
int get_lg(GEN); |
int get_lg(GEN); |
#endif |
#endif |
Line 120 void loadreal(FILE *s,Real *p) |
|
Line 120 void loadreal(FILE *s,Real *p) |
|
|
|
void loadbf(FILE *s,BF *p) |
void loadbf(FILE *s,BF *p) |
{ |
{ |
#if PARI |
#if defined(PARI) |
GEN z; |
GEN z; |
unsigned int uexpo,lexpo; |
unsigned int uexpo,lexpo; |
char dmy; |
char dmy; |
int sign; |
int sign; |
unsigned int len; |
unsigned int len; |
|
unsigned long expo; |
BF q; |
BF q; |
|
|
read_char(s,&dmy); |
read_char(s,&dmy); |
Line 172 void loaditv(FILE *s,Itv *p) |
|
Line 173 void loaditv(FILE *s,Itv *p) |
|
*p = q; |
*p = q; |
} |
} |
|
|
void loaditvd(FILE *s,ItvD *p) |
void loaditvd(FILE *s,IntervalDouble *p) |
{ |
{ |
ItvD q; |
IntervalDouble q; |
char dmy; |
char dmy; |
|
|
read_char(s,&dmy); |
read_char(s,&dmy); |
NEWItvD(q); |
NEWIntervalDouble(q); |
read_double(s,&INF(q)); |
read_double(s,&INF(q)); |
read_double(s,&SUP(q)); |
read_double(s,&SUP(q)); |
*p = q; |
*p = q; |