OpenXM_contrib2/asir2000/builtin/array.c - diff

Return to array.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

version 1.54, 2006/06/17 10:12:06

version 1.56, 2007/11/23 05:43:23

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.53 2006/06/12 11:52:10 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/array.c,v 1.55 2006/10/26 10:49:16 noro Exp $

#include "ca.h"

#include "base.h"

Line 391 void Pnewvect(NODE arg,VECT *rp)

if ( argc(arg) == 2 ) {

list = (LIST)ARG1(arg);

asir_assert(list,O_LIST,"newvect");

#if 0

for ( r = 0, tn = BDY(list); tn; r++, tn = NEXT(tn) );

if ( r > len ) {

*rp = vect;

return;

}

#endif

for ( i = 0, tn = BDY(list), vb = BDY(vect); tn; i++, tn = NEXT(tn) )

vb[i] = (pointer)BDY(tn);

}

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

Line 1544 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,

Line 1568 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);