1 #include "def.h"
2 #include "macro.h"
3
t_HOMSYM_SCHUR(a,b)4 INT t_HOMSYM_SCHUR(a,b) OP a,b;
5 /* AK 121001 */
6 /* faster using newmultiplication
7 h_n \times S_I = \sum c_n,I,J S_J
8 */
9 {
10 INT erg = OK;
11 OP m;
12 CTTTTO(HASHTABLE,INTEGER,PARTITION,HOMSYM,"t_HOMSYM_SCHUR",a);
13 TCE2(a,b,t_HOMSYM_SCHUR,SCHUR);
14
15 m=CALLOCOBJECT();
16 erg += first_partition(cons_null,m);
17 erg += m_pa_s(m,m);
18 erg += mult_homsym_schur(a,m,b);
19 FREEALL(m);
20 CTTO(HASHTABLE,SCHUR,"t_HOMSYM_SCHUR(e2)",b);
21 ENDR("t_HOMSYM_SCHUR");
22 }
23
24