| 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 |