split red into two kernels
real is not a c type...
added tabulate