Searched defs:cp_fm_get_diag (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/fm/ |
| H A D | cp_fm_types.F | 402 SUBROUTINE cp_fm_get_diag(matrix, diag) subroutine
410 CHARACTER(len=*), PARAMETER :: routineN = 'cp_fm_get_diag', & argument
411 routineP = moduleN//':'//routineN
414 INTEGER :: i, nrow_global
417 INTEGER, DIMENSION(9) :: desca
418 TYPE(cp_blacs_env_type), POINTER :: context
419 INTEGER :: icol_local, ipcol, iprow, irow_local, mypcol, myprow, npcol, &
420 nprow
421 REAL(KIND=dp), DIMENSION(:, :), POINTER :: a local
422 REAL(KIND=sp), DIMENSION(:, :), POINTER :: a_sp
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/fm/ |
| H A D | cp_fm_types.F | 409 SUBROUTINE cp_fm_get_diag(matrix, diag) subroutine
417 CHARACTER(len=*), PARAMETER :: routineN = 'cp_fm_get_diag', & argument
418 routineP = moduleN//':'//routineN
421 INTEGER :: i, nrow_global
424 INTEGER, DIMENSION(9) :: desca
425 TYPE(cp_blacs_env_type), POINTER :: context
426 INTEGER :: icol_local, ipcol, iprow, irow_local, mypcol, myprow, npcol, &
427 nprow
428 REAL(KIND=dp), DIMENSION(:, :), POINTER :: a local
429 REAL(KIND=sp), DIMENSION(:, :), POINTER :: a_sp
|