replaced abs(z) with abs(real(z))+abs(imag(z)) in complex version
replaced abs(z) with abs(real(z))+abs(imag(z)) to duplicate LAPACK