version 1.10, 2004/08/18 00:17:02 |
version 1.11, 2004/08/18 01:10:59 |
|
|
* 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/engine/P.c,v 1.9 2004/03/11 09:52:56 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/engine/P.c,v 1.10 2004/08/18 00:17:02 noro Exp $ |
*/ |
*/ |
#ifndef FBASE |
#ifndef FBASE |
#define FBASE |
#define FBASE |
|
|
*r = 0; |
*r = 0; |
else { |
else { |
if ( v == VR(p) ) { |
if ( v == VR(p) ) { |
for ( dc = DC(p), dcr0 = 0; |
for ( dc = DC(p), dcr0 = 0; dc; dc = NEXT(dc) ) { |
dc && DEG(dc); dc = NEXT(dc) ) { |
if ( !DEG(dc) ) continue; |
MULPQ(COEF(dc),(P)DEG(dc),&t); |
MULPQ(COEF(dc),(P)DEG(dc),&t); |
if ( t ) { |
if ( t ) { |
NEXTDC(dcr0,dcr); SUBQ(DEG(dc),ONE,&DEG(dcr)); |
NEXTDC(dcr0,dcr); SUBQ(DEG(dc),ONE,&DEG(dcr)); |
|
|
*r = 0; |
*r = 0; |
else { |
else { |
if ( v == VR(p) ) { |
if ( v == VR(p) ) { |
for ( dc = DC(p), dcr0 = 0; |
for ( dc = DC(p), dcr0 = 0; dc; dc = NEXT(dc) ) { |
dc && DEG(dc); dc = NEXT(dc) ) { |
if ( !DEG(dc) ) continue; |
MULPQ(COEF(dc),(P)DEG(dc),&t); |
MULPQ(COEF(dc),(P)DEG(dc),&t); |
if ( t ) { |
if ( t ) { |
NEXTDC(dcr0,dcr); |
NEXTDC(dcr0,dcr); |