flag_not_found Subroutine

private subroutine flag_not_found(found)

If found is present, set it it false.

Arguments

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

Called by

proc~~flag_not_found~~CalledByGraph proc~flag_not_found flag_not_found proc~json_file_get_alloc_string_vec json_file%json_file_get_alloc_string_vec proc~json_file_get_alloc_string_vec->proc~flag_not_found none~get json_file%get proc~json_file_get_alloc_string_vec->none~get proc~json_file_get_integer json_file%json_file_get_integer proc~json_file_get_integer->proc~flag_not_found proc~json_file_get_integer->none~get proc~json_file_get_integer_vec json_file%json_file_get_integer_vec proc~json_file_get_integer_vec->proc~flag_not_found proc~json_file_get_integer_vec->none~get proc~json_file_get_logical json_file%json_file_get_logical proc~json_file_get_logical->proc~flag_not_found proc~json_file_get_logical->none~get proc~json_file_get_logical_vec json_file%json_file_get_logical_vec proc~json_file_get_logical_vec->proc~flag_not_found proc~json_file_get_logical_vec->none~get proc~json_file_get_real json_file%json_file_get_real proc~json_file_get_real->proc~flag_not_found proc~json_file_get_real->none~get proc~json_file_get_real_vec json_file%json_file_get_real_vec proc~json_file_get_real_vec->proc~flag_not_found proc~json_file_get_real_vec->none~get proc~json_file_get_string json_file%json_file_get_string proc~json_file_get_string->proc~flag_not_found proc~json_file_get_string->none~get proc~json_file_get_string_vec json_file%json_file_get_string_vec proc~json_file_get_string_vec->proc~flag_not_found proc~json_file_get_string_vec->none~get none~get->proc~json_file_get_alloc_string_vec none~get->proc~json_file_get_integer none~get->proc~json_file_get_integer_vec none~get->proc~json_file_get_logical none~get->proc~json_file_get_logical_vec none~get->proc~json_file_get_real none~get->proc~json_file_get_real_vec none~get->proc~json_file_get_string none~get->proc~json_file_get_string_vec proc~json_file_get_real32 json_file%json_file_get_real32 none~get->proc~json_file_get_real32 proc~json_file_get_real32_vec json_file%json_file_get_real32_vec none~get->proc~json_file_get_real32_vec proc~wrap_json_file_get_alloc_string_vec json_file%wrap_json_file_get_alloc_string_vec none~get->proc~wrap_json_file_get_alloc_string_vec proc~wrap_json_file_get_integer json_file%wrap_json_file_get_integer none~get->proc~wrap_json_file_get_integer proc~wrap_json_file_get_integer_vec json_file%wrap_json_file_get_integer_vec none~get->proc~wrap_json_file_get_integer_vec proc~wrap_json_file_get_logical json_file%wrap_json_file_get_logical none~get->proc~wrap_json_file_get_logical proc~wrap_json_file_get_logical_vec json_file%wrap_json_file_get_logical_vec none~get->proc~wrap_json_file_get_logical_vec proc~wrap_json_file_get_object json_file%wrap_json_file_get_object none~get->proc~wrap_json_file_get_object proc~wrap_json_file_get_real json_file%wrap_json_file_get_real none~get->proc~wrap_json_file_get_real proc~wrap_json_file_get_real32 json_file%wrap_json_file_get_real32 none~get->proc~wrap_json_file_get_real32 proc~wrap_json_file_get_real32_vec json_file%wrap_json_file_get_real32_vec none~get->proc~wrap_json_file_get_real32_vec proc~wrap_json_file_get_real_vec json_file%wrap_json_file_get_real_vec none~get->proc~wrap_json_file_get_real_vec proc~wrap_json_file_get_string json_file%wrap_json_file_get_string none~get->proc~wrap_json_file_get_string proc~wrap_json_file_get_string_vec json_file%wrap_json_file_get_string_vec none~get->proc~wrap_json_file_get_string_vec proc~initialize_hash json_file%initialize_hash proc~initialize_hash->none~get proc~json_file_get_real32->none~get proc~json_file_get_real32_vec->none~get proc~wrap_json_file_get_alloc_string_vec->none~get proc~wrap_json_file_get_integer->none~get proc~wrap_json_file_get_integer_vec->none~get proc~wrap_json_file_get_logical->none~get proc~wrap_json_file_get_logical_vec->none~get proc~wrap_json_file_get_object->none~get proc~wrap_json_file_get_real->none~get proc~wrap_json_file_get_real32->none~get proc~wrap_json_file_get_real32_vec->none~get proc~wrap_json_file_get_real_vec->none~get proc~wrap_json_file_get_string->none~get proc~wrap_json_file_get_string_vec->none~get

Source Code

    subroutine flag_not_found(found)

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

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

    end subroutine flag_not_found