OpenXM_contrib2/asir2000/builtin/array.c - diff

Return to array.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

version 1.53, 2006/06/12 11:52:10

version 1.55, 2006/10/26 10:49:16

Line 45

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

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/builtin/array.c,v 1.52 2006/05/30 07:35:30 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/array.c,v 1.54 2006/06/17 10:12:06 noro Exp $

#include "ca.h"

#include "base.h"

Line 1542 int generic_gauss_elim_hensel(MAT mat,MAT *nmmat,Q *dn

}

int generic_gauss_elim_hensel_dalg(MAT mat,MAT *nmmat,Q *dn,int **rindp,int **cindp)

int generic_gauss_elim_hensel_dalg(MAT mat,DP *mb,MAT *nmmat,Q *dn,int **rindp,int **cindp)

{

MAT bmat,xmat;

Q **a0,**a,**b,**x,**nm;

Line 1566 int generic_gauss_elim_hensel_dalg(MAT mat,MAT *nmmat,

N wn;

Q wq;

NumberField nf;

DP *mb;

DP m;

int col1;

nf = get_numberfield();

mb = nf->mb;

a0 = (Q **)mat->body;

row = mat->row; col = mat->col;

w = (int **)almat(row,col);

Line 1818 int intmtoratm(MAT mat,N md,MAT nm,Q *dn)

Line 1815 int intmtoratm(MAT mat,N md,MAT nm,Q *dn)

return 0;

row = mat->row; col = mat->col;

bshiftn(md,1,&t);

isqrt(t,&b);

#if 0

isqrt(t,&s);

bshiftn(s,64,&b);

if ( !b )

b = ONEN;

#endif

dn0 = ONE;

tmat = (N **)mat->body;

rmat = (Q **)nm->body;