File: msm.c

package info (click to toggle)
symmetrica 2.0-1
  • links: PTS
  • area: main
  • in suites: lenny, squeeze, wheezy
  • size: 3,892 kB
  • ctags: 4,938
  • sloc: ansic: 97,272; makefile: 8
file content (21 lines) | stat: -rw-r--r-- 506 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#include "def.h"
#include "macro.h"

extern INT tsm___faktor();

INT mult_schur_monomial(a,b,c) OP a,b,c;
/* AK 081001 */
{
    OP d;
    INT erg = OK;
    CTTTTO(INTEGER,HASHTABLE,SCHUR,PARTITION,"mult_schur_monomial",a);
    CTTTO(MONOMIAL,PARTITION,HASHTABLE,"mult_schur_monomial",b);
    CTTTO(EMPTY,MONOMIAL,HASHTABLE,"mult_schur_monomial",c);

    NEW_HASHTABLE(d);
    erg += tsm___faktor(a,d,cons_eins);
    erg += mult_monomial_monomial(d,b,c);
    FREEALL(d);
    ENDR("mult_schur_monomial");
}