/dports/math/libflame/libflame-5.2.0/src/base/flamec/blis/fused/ |
H A D | bl1_axmyv2.c | 74 zeta1 = z; in bl1_daxmyv2() 87 zeta1 += inc_z; in bl1_daxmyv2() 117 zeta1 += 4; in bl1_daxmyv2() 134 zeta1 += inc_z; in bl1_daxmyv2() 169 zeta1 = z; 185 zeta1 += inc_z; 231 zeta1 += inc_z; 272 zeta1 = z; in bl1_zaxmyv2() 298 zeta1 += inc_z; in bl1_zaxmyv2() 327 zeta1 += 1; in bl1_zaxmyv2() [all …]
|
H A D | bl1_dotaxmyv2.c | 80 zeta1 = z; in bl1_ddotaxmyv2() 98 zeta1 += inc_z; in bl1_ddotaxmyv2() 123 zeta1 += 2; in bl1_ddotaxmyv2() 145 zeta1 += inc_z; in bl1_ddotaxmyv2() 187 zeta1 = z; 206 zeta1 += inc_z; 254 zeta1 += inc_z; 310 zeta1 = z; in bl1_zdotaxmyv2() 358 zeta1 += 1; in bl1_zdotaxmyv2() 386 zeta1 = z; [all …]
|
H A D | bl1_axpyv2bdotaxpy.c | 81 zeta1 = z; in bl1_daxpyv2bdotaxpy() 109 zeta1 += inc_z; in bl1_daxpyv2bdotaxpy() 155 zeta1 += 4; in bl1_daxpyv2bdotaxpy() 185 zeta1 += inc_z; in bl1_daxpyv2bdotaxpy() 226 zeta1 = z; 253 zeta1 += inc_z; 315 zeta1 += inc_z; 380 zeta1 = z; in bl1_zaxpyv2bdotaxpy() 451 zeta1 += 1; in bl1_zaxpyv2bdotaxpy() 477 zeta1 = z; [all …]
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
H A D | slaic1.c | 187 zeta1 = alpha / absest; in slaic1_() 190 b = (1.f - zeta1 * zeta1 - zeta2 * zeta2) * .5f; in slaic1_() 191 *c__ = zeta1 * zeta1; in slaic1_() 198 sine = -zeta1 / t; in slaic1_() 274 r__3 = zeta1 * zeta1 + 1.f + (r__1 = zeta1 * zeta2, dabs(r__1)), in slaic1_() 280 test = (zeta1 - zeta2) * 2.f * (zeta1 + zeta2) + 1.f; in slaic1_() 285 b = (zeta1 * zeta1 + zeta2 * zeta2 + 1.f) * .5f; in slaic1_() 288 sine = zeta1 / (1.f - t); in slaic1_() 295 b = (zeta2 * zeta2 + zeta1 * zeta1 - 1.f) * .5f; in slaic1_() 296 *c__ = zeta1 * zeta1; in slaic1_() [all …]
|
H A D | dlaic1.c | 189 zeta1 = alpha / absest; in dlaic1_() 192 b = (1. - zeta1 * zeta1 - zeta2 * zeta2) * .5; in dlaic1_() 193 *c__ = zeta1 * zeta1; in dlaic1_() 200 sine = -zeta1 / t; in dlaic1_() 276 d__3 = zeta1 * zeta1 + 1. + (d__1 = zeta1 * zeta2, abs(d__1)), in dlaic1_() 282 test = (zeta1 - zeta2) * 2. * (zeta1 + zeta2) + 1.; in dlaic1_() 287 b = (zeta1 * zeta1 + zeta2 * zeta2 + 1.) * .5; in dlaic1_() 290 sine = zeta1 / (1. - t); in dlaic1_() 297 b = (zeta2 * zeta2 + zeta1 * zeta1 - 1.) * .5; in dlaic1_() 298 *c__ = zeta1 * zeta1; in dlaic1_() [all …]
|
H A D | claic1.c | 28 static real test, zeta1, zeta2; in claic1_() local 216 zeta1 = absalp / absest; in claic1_() 219 b = (1.f - zeta1 * zeta1 - zeta2 * zeta2) * .5f; in claic1_() 220 r__1 = zeta1 * zeta1; in claic1_() 355 zeta1 = absalp / absest; in claic1_() 359 r__1 = zeta1 * zeta1 + 1.f + zeta1 * zeta2, r__2 = zeta1 * zeta2 in claic1_() 365 test = (zeta1 - zeta2) * 2.f * (zeta1 + zeta2) + 1.f; in claic1_() 370 b = (zeta1 * zeta1 + zeta2 * zeta2 + 1.f) * .5f; in claic1_() 391 b = (zeta2 * zeta2 + zeta1 * zeta1 - 1.f) * .5f; in claic1_() 392 r__1 = zeta1 * zeta1; in claic1_()
|
H A D | zlaic1.c | 30 static doublereal test, zeta1, zeta2; in zlaic1_() local 219 zeta1 = absalp / absest; in zlaic1_() 222 b = (1. - zeta1 * zeta1 - zeta2 * zeta2) * .5; in zlaic1_() 223 d__1 = zeta1 * zeta1; in zlaic1_() 358 zeta1 = absalp / absest; in zlaic1_() 362 d__1 = zeta1 * zeta1 + 1. + zeta1 * zeta2, d__2 = zeta1 * zeta2 + in zlaic1_() 368 test = (zeta1 - zeta2) * 2. * (zeta1 + zeta2) + 1.; in zlaic1_() 373 b = (zeta1 * zeta1 + zeta2 * zeta2 + 1.) * .5; in zlaic1_() 394 b = (zeta2 * zeta2 + zeta1 * zeta1 - 1.) * .5; in zlaic1_() 395 d__1 = zeta1 * zeta1; in zlaic1_()
|
/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
H A D | slaic1.c | 242 zeta1 = alpha / absest; in slaic1_() 244 b = (1.f - zeta1 * zeta1 - zeta2 * zeta2) * .5f; in slaic1_() 245 *c__ = zeta1 * zeta1; in slaic1_() 254 sine = -zeta1 / t; in slaic1_() 341 zeta1 = alpha / absest; in slaic1_() 344 r__3 = zeta1 * zeta1 + 1.f + (r__1 = zeta1 * zeta2, f2c_abs(r__1)); in slaic1_() 348 test = (zeta1 - zeta2) * 2.f * (zeta1 + zeta2) + 1.f; in slaic1_() 352 b = (zeta1 * zeta1 + zeta2 * zeta2 + 1.f) * .5f; in slaic1_() 362 b = (zeta2 * zeta2 + zeta1 * zeta1 - 1.f) * .5f; in slaic1_() 363 *c__ = zeta1 * zeta1; in slaic1_() [all …]
|
H A D | dlaic1.c | 242 zeta1 = alpha / absest; in dlaic1_() 244 b = (1. - zeta1 * zeta1 - zeta2 * zeta2) * .5; in dlaic1_() 245 *c__ = zeta1 * zeta1; in dlaic1_() 254 sine = -zeta1 / t; in dlaic1_() 341 zeta1 = alpha / absest; in dlaic1_() 344 d__3 = zeta1 * zeta1 + 1. + (d__1 = zeta1 * zeta2, f2c_abs(d__1)); in dlaic1_() 348 test = (zeta1 - zeta2) * 2. * (zeta1 + zeta2) + 1.; in dlaic1_() 352 b = (zeta1 * zeta1 + zeta2 * zeta2 + 1.) * .5; in dlaic1_() 362 b = (zeta2 * zeta2 + zeta1 * zeta1 - 1.) * .5; in dlaic1_() 363 *c__ = zeta1 * zeta1; in dlaic1_() [all …]
|
H A D | zlaic1.c | 139 doublereal test, zeta1, zeta2; in zlaic1_() local 287 zeta1 = absalp / absest; in zlaic1_() 289 b = (1. - zeta1 * zeta1 - zeta2 * zeta2) * .5; in zlaic1_() 290 d__1 = zeta1 * zeta1; in zlaic1_() 477 zeta1 = absalp / absest; in zlaic1_() 480 d__1 = zeta1 * zeta1 + 1. + zeta1 * zeta2; in zlaic1_() 481 d__2 = zeta1 * zeta2 + zeta2 * zeta2; // , expr subst in zlaic1_() 484 test = (zeta1 - zeta2) * 2. * (zeta1 + zeta2) + 1.; in zlaic1_() 488 b = (zeta1 * zeta1 + zeta2 * zeta2 + 1.) * .5; in zlaic1_() 518 b = (zeta2 * zeta2 + zeta1 * zeta1 - 1.) * .5; in zlaic1_() [all …]
|
H A D | claic1.c | 139 real test, zeta1, zeta2; in claic1_() local 286 zeta1 = absalp / absest; in claic1_() 288 b = (1.f - zeta1 * zeta1 - zeta2 * zeta2) * .5f; in claic1_() 289 r__1 = zeta1 * zeta1; in claic1_() 476 zeta1 = absalp / absest; in claic1_() 479 r__1 = zeta1 * zeta1 + 1.f + zeta1 * zeta2; in claic1_() 480 r__2 = zeta1 * zeta2 + zeta2 * zeta2; // , expr subst in claic1_() 483 test = (zeta1 - zeta2) * 2.f * (zeta1 + zeta2) + 1.f; in claic1_() 487 b = (zeta1 * zeta1 + zeta2 * zeta2 + 1.f) * .5f; in claic1_() 517 b = (zeta2 * zeta2 + zeta1 * zeta1 - 1.f) * .5f; in claic1_() [all …]
|
/dports/math/blis/blis-0.8.1/kernels/penryn/1f/ |
H A D | bli_dotaxpyv_penryn_int.c | 72 double* restrict zeta1; in bli_ddotaxpyv_penryn_int() local 147 zeta1 = z_cast; in bli_ddotaxpyv_penryn_int() 155 *zeta1 += alpha1c * chi1c; in bli_ddotaxpyv_penryn_int() 159 zeta1 += incz; in bli_ddotaxpyv_penryn_int() 170 z1v.v = _mm_load_pd( ( double* )zeta1 ); in bli_ddotaxpyv_penryn_int() 177 _mm_store_pd( ( double* )zeta1, z1v.v ); in bli_ddotaxpyv_penryn_int() 184 zeta1 += 2; in bli_ddotaxpyv_penryn_int() 195 *zeta1 += alpha1c * chi1c; in bli_ddotaxpyv_penryn_int() 199 zeta1 += incz; in bli_ddotaxpyv_penryn_int()
|
/dports/math/libflame/libflame-5.2.0/src/lapack/red/tridiagut/l/flamec/ |
H A D | FLA_Fused_Her2_Ax_l_opt_var1.c | 149 float* zeta1 = buff_z + (i )*inc_z; in FLA_Fused_Her2_Ax_l_ops_var1() local 177 minus_conj_zeta1 = - *zeta1; in FLA_Fused_Her2_Ax_l_ops_var1() 180 *alpha11 -= 2.0F * *zeta1 * *upsilon1; in FLA_Fused_Her2_Ax_l_ops_var1() 269 double* zeta1 = buff_z + (i )*inc_z; in FLA_Fused_Her2_Ax_l_opd_var1() local 297 minus_conj_zeta1 = - *zeta1; in FLA_Fused_Her2_Ax_l_opd_var1() 300 *alpha11 -= 2.0 * *zeta1 * *upsilon1; in FLA_Fused_Her2_Ax_l_opd_var1() 385 alpha11->real -= zeta1->real * upsilon1->real - -zeta1->imag * upsilon1->imag + in FLA_Fused_Her2_Ax_l_opc_var1() 386 zeta1->real * upsilon1->real - zeta1->imag * -upsilon1->imag; in FLA_Fused_Her2_Ax_l_opc_var1() 387 alpha11->imag -= -zeta1->imag * upsilon1->real + zeta1->real * upsilon1->imag + in FLA_Fused_Her2_Ax_l_opc_var1() 388 zeta1->imag * upsilon1->real + zeta1->real * -upsilon1->imag; in FLA_Fused_Her2_Ax_l_opc_var1() [all …]
|
/dports/science/chrono/chrono-7.0.1/src/chrono/fea/ |
H A D | ChElementTetraCorot_10.cpp | 112 double zeta1, in ComputeJacobian() argument 145 double zeta1, in ComputeMatrB() argument 151 ComputeJacobian(Jacobian, zeta1, zeta2, zeta3, zeta4); in ComputeMatrB() 156 mmatrB(0, 0) = (4 * zeta1 - 1) * in ComputeMatrB() 209 mmatrB(1, 1) = (4 * zeta1 - 1) * in ComputeMatrB() 262 mmatrB(2, 2) = (4 * zeta1 - 1) * in ComputeMatrB() 398 double zeta1 = 0.58541020; in ComputeStiffnessMatrix() local 403 ComputeMatrB(this->MatrB[0], zeta1, zeta2, zeta3, zeta4, JacobianDet); in ComputeStiffnessMatrix() 408 zeta1 = 0.1381966; in ComputeStiffnessMatrix() 417 zeta1 = 0.1381966; in ComputeStiffnessMatrix() [all …]
|
/dports/math/libmesh/libmesh-1.6.2/src/fe/ |
H A D | fe_lagrange_shape_2D.C | 357 const Real zeta1 = p(0); in fe_lagrange_2D_shape() local 359 const Real zeta0 = 1. - zeta1 - zeta2; in fe_lagrange_2D_shape() 369 return zeta1; in fe_lagrange_2D_shape() 447 const Real zeta1 = p(0); in fe_lagrange_2D_shape() local 449 const Real zeta0 = 1. - zeta1 - zeta2; in fe_lagrange_2D_shape() 459 return 2.*zeta1*(zeta1-0.5); in fe_lagrange_2D_shape() 465 return 4.*zeta0*zeta1; in fe_lagrange_2D_shape() 468 return 4.*zeta1*zeta2; in fe_lagrange_2D_shape() 735 const Real zeta1 = p(0); in fe_lagrange_2D_shape_deriv() local 737 const Real zeta0 = 1. - zeta1 - zeta2; in fe_lagrange_2D_shape_deriv() [all …]
|
H A D | fe_hierarchic_shape_2D.C | 354 const Real zeta1 = p(0); in fe_hierarchic_2D_shape() local 356 const Real zeta0 = 1. - zeta1 - zeta2; in fe_hierarchic_2D_shape() 365 return zeta1; in fe_hierarchic_2D_shape() 373 const Real crossval = zeta0 + zeta1; in fe_hierarchic_2D_shape() 374 const Real edgenumerator = zeta1 - zeta0; in fe_hierarchic_2D_shape() 383 const Real crossval = zeta2 + zeta1; in fe_hierarchic_2D_shape() 384 const Real edgenumerator = zeta2 - zeta1; in fe_hierarchic_2D_shape() 411 returnval *= zeta1; in fe_hierarchic_2D_shape()
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/ddscf/fast/ |
H A D | cart_trans.F | 374 $ zeta1, x1, y1, z1, argument 379 $ zeta1, x1, y1, z1, local 398 zeta = (zeta1+zeta2) 400 q = (zeta1*zeta2)*rzeta 401 a = (zeta1*x1 + zeta2*x2)*rzeta 402 b = (zeta1*y1 + zeta2*y2)*rzeta 403 c = (zeta1*z1 + zeta2*z2)*rzeta
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ddscf/fast/ |
H A D | cart_trans.F | 374 $ zeta1, x1, y1, z1, 379 $ zeta1, x1, y1, z1, 398 zeta = (zeta1+zeta2) 400 q = (zeta1*zeta2)*rzeta 401 a = (zeta1*x1 + zeta2*x2)*rzeta 402 b = (zeta1*y1 + zeta2*y2)*rzeta 403 c = (zeta1*z1 + zeta2*z2)*rzeta
|
/dports/lang/gnu-apl/apl-1.8/src/ |
H A D | LApack.hh | 940 const APL_Float zeta1 = abs_alpha / abs_estimate; in laic1_max() local 942 const APL_Float b = (1.0 - zeta1*zeta1 - zeta2*zeta2)*0.5; in laic1_max() 943 const APL_Float zeta1_2 = zeta1*zeta1; in laic1_max() 1054 const APL_Float zeta1 = abs_alpha / abs_estimate; in laic1_min() local 1057 const APL_Float norma_1 = 1.0 + zeta1*zeta1 + zeta1*zeta2; in laic1_min() 1058 const APL_Float norma_2 = zeta1*zeta2 + zeta2*zeta2; in laic1_min() 1061 const APL_Float test = 1.0 + 2.0*(zeta1-zeta2)*(zeta1+zeta2); in laic1_min() 1068 const APL_Float b = (zeta1*zeta1 + zeta2*zeta2 + 1.0)*0.5; in laic1_min() 1079 const APL_Float b = (zeta2*zeta2 + zeta1*zeta1 - 1.0)*0.5; in laic1_min() 1080 const APL_Float zeta1_2 = zeta1*zeta1; in laic1_min()
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
H A D | pao_potentials.F | 115 … REAL(dp), DIMENSION(:), POINTER :: rpgfa1, rpgfa2, rpgfb, zeta1, zeta2, zetb local 176 zeta1 => basis_set%zet(:, iset) 192 … CALL overlap_aab(la1_max=la1_max, la1_min=la1_min, npgfa1=npgfa1, rpgfa1=rpgfa1, zeta1=zeta1, & 201 … CALL overlap_aab(la1_max=la1_max, la1_min=la1_min, npgfa1=npgfa1, rpgfa1=rpgfa1, zeta1=zeta1, &
|
H A D | pao_linpot_rotinv.F | 132 … REAL(dp), DIMENSION(:), POINTER :: rpgfa1, rpgfa2, rpgfb, zeta1, zeta2, zetb local 180 zeta1 => basis_set%zet(:, iset) 224 … CALL overlap_aab(la1_max=la1_max, la1_min=la1_min, npgfa1=npgfa1, rpgfa1=rpgfa1, zeta1=zeta1, & 345 … REAL(dp), DIMENSION(:), POINTER :: rpgfa1, rpgfa2, rpgfb, zeta1, zeta2, zetb local 418 zeta1 => basis_set%zet(:, iset) 469 … CALL overlap_aab(la1_max=la1_max, la1_min=la1_min, npgfa1=npgfa1, rpgfa1=rpgfa1, zeta1=zeta1, &
|
/dports/science/cp2k-data/cp2k-7.1.0/src/ |
H A D | pao_potentials.F | 115 … REAL(dp), DIMENSION(:), POINTER :: rpgfa1, rpgfa2, rpgfb, zeta1, zeta2, zetb local 176 zeta1 => basis_set%zet(:, iset) 192 … CALL overlap_aab(la1_max=la1_max, la1_min=la1_min, npgfa1=npgfa1, rpgfa1=rpgfa1, zeta1=zeta1, & 201 … CALL overlap_aab(la1_max=la1_max, la1_min=la1_min, npgfa1=npgfa1, rpgfa1=rpgfa1, zeta1=zeta1, &
|
H A D | pao_linpot_rotinv.F | 132 … REAL(dp), DIMENSION(:), POINTER :: rpgfa1, rpgfa2, rpgfb, zeta1, zeta2, zetb local 180 zeta1 => basis_set%zet(:, iset) 224 … CALL overlap_aab(la1_max=la1_max, la1_min=la1_min, npgfa1=npgfa1, rpgfa1=rpgfa1, zeta1=zeta1, & 345 … REAL(dp), DIMENSION(:), POINTER :: rpgfa1, rpgfa2, rpgfb, zeta1, zeta2, zetb local 418 zeta1 => basis_set%zet(:, iset) 469 … CALL overlap_aab(la1_max=la1_max, la1_min=la1_min, npgfa1=npgfa1, rpgfa1=rpgfa1, zeta1=zeta1, &
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/solvation/ |
H A D | grad_hnd_cos.F | 114 double precision zeta1, zeta2, zeta12 354 zeta1 = zeta*sqrt(ptspatm) 386 fact = fact - 2.0d0*zeta1*sqrt(2.0d0/pi)*invscreen 414 zeta1 = zeta*sqrt(ptspatm) 423 zeta12 = zeta1*zeta2/sqrt(zeta1**2+zeta2**2)
|
/dports/science/pcmsolver/pcmsolver-1.3.0/src/green/ |
H A D | SphericalDiffuse.cpp | 312 double zeta1 = 0.0, zeta2 = 0.0, d_zeta2 = 0.0; in imagePotentialComponent_impl() local 314 std::tie(zeta1, std::ignore) = zeta_[L](y1); in imagePotentialComponent_impl() 333 gr12 = std::exp(zeta1 - zeta2) * (2 * L + 1) / denominator; in imagePotentialComponent_impl() 361 double zeta1 = 0.0, zeta2 = 0.0, d_zeta2 = 0.0; in coefficient_impl() local 363 std::tie(zeta1, std::ignore) = zetaC_(y1); in coefficient_impl() 386 tmp = std::exp(zeta1 - zeta2) * (2 * maxLC_ + 1) / denominator; in coefficient_impl()
|