An alternative to .Call(C_Cdqlrs, x * wts, y * wts, tol, FALSE)) that is compatible with complex variables
.Call(C_Cdqlrs, x * wts, y * wts, tol, FALSE))