/dports/databases/jdb/jdb-1.14/ |
H A D | DbTDistr.pm | 149 my($alphai); 150 for ($alphai = 0; $alphai <= $#t_alphas; $alphai++) { 151 last if ($t_alphas[$alphai] <= $alpha); 154 if ($alphai > $#t_alphas); 158 my($alpha_left) = $t_alphas[$alphai-1]; 159 my($alpha_right) = $t_alphas[$alphai]; 160 if (floats_equal($t_alphas[$alphai], $alpha)) {
|
/dports/science/cdk/cdk-cdk-2.3/legacy/src/main/java/org/openscience/cdk/math/qm/ |
H A D | GaussiansBasis.java | 324 …return Math.exp(-((alphai * alphaj) / (alphai + alphaj)) * (dx * dx + dy * dy + dz * dz)) * normi … in calcD() 337 double alphaij = alphai + alphaj; in calcI() 375 …return -4d * alphai * alphai * calcI(ni + 2, nj, alphai, alphaj, xi, xj) + 2d * alphai * (2 * ni +… in calcJ() 378 return -4d * alphai * alphai * calcI(3, nj, alphai, alphaj, xi, xj) + 6d * alphai in calcJ() 381 return -4d * alphai * alphai * calcI(2, nj, alphai, alphaj, xi, xj) + 2d * alphai in calcJ() 409 …return ((n - 1) / (2 * (alphai + alphaj))) * calcG(n - 2, t, alphai, alphaj, xi, xj, xN) - (n - 1)… in calcG() 411 + (((alphai * xi + alphaj * xj) / (alphai + alphaj)) - xi) in calcG() 413 + (((alphai * xi + alphaj * xj) / (alphai + alphaj)) - xN) * t * t in calcG() 417 …return (((alphai * xi + alphaj * xj) / (alphai + alphaj)) - xi) * calcG(0, t, alphai, alphaj, xi, … in calcG() 418 + (((alphai * xi + alphaj * xj) / (alphai + alphaj)) - xN) * t * t in calcG() [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/kernel/mips/ |
H A D | cgemm_kernel_8x4_msa.c | 699 pc0[0] -= alphai * res1; \ 701 pc0[1] += alphai * res0; \ 703 pc0[2] -= alphai * res3; \ 705 pc0[3] += alphai * res2; \ 709 pc1[0] -= alphai * res5; \ 711 pc1[1] += alphai * res4; \ 713 pc1[2] -= alphai * res7; \ 715 pc1[3] += alphai * res6; \ 721 pc0[0] -= alphai * res1; \ 723 pc0[1] += alphai * res0; \ [all …]
|
/dports/audio/fdk-aac/fdk-aac-2.0.2/libSBRdec/src/ |
H A D | lpp_tran.cpp | 303 alphai[0] = FL2FXCONST_SGL(0.0f); in lppTransposer() 304 alphai[1] = FL2FXCONST_SGL(0.0f); in lppTransposer() 562 alphai[1] = -alphai[1]; in lppTransposer() 621 alphai[0] = -alphai[0]; in lppTransposer() 628 if ((fMultDiv2(alphar[0], alphar[0]) + fMultDiv2(alphai[0], alphai[0])) >= in lppTransposer() 631 if ((fMultDiv2(alphar[1], alphar[1]) + fMultDiv2(alphai[1], alphai[1])) >= in lppTransposer() 908 alphai[0] = FL2FXCONST_SGL(0.0f); in lppTransposerHBE() 1097 alphai[1] = -alphai[1]; in lppTransposerHBE() 1145 alphai[0] = -alphai[0]; in lppTransposerHBE() 1151 if ((fMultDiv2(alphar[0], alphar[0]) + fMultDiv2(alphai[0], alphai[0])) >= in lppTransposerHBE() [all …]
|
/dports/multimedia/handbrake/fdk-aac-2.0.1/libSBRdec/src/ |
H A D | lpp_tran.cpp | 303 alphai[0] = FL2FXCONST_SGL(0.0f); in lppTransposer() 304 alphai[1] = FL2FXCONST_SGL(0.0f); in lppTransposer() 544 alphai[1] = -alphai[1]; in lppTransposer() 603 alphai[0] = -alphai[0]; in lppTransposer() 610 if ((fMultDiv2(alphar[0], alphar[0]) + fMultDiv2(alphai[0], alphai[0])) >= in lppTransposer() 613 if ((fMultDiv2(alphar[1], alphar[1]) + fMultDiv2(alphai[1], alphai[1])) >= in lppTransposer() 890 alphai[0] = FL2FXCONST_SGL(0.0f); in lppTransposerHBE() 1079 alphai[1] = -alphai[1]; in lppTransposerHBE() 1127 alphai[0] = -alphai[0]; in lppTransposerHBE() 1133 if ((fMultDiv2(alphar[0], alphar[0]) + fMultDiv2(alphai[0], alphai[0])) >= in lppTransposerHBE() [all …]
|
/dports/science/tinker/tinker/source/ |
H A D | echgtrn2.f | 47 real*8 alphai,alphak local 98 alphai = dmpct(ii) 99 if (alphai .eq. 0.0d0) alphai = 1000.0d0 100 alphai2 = alphai * alphai 140 expi = exp(-alphai*r) 147 alphaik = 0.5d0 * (alphai+alphak) 246 alphai = dmpct(ii) 247 if (alphai .eq. 0.0d0) alphai = 1000.0d0 248 alphai2 = alphai * alphai 289 expi = exp(-alphai*r) [all …]
|
H A D | echgtrn.f | 72 real*8 alphai,alphak local 110 alphai = dmpct(ii) 111 if (alphai .eq. 0.0d0) alphai = 1000.0d0 210 alphai = dmpct(ii) 211 if (alphai .eq. 0.0d0) alphai = 1000.0d0 347 real*8 alphai,alphak local 406 alphai = dmpct(ii) 407 if (alphai .eq. 0.0d0) alphai = 1000.0d0 583 real*8 alphai,alphak local 630 alphai = dmpct(ii) [all …]
|
H A D | echgtrn1.f | 73 real*8 alphai,alphak local 120 alphai = dmpct(ii) 121 if (alphai .eq. 0.0d0) alphai = 1000.0d0 160 expi = exp(-alphai*r) 261 alphai = dmpct(ii) 262 if (alphai .eq. 0.0d0) alphai = 1000.0d0 302 expi = exp(-alphai*r) 445 real*8 alphai,alphak local 502 alphai = dmpct(ii) 503 if (alphai .eq. 0.0d0) alphai = 1000.0d0 [all …]
|
H A D | echgtrn3.f | 81 real*8 alphai,alphak local 135 alphai = dmpct(ii) 136 if (alphai .eq. 0.0d0) alphai = 1000.0d0 264 alphai = dmpct(ii) 265 if (alphai .eq. 0.0d0) alphai = 1000.0d0 442 real*8 alphai,alphak local 517 alphai = dmpct(ii) 518 if (alphai .eq. 0.0d0) alphai = 1000.0d0 732 real*8 alphai,alphak local 796 alphai = dmpct(ii) [all …]
|
/dports/audio/praat/praat-6.2.03/dwsys/ |
H A D | NUMcomplex.cpp | 83 const dcomplex alphai = *alpha + di; in xShiftTerm() local 85 *p = 1.0 / alphai; in xShiftTerm() 95 if (real (alphai * cdlx) > xlim && i != 0) { in xShiftTerm() 96 *p *= (alphai - 1.0) / alphai; in xShiftTerm() 100 if (norm1 (& alphai) > tol) in xShiftTerm() 101 *p = (1.0 - std::pow (*x, alphai)) / alphai; in xShiftTerm() 103 *p = -cdlx * (1.0 + cdlx * alphai * 0.5); in xShiftTerm()
|
/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
H A D | dgges.c | 365 --alphai; in dgges_() 619 bwork[i__] = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]); in dgges_() 649 if (alphai[i__] != 0.) in dgges_() 656 alphai[i__] *= work[1]; in dgges_() 658 … else if (alphai[i__] / safmax > anrmto / anrm || safmin / alphai[i__] > anrm / anrmto) in dgges_() 663 alphai[i__] *= work[1]; in dgges_() 676 if (alphai[i__] != 0.) in dgges_() 683 alphai[i__] *= work[1]; in dgges_() 694 dlascl_("G", &c__0, &c__0, &anrmto, &anrm, n, &c__1, &alphai[1], n, & ierr); in dgges_() 713 cursl = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]); in dgges_() [all …]
|
H A D | sgges.c | 367 --alphai; in sgges_() 621 bwork[i__] = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]); in sgges_() 651 if (alphai[i__] != 0.f) in sgges_() 658 alphai[i__] *= work[1]; in sgges_() 660 … else if (alphai[i__] / safmax > anrmto / anrm || safmin / alphai[i__] > anrm / anrmto) in sgges_() 665 alphai[i__] *= work[1]; in sgges_() 678 if (alphai[i__] != 0.f) in sgges_() 685 alphai[i__] *= work[1]; in sgges_() 696 slascl_("G", &c__0, &c__0, &anrmto, &anrm, n, &c__1, &alphai[1], n, & ierr); in sgges_() 715 cursl = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]); in sgges_() [all …]
|
H A D | dggesx.c | 456 --alphai; in dggesx_() 761 bwork[i__] = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]); in dggesx_() 818 if (alphai[i__] != 0.) in dggesx_() 825 alphai[i__] *= work[1]; in dggesx_() 827 … else if (alphai[i__] / safmax > anrmto / anrm || safmin / alphai[i__] > anrm / anrmto) in dggesx_() 832 alphai[i__] *= work[1]; in dggesx_() 845 if (alphai[i__] != 0.) in dggesx_() 852 alphai[i__] *= work[1]; in dggesx_() 863 dlascl_("G", &c__0, &c__0, &anrmto, &anrm, n, &c__1, &alphai[1], n, & ierr); in dggesx_() 882 cursl = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]); in dggesx_() [all …]
|
H A D | sggesx.c | 453 --alphai; in sggesx_() 758 bwork[i__] = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]); in sggesx_() 815 if (alphai[i__] != 0.f) in sggesx_() 822 alphai[i__] *= work[1]; in sggesx_() 824 … else if (alphai[i__] / safmax > anrmto / anrm || safmin / alphai[i__] > anrm / anrmto) in sggesx_() 829 alphai[i__] *= work[1]; in sggesx_() 842 if (alphai[i__] != 0.f) in sggesx_() 849 alphai[i__] *= work[1]; in sggesx_() 860 slascl_("G", &c__0, &c__0, &anrmto, &anrm, n, &c__1, &alphai[1], n, & ierr); in sggesx_() 879 cursl = (*selctg)(&alphar[i__], &alphai[i__], &beta[i__]); in sggesx_() [all …]
|
H A D | sgegv.c | 381 --alphai; in sgegv_() 708 if (alphai[jc] < 0.f) in sgegv_() 713 if (alphai[jc] == 0.f) in sgegv_() 746 if (alphai[jc] == 0.f) in sgegv_() 786 if (alphai[jc] < 0.f) in sgegv_() 791 if (alphai[jc] == 0.f) in sgegv_() 824 if (alphai[jc] == 0.f) in sgegv_() 867 salfai = anrm * alphai[jc]; in sgegv_() 890 alphai[jc - 1] = 0.f; in sgegv_() 894 alphai[jc + 1] = 0.f; in sgegv_() [all …]
|
H A D | dgegv.c | 381 --alphai; in dgegv_() 708 if (alphai[jc] < 0.) in dgegv_() 713 if (alphai[jc] == 0.) in dgegv_() 746 if (alphai[jc] == 0.) in dgegv_() 786 if (alphai[jc] < 0.) in dgegv_() 791 if (alphai[jc] == 0.) in dgegv_() 824 if (alphai[jc] == 0.) in dgegv_() 867 salfai = anrm * alphai[jc]; in dgegv_() 890 alphai[jc - 1] = 0.; in dgegv_() 894 alphai[jc + 1] = 0.; in dgegv_() [all …]
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/double/ |
H A D | dgges.c | 30 integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai, in dgges_() argument 326 --alphai; in dgges_() 695 b_offset], ldb, &alphar[1], &alphai[1], &beta[1], &vsl[ in dgges_() 731 if (alphai[i__] != 0.) { in dgges_() 743 alphai[i__] *= work[1]; in dgges_() 746 alphai[i__] > anrm / anrmto) { in dgges_() 755 alphai[i__] *= work[1]; in dgges_() 772 if (alphai[i__] != 0.) { in dgges_() 784 alphai[i__] *= work[1]; in dgges_() 839 cursl = (*delctg)(&alphar[i__], &alphai[i__], &beta[i__]); in dgges_() [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
H A D | sgges.c | 18 integer *sdim, real *alphar, real *alphai, real *beta, real *vsl, in sgges_() argument 287 --alphai; in sgges_() 531 b_offset], ldb, &alphar[1], &alphai[1], &beta[1], &vsl[ in sgges_() 560 if (alphai[i__] != 0.f) { in sgges_() 567 alphai[i__] *= work[1]; in sgges_() 569 alphai[i__] > anrm / anrmto) { in sgges_() 570 work[1] = (r__1 = a[i__ + (i__ + 1) * a_dim1] / alphai[ in sgges_() 574 alphai[i__] *= work[1]; in sgges_() 584 if (alphai[i__] != 0.f) { in sgges_() 591 alphai[i__] *= work[1]; in sgges_() [all …]
|
H A D | dgges.c | 18 integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai, in dgges_() argument 292 --alphai; in dgges_() 536 b_offset], ldb, &alphar[1], &alphai[1], &beta[1], &vsl[ in dgges_() 565 if (alphai[i__] != 0.) { in dgges_() 572 alphai[i__] *= work[1]; in dgges_() 574 alphai[i__] > anrm / anrmto) { in dgges_() 575 work[1] = (d__1 = a[i__ + (i__ + 1) * a_dim1] / alphai[ in dgges_() 579 alphai[i__] *= work[1]; in dgges_() 589 if (alphai[i__] != 0.) { in dgges_() 596 alphai[i__] *= work[1]; in dgges_() [all …]
|
H A D | sggesx.c | 18 integer *ldb, integer *sdim, real *alphar, real *alphai, real *beta, in sggesx_() argument 330 --alphai; in sggesx_() 608 b_offset], ldb, &alphar[1], &alphai[1], &beta[1], &vsl[ in sggesx_() 654 if (alphai[i__] != 0.f) { in sggesx_() 661 alphai[i__] *= work[1]; in sggesx_() 663 alphai[i__] > anrm / anrmto) { in sggesx_() 664 work[1] = (r__1 = a[i__ + (i__ + 1) * a_dim1] / alphai[ in sggesx_() 668 alphai[i__] *= work[1]; in sggesx_() 678 if (alphai[i__] != 0.f) { in sggesx_() 685 alphai[i__] *= work[1]; in sggesx_() [all …]
|
H A D | dggesx.c | 19 doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl, in dggesx_() argument 337 --alphai; in dggesx_() 615 b_offset], ldb, &alphar[1], &alphai[1], &beta[1], &vsl[ in dggesx_() 661 if (alphai[i__] != 0.) { in dggesx_() 668 alphai[i__] *= work[1]; in dggesx_() 670 alphai[i__] > anrm / anrmto) { in dggesx_() 671 work[1] = (d__1 = a[i__ + (i__ + 1) * a_dim1] / alphai[ in dggesx_() 675 alphai[i__] *= work[1]; in dggesx_() 685 if (alphai[i__] != 0.) { in dggesx_() 692 alphai[i__] *= work[1]; in dggesx_() [all …]
|
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/lapack/double/ |
H A D | dgges.c | 30 integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai, in dgges_() argument 326 --alphai; in dgges_() 695 b_offset], ldb, &alphar[1], &alphai[1], &beta[1], &vsl[ in dgges_() 731 if (alphai[i__] != 0.) { in dgges_() 743 alphai[i__] *= work[1]; in dgges_() 746 alphai[i__] > anrm / anrmto) { in dgges_() 755 alphai[i__] *= work[1]; in dgges_() 772 if (alphai[i__] != 0.) { in dgges_() 784 alphai[i__] *= work[1]; in dgges_() 839 cursl = (*delctg)(&alphar[i__], &alphai[i__], &beta[i__]); in dgges_() [all …]
|
/dports/math/xtensor-blas/xtensor-blas-0.20.0/include/xflens/cxxlapack/interface/ |
H A D | lagv2.tcc | 49 float *alphai, in lagv2() argument 63 alphai, in lagv2() 79 double *alphai, in lagv2() argument 93 alphai, in lagv2()
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/core/vnl/algo/ |
H A D | vnl_generalized_schur.cxx | 16 vnl_vector<double> *alphai, in vnl_generalized_schur() argument 27 assert(alphai!=nullptr); alphai->set_size(n); alphai->fill(0); in vnl_generalized_schur() 46 alphai->data_block(), in vnl_generalized_schur()
|
/dports/misc/vxl/vxl-3.3.2/core/vnl/algo/ |
H A D | vnl_generalized_schur.cxx | 17 vnl_vector<double> * alphai, in vnl_generalized_schur() argument 30 assert(alphai != nullptr); in vnl_generalized_schur() 31 alphai->set_size(n); in vnl_generalized_schur() 32 alphai->fill(0); in vnl_generalized_schur() 60 alphai->data_block(), in vnl_generalized_schur()
|