FatesIntegratorsMod Module

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	max_states	=	20

Subroutines

public subroutine RKF45(DerivFunction, Y, Ymask, dx, x, max_err, param_array, Yout, opt_dx, l_pass)

Arguments

Type	Intent	Optional	Attributes		Name
private function DerivFunction(Y, Ymask, x, param_array) result(dYdx) Arguments Type Intent Optional Attributes Name real(kind=r8), intent(in), dimension(:) :: Y logical, intent(in), dimension(:) :: Ymask real(kind=r8), intent(in) :: x real(kind=r8), intent(in), dimension(:) :: param_array Return Value real(kind=r8), dimension(lbound(Y,dim=1):ubound(Y,dim=1))
real(kind=r8),	intent(in),		dimension(:)	::	Y
logical,	intent(in),		dimension(:)	::	Ymask
real(kind=r8),	intent(in)			::	dx
real(kind=r8),	intent(in)			::	x
real(kind=r8),	intent(in)			::	max_err
real(kind=r8),	intent(in),		dimension(:)	::	param_array
real(kind=r8),	intent(inout),		dimension(:)	::	Yout
real(kind=r8),	intent(out)			::	opt_dx
logical,	intent(out)			::	l_pass

public subroutine Euler(DerivFunction, Y, Ymask, dx, x, param_array, Yout)

Arguments

Type	Intent	Optional	Attributes		Name
private function DerivFunction(Y, Ymask, x, param_array) result(dYdx) Arguments Type Intent Optional Attributes Name real(kind=r8), intent(in), dimension(:) :: Y logical, intent(in), dimension(:) :: Ymask real(kind=r8), intent(in) :: x real(kind=r8), intent(in), dimension(:) :: param_array Return Value real(kind=r8), dimension(lbound(Y,dim=1):ubound(Y,dim=1))
real(kind=r8),	intent(in),		dimension(:)	::	Y
logical,	intent(in),		dimension(:)	::	Ymask
real(kind=r8),	intent(in)			::	dx
real(kind=r8),	intent(in)			::	x
real(kind=r8),	intent(in),		dimension(:)	::	param_array
real(kind=r8),	intent(inout),		dimension(:)	::	Yout