| 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; |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to nd.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / engine