| /dports/science/cdcl/dcl-5.4.8-C/src/math1/maplib/ |
| H A D | mpfrbs.c | 24 real r__1, r__2, r__3, r__4, r__5, r__6, r__7, r__8, r__9; in mpfrbs_0_() local
40 r__3 = pi * .5f - 1e-5f; in mpfrbs_0_()
41 r__1 = -pi * .5f + 1e-5f, r__2 = min(r__3,*ylat); in mpfrbs_0_()
48 r__3 = yy, r__3 *= r__3; in mpfrbs_0_()
56 r__3 * r__3) * .12723f - r__4 * r__4 * .0467883f + r__6 * (r__5 * in mpfrbs_0_()
61 r__2 = yy, r__3 = r__2, r__2 *= r__2; in mpfrbs_0_()
66 *y = (yy * .358968f + r__1 * (r__1 * r__1) * .0109118f - r__3 * (r__2 * in mpfrbs_0_()
78 r__2 = yy, r__3 = r__2, r__2 *= r__2; in mpfrbs_0_()
85 *ylat = yy * 2.7325f + r__1 * (r__1 * r__1) * 1.75437f - r__3 * (r__2 * in mpfrbs_0_()
93 r__3 = *ylat, r__3 *= r__3; in mpfrbs_0_()
[all …]
|
| H A D | mpfvdg.c | 27 real r__1, r__2, r__3, r__4, r__5, r__6, r__7, r__8, r__9, r__10, r__11, in mpxvdg_() local
79 r__2 = phi, r__3 = r__2, r__2 *= r__2; in mpxvdg_()
92 *y = phi * .9770711f + r__1 * (r__1 * r__1) * .5484717f - r__3 * ( in mpxvdg_()
113 r__3 = g - r__4 * r__4; in mpxvdg_()
122 *x = sgnlam * (pi * (a * (g - r__1 * r__1) + sqrt(r__2 * r__2 * (r__3 * in mpxvdg_()
123 r__3) - (r__5 * r__5 + r__6 * r__6) * (r__7 * r__7 - r__8 * r__8)) in mpxvdg_()
133 r__3 = p; in mpxvdg_()
142 *y = sgnphi * pi * (r__1 = p * q - a * sqrt((r__2 * r__2 + 1) * (r__3 * in mpxvdg_()
143 r__3 + r__4 * r__4) - r__5 * r__5), abs(r__1)) / (r__6 * r__6 + in mpxvdg_()
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | sla_syrpvgrw.c | 114 real ret_val, r__1, r__2, r__3; in sla_syrpvgrw_() local
190 work[*n + i__] = max(r__2,r__3); in sla_syrpvgrw_()
194 work[*n + j] = max(r__2,r__3); in sla_syrpvgrw_()
213 work[*n + i__] = max(r__2,r__3); in sla_syrpvgrw_()
217 work[*n + j] = max(r__2,r__3); in sla_syrpvgrw_()
249 work[k] = max(r__2,r__3); in sla_syrpvgrw_()
268 work[k] = max(r__2,r__3); in sla_syrpvgrw_()
277 work[k] = max(r__2,r__3); in sla_syrpvgrw_()
328 work[k] = max(r__2,r__3); in sla_syrpvgrw_()
347 work[k] = max(r__2,r__3); in sla_syrpvgrw_()
[all …]
|
| H A D | cla_herpvgrw.c | 115 real ret_val, r__1, r__2, r__3, r__4; in cla_herpvgrw_() local
198 work[*n + i__] = max(r__3,r__4); in cla_herpvgrw_()
203 work[*n + j] = max(r__3,r__4); in cla_herpvgrw_()
223 work[*n + i__] = max(r__3,r__4); in cla_herpvgrw_()
228 work[*n + j] = max(r__3,r__4); in cla_herpvgrw_()
261 work[k] = max(r__3,r__4); in cla_herpvgrw_()
281 work[k] = max(r__3,r__4); in cla_herpvgrw_()
292 work[k] = max(r__3,r__4); in cla_herpvgrw_()
344 work[k] = max(r__3,r__4); in cla_herpvgrw_()
364 work[k] = max(r__3,r__4); in cla_herpvgrw_()
[all …]
|
| H A D | cla_syrpvgrw.c | 115 real ret_val, r__1, r__2, r__3, r__4; in cla_syrpvgrw_() local
198 work[*n + i__] = max(r__3,r__4); in cla_syrpvgrw_()
203 work[*n + j] = max(r__3,r__4); in cla_syrpvgrw_()
223 work[*n + i__] = max(r__3,r__4); in cla_syrpvgrw_()
228 work[*n + j] = max(r__3,r__4); in cla_syrpvgrw_()
261 work[k] = max(r__3,r__4); in cla_syrpvgrw_()
281 work[k] = max(r__3,r__4); in cla_syrpvgrw_()
292 work[k] = max(r__3,r__4); in cla_syrpvgrw_()
344 work[k] = max(r__3,r__4); in cla_syrpvgrw_()
364 work[k] = max(r__3,r__4); in cla_syrpvgrw_()
[all …]
|
| H A D | ssyequb.c | 131 real r__1, r__2, r__3; in ssyequb_() local
229 s[i__] = max(r__2,r__3); in ssyequb_()
233 s[j] = max(r__2,r__3); in ssyequb_()
237 *amax = max(r__2,r__3); in ssyequb_()
242 s[j] = max(r__2,r__3); in ssyequb_()
246 *amax = max(r__2,r__3); in ssyequb_()
259 s[j] = max(r__2,r__3); in ssyequb_()
263 *amax = max(r__2,r__3); in ssyequb_()
272 s[i__] = max(r__2,r__3); in ssyequb_()
276 s[j] = max(r__2,r__3); in ssyequb_()
[all …]
|
| H A D | slangt.c | 100 real ret_val, r__1, r__2, r__3, r__4; in slangt_() local
149 r__3 = (r__2 = dl[i__], f2c_abs(r__2)); in slangt_()
150 if (anorm < (r__1 = dl[i__], f2c_abs(r__1)) || sisnan_(&r__3)) in slangt_()
154 r__3 = (r__2 = d__[i__], f2c_abs(r__2)); in slangt_()
155 if (anorm < (r__1 = d__[i__], f2c_abs(r__1)) || sisnan_(&r__3)) in slangt_()
159 r__3 = (r__2 = du[i__], f2c_abs(r__2)); in slangt_()
160 if (anorm < (r__1 = du[i__], f2c_abs(r__1)) || sisnan_(&r__3)) in slangt_()
187 … d__[i__], f2c_abs(r__1)) + (r__2 = dl[i__], f2c_abs( r__2)) + (r__3 = du[i__ - 1], f2c_abs(r__3)); in slangt_()
216 … d__[i__], f2c_abs(r__1)) + (r__2 = du[i__], f2c_abs( r__2)) + (r__3 = dl[i__ - 1], f2c_abs(r__3)); in slangt_()
|
| H A D | csyequb.c | 132 real r__1, r__2, r__3, r__4; in csyequb_() local
235 r__3 = s[i__]; in csyequb_()
240 r__3 = s[j]; in csyequb_()
245 r__3 = *amax; in csyequb_()
251 r__3 = s[j]; in csyequb_()
256 r__3 = *amax; in csyequb_()
270 r__3 = s[j]; in csyequb_()
275 r__3 = *amax; in csyequb_()
285 r__3 = s[i__]; in csyequb_()
290 r__3 = s[j]; in csyequb_()
[all …]
|
| H A D | cheequb.c | 122 real r__1, r__2, r__3, r__4; in cheequb_() local
223 r__3 = s[i__]; in cheequb_()
228 r__3 = s[j]; in cheequb_()
233 r__3 = *amax; in cheequb_()
239 r__3 = s[j]; in cheequb_()
244 r__3 = *amax; in cheequb_()
258 r__3 = s[j]; in cheequb_()
263 r__3 = *amax; in cheequb_()
273 r__3 = s[i__]; in cheequb_()
278 r__3 = s[j]; in cheequb_()
[all …]
|
| H A D | sgtrfs.c | 205 real r__1, r__2, r__3, r__4; in sgtrfs_() local
350 …__2 = d__[ 1] * x[j * x_dim1 + 1], f2c_abs(r__2)) + (r__3 = du[1] * x[j * x_dim1 + 2], f2c_abs(r__… in sgtrfs_()
359 …n - 1] * x[*n - 1 + j * x_dim1], f2c_abs(r__2)) + ( r__3 = d__[*n] * x[*n + j * x_dim1], f2c_abs(r… in sgtrfs_()
370 …__2 = d__[ 1] * x[j * x_dim1 + 1], f2c_abs(r__2)) + (r__3 = dl[1] * x[j * x_dim1 + 2], f2c_abs(r__… in sgtrfs_()
379 …n - 1] * x[*n - 1 + j * x_dim1], f2c_abs(r__2)) + ( r__3 = d__[*n] * x[*n + j * x_dim1], f2c_abs(r… in sgtrfs_()
398 r__3 = (r__1 = work[*n + i__], f2c_abs(r__1)) / work[ i__]; // , expr subst in sgtrfs_()
399 s = max(r__2,r__3); in sgtrfs_()
405 … r__3 = ((r__1 = work[*n + i__], f2c_abs(r__1)) + safe1) / (work[i__] + safe1); // , expr subst in sgtrfs_()
406 s = max(r__2,r__3); in sgtrfs_()
499 r__3 = (r__1 = x[i__ + j * x_dim1], f2c_abs(r__1)); // , expr subst in sgtrfs_()
[all …]
|
| H A D | sla_porpvgrw.c | 97 real ret_val, r__1, r__2, r__3; in sla_porpvgrw_() local
156 r__3 = work[* ncols + j]; // , expr subst in sla_porpvgrw_()
157 work[*ncols + j] = max(r__2,r__3); in sla_porpvgrw_()
175 r__3 = work[* ncols + j]; // , expr subst in sla_porpvgrw_()
176 work[*ncols + j] = max(r__2,r__3); in sla_porpvgrw_()
196 r__3 = work[ j]; // , expr subst in sla_porpvgrw_()
197 work[j] = max(r__2,r__3); in sla_porpvgrw_()
215 r__3 = work[ j]; // , expr subst in sla_porpvgrw_()
216 work[j] = max(r__2,r__3); in sla_porpvgrw_()
|
| H A D | sbbcsd.c | 503 r__3 = 100.f; in sbbcsd_()
706 if (r__1 * r__1 + r__2 * r__2 > r__3 * r__3) in sbbcsd_()
724 if (r__1 * r__1 + r__2 * r__2 > r__3 * r__3) in sbbcsd_()
794 restart11 = r__1 * r__1 + r__2 * r__2 <= r__3 * r__3; in sbbcsd_()
801 restart21 = r__1 * r__1 + r__2 * r__2 <= r__3 * r__3; in sbbcsd_()
808 restart12 = r__1 * r__1 + r__2 * r__2 <= r__3 * r__3; in sbbcsd_()
815 restart22 = r__1 * r__1 + r__2 * r__2 <= r__3 * r__3; in sbbcsd_()
903 restart11 = r__1 * r__1 + r__2 * r__2 <= r__3 * r__3; in sbbcsd_()
910 restart12 = r__1 * r__1 + r__2 * r__2 <= r__3 * r__3; in sbbcsd_()
1013 restart12 = r__1 * r__1 + r__2 * r__2 <= r__3 * r__3; in sbbcsd_()
[all …]
|
| H A D | cbbcsd.c | 507 r__3 = 100.f; in cbbcsd_()
710 if (r__1 * r__1 + r__2 * r__2 > r__3 * r__3) in cbbcsd_()
728 if (r__1 * r__1 + r__2 * r__2 > r__3 * r__3) in cbbcsd_()
798 restart11 = r__1 * r__1 + r__2 * r__2 <= r__3 * r__3; in cbbcsd_()
805 restart21 = r__1 * r__1 + r__2 * r__2 <= r__3 * r__3; in cbbcsd_()
812 restart12 = r__1 * r__1 + r__2 * r__2 <= r__3 * r__3; in cbbcsd_()
819 restart22 = r__1 * r__1 + r__2 * r__2 <= r__3 * r__3; in cbbcsd_()
907 restart11 = r__1 * r__1 + r__2 * r__2 <= r__3 * r__3; in cbbcsd_()
914 restart12 = r__1 * r__1 + r__2 * r__2 <= r__3 * r__3; in cbbcsd_()
1017 restart12 = r__1 * r__1 + r__2 * r__2 <= r__3 * r__3; in cbbcsd_()
[all …]
|
| H A D | cla_porpvgrw.c | 98 real ret_val, r__1, r__2, r__3, r__4; in cla_porpvgrw_() local
163 … r__3 = (r__1 = a[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&a[i__ + j * a_dim1]), f2c_abs(r__2)); in cla_porpvgrw_()
165 work[*ncols + j] = max(r__3,r__4); in cla_porpvgrw_()
183 … r__3 = (r__1 = a[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&a[i__ + j * a_dim1]), f2c_abs(r__2)); in cla_porpvgrw_()
185 work[*ncols + j] = max(r__3,r__4); in cla_porpvgrw_()
205 …r__3 = (r__1 = af[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&af[ i__ + j * af_dim1]), f2c_abs(r__2)… in cla_porpvgrw_()
207 work[j] = max(r__3,r__4); in cla_porpvgrw_()
225 …r__3 = (r__1 = af[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&af[ i__ + j * af_dim1]), f2c_abs(r__2)… in cla_porpvgrw_()
227 work[j] = max(r__3,r__4); in cla_porpvgrw_()
|
| H A D | cgtrfs.c | 211 real r__1, r__2, r__3, r__4, r__5, r__6, r__7, r__8, r__9, r__10, r__11, r__12, r__13, r__14; in cgtrfs_() local
365 …)) + (r__2 = r_imag(&b[ j * b_dim1 + 1]), f2c_abs(r__2)) + ((r__3 = d__[1].r, f2c_abs( r__3)) + (r… in cgtrfs_()
372 …)) + (r__2 = r_imag(&b[ j * b_dim1 + 1]), f2c_abs(r__2)) + ((r__3 = d__[1].r, f2c_abs( r__3)) + (r… in cgtrfs_()
402 …)) + (r__2 = r_imag(&b[ j * b_dim1 + 1]), f2c_abs(r__2)) + ((r__3 = d__[1].r, f2c_abs( r__3)) + (r… in cgtrfs_()
409 …)) + (r__2 = r_imag(&b[ j * b_dim1 + 1]), f2c_abs(r__2)) + ((r__3 = d__[1].r, f2c_abs( r__3)) + (r… in cgtrfs_()
449 r__3 = s; in cgtrfs_()
451 s = max(r__3,r__4); in cgtrfs_()
457 r__3 = s; in cgtrfs_()
459 s = max(r__3,r__4); in cgtrfs_()
566 r__3 = lstres; in cgtrfs_()
[all …]
|
| H A D | cla_gerpvgrw.c | 90 real ret_val, r__1, r__2, r__3; in cla_gerpvgrw_() local
137 … r__3 = (r__1 = a[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&a[i__ + j * a_dim1]), f2c_abs(r__2)); in cla_gerpvgrw_()
138 amax = max(r__3,amax); in cla_gerpvgrw_()
147 …r__3 = (r__1 = af[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&af[i__ + j * af_dim1]), f2c_abs(r__2)); in cla_gerpvgrw_()
148 umax = max(r__3,umax); in cla_gerpvgrw_()
|
| H A D | ctgevc.c | 487 r__3 = anorm; in ctgevc_()
489 anorm = max(r__3,r__4); in ctgevc_()
492 r__3 = bnorm; in ctgevc_()
494 bnorm = max(r__3,r__4); in ctgevc_()
576 r__3 = scale; in ctgevc_()
587 r__3 = scale; in ctgevc_()
757 r__3 = xmax; in ctgevc_()
784 r__3 = xmax; in ctgevc_()
900 r__3 = scale; in ctgevc_()
911 r__3 = scale; in ctgevc_()
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | slangt.c | 17 real ret_val, r__1, r__2, r__3, r__4, r__5; in slangt_() local
116 r__2 = anorm, r__3 = (r__1 = dl[i__], dabs(r__1)); in slangt_()
117 anorm = dmax(r__2,r__3); in slangt_()
119 r__2 = anorm, r__3 = (r__1 = d__[i__], dabs(r__1)); in slangt_()
120 anorm = dmax(r__2,r__3); in slangt_()
122 r__2 = anorm, r__3 = (r__1 = du[i__], dabs(r__1)); in slangt_()
123 anorm = dmax(r__2,r__3); in slangt_()
137 anorm = dmax(r__3,r__4); in slangt_()
142 dl[i__], dabs(r__2)) + (r__3 = du[i__ - 1], dabs(r__3) in slangt_()
158 anorm = dmax(r__3,r__4); in slangt_()
[all …]
|
| H A D | slanst.c | 17 real ret_val, r__1, r__2, r__3, r__4, r__5; in slanst_() local
112 r__2 = anorm, r__3 = (r__1 = d__[i__], dabs(r__1)); in slanst_()
113 anorm = dmax(r__2,r__3); in slanst_()
115 r__2 = anorm, r__3 = (r__1 = e[i__], dabs(r__1)); in slanst_()
116 anorm = dmax(r__2,r__3); in slanst_()
128 r__3 = dabs(d__[1]) + dabs(e[1]), r__4 = (r__1 = e[*n - 1], dabs( in slanst_()
130 anorm = dmax(r__3,r__4); in slanst_()
135 e[i__], dabs(r__2)) + (r__3 = e[i__ - 1], dabs(r__3)); in slanst_()
|
| H A D | sgtrfs.c | 22 real r__1, r__2, r__3, r__4; in sgtrfs_() local
265 d__[1] * x[j * x_dim1 + 1], dabs(r__2)) + (r__3 = du[ in sgtrfs_()
266 1] * x[j * x_dim1 + 2], dabs(r__3)); in sgtrfs_()
271 dabs(r__2)) + (r__3 = d__[i__] * x[i__ + j * in sgtrfs_()
278 r__3 = d__[*n] * x[*n + j * x_dim1], dabs(r__3)); in sgtrfs_()
287 1] * x[j * x_dim1 + 2], dabs(r__3)); in sgtrfs_()
292 dabs(r__2)) + (r__3 = d__[i__] * x[i__ + j * in sgtrfs_()
299 r__3 = d__[*n] * x[*n + j * x_dim1], dabs(r__3)); in sgtrfs_()
319 s = dmax(r__2,r__3); in sgtrfs_()
324 s = dmax(r__2,r__3); in sgtrfs_()
[all …]
|
| H A D | clanht.c | 17 real ret_val, r__1, r__2, r__3; in clanht_() local
112 r__2 = anorm, r__3 = (r__1 = d__[i__], dabs(r__1)); in clanht_()
113 anorm = dmax(r__2,r__3); in clanht_()
128 r__2 = dabs(d__[1]) + c_abs(&e[1]), r__3 = c_abs(&e[*n - 1]) + ( in clanht_()
130 anorm = dmax(r__2,r__3); in clanht_()
134 r__2 = anorm, r__3 = (r__1 = d__[i__], dabs(r__1)) + c_abs(&e[ in clanht_()
136 anorm = dmax(r__2,r__3); in clanht_()
|
| H A D | cgtrfs.c | 277 j * b_dim1 + 1]), dabs(r__2)) + ((r__3 = d__[1].r, in cgtrfs_()
286 j * b_dim1 + 1]), dabs(r__2)) + ((r__3 = d__[1].r, in cgtrfs_()
304 r__3 = dl[i__4].r, dabs(r__3)) + (r__4 = r_imag(& in cgtrfs_()
323 b[*n + j * b_dim1]), dabs(r__2)) + ((r__3 = dl[i__3] in cgtrfs_()
324 .r, dabs(r__3)) + (r__4 = r_imag(&dl[*n - 1]), dabs( in cgtrfs_()
336 j * b_dim1 + 1]), dabs(r__2)) + ((r__3 = d__[1].r, in cgtrfs_()
345 j * b_dim1 + 1]), dabs(r__2)) + ((r__3 = d__[1].r, in cgtrfs_()
363 r__3 = du[i__4].r, dabs(r__3)) + (r__4 = r_imag(& in cgtrfs_()
409 s = dmax(r__3,r__4); in cgtrfs_()
416 s = dmax(r__3,r__4); in cgtrfs_()
[all …]
|
| H A D | ctgevc.c | 372 anorm = dmax(r__3,r__4); in ctgevc_()
377 bnorm = dmax(r__3,r__4); in ctgevc_()
447 dabs(r__2)) >= safmin && (r__3 = bcoeff.r, dabs(r__3) in ctgevc_()
459 scale = dmax(r__3,r__4); in ctgevc_()
468 scale = dmin(r__3,r__4); in ctgevc_()
606 xmax = dmax(r__3,r__4); in ctgevc_()
634 xmax = dmax(r__3,r__4); in ctgevc_()
728 dabs(r__2)) >= safmin && (r__3 = bcoeff.r, dabs(r__3) in ctgevc_()
740 scale = dmax(r__3,r__4); in ctgevc_()
827 r__3 = d__.r, dabs(r__3)) + (r__4 = r_imag(& in ctgevc_()
[all …]
|
| /dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/CLAPACK/ |
| H A D | slanst.c | 24 real ret_val, r__1, r__2, r__3, r__4, r__5; in slanst_() local
118 r__2 = anorm, r__3 = (r__1 = d__[i__], dabs(r__1)); in slanst_()
119 anorm = dmax(r__2,r__3); in slanst_()
121 r__2 = anorm, r__3 = (r__1 = e[i__], dabs(r__1)); in slanst_()
122 anorm = dmax(r__2,r__3); in slanst_()
134 r__3 = dabs(d__[1]) + dabs(e[1]), r__4 = (r__1 = e[*n - 1], dabs( in slanst_()
136 anorm = dmax(r__3,r__4); in slanst_()
141 e[i__], dabs(r__2)) + (r__3 = e[i__ - 1], dabs(r__3)); in slanst_()
|
| /dports/science/cdcl/dcl-5.4.8-C/demo/math2/fftlib/ |
| H A D | fftl02.c | 57 real r__1, r__2, r__3; in tfftpk_() local
169 r__2 = error, r__3 = (r__1 = rldat[i__ - 1], abs(r__1)); in tfftpk_()
170 error = max(r__2,r__3); in tfftpk_()
197 r__2 = error, r__3 = (r__1 = 1.f - rldat[i__ - 1], abs(r__1)); in tfftpk_()
198 error = max(r__2,r__3); in tfftpk_()
228 r__3 = (r__1 = a[i__ - 1], abs(r__1)) + (r__2 = b[i__ - 1], abs(r__2)) in tfftpk_()
230 error = max(r__3,error); in tfftpk_()
|