Annotation of OpenXM_contrib/pari/src/headers/paricast.h, Revision 1.1
1.1 ! maekawa 1: /* $Id: paricast.h,v 1.1.1.1 1999/09/16 13:47:44 karim Exp $ */
! 2: #ifdef lround /* in some Mac header */
! 3: # undef lround
! 4: #endif
! 5:
! 6: #define mael(ma,x1,x2) ( ((GEN) ((GEN)(ma))[x1]) [x2])
! 7: #define mael2 mael
! 8: #define mael3(ma,x1,x2,x3) ( ((GEN) mael2((ma),(x1),(x2))) [x3])
! 9: #define mael4(ma,x1,x2,x3,x4) ( ((GEN) mael3((ma),(x1),(x2),(x3))) [x4])
! 10: #define mael5(ma,x1,x2,x3,x4,x5) (\
! 11: ((GEN) mael4((ma),(x1),(x2),(x3),(x4))) [x5] \
! 12: )
! 13: #define gmael (GEN) mael
! 14: #define gmael2 (GEN) mael
! 15: #define gmael3 (GEN) mael3
! 16: #define gmael4 (GEN) mael4
! 17: #define gmael5 (GEN) mael5
! 18:
! 19: #define coeff(a,i,j) ( ( (GEN) ( (GEN) (a))[j]) [i])
! 20: #define gcoeff(a,i,j) (GEN)coeff((a),(i),(j))
! 21:
! 22: #define labsi (long)absi
! 23: #define labsr (long)absr
! 24: #define lach (long)gach
! 25: #define lacos (long)gacos
! 26: #define ladd (long)gadd
! 27: #define laddii (long)addii
! 28: #define laddir (long)addir
! 29: #define laddis (long)addis
! 30: #define laddmat (long)gaddmat
! 31: #define laddrr (long)addrr
! 32: #define laddrs (long)addrs
! 33: #define laddsi (long)addsi
! 34: #define laddsmat (long)gaddsmat
! 35: #define laddsr (long)addsr
! 36: #define ladj (long)adj
! 37: #define larg (long)garg
! 38: #define lash (long)gash
! 39: #define lasin (long)gasin
! 40: #define lassmat (long)assmat
! 41: #define latan (long)gatan
! 42: #define lath (long)gath
! 43: #define lbezout (long)bezout
! 44: #define lbinome (long)binome
! 45: #define lcaract (long)caract
! 46: #define lcaradj (long)caradj
! 47: #define lceil (long)gceil
! 48: #define lch (long)gch
! 49: #define lchangevar (long)changevar
! 50: #define lclone (long)gclone
! 51: #define lco8 (long)co8
! 52: #define lconcat (long)concat
! 53: #define lconj (long)gconj
! 54: #define lcontent (long)content
! 55: #define lcopy (long)gcopy
! 56: #define lcos (long)gcos
! 57: #define lcvtoi (long)gcvtoi
! 58: #define lderiv (long)deriv
! 59: #define ldet (long)det
! 60: #define ldet2 (long)det2
! 61: #define ldeuc (long)gdeuc
! 62: #define ldiscsr (long)discsr
! 63: /* ldiv is a predefined macro on some AIX versions --GN1997Jan27 */
! 64: #ifdef ldiv
! 65: #undef ldiv
! 66: #endif
! 67: #define ldiv (long)gdiv
! 68:
! 69: #define ldivgs (long)gdivgs
! 70: #define ldivii (long)divii
! 71: #define ldivir (long)divir
! 72: #define ldivis (long)divis
! 73: #define ldivmod (long)gdivmod
! 74: #define ldivres (long)poldivres
! 75: #define ldivri (long)divri
! 76: #define ldivrr (long)divrr
! 77: #define ldivrs (long)divrs
! 78: #define ldivsi (long)divsi
! 79: #define ldivsr (long)divsr
! 80: #define ldvmdii (long)dvmdii
! 81: #define ldvmdis (long)dvmdis
! 82: #define ldvmdsi (long)dvmdsi
! 83: #define lexp (long)gexp
! 84: #define lfibo (long)fibo
! 85: #define lfloor (long)gfloor
! 86: #define lfrac (long)gfrac
! 87: #define lgamd (long)ggamd
! 88: #define lgamma (long)ggamma
! 89: #define lgauss (long)gauss
! 90: #define lgcd (long)ggcd
! 91: #define lgetg (long)cgetg
! 92: #define lgeti (long)cgeti
! 93: #define lgetp (long)cgetp
! 94: #define lgetr (long)cgetr
! 95: #define lgreffe (long)greffe
! 96: #define lhilb (long)hilb
! 97: #define licopy (long)icopy
! 98: #define limag (long)gimag
! 99: #define linteg (long)integ
! 100: #define linv (long)ginv
! 101: #define linvmat (long)invmat
! 102: #define linvmod (long)ginvmod
! 103: #define linvmulmat (long)invmulmat
! 104: #define llegendre (long)legendre
! 105: #define llift (long)lift
! 106: #define llngamma (long)glngamma
! 107: #define llog (long)glog
! 108: #define lmax (long)gmax
! 109: #define lmin (long)gmin
! 110: #define lmod (long)gmod
! 111: #define lmodii (long)modii
! 112: #define lmodsi (long)modsi
! 113: #define lmodulcp (long)gmodulcp
! 114: #define lmodulo (long)gmodulo
! 115: #define lmpabs (long)mpabs
! 116: #define lmpach (long)mpach
! 117: #define lmpacos (long)mpacos
! 118: #define lmpadd (long)mpadd
! 119: #define lmpash (long)mpash
! 120: #define lmpasin (long)mpasin
! 121: #define lmpatan (long)mpatan
! 122: #define lmpath (long)mpath
! 123: #define lmpaut (long)mpaut
! 124: #define lmpch (long)mpch
! 125: #define lmpcos (long)mpcos
! 126: #define lmpdiv (long)mpdiv
! 127: #define lmpent (long)mpent
! 128: #define lmpeuler (long)mpeuler
! 129: #define lmpexp (long)mpexp
! 130: #define lmpexp1 (long)mpexp1
! 131: #define lmpfact (long)mpfact
! 132: #define lmpgamd (long)mpgamd
! 133: #define lmpgamma (long)mpgamma
! 134: #define lmpinvmod (long)mpinvmod
! 135: #define lmplngamma (long)mplngamma
! 136: #define lmplog (long)mplog
! 137: #define lmpmul (long)mpmul
! 138: #define lmpneg (long)mpneg
! 139: #define lmppgcd (long)mppgcd
! 140: #define lmppi (long)mppi
! 141: #define lmppsi (long)mppsi
! 142: #define lmpsc1 (long)mpsc1
! 143: #define lmpsh (long)mpsh
! 144: #define lmpshift (long)mpshift
! 145: #define lmpsin (long)mpsin
! 146: #define lmpsqrt (long)mpsqrt
! 147: #define lmpsub (long)mpsub
! 148: #define lmptan (long)mptan
! 149: #define lmpth (long)mpth
! 150: #define lmptrunc (long)mptrunc
! 151: #define lmul (long)gmul
! 152: #define lmul2n (long)gmul2n
! 153: #define lmulii (long)mulii
! 154: #define lmulir (long)mulir
! 155: #define lmulis (long)mulis
! 156: #define lmulri (long)mulri
! 157: #define lmulrr (long)mulrr
! 158: #define lmulrs (long)mulrs
! 159: #define lmulsg (long)gmulsg
! 160: #define lmulsi (long)mulsi
! 161: #define lmulsr (long)mulsr
! 162: #define lmulss (long)mulss
! 163: #define lneg (long)gneg
! 164: #define lnegi (long)negi
! 165: #define lnegr (long)negr
! 166: #define lnorm (long)gnorm
! 167: #define lnorml2 (long)gnorml2
! 168: #define lopgs2 (long)gopgs2
! 169: #define lopsg2 (long)gopsg2
! 170: #define lpasc (long)pasc
! 171: #define lpile (long)gerepile
! 172: #define lpileupto (long)gerepileupto
! 173: #define lpoleval (long)poleval
! 174: #define lpolgcd (long)polgcd
! 175: #define lpowgs (long)gpowgs
! 176: #define lprec (long)gprec
! 177: #define lprimpart (long)primpart
! 178: #define lpsi (long)gpsi
! 179: #define lpui (long)gpui
! 180: #define lpuigs (long)gpuigs
! 181: #define lpuissmodulo (long)puissmodulo
! 182: #define lquadgen (long)quadgen
! 183: #define lquadpoly (long)quadpoly
! 184: #define lracine (long)racine
! 185: #define lrcopy (long)rcopy
! 186: #define lreal (long)greal
! 187: #define lrecip (long)recip
! 188: #define lred (long)gred
! 189: #define lres (long)gres
! 190: #define lresii (long)resii
! 191: #define lrndtoi (long)grndtoi
! 192: #define lroots (long)roots
! 193: #define lround (long)ground
! 194: #define lscalmat (long)gscalmat
! 195: #define lscalsmat (long)gscalsmat
! 196: #define lsfcont (long)sfcont
! 197: #define lsh (long)gsh
! 198: #define lshift (long)gshift
! 199: #define lshifti (long)shifti
! 200: #define lshiftr (long)shiftr
! 201: #define lsin (long)gsin
! 202: #define lsqr (long)gsqr
! 203: #define lsqri (long)sqri
! 204: #define lsqrt (long)gsqrt
! 205: #define lstoi (long)stoi
! 206: #define lsub (long)gsub
! 207: #define lsubii (long)subii
! 208: #define lsubir (long)subir
! 209: #define lsubis (long)subis
! 210: #define lsubres (long)subres
! 211: #define lsubri (long)subri
! 212: #define lsubrr (long)subrr
! 213: #define lsubrs (long)subrs
! 214: #define lsubsi (long)subsi
! 215: #define lsubsr (long)subsr
! 216: #define lsubst (long)gsubst
! 217: #define ltan (long)gtan
! 218: #define ltchebi (long)tchebi
! 219: #define lth (long)gth
! 220: #define ltrace (long)gtrace
! 221: #define ltrans (long)gtrans
! 222: #define ltrunc (long)gtrunc
! 223:
! 224: #define zero (long)gzero
! 225: #define un (long)gun
! 226: #define deux (long)gdeux
! 227: #define lhalf (long)ghalf
! 228: #define lpolx (long)polx
! 229: #define lpolun (long)polun
! 230:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>