rksuite_90 Module Reference

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

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	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	stiff_r1 (comm, f, toomch, sure_stiff)
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	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)

Function/Subroutine Documentation

subroutine rksuite_90::machine_const ( real(kind=wp), intent(out)  round_off, real(kind=wp), intent(out)  sqrrmc, real(kind=wp), intent(out)  cubrmc, real(kind=wp), intent(out)  sqtiny, integer, intent(out)  outch  )

private

Referenced by setup_r1().

subroutine rksuite_90::method_const ( integer, intent(in)  rk_method, real(kind=wp), dimension(13,13), intent(out)  a, real(kind=wp), dimension(13), intent(out)  b, real(kind=wp), dimension(13), intent(out)  c, real(kind=wp), dimension(13), intent(out)  bhat, real(kind=wp), dimension(11,6), intent(out)  r, real(kind=wp), dimension(7), intent(out)  e, integer, dimension(13), intent(out)  ptr, integer, intent(out)  no_of_stages, integer, intent(out)  intrp_degree, logical, intent(out)  intrp_able, logical, intent(out)  intrp_needs_stages, real(kind=wp), intent(out)  cost, real(kind=wp), intent(out)  safety, real(kind=wp), intent(out)  expon, real(kind=wp), intent(out)  stability_radius, real(kind=wp), intent(out)  tan_angle, real(kind=wp), intent(out)  rs, real(kind=wp), intent(out)  rs1, real(kind=wp), intent(out)  rs2, real(kind=wp), intent(out)  rs3, real(kind=wp), intent(out)  rs4, integer, intent(out)  order, integer, intent(out)  last_stage, integer, intent(out)  max_stiff_iters, integer, intent(out)  no_of_ge_steps, logical, intent(out)  fsal, real(kind=wp), intent(out)  cdiff  )

private

Referenced by setup_r1().

subroutine rksuite_90::setup_r1 ( type(rk_comm_real_1d)  comm, real(kind=wp), intent(in)  t_start, real(kind=wp), dimension(:), intent(in)  y_start, real(kind=wp), intent(in)  t_end, real(kind=wp), intent(in)  tolerance, real(kind=wp), dimension(:), intent(in)  thresholds, character(len=*), intent(in), optional  method, character(len=*), intent(in), optional  task, logical, intent(in), optional  error_assess, real(kind=wp), intent(in), optional  h_start, logical, intent(in), optional  message  )

private

References machine_const(), method_const(), rkmsg_r1(), and setup_global_stuff().

subroutine rksuite_90::collect_garbage_r1 ( type(rk_comm_real_1d)  comm )

private

recursive subroutine rksuite_90::range_integrate_r1 ( type(rk_comm_real_1d), intent(inout)  comm,   f, real(kind=wp), intent(in)  t_want, real(kind=wp), intent(out)  t_got, real(kind=wp), dimension(:), intent(out)  y_got, real(kind=wp), dimension(:), intent(out)  yderiv_got, integer, intent(out), optional  flag  )

private

References get_saved_fatal_r1(), get_saved_state_r1(), rkmsg_r1(), set_saved_state_r1(), and rksuite_90_prec::wp.

recursive subroutine rksuite_90::step_integrate_r1	(	type(rk_comm_real_1d), intent(inout)	comm,
			f,
		real(kind=wp), intent(out)	t_now,
		real(kind=wp), dimension(:), intent(out)	y_now,
		real(kind=wp), dimension(:), intent(out)	yderiv_now,
		integer, intent(out), optional	flag
	)

References get_saved_state_r1(), rkmsg_r1(), set_saved_state_r1(), step_r1(), stiff_r1(), truerr_r1(), and rksuite_90_prec::wp.

subroutine rksuite_90::truerr_r1	(	type(rk_comm_real_1d), intent(inout)	comm,
			f,
		integer, intent(inout)	ier
	)

References origen_definitions_m::err, step_r1(), and rksuite_90_prec::wp.

Referenced by step_integrate_r1().

