version 1.6, 2019/09/05 08:49:43 |
version 1.7, 2019/09/06 00:11:59 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2018/engine/dist.c,v 1.5 2019/09/04 05:32:10 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2018/engine/dist.c,v 1.6 2019/09/05 08:49:43 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
|
|
Line 2635 NBP harmonic_mul_nbm(NBM a,NBM b) |
|
Line 2635 NBP harmonic_mul_nbm(NBM a,NBM b) |
|
/* DPM functions */ |
/* DPM functions */ |
|
|
DMMstack dmm_stack; |
DMMstack dmm_stack; |
|
extern LIST schreyer_obj; |
|
|
void push_schreyer_order(LIST data) |
void push_schreyer_order(LIST data) |
{ |
{ |
DMMstack t; |
DMMstack t; |
int len,i; |
int len,i; |
NODE in; |
NODE in,t1; |
|
|
/* data = [DPM,...,DPM] */ |
/* data = [DPM,...,DPM] */ |
in = BDY(data); |
in = BDY(data); |
Line 2655 void push_schreyer_order(LIST data) |
|
Line 2656 void push_schreyer_order(LIST data) |
|
t->next = dmm_stack; |
t->next = dmm_stack; |
dmm_stack = t; |
dmm_stack = t; |
dpm_ordtype = 2; |
dpm_ordtype = 2; |
|
MKNODE(t1,data,schreyer_obj?BDY(schreyer_obj):0); |
|
MKLIST(schreyer_obj,t1); |
} |
} |
|
|
|
|
// data=[Ink,...,In0] |
// data=[Ink,...,In0] |
// Ini = a list of module monomials |
// Ini = a list of module monomials |