Take real part of result data values.
r1=real(r)
This function replaces all data values of r with their real parts.
imat_result/imag, imat_result/conj