aprod_func Interface

interface
private subroutine aprod_func(me, mode, m, n, x, y)

Arguments

Type IntentOptional Attributes Name
class(lsqr_solver), intent(inout) :: me
integer, intent(in) :: mode
  • If mode = 1, compute y = y + A*x. y should be altered without changing x.
  • If mode = 2, compute x = x + A(transpose)*y. x should be altered without changing y.
integer, intent(in) :: m

number of rows in A matrix
integer, intent(in) :: n

number of columns in A matrix
real(kind=wp), intent(inout), dimension(:) :: x
real(kind=wp), intent(inout), dimension(:) :: y

Description

User function to access the sparse matrix A.