subroutine rksuite_90::step_r1	(	type(rk_comm_real_1d), intent(inout), target	comm,
			f,
		real(kind=wp), intent(in)	tnow,
		real(kind=wp), dimension(:), intent(in)	y,
		real(kind=wp), dimension(:), intent(in)	yp,
		real(kind=wp), dimension(:,:), intent(out)	stages,
		real(kind=wp), intent(in)	tol,
		real(kind=wp), intent(inout)	htry,
		real(kind=wp), dimension(:), intent(out)	y_new,
		real(kind=wp), dimension(:), intent(out)	errest,
		real(kind=wp), intent(out)	err,
		real(kind=wp), intent(in), optional	hmin,
		logical, intent(inout), optional	phase_2
	)

References stepa(), stepb(), and rksuite_90_prec::wp.

Referenced by step_integrate_r1(), and truerr_r1().

subroutine rksuite_90::stiff_r1 ( type(rk_comm_real_1d), intent(inout), target  comm,   f, logical, intent(in)  toomch, logical, intent(out)  sure_stiff  )

private

References approx_jacobian(), dominant_eigenvalue(), quadratic_roots(), rev_wt_inner_prod(), rksuite_90_prec::wp, and wt_inner_prod().

Referenced by step_integrate_r1().

subroutine rksuite_90::statistics_r1 ( type(rk_comm_real_1d), intent(inout)  comm, integer, intent(out), optional  total_f_calls, integer, intent(out), optional  step_cost, real(kind=wp), intent(out), optional  waste, integer, intent(out), optional  num_succ_steps, real(kind=wp), intent(out), optional  h_next, real(kind=wp), dimension(:), intent(out), optional  y_maxvals  )

private

References get_saved_state_r1(), and rkmsg_r1().

subroutine rksuite_90::global_error_r1 ( type(rk_comm_real_1d), intent(inout)  comm, real(kind=wp), dimension(:), intent(out), optional  rms_error, real(kind=wp), intent(out), optional  max_error, real(kind=wp), intent(out), optional  t_max_error  )

private

References get_saved_state_r1(), and rkmsg_r1().

subroutine rksuite_90::reset_t_end_r1 ( type(rk_comm_real_1d), intent(inout)  comm, real(kind=wp), intent(in)  t_end_new  )

private

References get_saved_state_r1(), and rkmsg_r1().

subroutine rksuite_90::interpolate_r1 ( type(rk_comm_real_1d), intent(inout), target  comm,   f, real(kind=wp), intent(in)  t_want, real(kind=wp), dimension(:), intent(out), optional  y_want, real(kind=wp), dimension(:), intent(out), optional  yderiv_want  )

private

References evaluate_intrp(), form_intrp(), get_saved_state_r1(), rkmsg_r1(), and rksuite_90_prec::wp.

subroutine rksuite_90::rkmsg_r1	(	integer, intent(in)	ier,
		character(len=*), intent(in)	srname,
		integer, intent(in)	nrec,
		type(rk_comm_real_1d), intent(inout)	comm,
		integer, intent(out), optional	flag
	)

References get_stop_on_fatal_r1(), and set_saved_state_r1().

Referenced by global_error_r1(), interpolate_r1(), range_integrate_r1(), reset_t_end_r1(), setup_r1(), statistics_r1(), and step_integrate_r1().

subroutine rksuite_90::set_saved_state_r1 ( character(len=*), intent(in)  srname, integer, intent(in)  state, type(rk_comm_real_1d), intent(inout)  comm  )

private

Referenced by range_integrate_r1(), rkmsg_r1(), and step_integrate_r1().

integer function rksuite_90::get_saved_state_r1 ( character(len=*), intent(in)  srname, integer, dimension(7), intent(inout)  save_states  )

private

Referenced by global_error_r1(), interpolate_r1(), range_integrate_r1(), reset_t_end_r1(), statistics_r1(), and step_integrate_r1().

logical function rksuite_90::get_saved_fatal_r1 ( type(rk_comm_real_1d), intent(in)  comm )

private

Referenced by range_integrate_r1().

subroutine rksuite_90::set_stop_on_fatal_r1 ( type(rk_comm_real_1d), intent(inout)  comm, logical, intent(in)  action  )

private

logical function rksuite_90::get_stop_on_fatal_r1 ( type(rk_comm_real_1d), intent(in)  comm )

private

Referenced by rkmsg_r1().