initialize_fixed_step Subroutine

private subroutine initialize_fixed_step(me, n, f, report, g, stop_on_errors, max_number_of_steps, report_rate, solver)

Initialize the rk_fixed_step_class.

Type Bound

rk_fixed_step_class

Arguments

Type IntentOptional Attributes Name
class(rk_fixed_step_class), intent(inout) :: me
integer, intent(in) :: n

number of variables
procedure(deriv_func) :: f

derivative function
procedure(report_func), optional :: report

for reporting the steps
procedure(event_func), optional :: g

for stopping at an event
logical, intent(in), optional :: stop_on_errors

stop the program for any errors (default is False)
integer, intent(in), optional :: max_number_of_steps

max number of steps allowed
integer, intent(in), optional :: report_rate

how often to call report function: 0 : no reporting (same as not associating report), 1 : report every point, 2 : report every other point, etc. The first and last point are always reported.
class(root_method), intent(in), optional :: solver

the root-finding method to use for even finding. if not present, then brent_solver is used.

Calls

proc~~initialize_fixed_step~~CallsGraph proc~initialize_fixed_step rklib_module::rk_fixed_step_class%initialize_fixed_step init init proc~initialize_fixed_step->init

Source Code

    subroutine initialize_fixed_step(me,n,f,report,g,stop_on_errors,&
                                     max_number_of_steps,report_rate,&
                                     solver)

    implicit none

    class(rk_fixed_step_class),intent(inout)   :: me
    integer,intent(in)              :: n       !! number of variables
    procedure(deriv_func)           :: f       !! derivative function
    procedure(report_func),optional :: report  !! for reporting the steps
    procedure(event_func),optional  :: g       !! for stopping at an event
    logical,intent(in),optional     :: stop_on_errors !! stop the program for
                                                      !! any errors (default is False)
    integer,intent(in),optional     :: max_number_of_steps !! max number of steps allowed
    integer,intent(in),optional     :: report_rate !! how often to call report function:
                                                   !! `0` : no reporting (same as not associating `report`),
                                                   !! `1` : report every point,
                                                   !! `2` : report every other point, etc.
                                                   !! The first and last point are always reported.
    class(root_method),intent(in),optional :: solver !! the root-finding method to use for even finding.
                                                     !! if not present, then `brent_solver` is used.

    ! base init all we need here:
    call me%init(n,f,report,g,stop_on_errors,max_number_of_steps,report_rate,solver)

    end subroutine initialize_fixed_step