sll_m_penta_diagonal Module Reference

Description

Toeplitz penta-diagonal system solver.

This module are not fully tested, please use it carefully.

Derived types and interfaces
type	sll_t_penta_diagonal_solver
	Initialize the penta diagonal solver. More...
interface	sll_o_create
interface	sll_o_solve
interface	sll_o_delete

Functions/Subroutines
type(sll_t_penta_diagonal_solver) function, pointer	new_penta_diagonal (n)
	allocate the solveR More...
subroutine	solve_penta_diagonal (a, b, c, f, plan)
	The solution will be set in plansolution. More...
real(kind=f64) function, dimension(n)	solve_subsystem (l1, l2, b, n)
subroutine	delete_penta_diagonal (plan)
	deallocat the solver More...

Function/Subroutine Documentation

delete_penta_diagonal()

subroutine sll_m_penta_diagonal::delete_penta_diagonal ( type(sll_t_penta_diagonal_solver), pointer  plan )

private

deallocat the solver

Definition at line 180 of file sll_m_penta_diagonal.F90.

new_penta_diagonal()

type(sll_t_penta_diagonal_solver) function, pointer sll_m_penta_diagonal::new_penta_diagonal ( integer(kind=i32)  n )

private

allocate the solveR

Definition at line 64 of file sll_m_penta_diagonal.F90.

solve_penta_diagonal()

subroutine sll_m_penta_diagonal::solve_penta_diagonal ( real(kind=f64)  a, real(kind=f64)  b, real(kind=f64)  c, real(kind=f64), dimension(:)  f, type(sll_t_penta_diagonal_solver), pointer  plan  )

private

The solution will be set in plansolution.

Definition at line 90 of file sll_m_penta_diagonal.F90.

solve_subsystem()

real(kind=f64) function, dimension(n) sll_m_penta_diagonal::solve_subsystem ( real(kind=f64)  l1, real(kind=f64)  l2, real(kind=f64), dimension(:)  b, integer(kind=i32)  n  )

private

Definition at line 148 of file sll_m_penta_diagonal.F90.

Here is the caller graph for this function: