1 #include "def.h"
2 #include "macro.h"
mult_schur_homsym(a,b,c)3 INT mult_schur_homsym(a,b,c) OP a,b,c;
4 /* AK 081001 */
5 {
6     OP d;
7     INT erg = OK;
8     CTTTO(HASHTABLE,SCHUR,PARTITION,"mult_schur_homsym",a);
9     CTTTO(HASHTABLE,HOMSYM,PARTITION,"mult_schur_homsym",b);
10     CTTTO(HOMSYM,HASHTABLE,EMPTY,"mult_schur_homsym",c);
11 
12     d = CALLOCOBJECT();
13     erg += t_SCHUR_HOMSYM(a,d);
14     erg += mult_homsym_homsym(d,b,c);
15     FREEALL(d);
16     ENDR("mult_schur_homsym");
17 }
18 
19