1 #include "def.h"
2 #include "macro.h"
3
4 extern INT tsm___faktor();
5
mult_schur_monomial(a,b,c)6 INT mult_schur_monomial(a,b,c) OP a,b,c;
7 /* AK 081001 */
8 {
9 OP d;
10 INT erg = OK;
11 CTTTTO(INTEGER,HASHTABLE,SCHUR,PARTITION,"mult_schur_monomial",a);
12 CTTTO(MONOMIAL,PARTITION,HASHTABLE,"mult_schur_monomial",b);
13 CTTTO(EMPTY,MONOMIAL,HASHTABLE,"mult_schur_monomial",c);
14
15 NEW_HASHTABLE(d);
16 erg += tsm___faktor(a,d,cons_eins);
17 erg += mult_monomial_monomial(d,b,c);
18 FREEALL(d);
19 ENDR("mult_schur_monomial");
20 }
21
22