Return to b.h CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / include

Annotation of OpenXM_contrib2/asir2000/include/b.h, Revision 1.1.1.1

1.1       noro        1: /* $OpenXM: OpenXM/src/asir99/include/b.h,v 1.1.1.1 1999/11/10 08:12:30 noro Exp $ */
                      2: #ifdef FBASE
                      3: #define D_ADDP(x,y,z,u) addp(x,y,z,u)
                      4: #define D_SUBP(x,y,z,u) subp(x,y,z,u)
                      5: #define D_MULP(x,y,z,u) mulp(x,y,z,u)
                      6: #define D_PWRP(x,y,z,u) pwrp(x,y,z,u)
                      7: #define D_DIVSRP(x,y,z,u,v) divsrp(x,y,z,u,v)
                      8: #define D_DIVSRDCP(x,y,z,u,v) divsrdcp(x,y,z,u,v)
                      9: #define D_DIVSP(x,y,z,u) divsp(x,y,z,u)
                     10: #define D_DIVSDCP(x,y,z,u) divsdcp(x,y,z,u)
                     11: #define D_CHSGNP(x,y) chsgnp(x,y)
                     12: #define D_ADDPQ(x,y,z) addpq(x,y,z)
                     13: #define D_ADDPTOC(x,y,z,u) addptoc(x,y,z,u)
                     14: #define D_MULPQ(x,y,z) mulpq(x,y,z)
                     15: #define D_MULPC(x,y,z,u) mulpc(x,y,z,u)
                     16:
                     17: #define ADDP(x,y,z,u) addp(x,y,z,u)
                     18: #define SUBP(x,y,z,u) subp(x,y,z,u)
                     19: #define MULP(x,y,z,u) mulp(x,y,z,u)
                     20: #define PWRP(x,y,z,u) pwrp(x,y,z,u)
                     21: #define DIVSRP(x,y,z,u,v) divsrp(x,y,z,u,v)
                     22: #define DIVSRDCP(x,y,z,u,v) divsrdcp(x,y,z,u,v)
                     23: #define DIVSP(x,y,z,u) divsp(x,y,z,u)
                     24: #define DIVSDCP(x,y,z,u) divsdcp(x,y,z,u)
                     25: #define CHSGNP(x,y) chsgnp(x,y)
                     26: #define ADDPQ(x,y,z) addpq(x,y,z)
                     27: #define ADDPTOC(x,y,z,u) addptoc(x,y,z,u)
                     28: #define MULPQ(x,y,z) mulpq(x,y,z)
                     29: #define MULPC(x,y,z,u) mulpc(x,y,z,u)
                     30: #define ADDNUM(x,y,z) (*addnumt[MAX(NID((Q)x),NID((Q)y))])(x,y,z)
                     31: #define SUBNUM(x,y,z) (*subnumt[MAX(NID((Q)x),NID((Q)y))])(x,y,z)
                     32: #define MULNUM(x,y,z) (*mulnumt[MAX(NID((Q)x),NID((Q)y))])(x,y,z)
                     33: #define DIVNUM(x,y,z) (*divnumt[MAX(NID((Q)x),NID((Q)y))])(x,y,z)
                     34: #define PWRNUM(x,y,z) (*pwrnumt[NID((Q)x)])(x,y,z)
                     35: #define CHSGNNUM(x,y) \
                     36: (NID((Q)x)==N_Q?(DUPQ((Q)x,(Q)y),SGN((Q)y)= -SGN((Q)y),(y))\
                     37:        :NID((Q)x)==N_R?(NEWReal((Real)y),BDY((Real)y)= -BDY((Real)x),(y))\
                     38:                :((*chsgnnumt[NID((Q)x)])(x,&y),(y)))
                     39: #define ADDQ(x,y,z) addq(x,y,z)
                     40: #define SUBQ(x,y,z) subq(x,y,z)
                     41: #define MULQ(x,y,z) mulq(x,y,z)
                     42: #define DIVQ(x,y,z) divq(x,y,z)
                     43: #define PWRQ(x,y,z) pwrq(x,y,z)
                     44: #define INVQ(x,y) invq(x,y)
                     45: #define REMQ(x,y,z) remq(x,y,z)
                     46: #define CMPQ(x,y) cmpq(x,y)
                     47: #define MKBC(x,y) mkbc(x,(Q *)y)
                     48:
                     49: #define One ONE
                     50: #define Uniq(x) UNIQ((Q)x)
                     51: #define Base BASE
                     52: #define Dm(x,y,z,u) DM(x,y,z,u)
                     53: #define Dma(x,y,z,u,v,w) DMA(x,y,z,u,v,w)
                     54: #endif
                     55:
                     56: #ifdef MODULAR
                     57: #define D_ADDP(x,y,z,u) addmp(x,mod,y,z,u) int mod;
                     58: #define D_SUBP(x,y,z,u) submp(x,mod,y,z,u) int mod;
                     59: #define D_MULP(x,y,z,u) mulmp(x,mod,y,z,u) int mod;
                     60: #define D_PWRP(x,y,z,u) pwrmp(x,mod,y,z,u) int mod;
                     61: #define D_DIVSRP(x,y,z,u,v) divsrmp(x,mod,y,z,u,v) int mod;
                     62: #define D_DIVSRDCP(x,y,z,u,v) divsrdcmp(x,mod,y,z,u,v) int mod;
                     63: #define D_DIVSP(x,y,z,u) divsmp(x,mod,y,z,u) int mod;
                     64: #define D_DIVSDCP(x,y,z,u) divsdcmp(x,mod,y,z,u) int mod;
                     65: #define D_CHSGNP(x,y) chsgnmp(mod,x,y) int mod;
                     66: #define D_ADDPQ(x,y,z) addmpq(mod,x,y,z) int mod;
                     67: #define D_ADDPTOC(x,y,z,u) addmptoc(x,mod,y,z,u) int mod;
                     68: #define D_MULPQ(x,y,z) mulmpq(mod,x,y,z) int mod;
                     69: #define D_MULPC(x,y,z,u) mulmpc(x,mod,y,z,u) int mod;
                     70:
                     71: #define ADDP(x,y,z,u) addmp(x,mod,y,z,u)
                     72: #define SUBP(x,y,z,u) submp(x,mod,y,z,u)
                     73: #define MULP(x,y,z,u) mulmp(x,mod,y,z,u)
                     74: #define PWRP(x,y,z,u) pwrmp(x,mod,y,z,u)
                     75: #define DIVSRP(x,y,z,u,v) divsrmp(x,mod,y,z,u,v)
                     76: #define DIVSRDCP(x,y,z,u,v) divsrdcmp(x,mod,y,z,u,v)
                     77: #define DIVSP(x,y,z,u) divsmp(x,mod,y,z,u)
                     78: #define DIVSDCP(x,y,z,u) divsdcmp(x,mod,y,z,u)
                     79: #define CHSGNP(x,y) chsgnmp(mod,x,y)
                     80: #define ADDPQ(x,y,z) addmpq(mod,x,y,z)
                     81: #define ADDPTOC(x,y,z,u) addmptoc(x,mod,y,z,u)
                     82: #define MULPQ(x,y,z) mulmpq(mod,x,y,z)
                     83: #define MULPC(x,y,z,u) mulmpc(x,mod,y,z,u)
                     84: #define ADDNUM(x,y,z) addmq(mod,(MQ)x,(MQ)y,(MQ *)z)
                     85: #define SUBNUM(x,y,z) submq(mod,(MQ)x,(MQ)y,(MQ *)z)
                     86: #define MULNUM(x,y,z) mulmq(mod,(MQ)x,(MQ)y,(MQ *)z)
                     87: #define DIVNUM(x,y,z) divmq(mod,(MQ)x,(MQ)y,(MQ *)z)
                     88: #define PWRNUM(x,y,z) pwrmq(mod,(MQ)x,y,(MQ *)z)
                     89: #define CHSGNNUM(x,y) (NEWMQ((MQ)y),CONT((MQ)(y))=mod-CONT((MQ)(x)))
                     90: #define ADDQ(x,y,z) addmq(mod,x,y,z)
                     91: #define SUBQ(x,y,z) submq(mod,x,y,z)
                     92: #define MULQ(x,y,z) mulmq(mod,x,y,z)
                     93: #define DIVQ(x,y,z) divmq(mod,x,y,z)
                     94: #define PWRQ(x,y,z) pwrmq(mod,x,y,z)
                     95: #define MKBC(x,y) mkbcm(mod,x,(MQ *)y)
                     96:
                     97: #define One ONEM
                     98: #define Uniq(x) UNIMQ((MQ)x)
                     99: #endif