| /dports/science/gromacs/gromacs-2021.4/src/gromacs/linearalgebra/gmx_lapack/ |
| H A D | dlarrbx.cpp | 87 if (dplus < 0.) { in F77_FUNC()
91 dplus = d__[*n] + s; in F77_FUNC()
92 if (dplus < 0.) { in F77_FUNC()
101 dplus = d__[j] + s; in F77_FUNC()
102 if (dplus < 0.) { in F77_FUNC()
132 dplus = d__[j] + s; in F77_FUNC()
134 if (dplus < 0.) { in F77_FUNC()
139 if (dplus < 0.) { in F77_FUNC()
160 if (dplus < 0.) { in F77_FUNC()
256 if (dplus < 0.) { in F77_FUNC()
[all …]
|
| H A D | slarrbx.cpp | 87 if (dplus < 0.) { in F77_FUNC()
91 dplus = d__[*n] + s; in F77_FUNC()
92 if (dplus < 0.) { in F77_FUNC()
101 dplus = d__[j] + s; in F77_FUNC()
102 if (dplus < 0.) { in F77_FUNC()
132 dplus = d__[j] + s; in F77_FUNC()
134 if (dplus < 0.) { in F77_FUNC()
139 if (dplus < 0.) { in F77_FUNC()
160 if (dplus < 0.) { in F77_FUNC()
256 if (dplus < 0.) { in F77_FUNC()
[all …]
|
| H A D | dlarrfx.cpp | 20 double *dplus, in F77_FUNC()
33 --dplus; in F77_FUNC()
46 dplus[1] = d__[1] + s; in F77_FUNC()
47 dmax1 = std::abs(dplus[1]); in F77_FUNC()
50 lplus[i__] = ld[i__] / dplus[i__]; in F77_FUNC()
52 dplus[i__ + 1] = d__[i__ + 1] + s; in F77_FUNC()
53 d__2 = dmax1, d__3 = std::abs(dplus[i__ + 1]); in F77_FUNC()
83 F77_FUNC(dcopy,DCOPY)(n, &work[1], &i1, &dplus[1], &i1); in F77_FUNC()
|
| H A D | slarrfx.cpp | 20 float *dplus, in F77_FUNC()
33 --dplus; in F77_FUNC()
46 dplus[1] = d__[1] + s; in F77_FUNC()
47 dmax1 = std::abs(dplus[1]); in F77_FUNC()
50 lplus[i__] = ld[i__] / dplus[i__]; in F77_FUNC()
52 dplus[i__ + 1] = d__[i__ + 1] + s; in F77_FUNC()
53 d__2 = dmax1, d__3 = std::abs(dplus[i__ + 1]); in F77_FUNC()
83 F77_FUNC(scopy,SCOPY)(n, &work[1], &i1, &dplus[1], &i1); in F77_FUNC()
|
| /dports/science/madness/madness-ebb3fd7/src/madness/external/elemental/external/pmrrr/src/lapack/ |
| H A D | odrrj.c | 192 dplus = d__[1] - s; in odrrj()
193 if (dplus < 0.) { in odrrj()
198 dplus = d__[j] - s - e2[j - 1] / dplus; in odrrj()
199 if (dplus < 0.) { in odrrj()
217 if (dplus < 0.) { in odrrj()
222 dplus = d__[j] - s - e2[j - 1] / dplus; in odrrj()
223 if (dplus < 0.) { in odrrj()
286 dplus = d__[1] - s; in odrrj()
287 if (dplus < 0.) { in odrrj()
292 dplus = d__[j] - s - e2[j - 1] / dplus; in odrrj()
[all …]
|
| H A D | odrrf.c | 153 --dplus; in odrrf()
226 dplus[1] = d__[1] + s; in odrrf()
227 if (fabs(dplus[1]) < *pivmin) { in odrrf()
228 dplus[1] = -(*pivmin); in odrrf()
233 max1 = fabs(dplus[1]); in odrrf()
236 lplus[i__] = ld[i__] / dplus[i__]; in odrrf()
238 dplus[i__ + 1] = d__[i__ + 1] + s; in odrrf()
240 dplus[i__ + 1] = -(*pivmin); in odrrf()
325 tmp = (d__1 = dplus[*n], fabs(d__1)); in odrrf()
331 prod = dplus[i__ + 1] * work[*n + i__ + 1] / (dplus[i__] * in odrrf()
[all …]
|
| H A D | odr1v.c | 34 double dplus; in odr1v() local
213 dplus = d__[i__] + s; in odr1v()
215 if (dplus < 0.) { in odr1v()
228 dplus = d__[i__] + s; in odr1v()
243 dplus = d__[i__] + s; in odr1v()
244 if (fabs(dplus) < *pivmin) { in odr1v()
245 dplus = -(*pivmin); in odr1v()
248 if (dplus < 0.) { in odr1v()
260 dplus = d__[i__] + s; in odr1v()
261 if (fabs(dplus) < *pivmin) { in odr1v()
[all …]
|
| /dports/math/igraph/igraph-0.9.5/vendor/lapack/ |
| H A D | dlarrj.c | 277 dplus = d__[1] - s; in igraphdlarrj_()
278 if (dplus < 0.) { in igraphdlarrj_()
283 dplus = d__[j] - s - e2[j - 1] / dplus; in igraphdlarrj_()
284 if (dplus < 0.) { in igraphdlarrj_()
302 if (dplus < 0.) { in igraphdlarrj_()
307 dplus = d__[j] - s - e2[j - 1] / dplus; in igraphdlarrj_()
308 if (dplus < 0.) { in igraphdlarrj_()
371 dplus = d__[1] - s; in igraphdlarrj_()
372 if (dplus < 0.) { in igraphdlarrj_()
377 dplus = d__[j] - s - e2[j - 1] / dplus; in igraphdlarrj_()
[all …]
|
| H A D | dlarrf.c | 256 --dplus; in igraphdlarrf_()
329 dplus[1] = d__[1] + s; in igraphdlarrf_()
330 if (abs(dplus[1]) < *pivmin) { in igraphdlarrf_()
331 dplus[1] = -(*pivmin); in igraphdlarrf_()
336 max1 = abs(dplus[1]); in igraphdlarrf_()
339 lplus[i__] = ld[i__] / dplus[i__]; in igraphdlarrf_()
341 dplus[i__ + 1] = d__[i__ + 1] + s; in igraphdlarrf_()
342 if ((d__1 = dplus[i__ + 1], abs(d__1)) < *pivmin) { in igraphdlarrf_()
343 dplus[i__ + 1] = -(*pivmin); in igraphdlarrf_()
428 tmp = (d__1 = dplus[*n], abs(d__1)); in igraphdlarrf_()
[all …]
|
| H A D | dlar1v.c | 263 doublereal dplus; in igraphdlar1v_() local
318 dplus = d__[i__] + s; in igraphdlar1v_()
320 if (dplus < 0.) { in igraphdlar1v_()
333 dplus = d__[i__] + s; in igraphdlar1v_()
348 dplus = d__[i__] + s; in igraphdlar1v_()
349 if (abs(dplus) < *pivmin) { in igraphdlar1v_()
350 dplus = -(*pivmin); in igraphdlar1v_()
353 if (dplus < 0.) { in igraphdlar1v_()
365 dplus = d__[i__] + s; in igraphdlar1v_()
366 if (abs(dplus) < *pivmin) { in igraphdlar1v_()
[all …]
|
| H A D | dlaneg.c | 144 doublereal bsav, gamma, dplus; in igraphdlaneg_() local
180 dplus = d__[j] + t; in igraphdlaneg_()
181 if (dplus < 0.) { in igraphdlaneg_()
184 tmp = t / dplus; in igraphdlaneg_()
200 dplus = d__[j] + t; in igraphdlaneg_()
201 if (dplus < 0.) { in igraphdlaneg_()
204 tmp = t / dplus; in igraphdlaneg_()
|
| /dports/science/ergo/ergo-3.8/source/matrix/template_lapack/lapack/ |
| H A D | template_lapack_larrj.h | 220 dplus = d__[1] - s; in template_lapack_larrj()
221 if (dplus < 0.) { in template_lapack_larrj()
226 dplus = d__[j] - s - e2[j - 1] / dplus; in template_lapack_larrj()
227 if (dplus < 0.) { in template_lapack_larrj()
245 if (dplus < 0.) { in template_lapack_larrj()
250 dplus = d__[j] - s - e2[j - 1] / dplus; in template_lapack_larrj()
251 if (dplus < 0.) { in template_lapack_larrj()
314 dplus = d__[1] - s; in template_lapack_larrj()
315 if (dplus < 0.) { in template_lapack_larrj()
320 dplus = d__[j] - s - e2[j - 1] / dplus; in template_lapack_larrj()
[all …]
|
| H A D | template_lapack_larrf.h | 46 Treal *dplus, Treal *lplus, Treal *work, integer *info) in template_lapack_larrf() argument
178 --dplus; in template_lapack_larrf()
253 dplus[1] = d__[1] + s; in template_lapack_larrf()
254 if (absMACRO(dplus[1]) < *pivmin) { in template_lapack_larrf()
255 dplus[1] = -(*pivmin); in template_lapack_larrf()
260 max1 = absMACRO(dplus[1]); in template_lapack_larrf()
263 lplus[i__] = ld[i__] / dplus[i__]; in template_lapack_larrf()
265 dplus[i__ + 1] = d__[i__ + 1] + s; in template_lapack_larrf()
267 dplus[i__ + 1] = -(*pivmin); in template_lapack_larrf()
352 tmp = (d__1 = dplus[*n], absMACRO(d__1)); in template_lapack_larrf()
[all …]
|
| H A D | template_lapack_lar1v.h | 59 Treal dplus; in template_lapack_lar1v() local
236 dplus = d__[i__] + s; in template_lapack_lar1v()
238 if (dplus < 0.) { in template_lapack_lar1v()
251 dplus = d__[i__] + s; in template_lapack_lar1v()
266 dplus = d__[i__] + s; in template_lapack_lar1v()
267 if (absMACRO(dplus) < *pivmin) { in template_lapack_lar1v()
268 dplus = -(*pivmin); in template_lapack_lar1v()
271 if (dplus < 0.) { in template_lapack_lar1v()
283 dplus = d__[i__] + s; in template_lapack_lar1v()
284 if (absMACRO(dplus) < *pivmin) { in template_lapack_lar1v()
[all …]
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | slarrj.c | 169 real right, width, dplus; in slarrj_() local
252 dplus = d__[1] - s; in slarrj_()
253 if (dplus < 0.f) in slarrj_()
262 dplus = d__[j] - s - e2[j - 1] / dplus; in slarrj_()
280 dplus = d__[1] - s; in slarrj_()
281 if (dplus < 0.f) in slarrj_()
290 dplus = d__[j] - s - e2[j - 1] / dplus; in slarrj_()
361 dplus = d__[1] - s; in slarrj_()
362 if (dplus < 0.f) in slarrj_()
371 dplus = d__[j] - s - e2[j - 1] / dplus; in slarrj_()
[all …]
|
| H A D | dlarrj.c | 252 dplus = d__[1] - s; in dlarrj_()
253 if (dplus < 0.) in dlarrj_()
262 dplus = d__[j] - s - e2[j - 1] / dplus; in dlarrj_()
263 if (dplus < 0.) in dlarrj_()
280 dplus = d__[1] - s; in dlarrj_()
281 if (dplus < 0.) in dlarrj_()
290 dplus = d__[j] - s - e2[j - 1] / dplus; in dlarrj_()
361 dplus = d__[1] - s; in dlarrj_()
362 if (dplus < 0.) in dlarrj_()
371 dplus = d__[j] - s - e2[j - 1] / dplus; in dlarrj_()
[all …]
|
| H A D | slarrf.c | 229 --dplus; in slarrf_()
300 dplus[1] = d__[1] + s; in slarrf_()
301 if (f2c_abs(dplus[1]) < *pivmin) in slarrf_()
303 dplus[1] = -(*pivmin); in slarrf_()
308 max1 = f2c_abs(dplus[1]); in slarrf_()
314 lplus[i__] = ld[i__] / dplus[i__]; in slarrf_()
316 dplus[i__ + 1] = d__[i__ + 1] + s; in slarrf_()
319 dplus[i__ + 1] = -(*pivmin); in slarrf_()
425 tmp = (r__1 = dplus[*n], f2c_abs(r__1)); in slarrf_()
435 … prod = dplus[i__ + 1] * work[*n + i__ + 1] / (dplus[i__] * work[*n + i__]) * oldp; in slarrf_()
[all …]
|
| H A D | dlarrf.c | 229 --dplus; in dlarrf_()
300 dplus[1] = d__[1] + s; in dlarrf_()
301 if (f2c_abs(dplus[1]) < *pivmin) in dlarrf_()
303 dplus[1] = -(*pivmin); in dlarrf_()
308 max1 = f2c_abs(dplus[1]); in dlarrf_()
314 lplus[i__] = ld[i__] / dplus[i__]; in dlarrf_()
316 dplus[i__ + 1] = d__[i__ + 1] + s; in dlarrf_()
319 dplus[i__ + 1] = -(*pivmin); in dlarrf_()
425 tmp = (d__1 = dplus[*n], f2c_abs(d__1)); in dlarrf_()
435 … prod = dplus[i__ + 1] * work[*n + i__ + 1] / (dplus[i__] * work[*n + i__]) * oldp; in dlarrf_()
[all …]
|
| H A D | slar1v.c | 231 real dplus; in slar1v_() local
299 dplus = d__[i__] + s; in slar1v_()
301 if (dplus < 0.f) in slar1v_()
319 dplus = d__[i__] + s; in slar1v_()
337 dplus = d__[i__] + s; in slar1v_()
338 if (f2c_abs(dplus) < *pivmin) in slar1v_()
340 dplus = -(*pivmin); in slar1v_()
343 if (dplus < 0.f) in slar1v_()
360 dplus = d__[i__] + s; in slar1v_()
361 if (f2c_abs(dplus) < *pivmin) in slar1v_()
[all …]
|
| H A D | dlar1v.c | 231 doublereal dplus; in dlar1v_() local
299 dplus = d__[i__] + s; in dlar1v_()
301 if (dplus < 0.) in dlar1v_()
319 dplus = d__[i__] + s; in dlar1v_()
337 dplus = d__[i__] + s; in dlar1v_()
338 if (f2c_abs(dplus) < *pivmin) in dlar1v_()
340 dplus = -(*pivmin); in dlar1v_()
343 if (dplus < 0.) in dlar1v_()
360 dplus = d__[i__] + s; in dlar1v_()
361 if (f2c_abs(dplus) < *pivmin) in dlar1v_()
[all …]
|
| H A D | slaneg.c | 116 real bsav, gamma, dplus; in slaneg_() local
167 dplus = d__[j] + t; in slaneg_()
168 if (dplus < 0.f) in slaneg_()
172 tmp = t / dplus; in slaneg_()
193 dplus = d__[j] + t; in slaneg_()
194 if (dplus < 0.f) in slaneg_()
198 tmp = t / dplus; in slaneg_()
|
| /dports/science/code_saturne/code_saturne-7.1.0/src/base/ |
| H A D | cs_wall_functions.c | 231 cs_real_t *dplus in CS_PROCF()
253 dplus); in CS_PROCF()
269 const cs_real_t *const dplus, in CS_PROCF()
281 *dplus, in CS_PROCF()
354 *dplus = 0.; in cs_wall_functions_velocity()
385 dplus, in cs_wall_functions_velocity()
443 dplus, in cs_wall_functions_velocity()
478 dplus, in cs_wall_functions_velocity()
550 dplus, in cs_wall_functions_scalar()
567 dplus, in cs_wall_functions_scalar()
[all …]
|
| H A D | cs_wall_functions.h | 599 *dplus = 0.; in cs_wall_functions_2scales_scalable()
606 *dplus = ypluli - *yplus; in cs_wall_functions_2scales_scalable()
897 *dplus = *uk * y0 / l_visc; in cs_wall_functions_2scales_smooth_rough()
913 *dplus = ypluli - *yplus; in cs_wall_functions_2scales_smooth_rough()
967 cs_real_t *dplus, in cs_wall_functions_disabled() argument
973 CS_UNUSED(dplus); in cs_wall_functions_disabled()
1038 cs_real_t dplus, in cs_wall_functions_s_arpaci_larsen() argument
1094 tplus = a2 - 500./((yplus+dplus)*(yplus+dplus)); in cs_wall_functions_s_arpaci_larsen()
1205 cs_real_t dplus, in cs_wall_functions_s_smooth_rough() argument
1261 cs_real_t *dplus
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | slarrf.c | 9 lld, integer *ifirst, integer *ilast, real *w, real *dplus, real * in slarrf_() argument
109 --dplus; in slarrf_()
140 dplus[i__] = d__[i__] + s; in slarrf_()
141 lplus[i__] = ld[i__] / dplus[i__]; in slarrf_()
145 dplus[*n] = d__[*n] + s; in slarrf_()
149 if (dplus[i__] < 0.f) { in slarrf_()
158 if (dplus[i__] > 0.f) { in slarrf_()
|
| H A D | dlarrf.c | 10 doublereal *w, doublereal *dplus, doublereal *lplus, doublereal *work, in dlarrf_() argument
110 --dplus; in dlarrf_()
141 dplus[i__] = d__[i__] + s; in dlarrf_()
142 lplus[i__] = ld[i__] / dplus[i__]; in dlarrf_()
146 dplus[*n] = d__[*n] + s; in dlarrf_()
150 if (dplus[i__] < 0.) { in dlarrf_()
159 if (dplus[i__] > 0.) { in dlarrf_()
|