penta Subroutine

public subroutine penta(n, a1, a2, a3, a4, a5, b, x)

PENTA solves a pentadiagonal system of linear equations.

Arguments

Type IntentOptional Attributes Name
integer(kind=4) :: n
real(kind=8) :: a1(n)
real(kind=8) :: a2(n)
real(kind=8) :: a3(n)
real(kind=8) :: a4(n)
real(kind=8) :: a5(n)
real(kind=8) :: b(n)
real(kind=8) :: x(n)

Called by

proc~~penta~~CalledByGraph proc~penta penta proc~spline_cubic_set spline_cubic_set proc~spline_cubic_set->proc~penta proc~ang_tab_set ang_tab_set proc~ang_tab_set->proc~spline_cubic_set proc~bond_tab_set bond_tab_set proc~bond_tab_set->proc~spline_cubic_set proc~vdw_tab_set vdw_tab_set proc~vdw_tab_set->proc~spline_cubic_set proc~ia_angle_setup ia_angle_setup proc~ia_angle_setup->proc~ang_tab_set proc~ia_bond_setup ia_bond_setup proc~ia_bond_setup->proc~bond_tab_set proc~ia_vdw_setup ia_vdw_setup proc~ia_vdw_setup->proc~vdw_tab_set proc~ia_setup ia_setup proc~ia_setup->proc~ia_angle_setup proc~ia_setup->proc~ia_bond_setup proc~ia_setup->proc~ia_vdw_setup proc~setup setup proc~setup->proc~ia_setup program~main main program~main->proc~setup