File: tms.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 (16 lines) | stat: -rw-r--r-- 362 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#include "def.h"
#include "macro.h"

INT t_MONOMIAL_SCHUR(a,b) OP a,b;
{
    INT erg = OK;
    OP m;
    CTTTTO(HASHTABLE,INTEGER,MONOMIAL,PARTITION,"t_MONOMIAL_SCHUR",a);
    TCE2(a,b, t_MONOMIAL_SCHUR,SCHUR);

    m=CALLOCOBJECT();
    erg += first_partition(cons_null,m);
    erg += mult_monomial_schur(a,m,b);
    FREEALL(m);
    ENDR("t_MONOMIAL_SCHUR");
}