der_penta_full

public subroutine der_penta_full(du, u, u_s, u_e, n_tds, n_rhs, coeffs_s, coeffs_e, coeffs, ffr, faf, fsa, fbw, beta_lhs, beta_lhs_s, n, n_groups)

Full non-periodic pentadiagonal solve on a single subdomain.

Type	Intent		Name
real(kind=dp),	intent(inout)	::	du(SZ,n,n_groups)
real(kind=dp),	intent(in)	::	u(SZ,n,n_groups)
real(kind=dp),	intent(in)	::	u_s(SZ,4,n_groups)
real(kind=dp),	intent(in)	::	u_e(SZ,4,n_groups)
integer,	intent(in)	::	n_tds
integer,	intent(in)	::	n_rhs
real(kind=dp),	intent(in)	::	coeffs_s(9,4)
real(kind=dp),	intent(in)	::	coeffs_e(9,4)
real(kind=dp),	intent(in)	::	coeffs(9)
real(kind=dp),	intent(in)	::	ffr(n_rhs)
real(kind=dp),	intent(in)	::	faf(n_rhs)
real(kind=dp),	intent(in)	::	fsa(n_rhs)
real(kind=dp),	intent(in)	::	fbw(n_rhs)
real(kind=dp),	intent(in)	::	beta_lhs
real(kind=dp),	intent(in)	::	beta_lhs_s
integer,	intent(in)	::	n
integer,	intent(in)	::	n_groups

Help