set_function Subroutine

private subroutine set_function(me, f)

Set the function to be minimized.

Type Bound

brent_class

Arguments

Type IntentOptional Attributes Name
class(brent_class), intent(inout) :: me
procedure(func) :: f

Called by

proc~~set_function~~CalledByGraph proc~set_function brent_module::brent_class%set_function proc~brent_test brent_module::brent_test proc~brent_test->proc~set_function proc~integrate_to_event rk_module_variable_step::rk_variable_step_class%integrate_to_event proc~integrate_to_event->proc~set_function proc~integrate_to_event~2 rk_module::rk_class%integrate_to_event proc~integrate_to_event~2->proc~set_function proc~halo_to_rv_diffcorr halo_orbit_module::halo_to_rv_diffcorr proc~halo_to_rv_diffcorr->proc~integrate_to_event~2 proc~rk_test rk_module::rk_test proc~rk_test->proc~integrate_to_event~2 proc~rk_test_variable_step rk_module_variable_step::rk_test_variable_step proc~rk_test_variable_step->proc~integrate_to_event

Source Code

    subroutine set_function(me,f)

    implicit none

    class(brent_class),intent(inout) :: me
    procedure(func)                  :: f

    me%f => f

    end subroutine set_function