Searched refs:block_whole (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | xas_tdp_atom.F | 699 REAL(dp), DIMENSION(:, :), POINTER :: block_risinv, block_whole local
709 NULLIFY (pgrid, dbcsr_dist, row_dist, col_dist, nsgf, particle_set, block_whole, block_risinv)
775 CALL dbcsr_get_block_p(whole_s, iat, jat, block_whole, found_whole)
788 CALL dcopy(nsgf(inb)*nsgf(jnb), block_whole, 1, block_risinv, 1)
794 send_buff(is)%array => block_whole
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | xas_tdp_atom.F | 697 REAL(dp), DIMENSION(:, :), POINTER :: block_risinv, block_whole local
707 NULLIFY (pgrid, dbcsr_dist, row_dist, col_dist, nsgf, particle_set, block_whole, block_risinv)
773 CALL dbcsr_get_block_p(whole_s, iat, jat, block_whole, found_whole)
786 CALL dcopy(nsgf(inb)*nsgf(jnb), block_whole, 1, block_risinv, 1)
792 send_buff(is)%array => block_whole
|