Searched defs:cp_fm_maxabsval (Results 1 – 2 of 2) sorted by relevance
| /dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/fm/ |
| H A D | cp_fm_types.F | 930 SUBROUTINE cp_fm_maxabsval(matrix, a_max, ir_max, ic_max) subroutine
935 CHARACTER(len=*), PARAMETER :: routineN = 'cp_fm_maxabsval', & argument
936 routineP = moduleN//':'//routineN
938 INTEGER :: handle, i, ic_max_local, ir_max_local, &
939 j, mepos, ncol_local, nrow_local, &
940 num_pe
941 INTEGER, ALLOCATABLE, DIMENSION(:) :: ic_max_vec, ir_max_vec
942 INTEGER, DIMENSION(:), POINTER :: col_indices, row_indices
943 REAL(dp) :: my_max
944 REAL(dp), ALLOCATABLE, DIMENSION(:) :: a_max_vec
[all …]
|
| /dports/science/cp2k-data/cp2k-7.1.0/src/fm/ |
| H A D | cp_fm_types.F | 937 SUBROUTINE cp_fm_maxabsval(matrix, a_max, ir_max, ic_max) subroutine
942 CHARACTER(len=*), PARAMETER :: routineN = 'cp_fm_maxabsval', & argument
943 routineP = moduleN//':'//routineN
945 INTEGER :: handle, i, ic_max_local, ir_max_local, &
946 j, mepos, ncol_local, nrow_local, &
947 num_pe
948 INTEGER, ALLOCATABLE, DIMENSION(:) :: ic_max_vec, ir_max_vec
949 INTEGER, DIMENSION(:), POINTER :: col_indices, row_indices
950 REAL(dp) :: my_max
951 REAL(dp), ALLOCATABLE, DIMENSION(:) :: a_max_vec
[all …]
|