The R Project SVN R-packages

Rev

Rev 1285 | Rev 1781 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1285 Rev 1329
Line 114... Line 114...
114 
    int m, n, sz;
 114 
    int m, n, sz;
115 
    double one = 1.;
 115 
    double one = 1.;
116 
 
 116 
 
117 
    if (!cl && !(isReal(b) && isMatrix(b)))
 117 
    if (!cl && !(isReal(b) && isMatrix(b)))
118 
	error(_("Argument b must be a numeric matrix"));
 118 
	error(_("Argument b must be a numeric matrix"));
119 
    if (adims[0] != adims[1]) error(_("dtrMatrix in \%*\% must be square"));
 119 
    if (adims[0] != adims[1]) error(_("dtrMatrix in %*% must be square"));
120 
    m = rt ? bdims[0] : adims[0];
 120 
    m = rt ? bdims[0] : adims[0];
121 
    n = rt ? adims[1] : bdims[1];
 121 
    n = rt ? adims[1] : bdims[1];
122 
    if ((rt && (adims[0] != m)) || (!rt && (bdims[0] != m)))
 122 
    if ((rt && (adims[0] != m)) || (!rt && (bdims[0] != m)))
123 
	    error(_("Matrices are not conformable for multiplication"));
 123 
	    error(_("Matrices are not conformable for multiplication"));
124 
    if (m < 1 || n < 1)
 124 
    if (m < 1 || n < 1)