OpenXM_contrib2/asir2018/engine/nd.c - diff

Return to nd.c CVS log

Up to [local] / OpenXM_contrib2 / asir2018 / engine

version 1.50, 2021/03/09 05:20:35

version 1.51, 2021/03/09 07:07:02

Line 1

/* $OpenXM: OpenXM_contrib2/asir2018/engine/nd.c,v 1.49 2021/02/28 02:33:16 noro Exp $ */

/* $OpenXM: OpenXM_contrib2/asir2018/engine/nd.c,v 1.50 2021/03/09 05:20:35 noro Exp $ */

#include "nd.h"

Line 5054 void nd_sba(LIST f,LIST v,int m,int homo,int retdp,int

int *perm;

EPOS oepos;

int obpe,oadv,ompos,cbpe;

struct oEGT eg0,eg1,egconv;

struct oEGT eg0,eg1,egconv,egintred;

nd_module = 0;

nd_demand = 0;

Line 5140 void nd_sba(LIST f,LIST v,int m,int homo,int retdp,int

nd_setup_parameters(nvar,0);

}

nd_demand = 0;

get_eg(&eg0);

x = ndv_reducebase(x,perm);

x = ndv_reduceall(m,x);

get_eg(&eg1); init_eg(&egintred); add_eg(&egintred,&eg0,&eg1);

nd_setup_parameters(nd_nvar,0);

get_eg(&eg0);

for ( r0 = 0, t = x; t; t = NEXT(t) ) {

Line 5161 void nd_sba(LIST f,LIST v,int m,int homo,int retdp,int

Line 5163 void nd_sba(LIST f,LIST v,int m,int homo,int retdp,int

} else

MKLIST(*rp,r0);

get_eg(&eg1); init_eg(&egconv); add_eg(&egconv,&eg0,&eg1);

print_eg("intred",&egintred); fprintf(asir_out,"\n");

print_eg("conv",&egconv); fprintf(asir_out,"\n");

}