| /dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/acro/tpl/3po/cobyla2c/ |
| H A D | example.c | 254 d__3 = x[3]; in acro_calcfc()
255 con[1] = 1. - d__1 * d__1 - d__2 * d__2 * 2. - d__3 * d__3 * 3.; in acro_calcfc()
263 *f = d__1 * d__1 + d__3 * d__3; in acro_calcfc()
271 *f = d__1 * d__1 * 10. + d__3 * d__3; in acro_calcfc()
298 d__3 = x[3]; in acro_calcfc()
304 d__3 = x[3]; in acro_calcfc()
310 d__3 = x[3]; in acro_calcfc()
316 d__3 = x[3]; in acro_calcfc()
326 d__3 = x[3], d__3 *= d__3; in acro_calcfc()
339 d__3 = x[4]; in acro_calcfc()
[all …]
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | dla_syrpvgrw.c | 114 doublereal ret_val, d__1, d__2, d__3; in dla_syrpvgrw_() local
190 work[*n + i__] = max(d__2,d__3); in dla_syrpvgrw_()
194 work[*n + j] = max(d__2,d__3); in dla_syrpvgrw_()
213 work[*n + i__] = max(d__2,d__3); in dla_syrpvgrw_()
217 work[*n + j] = max(d__2,d__3); in dla_syrpvgrw_()
249 work[k] = max(d__2,d__3); in dla_syrpvgrw_()
268 work[k] = max(d__2,d__3); in dla_syrpvgrw_()
277 work[k] = max(d__2,d__3); in dla_syrpvgrw_()
328 work[k] = max(d__2,d__3); in dla_syrpvgrw_()
347 work[k] = max(d__2,d__3); in dla_syrpvgrw_()
[all …]
|
| H A D | zla_herpvgrw.c | 115 doublereal ret_val, d__1, d__2, d__3, d__4; in zla_herpvgrw_() local
198 work[*n + i__] = max(d__3,d__4); in zla_herpvgrw_()
203 work[*n + j] = max(d__3,d__4); in zla_herpvgrw_()
223 work[*n + i__] = max(d__3,d__4); in zla_herpvgrw_()
228 work[*n + j] = max(d__3,d__4); in zla_herpvgrw_()
261 work[k] = max(d__3,d__4); in zla_herpvgrw_()
281 work[k] = max(d__3,d__4); in zla_herpvgrw_()
292 work[k] = max(d__3,d__4); in zla_herpvgrw_()
344 work[k] = max(d__3,d__4); in zla_herpvgrw_()
364 work[k] = max(d__3,d__4); in zla_herpvgrw_()
[all …]
|
| H A D | zla_syrpvgrw.c | 115 doublereal ret_val, d__1, d__2, d__3, d__4; in zla_syrpvgrw_() local
198 work[*n + i__] = max(d__3,d__4); in zla_syrpvgrw_()
203 work[*n + j] = max(d__3,d__4); in zla_syrpvgrw_()
223 work[*n + i__] = max(d__3,d__4); in zla_syrpvgrw_()
228 work[*n + j] = max(d__3,d__4); in zla_syrpvgrw_()
261 work[k] = max(d__3,d__4); in zla_syrpvgrw_()
281 work[k] = max(d__3,d__4); in zla_syrpvgrw_()
292 work[k] = max(d__3,d__4); in zla_syrpvgrw_()
344 work[k] = max(d__3,d__4); in zla_syrpvgrw_()
364 work[k] = max(d__3,d__4); in zla_syrpvgrw_()
[all …]
|
| H A D | dsyequb.c | 131 doublereal d__1, d__2, d__3; in dsyequb_() local
229 s[i__] = max(d__2,d__3); in dsyequb_()
233 s[j] = max(d__2,d__3); in dsyequb_()
237 *amax = max(d__2,d__3); in dsyequb_()
242 s[j] = max(d__2,d__3); in dsyequb_()
246 *amax = max(d__2,d__3); in dsyequb_()
259 s[j] = max(d__2,d__3); in dsyequb_()
263 *amax = max(d__2,d__3); in dsyequb_()
272 s[i__] = max(d__2,d__3); in dsyequb_()
276 s[j] = max(d__2,d__3); in dsyequb_()
[all …]
|
| H A D | zheequb.c | 221 d__3 = s[i__]; in zheequb_()
226 d__3 = s[j]; in zheequb_()
231 d__3 = *amax; in zheequb_()
237 d__3 = s[j]; in zheequb_()
242 d__3 = *amax; in zheequb_()
256 d__3 = s[j]; in zheequb_()
261 d__3 = *amax; in zheequb_()
271 d__3 = s[i__]; in zheequb_()
276 d__3 = s[j]; in zheequb_()
281 d__3 = *amax; in zheequb_()
[all …]
|
| H A D | zsyequb.c | 233 d__3 = s[i__]; in zsyequb_()
238 d__3 = s[j]; in zsyequb_()
243 d__3 = *amax; in zsyequb_()
249 d__3 = s[j]; in zsyequb_()
254 d__3 = *amax; in zsyequb_()
268 d__3 = s[j]; in zsyequb_()
273 d__3 = *amax; in zsyequb_()
283 d__3 = s[i__]; in zsyequb_()
288 d__3 = s[j]; in zsyequb_()
293 d__3 = *amax; in zsyequb_()
[all …]
|
| H A D | dlangt.c | 100 doublereal ret_val, d__1, d__2, d__3, d__4; in dlangt_() local
149 d__3 = (d__2 = dl[i__], f2c_abs(d__2)); in dlangt_()
150 if (anorm < (d__1 = dl[i__], f2c_abs(d__1)) || disnan_(&d__3)) in dlangt_()
154 d__3 = (d__2 = d__[i__], f2c_abs(d__2)); in dlangt_()
155 if (anorm < (d__1 = d__[i__], f2c_abs(d__1)) || disnan_(&d__3)) in dlangt_()
159 d__3 = (d__2 = du[i__], f2c_abs(d__2)); in dlangt_()
160 if (anorm < (d__1 = du[i__], f2c_abs(d__1)) || disnan_(&d__3)) in dlangt_()
187 … d__[i__], f2c_abs(d__1)) + (d__2 = dl[i__], f2c_abs( d__2)) + (d__3 = du[i__ - 1], f2c_abs(d__3)); in dlangt_()
216 … d__[i__], f2c_abs(d__1)) + (d__2 = du[i__], f2c_abs( d__2)) + (d__3 = dl[i__ - 1], f2c_abs(d__3)); in dlangt_()
|
| H A D | dgtrfs.c | 205 doublereal d__1, d__2, d__3, d__4; in dgtrfs_() local
356 …__2 = d__[ 1] * x[j * x_dim1 + 1], f2c_abs(d__2)) + (d__3 = du[1] * x[j * x_dim1 + 2], f2c_abs(d__… in dgtrfs_()
365 …n - 1] * x[*n - 1 + j * x_dim1], f2c_abs(d__2)) + ( d__3 = d__[*n] * x[*n + j * x_dim1], f2c_abs(d… in dgtrfs_()
376 …__2 = d__[ 1] * x[j * x_dim1 + 1], f2c_abs(d__2)) + (d__3 = dl[1] * x[j * x_dim1 + 2], f2c_abs(d__… in dgtrfs_()
385 …n - 1] * x[*n - 1 + j * x_dim1], f2c_abs(d__2)) + ( d__3 = d__[*n] * x[*n + j * x_dim1], f2c_abs(d… in dgtrfs_()
404 d__3 = (d__1 = work[*n + i__], f2c_abs(d__1)) / work[ i__]; // , expr subst in dgtrfs_()
405 s = max(d__2,d__3); in dgtrfs_()
411 … d__3 = ((d__1 = work[*n + i__], f2c_abs(d__1)) + safe1) / (work[i__] + safe1); // , expr subst in dgtrfs_()
412 s = max(d__2,d__3); in dgtrfs_()
505 d__3 = (d__1 = x[i__ + j * x_dim1], f2c_abs(d__1)); // , expr subst in dgtrfs_()
[all …]
|
| H A D | dla_porpvgrw.c | 98 doublereal ret_val, d__1, d__2, d__3; in dla_porpvgrw_() local
157 d__3 = work[* ncols + j]; // , expr subst in dla_porpvgrw_()
158 work[*ncols + j] = max(d__2,d__3); in dla_porpvgrw_()
176 d__3 = work[* ncols + j]; // , expr subst in dla_porpvgrw_()
177 work[*ncols + j] = max(d__2,d__3); in dla_porpvgrw_()
197 d__3 = work[ j]; // , expr subst in dla_porpvgrw_()
198 work[j] = max(d__2,d__3); in dla_porpvgrw_()
216 d__3 = work[ j]; // , expr subst in dla_porpvgrw_()
217 work[j] = max(d__2,d__3); in dla_porpvgrw_()
|
| H A D | zbbcsd.c | 503 d__3 = 100.; in zbbcsd_()
706 if (d__1 * d__1 + d__2 * d__2 > d__3 * d__3) in zbbcsd_()
724 if (d__1 * d__1 + d__2 * d__2 > d__3 * d__3) in zbbcsd_()
794 restart11 = d__1 * d__1 + d__2 * d__2 <= d__3 * d__3; in zbbcsd_()
801 restart21 = d__1 * d__1 + d__2 * d__2 <= d__3 * d__3; in zbbcsd_()
808 restart12 = d__1 * d__1 + d__2 * d__2 <= d__3 * d__3; in zbbcsd_()
815 restart22 = d__1 * d__1 + d__2 * d__2 <= d__3 * d__3; in zbbcsd_()
903 restart11 = d__1 * d__1 + d__2 * d__2 <= d__3 * d__3; in zbbcsd_()
910 restart12 = d__1 * d__1 + d__2 * d__2 <= d__3 * d__3; in zbbcsd_()
1013 restart12 = d__1 * d__1 + d__2 * d__2 <= d__3 * d__3; in zbbcsd_()
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | dlangt.c | 17 doublereal ret_val, d__1, d__2, d__3, d__4, d__5; in dlangt_() local
116 d__2 = anorm, d__3 = (d__1 = dl[i__], abs(d__1)); in dlangt_()
117 anorm = max(d__2,d__3); in dlangt_()
119 d__2 = anorm, d__3 = (d__1 = d__[i__], abs(d__1)); in dlangt_()
120 anorm = max(d__2,d__3); in dlangt_()
122 d__2 = anorm, d__3 = (d__1 = du[i__], abs(d__1)); in dlangt_()
123 anorm = max(d__2,d__3); in dlangt_()
137 anorm = max(d__3,d__4); in dlangt_()
142 dl[i__], abs(d__2)) + (d__3 = du[i__ - 1], abs(d__3)); in dlangt_()
157 anorm = max(d__3,d__4); in dlangt_()
[all …]
|
| H A D | dlanst.c | 17 doublereal ret_val, d__1, d__2, d__3, d__4, d__5; in dlanst_() local
112 d__2 = anorm, d__3 = (d__1 = d__[i__], abs(d__1)); in dlanst_()
113 anorm = max(d__2,d__3); in dlanst_()
115 d__2 = anorm, d__3 = (d__1 = e[i__], abs(d__1)); in dlanst_()
116 anorm = max(d__2,d__3); in dlanst_()
128 d__3 = abs(d__[1]) + abs(e[1]), d__4 = (d__1 = e[*n - 1], abs( in dlanst_()
130 anorm = max(d__3,d__4); in dlanst_()
135 i__], abs(d__2)) + (d__3 = e[i__ - 1], abs(d__3)); in dlanst_()
|
| H A D | dgtrfs.c | 23 doublereal d__1, d__2, d__3, d__4; in dgtrfs_() local
269 1] * x[j * x_dim1 + 1], abs(d__2)) + (d__3 = du[1] * in dgtrfs_()
270 x[j * x_dim1 + 2], abs(d__3)); in dgtrfs_()
276 abs(d__3)) + (d__4 = du[i__] * x[i__ + 1 + j * in dgtrfs_()
282 d__3 = d__[*n] * x[*n + j * x_dim1], abs(d__3)); in dgtrfs_()
291 x[j * x_dim1 + 2], abs(d__3)); in dgtrfs_()
297 abs(d__3)) + (d__4 = dl[i__] * x[i__ + 1 + j * in dgtrfs_()
303 d__3 = d__[*n] * x[*n + j * x_dim1], abs(d__3)); in dgtrfs_()
323 s = max(d__2,d__3); in dgtrfs_()
328 s = max(d__2,d__3); in dgtrfs_()
[all …]
|
| /dports/science/madness/madness-ebb3fd7/src/madness/external/elemental/external/pmrrr/src/lapack/ |
| H A D | odnst.c | 17 double ret_val, d__1, d__2, d__3, d__4, d__5; in odnst() local
111 d__2 = anorm, d__3 = (d__1 = d__[i__], fabs(d__1)); in odnst()
112 anorm = fmax(d__2,d__3); in odnst()
114 d__2 = anorm, d__3 = (d__1 = e[i__], fabs(d__1)); in odnst()
115 anorm = fmax(d__2,d__3); in odnst()
127 d__3 = fabs(d__[1]) + fabs(e[1]), d__4 = (d__1 = e[*n - 1], fabs( in odnst()
129 anorm = fmax(d__3,d__4); in odnst()
134 i__], fabs(d__2)) + (d__3 = e[i__ - 1], fabs(d__3)); in odnst()
|
| /dports/misc/visp/visp-3.4.0/3rdparty/clapack/src/ |
| H A D | dlanst.c | 24 doublereal ret_val, d__1, d__2, d__3, d__4, d__5; in dlanst_() local
118 d__2 = anorm, d__3 = (d__1 = d__[i__], abs(d__1)); in dlanst_()
119 anorm = max(d__2,d__3); in dlanst_()
121 d__2 = anorm, d__3 = (d__1 = e[i__], abs(d__1)); in dlanst_()
122 anorm = max(d__2,d__3); in dlanst_()
134 d__3 = abs(d__[1]) + abs(e[1]), d__4 = (d__1 = e[*n - 1], abs( in dlanst_()
136 anorm = max(d__3,d__4); in dlanst_()
141 i__], abs(d__2)) + (d__3 = e[i__ - 1], abs(d__3)); in dlanst_()
|
| /dports/science/hypre/hypre-2.23.0/src/lapack/ |
| H A D | dlanst.c | 70 doublereal ret_val, d__1, d__2, d__3, d__4, d__5; in dlanst_() local
95 d__2 = anorm, d__3 = (d__1 = d__[i__], abs(d__1)); in dlanst_()
96 anorm = max(d__2,d__3); in dlanst_()
98 d__2 = anorm, d__3 = (d__1 = e[i__], abs(d__1)); in dlanst_()
99 anorm = max(d__2,d__3); in dlanst_()
111 d__3 = abs(d__[1]) + abs(e[1]), d__4 = (d__1 = e[*n - 1], abs( in dlanst_()
113 anorm = max(d__3,d__4); in dlanst_()
118 i__], abs(d__2)) + (d__3 = e[i__ - 1], abs(d__3)); in dlanst_()
|
| /dports/science/ergo/ergo-3.8/source/matrix/template_lapack/lapack/ |
| H A D | template_lapack_lanst.h | 101 Treal ret_val, d__1, d__2, d__3, d__4, d__5; in template_lapack_lanst() local
125 d__2 = anorm, d__3 = (d__1 = d__[i__], absMACRO(d__1)); in template_lapack_lanst()
126 anorm = maxMACRO(d__2,d__3); in template_lapack_lanst()
128 d__2 = anorm, d__3 = (d__1 = e[i__], absMACRO(d__1)); in template_lapack_lanst()
129 anorm = maxMACRO(d__2,d__3); in template_lapack_lanst()
141 d__3 = absMACRO(d__[1]) + absMACRO(e[1]), d__4 = (d__1 = e[*n - 1], absMACRO( in template_lapack_lanst()
143 anorm = maxMACRO(d__3,d__4); in template_lapack_lanst()
148 i__], absMACRO(d__2)) + (d__3 = e[i__ - 1], absMACRO(d__3)); in template_lapack_lanst()
|
| /dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/CLAPACK/ |
| H A D | dlanst.c | 24 doublereal ret_val, d__1, d__2, d__3, d__4, d__5; in dlanst_() local
118 d__2 = anorm, d__3 = (d__1 = d__[i__], abs(d__1)); in dlanst_()
119 anorm = max(d__2,d__3); in dlanst_()
121 d__2 = anorm, d__3 = (d__1 = e[i__], abs(d__1)); in dlanst_()
122 anorm = max(d__2,d__3); in dlanst_()
134 d__3 = abs(d__[1]) + abs(e[1]), d__4 = (d__1 = e[*n - 1], abs( in dlanst_()
136 anorm = max(d__3,d__4); in dlanst_()
141 i__], abs(d__2)) + (d__3 = e[i__ - 1], abs(d__3)); in dlanst_()
|
| /dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/double/ |
| H A D | dlanst.c | 28 doublereal ret_val, d__1, d__2, d__3, d__4, d__5; in dlanst_() local
140 d__2 = anorm, d__3 = (d__1 = d__[i__], abs(d__1)); in dlanst_()
141 anorm = max(d__2,d__3); in dlanst_()
144 d__2 = anorm, d__3 = (d__1 = e[i__], abs(d__1)); in dlanst_()
145 anorm = max(d__2,d__3); in dlanst_()
163 d__3 = abs(d__[1]) + abs(e[1]), d__4 = (d__1 = e[*n - 1], abs( in dlanst_()
165 anorm = max(d__3,d__4); in dlanst_()
172 i__], abs(d__2)) + (d__3 = e[i__ - 1], abs(d__3)); in dlanst_()
|
| /dports/misc/vxl/vxl-3.3.2/v3p/netlib/lapack/double/ |
| H A D | dlanst.c | 28 doublereal ret_val, d__1, d__2, d__3, d__4, d__5; in dlanst_() local
140 d__2 = anorm, d__3 = (d__1 = d__[i__], abs(d__1)); in dlanst_()
141 anorm = max(d__2,d__3); in dlanst_()
144 d__2 = anorm, d__3 = (d__1 = e[i__], abs(d__1)); in dlanst_()
145 anorm = max(d__2,d__3); in dlanst_()
163 d__3 = abs(d__[1]) + abs(e[1]), d__4 = (d__1 = e[*n - 1], abs( in dlanst_()
165 anorm = max(d__3,d__4); in dlanst_()
172 i__], abs(d__2)) + (d__3 = e[i__ - 1], abs(d__3)); in dlanst_()
|
| /dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/superlu/SuperLU_4.1/TESTING/ |
| H A D | cgst07.c | 98 float d__3, d__4; in cgst07() local
144 (d__3 = x[imax-1 + j*ldx].i, fabs(d__3)); in cgst07()
149 (d__3 = x[i+j*ldx].i - xact[i+j*ldxact].i, fabs(d__3)); in cgst07()
192 (d__3 = Aval[i].i, fabs(d__3)); in cgst07()
202 (d__3 = x[irow + k*ldx].i, fabs(d__3)); in cgst07()
203 d__2 = (d__3 = Aval[i].r, fabs(d__3)) + in cgst07()
|
| H A D | zgst07.c | 98 double d__3, d__4; in zgst07() local
144 (d__3 = x[imax-1 + j*ldx].i, fabs(d__3)); in zgst07()
149 (d__3 = x[i+j*ldx].i - xact[i+j*ldxact].i, fabs(d__3)); in zgst07()
192 (d__3 = Aval[i].i, fabs(d__3)); in zgst07()
202 (d__3 = x[irow + k*ldx].i, fabs(d__3)); in zgst07()
203 d__2 = (d__3 = Aval[i].r, fabs(d__3)) + in zgst07()
|
| /dports/math/superlu/superlu-5.2.2/TESTING/ |
| H A D | cgst07.c | 108 float d__3, d__4; in cgst07() local
153 (d__3 = x[imax-1 + j*ldx].i, fabs(d__3)); in cgst07()
158 (d__3 = x[i+j*ldx].i - xact[i+j*ldxact].i, fabs(d__3)); in cgst07()
201 (d__3 = Aval[i].i, fabs(d__3)); in cgst07()
211 (d__3 = x[irow + k*ldx].i, fabs(d__3)); in cgst07()
212 d__2 = (d__3 = Aval[i].r, fabs(d__3)) + in cgst07()
|
| H A D | zgst07.c | 108 double d__3, d__4; in zgst07() local
153 (d__3 = x[imax-1 + j*ldx].i, fabs(d__3)); in zgst07()
158 (d__3 = x[i+j*ldx].i - xact[i+j*ldxact].i, fabs(d__3)); in zgst07()
201 (d__3 = Aval[i].i, fabs(d__3)); in zgst07()
211 (d__3 = x[irow + k*ldx].i, fabs(d__3)); in zgst07()
212 d__2 = (d__3 = Aval[i].r, fabs(d__3)) + in zgst07()
|