OpenXM_contrib2/asir2000/builtin/array.c - diff

Return to array.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

version 1.41, 2004/12/04 09:39:27

version 1.43, 2004/12/18 16:50:10

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.40 2004/12/02 13:53:31 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/array.c,v 1.42 2004/12/13 23:04:16 noro Exp $

#include "ca.h"

#include "base.h"

Line 760 void Psize(NODE arg,LIST *rp)

n = ((MAT)ARG0(arg))->row; m = ((MAT)ARG0(arg))->col;

STOQ(m,q); MKNODE(s,q,0); STOQ(n,q); MKNODE(t,q,s);

break;

case O_IMAT:

n = ((IMAT)ARG0(arg))->row; m = ((IMAT)ARG0(arg))->col;

STOQ(m,q); MKNODE(s,q,0); STOQ(n,q); MKNODE(t,q,s);

break;

default:

error("size : invalid argument"); break;

}

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

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

init_eg(&eg_check); init_eg(&eg_intrat);

period = F4_INTRAT_PERIOD;

for ( q = ONE, count = 0; ; count++ ) {

if ( DP_Print )

if ( DP_Print > 3 )

fprintf(stderr,"o");

/* wc = -b mod md */

for ( i = 0; i < rank; i++ )

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

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

ret = gensolve_check(mat,*nmmat,*dn,rind,cind);

get_eg(&tmp1); add_eg(&eg_check,&tmp0,&tmp1);

if ( ret ) {

if ( DP_Print ) {

if ( DP_Print > 3 ) {

fprintf(stderr,"\n");

print_eg("INV",&eg_inv);

print_eg("MUL",&eg_mul);