| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/selci/ |
| H A D | bserch.F | 83 integer*4 isum1
101 isum1=selci_icmp(item,list(1,middle),nintpo)
102 if (isum1) 20,30,40
113 50 isum1=selci_icmp(item,list(1,iright),nintpo)
114 if (isum1) 60,70,80
117 60 isum1=selci_icmp(item,list(1,left), nintpo)
118 if (isum1) 61,62,63
|
| H A D | selci_yacobi.f | 10 integer*4 isum1
79 isum1=i-jbig
80 if (isum1) 45,54,46
85 isum1=i-ibig
86 if (isum1)47,55,48
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/selci/ |
| H A D | bserch.F | 83 integer*4 isum1
101 isum1=selci_icmp(item,list(1,middle),nintpo)
102 if (isum1) 20,30,40
113 50 isum1=selci_icmp(item,list(1,iright),nintpo)
114 if (isum1) 60,70,80
117 60 isum1=selci_icmp(item,list(1,left), nintpo)
118 if (isum1) 61,62,63
|
| H A D | selci_yacobi.f | 10 integer*4 isum1
79 isum1=i-jbig
80 if (isum1) 45,54,46
85 isum1=i-ibig
86 if (isum1)47,55,48
|
| /dports/math/spooles-mpich/spooles.2.2_SHARED/SubMtx/src/ |
| H A D | solveH.c | 105 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in solveDenseSubcolumns() local
143 rsum1 = isum1 = 0.0 ; in solveDenseSubcolumns()
157 rsum1 += ar*br1 + ai*bi1 ; isum1 += ar*bi1 - ai*br1 ; in solveDenseSubcolumns()
162 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in solveDenseSubcolumns()
187 rsum1 = isum1 = 0.0 ; in solveDenseSubcolumns()
203 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in solveDenseSubcolumns()
263 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in solveSparseColumns() local
287 rsum1 = isum1 = 0.0 ; in solveSparseColumns()
311 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in solveSparseColumns()
326 rsum1 = isum1 = 0.0 ; in solveSparseColumns()
[all …]
|
| H A D | solveT.c | 605 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in complex_solveDenseSubcolumns() local
643 rsum1 = isum1 = 0.0 ; in complex_solveDenseSubcolumns()
659 rsum1 += ar*br1 - ai*bi1 ; isum1 += ar*bi1 + ai*br1 ; in complex_solveDenseSubcolumns()
665 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveDenseSubcolumns()
690 rsum1 = isum1 = 0.0 ; in complex_solveDenseSubcolumns()
709 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveDenseSubcolumns()
772 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in complex_solveSparseColumns() local
796 rsum1 = isum1 = 0.0 ; in complex_solveSparseColumns()
820 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveSparseColumns()
835 rsum1 = isum1 = 0.0 ; in complex_solveSparseColumns()
[all …]
|
| H A D | solve.c | 806 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in complex_solveDenseSubrows() local
844 rsum1 = isum1 = 0.0 ; in complex_solveDenseSubrows()
862 rsum1 += ar*br1 - ai*bi1 ; isum1 += ar*bi1 + ai*br1 ; in complex_solveDenseSubrows()
868 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveDenseSubrows()
897 rsum1 = isum1 = 0.0 ; in complex_solveDenseSubrows()
918 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveDenseSubrows()
987 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in complex_solveSparseRows() local
1011 rsum1 = isum1 = 0.0 ; in complex_solveSparseRows()
1037 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveSparseRows()
1052 rsum1 = isum1 = 0.0 ; in complex_solveSparseRows()
[all …]
|
| /dports/math/spooles-mpich/spooles.2.2/SubMtx/src/ |
| H A D | solveH.c | 105 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in solveDenseSubcolumns() local
143 rsum1 = isum1 = 0.0 ; in solveDenseSubcolumns()
157 rsum1 += ar*br1 + ai*bi1 ; isum1 += ar*bi1 - ai*br1 ; in solveDenseSubcolumns()
162 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in solveDenseSubcolumns()
187 rsum1 = isum1 = 0.0 ; in solveDenseSubcolumns()
203 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in solveDenseSubcolumns()
263 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in solveSparseColumns() local
287 rsum1 = isum1 = 0.0 ; in solveSparseColumns()
311 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in solveSparseColumns()
326 rsum1 = isum1 = 0.0 ; in solveSparseColumns()
[all …]
|
| H A D | solveT.c | 605 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in complex_solveDenseSubcolumns() local
643 rsum1 = isum1 = 0.0 ; in complex_solveDenseSubcolumns()
659 rsum1 += ar*br1 - ai*bi1 ; isum1 += ar*bi1 + ai*br1 ; in complex_solveDenseSubcolumns()
665 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveDenseSubcolumns()
690 rsum1 = isum1 = 0.0 ; in complex_solveDenseSubcolumns()
709 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveDenseSubcolumns()
772 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in complex_solveSparseColumns() local
796 rsum1 = isum1 = 0.0 ; in complex_solveSparseColumns()
820 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveSparseColumns()
835 rsum1 = isum1 = 0.0 ; in complex_solveSparseColumns()
[all …]
|
| H A D | solve.c | 806 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in complex_solveDenseSubrows() local
844 rsum1 = isum1 = 0.0 ; in complex_solveDenseSubrows()
862 rsum1 += ar*br1 - ai*bi1 ; isum1 += ar*bi1 + ai*br1 ; in complex_solveDenseSubrows()
868 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveDenseSubrows()
897 rsum1 = isum1 = 0.0 ; in complex_solveDenseSubrows()
918 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveDenseSubrows()
987 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in complex_solveSparseRows() local
1011 rsum1 = isum1 = 0.0 ; in complex_solveSparseRows()
1037 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveSparseRows()
1052 rsum1 = isum1 = 0.0 ; in complex_solveSparseRows()
[all …]
|
| /dports/math/spooles/spooles.2.2_SHARED/SubMtx/src/ |
| H A D | solveH.c | 105 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in solveDenseSubcolumns() local
143 rsum1 = isum1 = 0.0 ; in solveDenseSubcolumns()
157 rsum1 += ar*br1 + ai*bi1 ; isum1 += ar*bi1 - ai*br1 ; in solveDenseSubcolumns()
162 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in solveDenseSubcolumns()
187 rsum1 = isum1 = 0.0 ; in solveDenseSubcolumns()
203 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in solveDenseSubcolumns()
263 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in solveSparseColumns() local
287 rsum1 = isum1 = 0.0 ; in solveSparseColumns()
311 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in solveSparseColumns()
326 rsum1 = isum1 = 0.0 ; in solveSparseColumns()
[all …]
|
| H A D | solveT.c | 605 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in complex_solveDenseSubcolumns() local
643 rsum1 = isum1 = 0.0 ; in complex_solveDenseSubcolumns()
659 rsum1 += ar*br1 - ai*bi1 ; isum1 += ar*bi1 + ai*br1 ; in complex_solveDenseSubcolumns()
665 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveDenseSubcolumns()
690 rsum1 = isum1 = 0.0 ; in complex_solveDenseSubcolumns()
709 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveDenseSubcolumns()
772 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in complex_solveSparseColumns() local
796 rsum1 = isum1 = 0.0 ; in complex_solveSparseColumns()
820 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveSparseColumns()
835 rsum1 = isum1 = 0.0 ; in complex_solveSparseColumns()
[all …]
|
| /dports/math/spooles/spooles.2.2/SubMtx/src/ |
| H A D | solveH.c | 105 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in solveDenseSubcolumns() local
143 rsum1 = isum1 = 0.0 ; in solveDenseSubcolumns()
157 rsum1 += ar*br1 + ai*bi1 ; isum1 += ar*bi1 - ai*br1 ; in solveDenseSubcolumns()
162 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in solveDenseSubcolumns()
187 rsum1 = isum1 = 0.0 ; in solveDenseSubcolumns()
203 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in solveDenseSubcolumns()
263 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in solveSparseColumns() local
287 rsum1 = isum1 = 0.0 ; in solveSparseColumns()
311 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in solveSparseColumns()
326 rsum1 = isum1 = 0.0 ; in solveSparseColumns()
[all …]
|
| H A D | solveT.c | 605 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in complex_solveDenseSubcolumns() local
643 rsum1 = isum1 = 0.0 ; in complex_solveDenseSubcolumns()
659 rsum1 += ar*br1 - ai*bi1 ; isum1 += ar*bi1 + ai*br1 ; in complex_solveDenseSubcolumns()
665 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveDenseSubcolumns()
690 rsum1 = isum1 = 0.0 ; in complex_solveDenseSubcolumns()
709 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveDenseSubcolumns()
772 isum0, isum1, isum2, rsum0, rsum1, rsum2 ; in complex_solveSparseColumns() local
796 rsum1 = isum1 = 0.0 ; in complex_solveSparseColumns()
820 colB1[rloc] -= rsum1 ; colB1[iloc] -= isum1 ; in complex_solveSparseColumns()
835 rsum1 = isum1 = 0.0 ; in complex_solveSparseColumns()
[all …]
|
| /dports/science/teem/teem-1.11.0-src/src/ten/ |
| H A D | bimod.c | 231 double pp1, pp2, h, sum1, isum1, sum2, isum2; in _tenEMBimodalNewMean() local
233 sum1 = isum1 = sum2 = isum2 = 0.0; in _tenEMBimodalNewMean()
238 isum1 += i*pp1*h; in _tenEMBimodalNewMean()
243 *m1P = isum1/sum1; in _tenEMBimodalNewMean()
252 double pp1, pp2, h, sum1, isum1, sum2, isum2; in _tenEMBimodalNewSigma() local
254 sum1 = isum1 = sum2 = isum2 = 0.0; in _tenEMBimodalNewSigma()
259 isum1 += (i-m1)*(i-m1)*pp1*h; in _tenEMBimodalNewSigma()
264 *s1P = sqrt(isum1/sum1); in _tenEMBimodalNewSigma()
|
| /dports/science/cdcl/dcl-5.4.8-C/src/math1/ifalib/ |
| H A D | Makefile | 11 isum.c isum0.c isum1.c
15 isum.o isum0.o isum1.o
|
| /dports/science/dcl/dcl-5.4.8/src/math1/ifalib/ |
| H A D | Makefile | 11 isum.f isum0.f isum1.f
15 isum.o isum0.o isum1.o
|
| /dports/devel/boost-docs/boost_1_72_0/boost/math/differentiation/ |
| H A D | autodiff_cpp11.hpp | 213 size_t isum1) const { in epsilon_multiply_cpp11()
215 size_t const m1 = order_sum + isum1 < Order + z1 ? Order + z1 - (order_sum + isum1) : 0; in epsilon_multiply_cpp11()
219 retval.v[j] = epsilon_inner_product(z0, isum0, m0, cr, z1, isum1, m1, j); in epsilon_multiply_cpp11()
230 size_t isum1) const { in epsilon_multiply_cpp11()
234 size_t const m1 = order_sum + isum1 < Order + z1 ? Order + z1 - (order_sum + isum1) : 0; in epsilon_multiply_cpp11()
248 size_t isum1) const { in epsilon_multiply()
249 return epsilon_multiply_cpp11(is_fvar<RealType>{}, z0, isum0, cr, z1, isum1); in epsilon_multiply()
|
| /dports/devel/hyperscan/boost_1_75_0/boost/math/differentiation/ |
| H A D | autodiff_cpp11.hpp | 213 size_t isum1) const { in epsilon_multiply_cpp11()
215 size_t const m1 = order_sum + isum1 < Order + z1 ? Order + z1 - (order_sum + isum1) : 0; in epsilon_multiply_cpp11()
219 retval.v[j] = epsilon_inner_product(z0, isum0, m0, cr, z1, isum1, m1, j); in epsilon_multiply_cpp11()
230 size_t isum1) const { in epsilon_multiply_cpp11()
234 size_t const m1 = order_sum + isum1 < Order + z1 ? Order + z1 - (order_sum + isum1) : 0; in epsilon_multiply_cpp11()
248 size_t isum1) const { in epsilon_multiply()
249 return epsilon_multiply_cpp11(is_fvar<RealType>{}, z0, isum0, cr, z1, isum1); in epsilon_multiply()
|
| /dports/devel/R-cran-BH/BH/inst/include/boost/math/differentiation/ |
| H A D | autodiff_cpp11.hpp | 217 size_t isum1) const { in epsilon_multiply_cpp11()
219 size_t const m1 = order_sum + isum1 < Order + z1 ? Order + z1 - (order_sum + isum1) : 0; in epsilon_multiply_cpp11()
223 retval.v[j] = epsilon_inner_product(z0, isum0, m0, cr, z1, isum1, m1, j); in epsilon_multiply_cpp11()
234 size_t isum1) const { in epsilon_multiply_cpp11()
238 size_t const m1 = order_sum + isum1 < Order + z1 ? Order + z1 - (order_sum + isum1) : 0; in epsilon_multiply_cpp11()
252 size_t isum1) const { in epsilon_multiply()
253 return epsilon_multiply_cpp11(is_fvar<RealType>{}, z0, isum0, cr, z1, isum1); in epsilon_multiply()
|
| /dports/science/py-scipy/scipy-1.7.1/scipy/_lib/boost/boost/math/differentiation/ |
| H A D | autodiff_cpp11.hpp | 213 size_t isum1) const { in epsilon_multiply_cpp11()
215 size_t const m1 = order_sum + isum1 < Order + z1 ? Order + z1 - (order_sum + isum1) : 0; in epsilon_multiply_cpp11()
219 retval.v[j] = epsilon_inner_product(z0, isum0, m0, cr, z1, isum1, m1, j); in epsilon_multiply_cpp11()
230 size_t isum1) const { in epsilon_multiply_cpp11()
234 size_t const m1 = order_sum + isum1 < Order + z1 ? Order + z1 - (order_sum + isum1) : 0; in epsilon_multiply_cpp11()
248 size_t isum1) const { in epsilon_multiply()
249 return epsilon_multiply_cpp11(is_fvar<RealType>{}, z0, isum0, cr, z1, isum1); in epsilon_multiply()
|
| /dports/devel/boost-libs/boost_1_72_0/boost/math/differentiation/ |
| H A D | autodiff_cpp11.hpp | 213 size_t isum1) const { in epsilon_multiply_cpp11()
215 size_t const m1 = order_sum + isum1 < Order + z1 ? Order + z1 - (order_sum + isum1) : 0; in epsilon_multiply_cpp11()
219 retval.v[j] = epsilon_inner_product(z0, isum0, m0, cr, z1, isum1, m1, j); in epsilon_multiply_cpp11()
230 size_t isum1) const { in epsilon_multiply_cpp11()
234 size_t const m1 = order_sum + isum1 < Order + z1 ? Order + z1 - (order_sum + isum1) : 0; in epsilon_multiply_cpp11()
248 size_t isum1) const { in epsilon_multiply()
249 return epsilon_multiply_cpp11(is_fvar<RealType>{}, z0, isum0, cr, z1, isum1); in epsilon_multiply()
|
| /dports/devel/boost-python-libs/boost_1_72_0/boost/math/differentiation/ |
| H A D | autodiff_cpp11.hpp | 213 size_t isum1) const { in epsilon_multiply_cpp11()
215 size_t const m1 = order_sum + isum1 < Order + z1 ? Order + z1 - (order_sum + isum1) : 0; in epsilon_multiply_cpp11()
219 retval.v[j] = epsilon_inner_product(z0, isum0, m0, cr, z1, isum1, m1, j); in epsilon_multiply_cpp11()
230 size_t isum1) const { in epsilon_multiply_cpp11()
234 size_t const m1 = order_sum + isum1 < Order + z1 ? Order + z1 - (order_sum + isum1) : 0; in epsilon_multiply_cpp11()
248 size_t isum1) const { in epsilon_multiply()
249 return epsilon_multiply_cpp11(is_fvar<RealType>{}, z0, isum0, cr, z1, isum1); in epsilon_multiply()
|
| /dports/math/stanmath/math-4.2.0/lib/boost_1.75.0/boost/math/differentiation/ |
| H A D | autodiff_cpp11.hpp | 213 size_t isum1) const { in epsilon_multiply_cpp11()
215 size_t const m1 = order_sum + isum1 < Order + z1 ? Order + z1 - (order_sum + isum1) : 0; in epsilon_multiply_cpp11()
219 retval.v[j] = epsilon_inner_product(z0, isum0, m0, cr, z1, isum1, m1, j); in epsilon_multiply_cpp11()
230 size_t isum1) const { in epsilon_multiply_cpp11()
234 size_t const m1 = order_sum + isum1 < Order + z1 ? Order + z1 - (order_sum + isum1) : 0; in epsilon_multiply_cpp11()
248 size_t isum1) const { in epsilon_multiply()
249 return epsilon_multiply_cpp11(is_fvar<RealType>{}, z0, isum0, cr, z1, isum1); in epsilon_multiply()
|
| /dports/math/libpgmath/flang-d07daf3/test/mp_correct/src/ |
| H A D | pd00.f | 24 result(1) = isum1(iarr, N, 1, 1, 1)
47 integer function isum1(iarr, n, init, istride, ichunk) function
58 isum1 = isum
|