version 1.33, 2003/07/18 10:13:11 |
version 1.35, 2003/08/01 08:38:05 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.32 2003/06/19 07:08:18 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.34 2003/07/31 02:56:13 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "base.h" |
#include "base.h" |
|
|
*rp = f; return; |
*rp = f; return; |
} |
} |
m = QTOS((Q)ARG2(arg)); |
m = QTOS((Q)ARG2(arg)); |
if ( !m ) |
|
error("nd_gr : invalid argument"); |
|
create_order_spec(ARG3(arg),&ord); |
create_order_spec(ARG3(arg),&ord); |
nd_gr(f,v,m,&ord,rp); |
if ( m >= 0 ) |
|
nd_gr(f,v,m,&ord,rp); |
|
else |
|
nd_gr_trace(f,v,-m,&ord,rp); |
} |
} |
|
|
/* for Weyl algebra */ |
/* for Weyl algebra */ |