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