dbcsr_dot_d Subroutine

private subroutine dbcsr_dot_d(matrix_a, matrix_b, result)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_type), intent(in) :: matrix_a
type(dbcsr_type), intent(in) :: matrix_b
real(kind=real_8), intent(inout) :: result

Contents

Source Code


Source Code

      SUBROUTINE dbcsr_dot_d (matrix_a, matrix_b, result)
         TYPE(dbcsr_type), INTENT(IN)              :: matrix_a, matrix_b
         REAL(kind=real_8), INTENT(INOUT)                  :: result

         CALL dbcsr_dot_prv(matrix_a%prv, matrix_b%prv, result)
      END SUBROUTINE dbcsr_dot_d