/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
H A D | slar1v.c | 22 static integer indp, inds, from; in slar1v_() local 178 indp = *n * 3 + 1; in slar1v_() 228 dminus = lld[i__] + work[indp + i__]; in slar1v_() 231 work[indp + i__ - 1] = work[indp + i__] * tmp - *sigma; in slar1v_() 234 tmp = work[indp + r1 - 1]; in slar1v_() 242 if (work[indp + j] > 0.f || work[indp + j] < 1.f) { in slar1v_() 246 work[indp + j] = d__[j + 1] - *sigma; in slar1v_() 249 dminus = lld[i__] + work[indp + i__]; in slar1v_() 253 work[indp + i__ - 1] = d__[i__] - *sigma; in slar1v_() 255 work[indp + i__ - 1] = work[indp + i__] * tmp - *sigma; in slar1v_() [all …]
|
H A D | dlar1v.c | 22 static integer indp, inds, from; in dlar1v_() local 178 indp = *n * 3 + 1; in dlar1v_() 228 dminus = lld[i__] + work[indp + i__]; in dlar1v_() 231 work[indp + i__ - 1] = work[indp + i__] * tmp - *sigma; in dlar1v_() 234 tmp = work[indp + r1 - 1]; in dlar1v_() 242 if (work[indp + j] > 0. || work[indp + j] < 1.) { in dlar1v_() 246 work[indp + j] = d__[j + 1] - *sigma; in dlar1v_() 249 dminus = lld[i__] + work[indp + i__]; in dlar1v_() 253 work[indp + i__ - 1] = d__[i__] - *sigma; in dlar1v_() 255 work[indp + i__ - 1] = work[indp + i__] * tmp - *sigma; in dlar1v_() [all …]
|
H A D | zlar1v.c | 26 static integer indp, inds, from; in zlar1v_() local 184 indp = *n * 3 + 1; in zlar1v_() 234 dminus = lld[i__] + work[indp + i__]; in zlar1v_() 237 work[indp + i__ - 1] = work[indp + i__] * tmp - *sigma; in zlar1v_() 240 tmp = work[indp + r1 - 1]; in zlar1v_() 248 if (work[indp + j] > 0. || work[indp + j] < 1.) { in zlar1v_() 252 work[indp + j] = d__[j + 1] - *sigma; in zlar1v_() 255 dminus = lld[i__] + work[indp + i__]; in zlar1v_() 259 work[indp + i__ - 1] = d__[i__] - *sigma; in zlar1v_() 261 work[indp + i__ - 1] = work[indp + i__] * tmp - *sigma; in zlar1v_() [all …]
|
H A D | clar1v.c | 26 static integer indp, inds, from; in clar1v_() local 184 indp = *n * 3 + 1; in clar1v_() 234 dminus = lld[i__] + work[indp + i__]; in clar1v_() 237 work[indp + i__ - 1] = work[indp + i__] * tmp - *sigma; in clar1v_() 240 tmp = work[indp + r1 - 1]; in clar1v_() 248 if (work[indp + j] > 0.f || work[indp + j] < 1.f) { in clar1v_() 252 work[indp + j] = d__[j + 1] - *sigma; in clar1v_() 255 dminus = lld[i__] + work[indp + i__]; in clar1v_() 259 work[indp + i__ - 1] = d__[i__] - *sigma; in clar1v_() 261 work[indp + i__ - 1] = work[indp + i__] * tmp - *sigma; in clar1v_() [all …]
|
/dports/www/firefox-esr/firefox-91.8.0/security/nss/lib/util/ |
H A D | derenc.c | 203 void **indp = *(void ***)src; in contents_length() local 205 if (indp == NULL) in contents_length() 215 for (; *indp != NULL; indp++) { in contents_length() 225 for (; *indp != NULL; indp++) { in contents_length() 226 SECItem *item = (SECItem *)(*indp); in contents_length() 349 void **indp; in der_encode() local 351 indp = *(void ***)src; in der_encode() 352 PORT_Assert(indp != NULL); in der_encode() 358 for (; *indp != NULL; indp++) { in der_encode() 363 for (; *indp != NULL; indp++) { in der_encode() [all …]
|
/dports/lang/spidermonkey60/firefox-60.9.0/security/nss/lib/util/ |
H A D | derenc.c | 203 void **indp = *(void ***)src; in contents_length() local 205 if (indp == NULL) in contents_length() 215 for (; *indp != NULL; indp++) { in contents_length() 225 for (; *indp != NULL; indp++) { in contents_length() 226 SECItem *item = (SECItem *)(*indp); in contents_length() 349 void **indp; in der_encode() local 351 indp = *(void ***)src; in der_encode() 352 PORT_Assert(indp != NULL); in der_encode() 358 for (; *indp != NULL; indp++) { in der_encode() 363 for (; *indp != NULL; indp++) { in der_encode() [all …]
|
/dports/security/ca_root_nss/nss-3.71/nss/lib/util/ |
H A D | derenc.c | 203 void **indp = *(void ***)src; in contents_length() local 205 if (indp == NULL) in contents_length() 215 for (; *indp != NULL; indp++) { in contents_length() 225 for (; *indp != NULL; indp++) { in contents_length() 226 SECItem *item = (SECItem *)(*indp); in contents_length() 349 void **indp; in der_encode() local 351 indp = *(void ***)src; in der_encode() 352 PORT_Assert(indp != NULL); in der_encode() 358 for (; *indp != NULL; indp++) { in der_encode() 363 for (; *indp != NULL; indp++) { in der_encode() [all …]
|
/dports/www/firefox/firefox-99.0/security/nss/lib/util/ |
H A D | derenc.c | 203 void **indp = *(void ***)src; in contents_length() local 205 if (indp == NULL) in contents_length() 215 for (; *indp != NULL; indp++) { in contents_length() 225 for (; *indp != NULL; indp++) { in contents_length() 226 SECItem *item = (SECItem *)(*indp); in contents_length() 349 void **indp; in der_encode() local 351 indp = *(void ***)src; in der_encode() 352 PORT_Assert(indp != NULL); in der_encode() 358 for (; *indp != NULL; indp++) { in der_encode() 363 for (; *indp != NULL; indp++) { in der_encode() [all …]
|
/dports/www/firefox-legacy/firefox-52.8.0esr/security/nss/lib/util/ |
H A D | derenc.c | 203 void **indp = *(void ***)src; in contents_length() local 205 if (indp == NULL) in contents_length() 215 for (; *indp != NULL; indp++) { in contents_length() 225 for (; *indp != NULL; indp++) { in contents_length() 226 SECItem *item = (SECItem *)(*indp); in contents_length() 349 void **indp; in der_encode() local 351 indp = *(void ***)src; in der_encode() 352 PORT_Assert(indp != NULL); in der_encode() 358 for (; *indp != NULL; indp++) { in der_encode() 363 for (; *indp != NULL; indp++) { in der_encode() [all …]
|
/dports/security/nss/nss-3.76.1/nss/lib/util/ |
H A D | derenc.c | 203 void **indp = *(void ***)src; in contents_length() local 205 if (indp == NULL) in contents_length() 215 for (; *indp != NULL; indp++) { in contents_length() 225 for (; *indp != NULL; indp++) { in contents_length() 226 SECItem *item = (SECItem *)(*indp); in contents_length() 349 void **indp; in der_encode() local 351 indp = *(void ***)src; in der_encode() 352 PORT_Assert(indp != NULL); in der_encode() 358 for (; *indp != NULL; indp++) { in der_encode() 363 for (; *indp != NULL; indp++) { in der_encode() [all …]
|
/dports/mail/thunderbird/thunderbird-91.8.0/security/nss/lib/util/ |
H A D | derenc.c | 203 void **indp = *(void ***)src; in contents_length() local 205 if (indp == NULL) in contents_length() 215 for (; *indp != NULL; indp++) { in contents_length() 225 for (; *indp != NULL; indp++) { in contents_length() 226 SECItem *item = (SECItem *)(*indp); in contents_length() 349 void **indp; in der_encode() local 351 indp = *(void ***)src; in der_encode() 352 PORT_Assert(indp != NULL); in der_encode() 358 for (; *indp != NULL; indp++) { in der_encode() 363 for (; *indp != NULL; indp++) { in der_encode() [all …]
|
/dports/lang/spidermonkey78/firefox-78.9.0/security/nss/lib/util/ |
H A D | derenc.c | 203 void **indp = *(void ***)src; in contents_length() local 205 if (indp == NULL) in contents_length() 215 for (; *indp != NULL; indp++) { in contents_length() 225 for (; *indp != NULL; indp++) { in contents_length() 226 SECItem *item = (SECItem *)(*indp); in contents_length() 349 void **indp; in der_encode() local 351 indp = *(void ***)src; in der_encode() 352 PORT_Assert(indp != NULL); in der_encode() 358 for (; *indp != NULL; indp++) { in der_encode() 363 for (; *indp != NULL; indp++) { in der_encode() [all …]
|
/dports/science/gromacs/gromacs-2021.4/src/gromacs/linearalgebra/gmx_lapack/ |
H A D | slar1vx.cpp | 32 int indp, inds, from; in F77_FUNC() local 77 indp = *n * 3 + 1; in F77_FUNC() 121 dminus = lld[i__] + work[indp + i__]; in F77_FUNC() 124 work[indp + i__ - 1] = work[indp + i__] * tmp - *sigma; in F77_FUNC() 126 tmp = work[indp + r1 - 1]; in F77_FUNC() 132 if (!std::isnan(work[indp + j])) { in F77_FUNC() 136 work[indp + j] = d__[j + 1] - *sigma; in F77_FUNC() 139 dminus = lld[i__] + work[indp + i__]; in F77_FUNC() 143 work[indp + i__ - 1] = d__[i__] - *sigma; in F77_FUNC() 145 work[indp + i__ - 1] = work[indp + i__] * tmp - *sigma; in F77_FUNC() [all …]
|
H A D | dlar1vx.cpp | 32 int indp, inds, from; in F77_FUNC() local 77 indp = *n * 3 + 1; in F77_FUNC() 121 dminus = lld[i__] + work[indp + i__]; in F77_FUNC() 124 work[indp + i__ - 1] = work[indp + i__] * tmp - *sigma; in F77_FUNC() 126 tmp = work[indp + r1 - 1]; in F77_FUNC() 132 if (!std::isnan(work[indp + j])) { in F77_FUNC() 136 work[indp + j] = d__[j + 1] - *sigma; in F77_FUNC() 139 dminus = lld[i__] + work[indp + i__]; in F77_FUNC() 143 work[indp + i__ - 1] = d__[i__] - *sigma; in F77_FUNC() 145 work[indp + i__ - 1] = work[indp + i__] * tmp - *sigma; in F77_FUNC() [all …]
|
/dports/games/tads/tads-3.0.8/tads2/ |
H A D | obj.c | 74 uchar *indp; in objgetp() local 97 if (indp[0] == pbuf[0] && indp[1] == pbuf[1]) in objgetp() 103 || (indp[0] == pbuf[0] && indp[1] < pbuf[1])) in objgetp() 114 && cur < cnt && indp[0] == indp[4] && indp[1] == indp[5]) in objgetp() 116 indp += 4; in objgetp() 955 uchar *indp; in objindx() local 996 if (indp[0] == p[0] && indp[1] == p[1]) in objindx() 999 || (indp[0] == p[0] && indp[1] < p[1])) in objindx() 1008 || (indp[0] == p[0] && indp[1] <= p[1]))) in objindx() 1016 memmove(indp + 4, indp, (size_t)((icnt - cur) * 4)); in objindx() [all …]
|
/dports/games/scummvm/scummvm-2.5.1/engines/glk/tads/tads2/ |
H A D | object.cpp | 68 if (indp[0] == pbuf[0] && indp[1] == pbuf[1]) in objgetp() 74 || (indp[0] == pbuf[0] && indp[1] < pbuf[1])) in objgetp() 85 && cur < cnt && indp[0] == indp[4] && indp[1] == indp[5]) in objgetp() 87 indp += 4; in objgetp() 974 if (indp[0] == p[0] && indp[1] == p[1]) in objindx() 977 || (indp[0] == p[0] && indp[1] < p[1])) in objindx() 986 || (indp[0] == p[0] && indp[1] <= p[1]))) in objindx() 988 indp += 4; in objindx() 994 memmove(indp + 4, indp, (size_t)((icnt - cur) * 4)); in objindx() 1000 indp[0] = p[0]; in objindx() [all …]
|
/dports/games/libretro-scummvm/scummvm-7b1e929/engines/glk/tads/tads2/ |
H A D | object.cpp | 45 uchar *indp = nullptr; in objgetp() local 68 if (indp[0] == pbuf[0] && indp[1] == pbuf[1]) in objgetp() 74 || (indp[0] == pbuf[0] && indp[1] < pbuf[1])) in objgetp() 85 && cur < cnt && indp[0] == indp[4] && indp[1] == indp[5]) in objgetp() 87 indp += 4; in objgetp() 974 if (indp[0] == p[0] && indp[1] == p[1]) in objindx() 977 || (indp[0] == p[0] && indp[1] < p[1])) in objindx() 986 || (indp[0] == p[0] && indp[1] <= p[1]))) in objindx() 994 memmove(indp + 4, indp, (size_t)((icnt - cur) * 4)); in objindx() 1000 indp[0] = p[0]; in objindx() [all …]
|
/dports/math/igraph/igraph-0.9.5/vendor/lapack/ |
H A D | dlar1v.c | 262 integer neg1, neg2, indp, inds; in igraphdlar1v_() local 303 indp = *n * 3 + 1; in igraphdlar1v_() 384 work[indp + *bn - 1] = d__[*bn] - *lambda; in igraphdlar1v_() 387 dminus = lld[i__] + work[indp + i__]; in igraphdlar1v_() 393 work[indp + i__ - 1] = work[indp + i__] * tmp - *lambda; in igraphdlar1v_() 396 tmp = work[indp + r1 - 1]; in igraphdlar1v_() 403 dminus = lld[i__] + work[indp + i__]; in igraphdlar1v_() 412 work[indp + i__ - 1] = work[indp + i__] * tmp - *lambda; in igraphdlar1v_() 414 work[indp + i__ - 1] = d__[i__] - *lambda; in igraphdlar1v_() 423 *mingma = work[inds + r1 - 1] + work[indp + r1 - 1]; in igraphdlar1v_() [all …]
|
/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
H A D | slar1v.c | 230 integer neg1, neg2, indp, inds; in slar1v_() local 280 indp = *n * 3 + 1; in slar1v_() 379 work[indp + *bn - 1] = d__[*bn] - *lambda; in slar1v_() 385 dminus = lld[i__] + work[indp + i__]; in slar1v_() 392 work[indp + i__ - 1] = work[indp + i__] * tmp - *lambda; in slar1v_() 395 tmp = work[indp + r1 - 1]; in slar1v_() 406 dminus = lld[i__] + work[indp + i__]; in slar1v_() 417 work[indp + i__ - 1] = work[indp + i__] * tmp - *lambda; in slar1v_() 420 work[indp + i__ - 1] = d__[i__] - *lambda; in slar1v_() 427 *mingma = work[inds + r1 - 1] + work[indp + r1 - 1]; in slar1v_() [all …]
|
H A D | dlar1v.c | 230 integer neg1, neg2, indp, inds; in dlar1v_() local 280 indp = *n * 3 + 1; in dlar1v_() 379 work[indp + *bn - 1] = d__[*bn] - *lambda; in dlar1v_() 385 dminus = lld[i__] + work[indp + i__]; in dlar1v_() 392 work[indp + i__ - 1] = work[indp + i__] * tmp - *lambda; in dlar1v_() 395 tmp = work[indp + r1 - 1]; in dlar1v_() 406 dminus = lld[i__] + work[indp + i__]; in dlar1v_() 417 work[indp + i__ - 1] = work[indp + i__] * tmp - *lambda; in dlar1v_() 420 work[indp + i__ - 1] = d__[i__] - *lambda; in dlar1v_() 427 *mingma = work[inds + r1 - 1] + work[indp + r1 - 1]; in dlar1v_() [all …]
|
H A D | zlar1v.c | 231 integer neg1, neg2, indp, inds; in zlar1v_() local 281 indp = *n * 3 + 1; in zlar1v_() 380 work[indp + *bn - 1] = d__[*bn] - *lambda; in zlar1v_() 386 dminus = lld[i__] + work[indp + i__]; in zlar1v_() 393 work[indp + i__ - 1] = work[indp + i__] * tmp - *lambda; in zlar1v_() 396 tmp = work[indp + r1 - 1]; in zlar1v_() 407 dminus = lld[i__] + work[indp + i__]; in zlar1v_() 418 work[indp + i__ - 1] = work[indp + i__] * tmp - *lambda; in zlar1v_() 421 work[indp + i__ - 1] = d__[i__] - *lambda; in zlar1v_() 428 *mingma = work[inds + r1 - 1] + work[indp + r1 - 1]; in zlar1v_() [all …]
|
H A D | clar1v.c | 231 integer neg1, neg2, indp, inds; in clar1v_() local 281 indp = *n * 3 + 1; in clar1v_() 380 work[indp + *bn - 1] = d__[*bn] - *lambda; in clar1v_() 386 dminus = lld[i__] + work[indp + i__]; in clar1v_() 393 work[indp + i__ - 1] = work[indp + i__] * tmp - *lambda; in clar1v_() 396 tmp = work[indp + r1 - 1]; in clar1v_() 407 dminus = lld[i__] + work[indp + i__]; in clar1v_() 418 work[indp + i__ - 1] = work[indp + i__] * tmp - *lambda; in clar1v_() 421 work[indp + i__ - 1] = d__[i__] - *lambda; in clar1v_() 428 *mingma = work[inds + r1 - 1] + work[indp + r1 - 1]; in clar1v_() [all …]
|
/dports/science/ergo/ergo-3.8/source/matrix/template_lapack/lapack/ |
H A D | template_lapack_lar1v.h | 58 integer neg1, neg2, indp, inds; in template_lapack_lar1v() local 221 indp = *n * 3 + 1; in template_lapack_lar1v() 302 work[indp + *bn - 1] = d__[*bn] - *lambda; in template_lapack_lar1v() 305 dminus = lld[i__] + work[indp + i__]; in template_lapack_lar1v() 311 work[indp + i__ - 1] = work[indp + i__] * tmp - *lambda; in template_lapack_lar1v() 314 tmp = work[indp + r1 - 1]; in template_lapack_lar1v() 321 dminus = lld[i__] + work[indp + i__]; in template_lapack_lar1v() 330 work[indp + i__ - 1] = work[indp + i__] * tmp - *lambda; in template_lapack_lar1v() 332 work[indp + i__ - 1] = d__[i__] - *lambda; in template_lapack_lar1v() 341 *mingma = work[inds + r1 - 1] + work[indp + r1 - 1]; in template_lapack_lar1v() [all …]
|
/dports/science/madness/madness-ebb3fd7/src/madness/external/elemental/external/pmrrr/src/lapack/ |
H A D | odr1v.c | 33 int neg1, neg2, indp, inds; in odr1v() local 198 indp = *n * 3 + 1; in odr1v() 279 work[indp + *bn - 1] = d__[*bn] - *lambda; in odr1v() 282 dminus = lld[i__] + work[indp + i__]; in odr1v() 288 work[indp + i__ - 1] = work[indp + i__] * tmp - *lambda; in odr1v() 291 tmp = work[indp + r1 - 1]; in odr1v() 298 dminus = lld[i__] + work[indp + i__]; in odr1v() 307 work[indp + i__ - 1] = work[indp + i__] * tmp - *lambda; in odr1v() 309 work[indp + i__ - 1] = d__[i__] - *lambda; in odr1v() 318 *mingma = work[inds + r1 - 1] + work[indp + r1 - 1]; in odr1v() [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/mlcc/ |
H A D | mlcc3_various.F90 | 44 integer :: a, b, inda, indb, indp local 56 indp = max(a,b)*(max(a,b)-3)/2 + a + b 58 unpacked(inda) = packed(indp) 61 unpacked(indb) = packed(indp)
|