function get_memory_kb() result(memory_kb) integer :: memory_kb memory_kb = get_memory_usage() end function get_memory_kb