axpby_linop_rsp Derived Type

type, public, extends(abstract_linop_rsp) :: axpby_linop_rsp

Utility type to define a composite linear operator $\mathbf{C} = \alpha \mathbf{A} + \beta \mathbf{B}$ . The definitions of matvec and rmatvec are directly inherited from those used to define A and B.

Components

Type	Visibility	Attributes		Name		Initial
class(abstract_linop_rsp),	public,	allocatable	::	A			Underlying linear operators.
class(abstract_linop_rsp),	public,	allocatable	::	B			Underlying linear operators.
real(kind=sp),	public		::	alpha			Scaling factors.
real(kind=sp),	public		::	beta			Scaling factors.
logical,	public		::	transA	=	.false.	Logical flag to control whether $\mathbf{A}$ and/or $\mathbf{B}$ need to be transposed.
logical,	public		::	transB	=	.false.	Logical flag to control whether $\mathbf{A}$ and/or $\mathbf{B}$ need to be transposed.

Type-Bound Procedures

procedure, public, pass(self) :: matvec => axpby_matvec_rsp

private subroutine axpby_matvec_rsp(self, vec_in, vec_out)

Arguments

Type	Intent	Optional	Attributes		Name
class(axpby_linop_rsp),	intent(in)			::	self
class(abstract_vector_rsp),	intent(in)			::	vec_in
class(abstract_vector_rsp),	intent(out)			::	vec_out

procedure, public, pass(self) :: rmatvec => axpby_rmatvec_rsp

private subroutine axpby_rmatvec_rsp(self, vec_in, vec_out)

Arguments

Type	Intent	Optional	Attributes		Name
class(axpby_linop_rsp),	intent(in)			::	self
class(abstract_vector_rsp),	intent(in)			::	vec_in
class(abstract_vector_rsp),	intent(out)			::	vec_out