AMatVec
This routine performs matrix vector multiplication for csrmatrix.
Calling example:
CALL AMat(CSRMatrix_::obj, Real::x(:), Real::y(:))
CALL AMat(Real::A(:), Integer::Ja(:), Real::x(:), Real::y(:))
Interface
- ܀ AMatVec(obj, x, y)
- ️܀ See example
- ↢
INTERFACE
MODULE SUBROUTINE AMatVec(obj, x, y)
TYPE(CSRMatrix_), INTENT(IN) :: obj
REAL(DFP), INTENT(IN) :: x(:)
REAL(DFP), INTENT(INOUT) :: y(:)
END SUBROUTINE AMatVec
END INTERFACE
TODO
- ܀ AMatVec(A, JA, x, y)
- ️܀ See example
- ↢
INTERFACE
MODULE SUBROUTINE AMatVec(A, JA, x, y)
REAL(DFP), INTENT(IN) :: A(:)
INTEGER(I4B), INTENT(IN) :: JA(:)
REAL(DFP), INTENT(IN) :: x(:)
REAL(DFP), INTENT(INOUT) :: y(:)
END SUBROUTINE AMatVec
END INTERFACE
TODO