flag_not_found Subroutine

  1. json_value_module.F90
  2. json_value_module
  3. flag_not_found

private subroutine flag_not_found(found)

If found is present, set it it false.

Arguments

Type IntentOptional AttributesName
logical(kind=LK), intent(out), optional :: found

Called by

proc~~flag_not_found~~CalledByGraph proc~flag_not_found 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_real_vec_by_path json_get_real_vec_by_path proc~json_get_real_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_integer_vec_by_path json_get_integer_vec_by_path proc~json_get_integer_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 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_logical_vec_by_path json_get_logical_vec_by_path proc~json_get_logical_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

Contents

Source Code

flag_not_found

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