dbcsr_run_tests Subroutine

public subroutine dbcsr_run_tests(mp_group, io_unit, nproc, matrix_sizes, trs, bs_m, bs_n, bs_k, sparsities, alpha, beta, data_type, test_type, n_loops, eps, retain_sparsity, always_checksum)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: mp_group
integer, intent(in) :: io_unit
integer, DIMENSION(:), POINTER :: nproc
integer, intent(in), DIMENSION(:) :: matrix_sizes
logical, intent(in), DIMENSION(2) :: trs
integer, DIMENSION(:), POINTER :: bs_m
integer, DIMENSION(:), POINTER :: bs_n
integer, DIMENSION(:), POINTER :: bs_k
real(kind=dp), intent(in), DIMENSION(3) :: sparsities
real(kind=dp), intent(in) :: alpha
real(kind=dp), intent(in) :: beta
integer, intent(in) :: data_type
integer, intent(in) :: test_type
integer, intent(in) :: n_loops
real(kind=dp), intent(in) :: eps
logical, intent(in) :: retain_sparsity
logical, intent(in) :: always_checksum

Source Code

   SUBROUTINE dbcsr_run_tests(mp_group, io_unit, nproc, matrix_sizes, trs, &
                              bs_m, bs_n, bs_k, sparsities, alpha, beta, data_type, test_type, &
                              n_loops, eps, retain_sparsity, always_checksum)

      INTEGER, INTENT(IN)                                :: mp_group, io_unit
      INTEGER, DIMENSION(:), POINTER                     :: nproc
      INTEGER, DIMENSION(:), INTENT(in)                  :: matrix_sizes
      LOGICAL, DIMENSION(2), INTENT(in)                  :: trs
      INTEGER, DIMENSION(:), POINTER                     :: bs_m, bs_n, bs_k
      REAL(kind=dp), DIMENSION(3), INTENT(in)            :: sparsities
      REAL(kind=dp), INTENT(in)                          :: alpha, beta
      INTEGER, INTENT(IN)                                :: data_type, test_type, n_loops
      REAL(kind=dp), INTENT(in)                          :: eps
      LOGICAL, INTENT(in)                                :: retain_sparsity, always_checksum

      TYPE(mp_comm_type)                                 :: my_mp_group

      CALL my_mp_group%set_handle(mp_group)

      CALL dbcsr_run_tests_prv(my_mp_group, io_unit, nproc, matrix_sizes, trs, &
                               bs_m, bs_n, bs_k, sparsities, alpha, beta, data_type, test_type, &
                               n_loops, eps, retain_sparsity, always_checksum)

   END SUBROUTINE dbcsr_run_tests