Searched defs:contract12_o3c (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
| H A D | qs_o3c_methods.F | 313 SUBROUTINE contract12_o3c(o3c, matrix_p) subroutine
317 CHARACTER(LEN=*), PARAMETER :: routineN = 'contract12_o3c', routineP = moduleN//':'//routineN argument
319 INTEGER :: handle, iatom, icol, ik, irow, ispin, &
320 jatom, mepos, nk, nspin, nthread
321 LOGICAL :: found, ijsymmetric, trans
322 REAL(KIND=dp) :: fpre
323 REAL(KIND=dp), DIMENSION(:, :), POINTER :: pblock, tvec
324 REAL(KIND=dp), DIMENSION(:, :, :), POINTER :: iabc
325 TYPE(o3c_iterator_type) :: o3c_iterator
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/ |
| H A D | qs_o3c_methods.F | 634 SUBROUTINE contract12_o3c(o3c, matrix_p) subroutine
638 CHARACTER(LEN=*), PARAMETER :: routineN = 'contract12_o3c', routineP = moduleN//':'//routineN argument
640 INTEGER :: handle, iatom, icol, ik, irow, ispin, &
641 jatom, mepos, nk, nspin, nthread
642 LOGICAL :: found, ijsymmetric, trans
643 REAL(KIND=dp) :: fpre
644 REAL(KIND=dp), DIMENSION(:, :), POINTER :: pblock, tvec
645 REAL(KIND=dp), DIMENSION(:, :, :), POINTER :: iabc
646 TYPE(o3c_iterator_type) :: o3c_iterator
|