01.28.13 updated crossprod() and tcrossprod()