set_function Subroutine

private subroutine set_function(me, f)

Set the function in a diff_func. Must be called before diff.

Type Bound

diff_func

Arguments

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

Called by

proc~~set_function~~CalledByGraph proc~set_function diff_module::diff_func%set_function proc~compute_jacobian_with_diff numerical_differentiation_module::compute_jacobian_with_diff proc~compute_jacobian_with_diff->proc~set_function

Source Code

    subroutine set_function(me,f)

    implicit none

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

    me%f => f

    end subroutine set_function