apply_preconditioner_jacobi Module Subroutine

module subroutine apply_preconditioner_jacobi(N, M, r, z)

Arguments

Type IntentOptional Attributes Name
integer(kind=int32), intent(in) :: N
real(kind=real64), intent(in) :: M(:)
real(kind=real64), intent(in) :: r(:)
real(kind=real64), intent(inout) :: z(:)

Called by

proc~~apply_preconditioner_jacobi~~CalledByGraph proc~apply_preconditioner_jacobi apply_preconditioner_jacobi proc~apply_preconditioner_sparse_crs_bicgstab apply_preconditioner_sparse_crs_bicgstab proc~apply_preconditioner_sparse_crs_bicgstab->proc~apply_preconditioner_jacobi

Source Code

    module subroutine apply_preconditioner_jacobi(N, M, r, z)
        implicit none
        integer(int32), intent(in) :: N
        real(real64), intent(in) :: M(:)
        real(real64), intent(in) :: r(:)
        real(real64), intent(inout) :: z(:)
        integer(int32) :: i

        !$omp parallel do private(i)
        do i = 1, N
            z(i) = M(i) * r(i)
        end do
        !$omp end parallel do
    end subroutine apply_preconditioner_jacobi