version 1.164, 2009/01/07 05:33:18 |
version 1.165, 2009/02/02 02:40:42 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.163 2009/01/05 06:29:46 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.c,v 1.164 2009/01/07 05:33:18 noro Exp $ */ |
|
|
#include "nd.h" |
#include "nd.h" |
|
|
Line 3799 void weyl_mul_nm_nmv(int n,int mod,NM m0,NMV m1,NM *ta |
|
Line 3799 void weyl_mul_nm_nmv(int n,int mod,NM m0,NMV m1,NM *ta |
|
if ( t = tab[j] ) { |
if ( t = tab[j] ) { |
dt = DL(t); |
dt = DL(t); |
PUT_EXP(dt,i,a); PUT_EXP(dt,n2+i,b); TD(dt) += s; |
PUT_EXP(dt,i,a); PUT_EXP(dt,n2+i,b); TD(dt) += s; |
|
if ( nd_module ) { |
|
MPOS(dt) = mpos; |
|
TD(dt) = ndl_weight(dt); |
|
} |
if ( nd_blockmask ) ndl_weight_mask(dt); |
if ( nd_blockmask ) ndl_weight_mask(dt); |
} |
} |
curlen *= k+1; |
curlen *= k+1; |