rksuite_90.f90 File Reference

Data Types
type	rk_comm_real_1d
interface	setup
interface	range_integrate
interface	step_integrate
interface	statistics
interface	global_error
interface	reset_t_end
interface	interpolate
interface	set_stop_on_fatal
interface	get_saved_fatal
interface	collect_garbage

Modules
module	rksuite_90_prec
	The 3rd party RKSuite90 solver.
module	rksuite_90

Functions/Subroutines
subroutine	machine_const (round_off, sqrrmc, cubrmc, sqtiny, outch)
subroutine	method_const (rk_method, a, b, c, bhat, r, e, ptr, no_of_stages, intrp_degree, intrp_able, intrp_needs_stages, cost, safety, expon, stability_radius, tan_angle, rs, rs1, rs2, rs3, rs4, order, last_stage, max_stiff_iters, no_of_ge_steps, fsal, cdiff)
subroutine	setup_r1 (comm, t_start, y_start, t_end, tolerance, thresholds, method, task, error_assess, h_start, message)
subroutine	setup_global_stuff
subroutine	collect_garbage_r1 (comm)
recursive subroutine	range_integrate_r1 (comm, f, t_want, t_got, y_got, yderiv_got, flag)
recursive subroutine	step_integrate_r1 (comm, f, t_now, y_now, yderiv_now, flag)
subroutine	truerr_r1 (comm, f, ier)
subroutine	step_r1 (comm, f, tnow, y, yp, stages, tol, htry, y_new, errest, err, hmin, phase_2)
subroutine	stepa (ypnew, htry, cutbak)
subroutine	stepb
subroutine	stiff_r1 (comm, f, toomch, sure_stiff)
real(kind=wp) function, dimension(size(v, 1))	approx_jacobian (f, v, vdotv)
complex(kind=wp) function, dimension(2)	quadratic_roots (alpha, beta)
logical function	dominant_eigenvalue (v1v1, v1v0, v0v0)
real(kind=wp) function	wt_inner_prod (vec_1, vec_2)
real(kind=wp) function	rev_wt_inner_prod (value)
subroutine	statistics_r1 (comm, total_f_calls, step_cost, waste, num_succ_steps, h_next, y_maxvals)
subroutine	global_error_r1 (comm, rms_error, max_error, t_max_error)
subroutine	reset_t_end_r1 (comm, t_end_new)
subroutine	interpolate_r1 (comm, f, t_want, y_want, yderiv_want)
subroutine	form_intrp (f, p)
subroutine	evaluate_intrp (p, y_want, yderiv_want)
subroutine	extra_stages (f, ytemp, xstage)
subroutine	rkmsg_r1 (ier, srname, nrec, comm, flag)
subroutine	set_saved_state_r1 (srname, state, comm)
integer function	get_saved_state_r1 (srname, save_states)
logical function	get_saved_fatal_r1 (comm)
subroutine	set_stop_on_fatal_r1 (comm, action)
logical function	get_stop_on_fatal_r1 (comm)

Variables
integer, parameter	wp = C_DOUBLE

Function/Subroutine Documentation

subroutine setup_r1::setup_global_stuff ( )

private

Referenced by rksuite_90::setup_r1().

subroutine step_r1::stepa	(	real(kind=wp), dimension(:), intent(in)	ypnew,
		real(kind=wp), intent(inout)	htry,
		logical, intent(out)	cutbak
	)

Referenced by rksuite_90::step_r1().

subroutine step_r1::stepb ( )

private

Referenced by rksuite_90::step_r1().

real(kind=wp) function, dimension(size(v,1)) stiff_r1::approx_jacobian	(		f,
		real(kind=wp), dimension(:), intent(in)	v,
		real(kind=wp), intent(in)	vdotv
	)

References rksuite_90_prec::wp.

Referenced by rksuite_90::stiff_r1().

complex(kind=wp) function, dimension(2) stiff_r1::quadratic_roots	(	real(kind=wp), intent(in)	alpha,
		real(kind=wp), intent(in)	beta
	)

Referenced by rksuite_90::stiff_r1().

logical function stiff_r1::dominant_eigenvalue ( real(kind=wp), intent(in)  v1v1, real(kind=wp), intent(in)  v1v0, real(kind=wp), intent(in)  v0v0  )

private

References rev_wt_inner_prod().

Referenced by rksuite_90::stiff_r1().

real(kind=wp) function stiff_r1::wt_inner_prod ( real(kind=wp), dimension(:), intent(in)  vec_1, real(kind=wp), dimension(:), intent(in)  vec_2  )

private

Referenced by rksuite_90::stiff_r1().

real(kind=wp) function stiff_r1::rev_wt_inner_prod ( real(kind=wp), intent(in)  value )

private

Referenced by dominant_eigenvalue(), and rksuite_90::stiff_r1().

subroutine interpolate_r1::form_intrp	(		f,
		real(kind=wp), dimension(:,:), intent(out)	p
	)

References extra_stages(), and rksuite_90_prec::wp.

Referenced by rksuite_90::interpolate_r1().

subroutine interpolate_r1::evaluate_intrp	(	real(kind=wp), dimension(:,:), intent(in)	p,
		real(kind=wp), dimension(:), intent(out), optional	y_want,
		real(kind=wp), dimension(:), intent(out), optional	yderiv_want
	)

Referenced by rksuite_90::interpolate_r1().

subroutine interpolate_r1::extra_stages (   f, real(kind=wp), dimension(:), intent(out)  ytemp, real(kind=wp), dimension(:), intent(out)  xstage  )

private

References rksuite_90_prec::wp.

Referenced by form_intrp().