/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/pw/ |
H A D | dgs.F | 419 DO i = rhos%pw%pw_grid%bounds(1, 1), rhos%pw%pw_grid%bounds(2, 1) 432 DO i = rhos%pw%pw_grid%bounds(1, 2), rhos%pw%pw_grid%bounds(2, 2) 445 DO i = rhos%pw%pw_grid%bounds(1, 3), rhos%pw%pw_grid%bounds(2, 3) 460 CALL dg_add_patch(rs%r, rhos%pw%cr3d, rhos%pw%pw_grid%npts, & 466 CALL dg_add_patch(rs%r, rhos%pw%cr3d, rhos%pw%pw_grid%npts, nc) 721 DO i = rhos%pw%pw_grid%bounds(1, 1), rhos%pw%pw_grid%bounds(2, 1) 734 DO i = rhos%pw%pw_grid%bounds(1, 2), rhos%pw%pw_grid%bounds(2, 2) 747 DO i = rhos%pw%pw_grid%bounds(1, 3), rhos%pw%pw_grid%bounds(2, 3) 795 DO i = rhos%pw%pw_grid%bounds(1, 1), rhos%pw%pw_grid%bounds(2, 1) 808 DO i = rhos%pw%pw_grid%bounds(1, 2), rhos%pw%pw_grid%bounds(2, 2) [all …]
|
/dports/science/cp2k-data/cp2k-7.1.0/src/pw/ |
H A D | dgs.F | 419 DO i = rhos%pw%pw_grid%bounds(1, 1), rhos%pw%pw_grid%bounds(2, 1) 432 DO i = rhos%pw%pw_grid%bounds(1, 2), rhos%pw%pw_grid%bounds(2, 2) 445 DO i = rhos%pw%pw_grid%bounds(1, 3), rhos%pw%pw_grid%bounds(2, 3) 460 CALL dg_add_patch(rs%r, rhos%pw%cr3d, rhos%pw%pw_grid%npts, & 466 CALL dg_add_patch(rs%r, rhos%pw%cr3d, rhos%pw%pw_grid%npts, nc) 721 DO i = rhos%pw%pw_grid%bounds(1, 1), rhos%pw%pw_grid%bounds(2, 1) 734 DO i = rhos%pw%pw_grid%bounds(1, 2), rhos%pw%pw_grid%bounds(2, 2) 747 DO i = rhos%pw%pw_grid%bounds(1, 3), rhos%pw%pw_grid%bounds(2, 3) 795 DO i = rhos%pw%pw_grid%bounds(1, 1), rhos%pw%pw_grid%bounds(2, 1) 808 DO i = rhos%pw%pw_grid%bounds(1, 2), rhos%pw%pw_grid%bounds(2, 2) [all …]
|
/dports/math/blis/blis-0.8.1/kernels/bgq/1/ |
H A D | bli_dotv_bgq_int.c | 68 double rhos = 0.0; in bli_ddotv_bgq_int() local 69 #pragma omp parallel reduction(+:rhos) in bli_ddotv_bgq_int() 85 rhos += vec_extract( rhov, 0 ); in bli_ddotv_bgq_int() 86 rhos += vec_extract( rhov, 1 ); in bli_ddotv_bgq_int() 87 rhos += vec_extract( rhov, 2 ); in bli_ddotv_bgq_int() 88 rhos += vec_extract( rhov, 3 ); in bli_ddotv_bgq_int() 92 rhos += x[4*n_run + i] * y[4*n_run + i]; in bli_ddotv_bgq_int() 95 *rho = rhos; in bli_ddotv_bgq_int()
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
H A D | spme.F | 149 ALLOCATE (rhos(n, n, n)) 182 CALL dg_sum_patch(rden, rhos, center(:, p1)) 434 DEALLOCATE (rhos) 505 ALLOCATE (rhos(n, n, n)) 524 CALL dg_sum_patch(rden, rhos, center(:, p1)) 573 DEALLOCATE (rhos) 643 ALLOCATE (rhos(n, n, n)) 731 DEALLOCATE (rhos) 780 nbox = SIZE(rhos, 1) 829 nbox = SIZE(rhos, 1) [all …]
|
/dports/science/cp2k-data/cp2k-7.1.0/src/ |
H A D | spme.F | 149 ALLOCATE (rhos(n, n, n)) 182 CALL dg_sum_patch(rden, rhos, center(:, p1)) 434 DEALLOCATE (rhos) 505 ALLOCATE (rhos(n, n, n)) 524 CALL dg_sum_patch(rden, rhos, center(:, p1)) 573 DEALLOCATE (rhos) 643 ALLOCATE (rhos(n, n, n)) 731 DEALLOCATE (rhos) 780 nbox = SIZE(rhos, 1) 829 nbox = SIZE(rhos, 1) [all …]
|
/dports/math/suitesparse-klu/SuiteSparse-5.10.1/SLIP_LU/Source/ |
H A D | slip_forward_sub.c | 31 const SLIP_matrix *rhos // sequence of pivots used in factorization in slip_forward_sub() argument 42 SLIP_REQUIRE(rhos, SLIP_DENSE, SLIP_MPZ); in slip_forward_sub() 88 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 94 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 129 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 141 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 148 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 154 SLIP_1D(rhos, i, mpz))); in slip_forward_sub() 165 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub()
|
/dports/math/suitesparse-config/SuiteSparse-5.10.1/SLIP_LU/Source/ |
H A D | slip_forward_sub.c | 31 const SLIP_matrix *rhos // sequence of pivots used in factorization in slip_forward_sub() argument 42 SLIP_REQUIRE(rhos, SLIP_DENSE, SLIP_MPZ); in slip_forward_sub() 88 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 94 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 129 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 141 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 148 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 154 SLIP_1D(rhos, i, mpz))); in slip_forward_sub() 165 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub()
|
/dports/math/suitesparse-graphblas/SuiteSparse-5.10.1/SLIP_LU/Source/ |
H A D | slip_forward_sub.c | 31 const SLIP_matrix *rhos // sequence of pivots used in factorization in slip_forward_sub() argument 42 SLIP_REQUIRE(rhos, SLIP_DENSE, SLIP_MPZ); in slip_forward_sub() 88 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 94 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 129 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 141 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 148 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 154 SLIP_1D(rhos, i, mpz))); in slip_forward_sub() 165 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub()
|
/dports/math/suitesparse-amd/SuiteSparse-5.10.1/SLIP_LU/Source/ |
H A D | slip_forward_sub.c | 31 const SLIP_matrix *rhos // sequence of pivots used in factorization in slip_forward_sub() argument 42 SLIP_REQUIRE(rhos, SLIP_DENSE, SLIP_MPZ); in slip_forward_sub() 88 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 94 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 129 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 141 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 148 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 154 SLIP_1D(rhos, i, mpz))); in slip_forward_sub() 165 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub()
|
/dports/math/suitesparse-ldl/SuiteSparse-5.10.1/SLIP_LU/Source/ |
H A D | slip_forward_sub.c | 31 const SLIP_matrix *rhos // sequence of pivots used in factorization in slip_forward_sub() argument 42 SLIP_REQUIRE(rhos, SLIP_DENSE, SLIP_MPZ); in slip_forward_sub() 88 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 94 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 129 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 141 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 148 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 154 SLIP_1D(rhos, i, mpz))); in slip_forward_sub() 165 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub()
|
/dports/math/suitesparse-rbio/SuiteSparse-5.10.1/SLIP_LU/Source/ |
H A D | slip_forward_sub.c | 31 const SLIP_matrix *rhos // sequence of pivots used in factorization in slip_forward_sub() argument 42 SLIP_REQUIRE(rhos, SLIP_DENSE, SLIP_MPZ); in slip_forward_sub() 88 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 94 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 129 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 141 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 148 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 154 SLIP_1D(rhos, i, mpz))); in slip_forward_sub() 165 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub()
|
/dports/math/suitesparse-mongoose/SuiteSparse-5.10.1/SLIP_LU/Source/ |
H A D | slip_forward_sub.c | 31 const SLIP_matrix *rhos // sequence of pivots used in factorization in slip_forward_sub() argument 42 SLIP_REQUIRE(rhos, SLIP_DENSE, SLIP_MPZ); in slip_forward_sub() 88 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 94 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 129 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 141 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 148 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 154 SLIP_1D(rhos, i, mpz))); in slip_forward_sub() 165 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub()
|
/dports/math/suitesparse-colamd/SuiteSparse-5.10.1/SLIP_LU/Source/ |
H A D | slip_forward_sub.c | 31 const SLIP_matrix *rhos // sequence of pivots used in factorization in slip_forward_sub() argument 42 SLIP_REQUIRE(rhos, SLIP_DENSE, SLIP_MPZ); in slip_forward_sub() 88 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 94 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 129 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 141 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 148 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 154 SLIP_1D(rhos, i, mpz))); in slip_forward_sub() 165 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub()
|
/dports/math/suitesparse-ccolamd/SuiteSparse-5.10.1/SLIP_LU/Source/ |
H A D | slip_forward_sub.c | 31 const SLIP_matrix *rhos // sequence of pivots used in factorization in slip_forward_sub() argument 42 SLIP_REQUIRE(rhos, SLIP_DENSE, SLIP_MPZ); in slip_forward_sub() 88 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 94 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 129 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 141 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 148 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 154 SLIP_1D(rhos, i, mpz))); in slip_forward_sub() 165 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub()
|
/dports/math/suitesparse-cholmod/SuiteSparse-5.10.1/SLIP_LU/Source/ |
H A D | slip_forward_sub.c | 31 const SLIP_matrix *rhos // sequence of pivots used in factorization in slip_forward_sub() argument 42 SLIP_REQUIRE(rhos, SLIP_DENSE, SLIP_MPZ); in slip_forward_sub() 88 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 94 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 129 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 141 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 148 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 154 SLIP_1D(rhos, i, mpz))); in slip_forward_sub() 165 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub()
|
/dports/math/suitesparse-spqr/SuiteSparse-5.10.1/SLIP_LU/Source/ |
H A D | slip_forward_sub.c | 31 const SLIP_matrix *rhos // sequence of pivots used in factorization in slip_forward_sub() argument 42 SLIP_REQUIRE(rhos, SLIP_DENSE, SLIP_MPZ); in slip_forward_sub() 88 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 94 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 129 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 141 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 148 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 154 SLIP_1D(rhos, i, mpz))); in slip_forward_sub() 165 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub()
|
/dports/math/suitesparse-umfpack/SuiteSparse-5.10.1/SLIP_LU/Source/ |
H A D | slip_forward_sub.c | 31 const SLIP_matrix *rhos // sequence of pivots used in factorization in slip_forward_sub() argument 42 SLIP_REQUIRE(rhos, SLIP_DENSE, SLIP_MPZ); in slip_forward_sub() 88 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 94 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 129 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 141 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 148 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 154 SLIP_1D(rhos, i, mpz))); in slip_forward_sub() 165 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub()
|
/dports/math/suitesparse-slip_lu/SuiteSparse-5.10.1/SLIP_LU/Source/ |
H A D | slip_forward_sub.c | 31 const SLIP_matrix *rhos // sequence of pivots used in factorization in slip_forward_sub() argument 42 SLIP_REQUIRE(rhos, SLIP_DENSE, SLIP_MPZ); in slip_forward_sub() 88 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 94 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 129 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 141 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 148 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 154 SLIP_1D(rhos, i, mpz))); in slip_forward_sub() 165 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub()
|
/dports/math/suitesparse-btf/SuiteSparse-5.10.1/SLIP_LU/Source/ |
H A D | slip_forward_sub.c | 31 const SLIP_matrix *rhos // sequence of pivots used in factorization in slip_forward_sub() argument 42 SLIP_REQUIRE(rhos, SLIP_DENSE, SLIP_MPZ); in slip_forward_sub() 88 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 94 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 129 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 141 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 148 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 154 SLIP_1D(rhos, i, mpz))); in slip_forward_sub() 165 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub()
|
/dports/math/suitesparse-camd/SuiteSparse-5.10.1/SLIP_LU/Source/ |
H A D | slip_forward_sub.c | 31 const SLIP_matrix *rhos // sequence of pivots used in factorization in slip_forward_sub() argument 42 SLIP_REQUIRE(rhos, SLIP_DENSE, SLIP_MPZ); in slip_forward_sub() 88 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 94 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 129 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 141 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 148 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 154 SLIP_1D(rhos, i, mpz))); in slip_forward_sub() 165 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub()
|
/dports/math/suitesparse-csparse/SuiteSparse-5.10.1/SLIP_LU/Source/ |
H A D | slip_forward_sub.c | 31 const SLIP_matrix *rhos // sequence of pivots used in factorization in slip_forward_sub() argument 42 SLIP_REQUIRE(rhos, SLIP_DENSE, SLIP_MPZ); in slip_forward_sub() 88 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 94 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 129 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 141 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 148 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 154 SLIP_1D(rhos, i, mpz))); in slip_forward_sub() 165 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub()
|
/dports/math/suitesparse-cxsparse/SuiteSparse-5.10.1/SLIP_LU/Source/ |
H A D | slip_forward_sub.c | 31 const SLIP_matrix *rhos // sequence of pivots used in factorization in slip_forward_sub() argument 42 SLIP_REQUIRE(rhos, SLIP_DENSE, SLIP_MPZ); in slip_forward_sub() 88 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 94 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 129 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 141 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub() 148 SLIP_1D(rhos, hx, mpz))); in slip_forward_sub() 154 SLIP_1D(rhos, i, mpz))); in slip_forward_sub() 165 SLIP_1D(rhos, i-1, mpz))); in slip_forward_sub()
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/LAXlib/ |
H A D | la_helper.f90 | 598 IF( SIZE(s,1) /= SIZE(rhos,1) .OR. SIZE(s,2) /= SIZE(rhos,2) ) & 608 s = rhos 651 aux( k ) = rhos( i, j ) 655 CALL dspev_drv( 'V', 'L', n, aux, rhod, rhos, SIZE(rhos,1) ) 706 s = rhos 707 lda = SIZE( rhos, 1 ) 736 lwork_h = 1 + 6*SIZE(rhos,1) + 2*SIZE(rhos,1)*SIZE(rhos,1) 737 liwork_h = 3 + 5*SIZE(rhos,1) 740 ALLOCATE(a(SIZE(rhos,1),SIZE(rhos,2)),STAT = info) 754 info = cudaMemcpy(a, rhos, SIZE(rhos,1)*SIZE(rhos,2), cudaMemcpyDeviceToDevice) [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/CPV/src/ |
H A D | runcp.f90 | 50 REAL(DP) :: rhos(:,:) local 132 CALL tg_gather( dffts, rhos(:,i), tg_rhos(:,i) ) 233 CALL dforce( i, bec_bgrp, vkb, c0_bgrp, c2, c3, rhos, & 243 CALL dforce_efield ( bec_bgrp, i, c0_bgrp, c2, c3, rhos) 247 CALL dforce_efield2 ( bec_bgrp, i, c0_bgrp, c2, c3, rhos) 327 REAL(DP) :: rhos(:,:) local 418 CALL dforce(i,bec,vkb,c0,c2,c3,rhos(:,1:1),SIZE(rhos,1),ispin,f,n,nspin) 419 CALL dforce(i,bec,vkb,c0,c4,c5,rhos(:,2:2),SIZE(rhos,1),ispin,f,n,nspin) 448 CALL dforce(npair,bec,vkb,c0,c2,c3,rhos(:,1:1),SIZE(rhos,1),ispin,f,n,nspin) 449 CALL dforce(npair,bec,vkb,c0,c4,c5,rhos(:,2:2),SIZE(rhos,1),ispin,f,n,nspin) [all …]
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.dg/graphite/ |
H A D | pr68692.f90 | 8 SUBROUTINE get_patch ( part, box, green, npts, p, rhos, is_core, is_shell,& argument 16 INTENT(OUT) :: rhos local 20 CALL spme_get_patch ( rhos, nbox, delta, q, coeff ) 22 SUBROUTINE spme_get_patch ( rhos, n, delta, q, coeff ) argument 24 INTENT(OUT) :: rhos local 45 rhos ( i1, i2, i3 ) = r2 * f_assign ( 1, i1 )
|