dbcsr_dot_s Subroutine

private subroutine dbcsr_dot_s(matrix_a, matrix_b, result)

Arguments

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

Contents

Source Code


Source Code

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

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