Lines Matching refs:ax
25 #define P_ASSIGN2(x,z,p,ax,az,q) x [p] = 1 argument
33 #define R_ASSEMBLE(x,z,p,ax,az,q) x [p] += ax [q] argument
34 #define R_ASSIGN(x,z,p,ax,az,q) x [p] = ax [q] argument
35 #define R_ASSIGN_CONJ(x,z,p,ax,az,q) x [p] = ax [q] argument
36 #define R_ASSIGN_REAL(x,p,ax,q) x [p] = ax [q] argument
38 #define R_IS_NONZERO(ax,az,q) IS_NONZERO (ax [q]) argument
39 #define R_IS_ZERO(ax,az,q) IS_ZERO (ax [q]) argument
40 #define R_IS_ONE(ax,az,q) (ax [q] == 1) argument
41 #define R_MULT(x,z,p, ax,az,q, bx,bz,r) x [p] = ax [q] * bx [r] argument
42 #define R_MULTADD(x,z,p, ax,az,q, bx,bz,r) x [p] += ax [q] * bx [r] argument
43 #define R_MULTSUB(x,z,p, ax,az,q, bx,bz,r) x [p] -= ax [q] * bx [r] argument
44 #define R_MULTADDCONJ(x,z,p, ax,az,q, bx,bz,r) x [p] += ax [q] * bx [r] argument
45 #define R_MULTSUBCONJ(x,z,p, ax,az,q, bx,bz,r) x [p] -= ax [q] * bx [r] argument
46 #define R_ADD(x,z,p, ax,az,q, bx,bz,r) x [p] = ax [q] + bx [r] argument
47 #define R_ADD_REAL(x,p, ax,q, bx,r) x [p] = ax [q] + bx [r] argument
50 #define R_DIV(x,z,p,ax,az,q) x [p] /= ax [q] argument
51 #define R_LLDOT(x,p, ax,az,q) x [p] -= ax [q] * ax [q] argument
54 #define R_DIV_REAL(x,z,p, ax,az,q, bx,r) x [p] = ax [q] / bx [r] argument
55 #define R_MULT_REAL(x,z,p, ax,az,q, bx,r) x [p] = ax [q] * bx [r] argument
57 #define R_LDLDOT(x,p, ax,az,q, bx,r) x [p] -=(ax[q] * ax[q])/ bx[r] argument
66 #define C_ASSEMBLE(x,z,p,ax,az,q) \ argument
67 x [2*(p) ] += ax [2*(q) ] ; \
68 x [2*(p)+1] += ax [2*(q)+1]
70 #define C_ASSIGN(x,z,p,ax,az,q) \ argument
71 x [2*(p) ] = ax [2*(q) ] ; \
72 x [2*(p)+1] = ax [2*(q)+1]
74 #define C_ASSIGN_REAL(x,p,ax,q) x [2*(p)] = ax [2*(q)] argument
76 #define C_ASSIGN_CONJ(x,z,p,ax,az,q) \ argument
77 x [2*(p) ] = ax [2*(q) ] ; \
78 x [2*(p)+1] = -ax [2*(q)+1]
82 #define C_IS_NONZERO(ax,az,q) \ argument
83 (IS_NONZERO (ax [2*(q)]) || IS_NONZERO (ax [2*(q)+1]))
85 #define C_IS_ZERO(ax,az,q) \ argument
86 (IS_ZERO (ax [2*(q)]) && IS_ZERO (ax [2*(q)+1]))
88 #define C_IS_ONE(ax,az,q) \ argument
89 ((ax [2*(q)] == 1) && IS_ZERO (ax [2*(q)+1]))
91 #define C_IMAG_IS_NONZERO(ax,az,q) (IS_NONZERO (ax [2*(q)+1])) argument
93 #define C_MULT(x,z,p, ax,az,q, bx,bz,r) \ argument
94 x [2*(p) ] = ax [2*(q) ] * bx [2*(r)] - ax [2*(q)+1] * bx [2*(r)+1] ; \
95 x [2*(p)+1] = ax [2*(q)+1] * bx [2*(r)] + ax [2*(q) ] * bx [2*(r)+1]
97 #define C_MULTADD(x,z,p, ax,az,q, bx,bz,r) \ argument
98 x [2*(p) ] += ax [2*(q) ] * bx [2*(r)] - ax [2*(q)+1] * bx [2*(r)+1] ; \
99 x [2*(p)+1] += ax [2*(q)+1] * bx [2*(r)] + ax [2*(q) ] * bx [2*(r)+1]
101 #define C_MULTSUB(x,z,p, ax,az,q, bx,bz,r) \ argument
102 x [2*(p) ] -= ax [2*(q) ] * bx [2*(r)] - ax [2*(q)+1] * bx [2*(r)+1] ; \
103 x [2*(p)+1] -= ax [2*(q)+1] * bx [2*(r)] + ax [2*(q) ] * bx [2*(r)+1]
106 #define C_MULTADDCONJ(x,z,p, ax,az,q, bx,bz,r) \ argument
107 x [2*(p) ] += ax [2*(q) ] * bx [2*(r)] + ax [2*(q)+1] * bx [2*(r)+1] ; \
108 x [2*(p)+1] += (-ax [2*(q)+1]) * bx [2*(r)] + ax [2*(q) ] * bx [2*(r)+1]
111 #define C_MULTSUBCONJ(x,z,p, ax,az,q, bx,bz,r) \ argument
112 x [2*(p) ] -= ax [2*(q) ] * bx [2*(r)] + ax [2*(q)+1] * bx [2*(r)+1] ; \
113 x [2*(p)+1] -= (-ax [2*(q)+1]) * bx [2*(r)] + ax [2*(q) ] * bx [2*(r)+1]
115 #define C_ADD(x,z,p, ax,az,q, bx,bz,r) \ argument
116 x [2*(p) ] = ax [2*(q) ] + bx [2*(r) ] ; \
117 x [2*(p)+1] = ax [2*(q)+1] + bx [2*(r)+1]
119 #define C_ADD_REAL(x,p, ax,q, bx,r) \ argument
120 x [2*(p)] = ax [2*(q)] + bx [2*(r)]
130 #define C_DIV(x,z,p,ax,az,q) \ argument
133 ax [2*(q)], ax [2*(q)+1], \
137 #define C_LLDOT(x,p, ax,az,q) \ argument
138 x [2*(p)] -= ax [2*(q)] * ax [2*(q)] + ax [2*(q)+1] * ax [2*(q)+1]
142 #define C_DIV_REAL(x,z,p, ax,az,q, bx,r) \ argument
143 x [2*(p) ] = ax [2*(q) ] / bx [2*(r)] ; \
144 x [2*(p)+1] = ax [2*(q)+1] / bx [2*(r)]
146 #define C_MULT_REAL(x,z,p, ax,az,q, bx,r) \ argument
147 x [2*(p) ] = ax [2*(q) ] * bx [2*(r)] ; \
148 x [2*(p)+1] = ax [2*(q)+1] * bx [2*(r)]
151 #define C_LDLDOT(x,p, ax,az,q, bx,r) \ argument
152 x [2*(p)] -= (ax [2*(q)] * ax [2*(q)] + ax [2*(q)+1] * ax [2*(q)+1]) / bx[r]
161 #define Z_ASSEMBLE(x,z,p,ax,az,q) \ argument
162 x [p] += ax [q] ; \
165 #define Z_ASSIGN(x,z,p,ax,az,q) \ argument
166 x [p] = ax [q] ; \
169 #define Z_ASSIGN_REAL(x,p,ax,q) x [p] = ax [q] argument
171 #define Z_ASSIGN_CONJ(x,z,p,ax,az,q) \ argument
172 x [p] = ax [q] ; \
177 #define Z_IS_NONZERO(ax,az,q) \ argument
178 (IS_NONZERO (ax [q]) || IS_NONZERO (az [q]))
180 #define Z_IS_ZERO(ax,az,q) \ argument
181 (IS_ZERO (ax [q]) && IS_ZERO (az [q]))
183 #define Z_IS_ONE(ax,az,q) \ argument
184 ((ax [q] == 1) && IS_ZERO (az [q]))
186 #define Z_IMAG_IS_NONZERO(ax,az,q) (IS_NONZERO (az [q])) argument
188 #define Z_MULT(x,z,p, ax,az,q, bx,bz,r) \ argument
189 x [p] = ax [q] * bx [r] - az [q] * bz [r] ; \
190 z [p] = az [q] * bx [r] + ax [q] * bz [r]
192 #define Z_MULTADD(x,z,p, ax,az,q, bx,bz,r) \ argument
193 x [p] += ax [q] * bx [r] - az [q] * bz [r] ; \
194 z [p] += az [q] * bx [r] + ax [q] * bz [r]
196 #define Z_MULTSUB(x,z,p, ax,az,q, bx,bz,r) \ argument
197 x [p] -= ax [q] * bx [r] - az [q] * bz [r] ; \
198 z [p] -= az [q] * bx [r] + ax [q] * bz [r]
200 #define Z_MULTADDCONJ(x,z,p, ax,az,q, bx,bz,r) \ argument
201 x [p] += ax [q] * bx [r] + az [q] * bz [r] ; \
202 z [p] += (-az [q]) * bx [r] + ax [q] * bz [r]
204 #define Z_MULTSUBCONJ(x,z,p, ax,az,q, bx,bz,r) \ argument
205 x [p] -= ax [q] * bx [r] + az [q] * bz [r] ; \
206 z [p] -= (-az [q]) * bx [r] + ax [q] * bz [r]
208 #define Z_ADD(x,z,p, ax,az,q, bx,bz,r) \ argument
209 x [p] = ax [q] + bx [r] ; \
212 #define Z_ADD_REAL(x,p, ax,q, bx,r) \ argument
213 x [p] = ax [q] + bx [r]
223 #define Z_DIV(x,z,p,ax,az,q) \ argument
225 (x [p], z [p], ax [q], az [q], &x [p], &z [p])
228 #define Z_LLDOT(x,p, ax,az,q) \ argument
229 x [p] -= ax [q] * ax [q] + az [q] * az [q]
233 #define Z_DIV_REAL(x,z,p, ax,az,q, bx,r) \ argument
234 x [p] = ax [q] / bx [r] ; \
237 #define Z_MULT_REAL(x,z,p, ax,az,q, bx,r) \ argument
238 x [p] = ax [q] * bx [r] ; \
242 #define Z_LDLDOT(x,p, ax,az,q, bx,r) \ argument
243 x [p] -= (ax [q] * ax [q] + az [q] * az [q]) / bx[r]