Searched refs:atomic_matrix (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | qs_fb_atomic_matrix_methods.F | 130 atomic_matrix, & argument
161 IF (SIZE(atomic_matrix, 1) > 0 .AND. SIZE(atomic_matrix, 2) > 0) THEN
162 atomic_matrix = 0.0_dp
302 DO ii = 2, SIZE(atomic_matrix, 1)
304 atomic_matrix(ii, jj) = atomic_matrix(jj, ii)
342 atomic_matrix, & argument
370 IF (SIZE(atomic_matrix, 1) > 0 .AND. SIZE(atomic_matrix, 2) > 0) THEN
371 atomic_matrix = 0.0_dp
398 atomic_matrix(irow, icol) = blk_p(ii, jj)
407 DO ii = 2, SIZE(atomic_matrix, 1)
[all …]
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | qs_fb_atomic_matrix_methods.F | 130 atomic_matrix, & argument
161 IF (SIZE(atomic_matrix, 1) > 0 .AND. SIZE(atomic_matrix, 2) > 0) THEN
162 atomic_matrix = 0.0_dp
302 DO ii = 2, SIZE(atomic_matrix, 1)
304 atomic_matrix(ii, jj) = atomic_matrix(jj, ii)
342 atomic_matrix, & argument
370 IF (SIZE(atomic_matrix, 1) > 0 .AND. SIZE(atomic_matrix, 2) > 0) THEN
371 atomic_matrix = 0.0_dp
398 atomic_matrix(irow, icol) = blk_p(ii, jj)
407 DO ii = 2, SIZE(atomic_matrix, 1)
[all …]
|