version 1.16, 2001/06/25 01:35:22 |
version 1.19, 2001/08/20 09:03:25 |
|
|
* 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/include/ca.h,v 1.15 2001/06/20 09:30:34 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/include/ca.h,v 1.18 2001/07/03 01:41:26 noro Exp $ |
*/ |
*/ |
#include <stdio.h> |
#include <stdio.h> |
|
|
Line 538 bzero((char *)(p),(int)(((n)+1)*sizeof(type)))) |
|
Line 538 bzero((char *)(p),(int)(((n)+1)*sizeof(type)))) |
|
(p) = ___q___;\ |
(p) = ___q___;\ |
} |
} |
|
|
#define W_BMALLOC(n,bound,p)\ |
#define W_BMALLOC(dx,dy,p)\ |
{\ |
{\ |
BM ___q___;\ |
BM ___q___;\ |
int ___i___;\ |
int ___i___;\ |
UM *___c___;\ |
UM *___c___;\ |
(___q___) = (BM)ALLOCA(TRUESIZE(oBM,(n),UM));\ |
(___q___) = (BM)ALLOCA(TRUESIZE(oBM,(dy),UM));\ |
DEG(___q___) = n;\ |
DEG(___q___) = dy;\ |
___c___ = (UM *)COEF(___q___);\ |
___c___ = (UM *)COEF(___q___);\ |
for ( ___i___ = 0; ___i___ <= n; ___i___++ ) {\ |
for ( ___i___ = 0; ___i___ <= dy; ___i___++ ) {\ |
___c___[___i___] = W_UMALLOC(bound);\ |
___c___[___i___] = W_UMALLOC(dx);\ |
DEG(___c___[___i___]) = -1\ |
clearum(___c___[___i___],dx);\ |
bzero((char *)COEF(___c___[___i___]),((bound)+1)*sizeof(int));\ |
|
}\ |
}\ |
(p) = ___q___;\ |
(p) = ___q___;\ |
} |
} |
Line 1241 void addlm(LM,LM,LM *); |
|
Line 1240 void addlm(LM,LM,LM *); |
|
void addstr(VL,STRING,STRING,STRING *); |
void addstr(VL,STRING,STRING,STRING *); |
void addum(int,UM,UM,UM); |
void addum(int,UM,UM,UM); |
void addvect(VL,VECT,VECT,VECT *); |
void addvect(VL,VECT,VECT,VECT *); |
|
void addquote(VL,QUOTE,QUOTE,QUOTE *); |
void adjc(VL,P,P,P,Q,P *,P *); |
void adjc(VL,P,P,P,Q,P *,P *); |
void afctr(VL,P,P,DCP *); |
void afctr(VL,P,P,DCP *); |
void afctrmain(VL,P,P,int,DCP *); |
void afctrmain(VL,P,P,int,DCP *); |
Line 1264 void chsgnreal(Num,Num *); |
|
Line 1264 void chsgnreal(Num,Num *); |
|
void chsgnmi(MQ,MQ *); |
void chsgnmi(MQ,MQ *); |
void chsgnlm(LM,LM *); |
void chsgnlm(LM,LM *); |
void chsgnvect(VECT,VECT *); |
void chsgnvect(VECT,VECT *); |
|
void chsgnquote(QUOTE,QUOTE *); |
void clctv(VL,P,VL *); |
void clctv(VL,P,VL *); |
void clctvr(VL,Obj,VL *); |
void clctvr(VL,Obj,VL *); |
void cm2p(Q,Q,P,P *); |
void cm2p(Q,Q,P,P *); |
Line 1305 void divsrdcp(VL,P,P,P *,P *); |
|
Line 1306 void divsrdcp(VL,P,P,P *,P *); |
|
void divsrmp(VL,int,P,P,P *,P *); |
void divsrmp(VL,int,P,P,P *,P *); |
void divsrp(VL,P,P,P *,P *); |
void divsrp(VL,P,P,P *,P *); |
void divvect(VL,Obj,Obj,Obj *); |
void divvect(VL,Obj,Obj,Obj *); |
|
void divquote(VL,QUOTE,QUOTE,QUOTE *); |
void dtest(P,ML,int,DCP *); |
void dtest(P,ML,int,DCP *); |
void dtestroot(int,int,P,LUM,struct oDUM *,DCP *); |
void dtestroot(int,int,P,LUM,struct oDUM *,DCP *); |
void dtestroot1(int,int,P,LUM,P *); |
void dtestroot1(int,int,P,LUM,P *); |
Line 1400 void mulsgn(VN,VN,int,VN); |
|
Line 1402 void mulsgn(VN,VN,int,VN); |
|
void mulsum(register int,UM,register int,UM); |
void mulsum(register int,UM,register int,UM); |
void mulum(register int,UM,UM,UM); |
void mulum(register int,UM,UM,UM); |
void mulvect(VL,Obj,Obj,Obj *); |
void mulvect(VL,Obj,Obj,Obj *); |
|
void mulquote(VL,QUOTE,QUOTE,QUOTE *); |
void mulvectmat(VL,VECT,MAT,VECT *); |
void mulvectmat(VL,VECT,MAT,VECT *); |
void next(VN); |
void next(VN); |
void nezgcdnp_sqfr_primitive(VL,P,P *,int,P *); |
void nezgcdnp_sqfr_primitive(VL,P,P *,int,P *); |
Line 1445 void pwrnum(VL,Num,Num,Num *); |
|
Line 1448 void pwrnum(VL,Num,Num,Num *); |
|
void pwrp(VL,P,Q,P *); |
void pwrp(VL,P,Q,P *); |
void pwrq(Q,Q,Q *); |
void pwrq(Q,Q,Q *); |
void pwrr(VL,Obj,Obj,Obj *); |
void pwrr(VL,Obj,Obj,Obj *); |
|
void pwrquote(VL,QUOTE,QUOTE,QUOTE *); |
void pwrreal(Num,Num,Real *); |
void pwrreal(Num,Num,Real *); |
void pwrmi(MQ,Q,MQ *); |
void pwrmi(MQ,Q,MQ *); |
void pwrlm(LM,Q,LM *); |
void pwrlm(LM,Q,LM *); |
Line 1503 void substp(VL,P,V,P,P *); |
|
Line 1507 void substp(VL,P,V,P,P *); |
|
void substvp(VL,P,VN,P *); |
void substvp(VL,P,VN,P *); |
void subum(int,UM,UM,UM); |
void subum(int,UM,UM,UM); |
void subvect(VL,VECT,VECT,VECT *); |
void subvect(VL,VECT,VECT,VECT *); |
|
void subquote(VL,QUOTE,QUOTE,QUOTE *); |
void toreim(Num,Num *,Num *); |
void toreim(Num,Num *,Num *); |
void ucsump(P,Q *); |
void ucsump(P,Q *); |
void udivpwm(Q,P,P,P *,P *); |
void udivpwm(Q,P,P,P *,P *); |