flag_not_found Subroutine

private subroutine flag_not_found(found)

If found is present, set it it false.

Arguments

TypeIntentOptionalAttributesName
logical(kind=LK), intent(out), optional :: found

Called by

proc~~flag_not_found~~CalledByGraph proc~flag_not_found flag_not_found proc~json_get_integer_vec_by_path json_get_integer_vec_by_path proc~json_get_integer_vec_by_path->proc~flag_not_found proc~json_get_string_vec_by_path json_get_string_vec_by_path proc~json_get_string_vec_by_path->proc~flag_not_found proc~json_get_real_by_path json_get_real_by_path proc~json_get_real_by_path->proc~flag_not_found proc~json_get_string_by_path json_get_string_by_path proc~json_get_string_by_path->proc~flag_not_found proc~json_get_logical_vec_by_path json_get_logical_vec_by_path proc~json_get_logical_vec_by_path->proc~flag_not_found proc~json_get_logical_by_path json_get_logical_by_path proc~json_get_logical_by_path->proc~flag_not_found proc~json_get_real_vec_by_path json_get_real_vec_by_path proc~json_get_real_vec_by_path->proc~flag_not_found proc~json_get_alloc_string_vec_by_path json_get_alloc_string_vec_by_path proc~json_get_alloc_string_vec_by_path->proc~flag_not_found proc~json_get_integer_by_path json_get_integer_by_path proc~json_get_integer_by_path->proc~flag_not_found

Contents

Source Code


Source Code

    subroutine flag_not_found(found)

    implicit none

    logical(LK),intent(out),optional :: found

    if (present(found)) found = .false.

    end subroutine flag_not_found