1 #include "def.h" 2 #include "macro.h" 3 t_MONOMIAL_SCHUR(a,b)4INT 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