Improved crossprod,tcrossprod