1 #include "def.h"
2 #include "macro.h"
3 
t_MONOMIAL_SCHUR(a,b)4 INT t_MONOMIAL_SCHUR(a,b) OP a,b;
5 {
6     INT erg = OK;
7     OP m;
8     CTTTTO(HASHTABLE,INTEGER,MONOMIAL,PARTITION,"t_MONOMIAL_SCHUR",a);
9     TCE2(a,b, t_MONOMIAL_SCHUR,SCHUR);
10 
11     m=CALLOCOBJECT();
12     erg += first_partition(cons_null,m);
13     erg += mult_monomial_schur(a,m,b);
14     FREEALL(m);
15     ENDR("t_MONOMIAL_SCHUR");
16 }
17