OpenXM_contrib2/asir2000/io/bload.c - diff

Return to bload.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / io

Diff for /OpenXM_contrib2/asir2000/io/bload.c between version 1.10 and 1.13

version 1.10, 2001/10/09 01:36:20

version 1.13, 2003/12/22 09:33:47

Line 44

* OF THE SOFTWARE HAS BEEN DEVELOPED BY A THIRD PARTY, THE THIRD PARTY

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* 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 "parse.h"

#include "com.h"

#if PARI

#if defined(PARI)

#include "genpari.h"

int get_lg(GEN);

#endif

Line 120 void loadreal(FILE *s,Real *p)

void loadbf(FILE *s,BF *p)

{

#if PARI

#if defined(PARI)

GEN z;

unsigned int uexpo,lexpo;

char dmy;

int sign;

unsigned int len;

unsigned long expo;

BF q;

read_char(s,&dmy);

Line 172 void loaditv(FILE *s,Itv *p)

Line 173 void loaditv(FILE *s,Itv *p)

*p = q;

}

void loaditvd(FILE *s,ItvD *p)

void loaditvd(FILE *s,IntervalDouble *p)

{

ItvD q;

IntervalDouble q;

char dmy;

read_char(s,&dmy);

NEWItvD(q);

NEWIntervalDouble(q);

read_double(s,&INF(q));

read_double(s,&SUP(q));

*p = q;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>