constant_times_banded_plus_banded Subroutine

public subroutine constant_times_banded_plus_banded(A, B, alpha)

Multiply a constant times a banded matrix plus another banded matrix; A = A + alpha*B

Arguments

Type	Intent	Optional	Attributes		Name
type(banded_matrix_t),	intent(inout)			::	A
type(banded_matrix_t),	intent(in)			::	B
complex(kind=dp),	intent(in)			::	alpha