OpenXM_contrib2/asir2000/engine/dist.c - diff

Return to dist.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

version 1.26, 2003/08/22 08:14:45

version 1.27, 2004/02/03 23:31:57

Line 45

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

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/engine/dist.c,v 1.25 2003/07/09 07:11:08 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/engine/dist.c,v 1.26 2003/08/22 08:14:45 noro Exp $

#include "ca.h"

Line 72 int (*primitive_cmpdl[3])() = {cmpdl_revgradlex,cmpdl_

int do_weyl;

int dp_nelim,dp_fcoeffs;

struct order_spec dp_current_spec;

struct order_spec *dp_current_spec;

int *dp_dl_work;

void comm_muld_trunc(VL vl,DP p1,DP p2,DL dl,DP *pr);

Line 151 void initd(struct order_spec *spec)

}

break;

}

dp_current_spec = *spec;

dp_current_spec = spec;

}

void ptod(VL vl,VL dvl,P p,DP *pr)

Line 1467 int cmpdl_order_pair(int n,DL d1,DL d2)

int len,head;

struct order_pair *pair;

len = dp_current_spec.ord.block.length;

len = dp_current_spec->ord.block.length;

pair = dp_current_spec.ord.block.order_pair;

pair = dp_current_spec->ord.block.order_pair;

head = 0;

for ( i = 0, t1 = d1->d, t2 = d2->d; i < len; i++ ) {

Line 1525 int cmpdl_matrix(int n,DL d1,DL d2)

for ( i = 0, t1 = d1->d, t2 = d2->d, w = dp_dl_work; i < n; i++ )

w[i] = t1[i]-t2[i];

len = dp_current_spec.ord.matrix.row;

len = dp_current_spec->ord.matrix.row;

matrix = dp_current_spec.ord.matrix.matrix;

matrix = dp_current_spec->ord.matrix.matrix;

for ( j = 0; j < len; j++ ) {

v = matrix[j];

for ( i = 0, s = 0; i < n; i++ )