Annotation of OpenXM_contrib/pari/src/headers/paricast.h, Revision 1.1.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>