generic_thomas Interface

public interface generic_thomas

Calls

interface~~generic_thomas~~CallsGraph interface~generic_thomas generic_thomas proc~generic_thomas_1d generic_thomas_1d interface~generic_thomas->proc~generic_thomas_1d proc~generic_thomas_2d generic_thomas_2d interface~generic_thomas->proc~generic_thomas_2d

Called by

interface~~generic_thomas~~CalledByGraph interface~generic_thomas generic_thomas proc~massman_sparse_1d massman_sparse_1d proc~massman_sparse_1d->interface~generic_thomas proc~massman_sparse_2d massman_sparse_2d proc~massman_sparse_2d->interface~generic_thomas interface~massman_sparse massman_sparse interface~massman_sparse->proc~massman_sparse_1d interface~massman_sparse->proc~massman_sparse_2d proc~get_and_solve_eqn get_and_solve_eqn proc~get_and_solve_eqn->interface~massman_sparse proc~iflux_loop iflux_loop proc~iflux_loop->proc~get_and_solve_eqn proc~timestep_loop timestep_loop proc~timestep_loop->proc~iflux_loop proc~solve solve proc~solve->proc~timestep_loop proc~sli_main sli_main proc~sli_main->proc~solve

Module Procedures

private subroutine generic_thomas_1d(n, A, B, C, r, u, err)

Arguments

Type IntentOptional Attributes Name
integer(kind=i_d), intent(in) :: n
real(kind=r_2), intent(in), DIMENSION(1:n,1:2,1:2) :: A
real(kind=r_2), intent(in), DIMENSION(1:n,1:2,1:2) :: B
real(kind=r_2), intent(in), DIMENSION(1:n,1:2,1:2) :: C
real(kind=r_2), intent(in), DIMENSION(1:n,1:2) :: r
real(kind=r_2), intent(out), DIMENSION(1:n,1:2) :: u
integer(kind=i_d), intent(out), optional :: err

private subroutine generic_thomas_2d(mp, n, A, B, C, r, u, err)

Arguments

Type IntentOptional Attributes Name
integer(kind=i_d), intent(in) :: mp
integer(kind=i_d), intent(in) :: n
real(kind=r_2), intent(in), DIMENSION(1:mp,1:n,1:2,1:2) :: A
real(kind=r_2), intent(in), DIMENSION(1:mp,1:n,1:2,1:2) :: B
real(kind=r_2), intent(in), DIMENSION(1:mp,1:n,1:2,1:2) :: C
real(kind=r_2), intent(in), DIMENSION(1:mp,1:n,1:2) :: r
real(kind=r_2), intent(out), DIMENSION(1:mp,1:n,1:2) :: u
integer(kind=i_d), intent(out), optional :: err