OpenXM_contrib2/asir2000/include/ca.h - diff

Return to ca.h CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / include

version 1.33, 2002/01/28 00:54:43

version 1.35, 2003/02/14 22:29:13

Line 45

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

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/include/ca.h,v 1.32 2001/12/25 02:39:03 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/include/ca.h,v 1.34 2002/11/22 07:32:11 noro Exp $

#include <stdio.h>

Line 131 typedef void * pointer;

#define ORD_GRADLEX 1

#define ORD_LEX 2

#if LONG_IS_32BIT

#if defined(LONG_IS_32BIT)

#if defined(VISUAL)

typedef _int64 L;

typedef unsigned _int64 UL;

Line 512 struct oEGT {

#define INDEX 100

#if USE_FLOAT

#if defined(USE_FLOAT)

typedef float ModNum;

#define NPrimes 536

#else

Line 756 PL(NM(q))=1,BD(NM(q))[0]=(unsigned int)(n),DN(q)=0,(q)

#define MKAlg(b,r) \

(!(b)?((r)=0):NUM(b)?((r)=(Alg)(b)):(NEWAlg(r),BDY(r)=(Obj)(b),(r)))

#if PARI

#if defined(PARI)

#define ToReal(a) (!(a)?(double)0.0:REAL(a)?BDY((Real)a):RATN(a)?RatnToReal((Q)a):BIGFLOAT(a)?rtodbl(BDY((BF)a)):0)

#else

#define ToReal(a) (!(a)?(double)0.0:REAL(a)?BDY((Real)a):RATN(a)?RatnToReal((Q)a):0.0)

Line 1867 int berlekampsf(UM p,int df,UM *tab,UM *r);

void minipolysf(UM f,UM p,UM mp);

int find_rootsf(UM p,int *root);

void canzassf(UM f,int d,UM *r);

void sfhensel(int count,P f,V x,int degbound,GFS *evp,P *sfp,ML *listp);

void sfhensel(int count,P f,V x,V y,int degbound,GFS *evp,P *sfp,ML *listp);

int sfberle(VL vl,P f,int count,GFS *ev,DCP *dcp);

int sfberle(V x,V y,P f,int count,GFS *ev,DCP *dcp);

void sfgcdgen(P f,ML blist,ML *clistp);

void sfhenmain2(BM f,UM g0,UM h0,int dy,BM *gp);

void ptosfbm(int dy,P f,BM fl);