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