dbcsr_add_s Subroutine

private subroutine dbcsr_add_s(matrix_a, matrix_b, alpha_scalar, beta_scalar)

Arguments

Type IntentOptional Attributes Name
type(dbcsr_type), intent(inout) :: matrix_a
type(dbcsr_type), intent(in) :: matrix_b
real(kind=real_4), intent(in) :: alpha_scalar
real(kind=real_4), intent(in) :: beta_scalar

Source Code

      SUBROUTINE dbcsr_add_s (matrix_a, matrix_b, alpha_scalar, beta_scalar)
         TYPE(dbcsr_type), INTENT(INOUT)          :: matrix_a
         TYPE(dbcsr_type), INTENT(IN)             :: matrix_b
         REAL(kind=real_4), INTENT(IN)                      :: alpha_scalar, beta_scalar

         CALL dbcsr_add_prv(matrix_a%prv, matrix_b%prv, alpha_scalar, beta_scalar)
      END SUBROUTINE dbcsr_add_s