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