thomas_solver Subroutine

public subroutine thomas_solver(n, a, b, c, x)

Thomas算法求解三对角矩阵线性方程组 Ax = d, 其中,A = [a, b, c]

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n

矩阵规模

real(kind=fp), intent(in) :: a(n)

下对角线

real(kind=fp), intent(in) :: b(n)

主对角线

real(kind=fp), intent(in) :: c(n)

上对角线

real(kind=fp), intent(inout) :: x(n)

求解得到的解向量


Called by

proc~~thomas_solver~~CalledByGraph proc~thomas_solver thomas_solver proc~vdiff_by_k_theory vdiff_by_k_theory proc~vdiff_by_k_theory->proc~thomas_solver program~main main program~main->proc~vdiff_by_k_theory