version 1.40, 2003/09/11 09:03:52 |
version 1.42, 2003/10/17 05:16:49 |
|
|
* 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.39 2003/09/05 13:20:13 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.41 2003/10/08 09:38:06 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "base.h" |
#include "base.h" |
|
|
case 1: |
case 1: |
DP_Print = 1; |
DP_Print = 1; |
break; |
break; |
case 2: default: |
case 2: |
DP_Print = 0; DP_PrintShort = 1; |
DP_Print = 0; DP_PrintShort = 1; |
|
default: |
|
DP_Print = s; DP_PrintShort = 0; |
break; |
break; |
} |
} |
} else { |
} else { |
|
|
} |
} |
m = QTOS((Q)ARG2(arg)); |
m = QTOS((Q)ARG2(arg)); |
create_order_spec(ARG3(arg),&ord); |
create_order_spec(ARG3(arg),&ord); |
nd_gr(f,v,m,&ord,rp); |
nd_gr(f,v,m,0,&ord,rp); |
} |
} |
|
|
void Pnd_weyl_gr_trace(arg,rp) |
void Pnd_weyl_gr_trace(arg,rp) |