| # | Line 514 | Line 514 | rmx_multiply(const RMATRIX *m1, const RMATRIX *m2) | |
|---|---|---|
| 514 | for (k = mres->ncomp; k--; ) { | |
| 515 | long double d = 0; | |
| 516 | for (h = m1->ncols; h--; ) | |
| 517 | < | d += (long double)rmx_lval(m1,i,h,k) * |
| 518 | < | (long double)rmx_lval(m2,h,j,k); |
| 517 | > | d += rmx_lval(m1,i,h,k) * rmx_lval(m2,h,j,k); |
| 518 | rmx_lval(mres,i,j,k) = (double)d; | |
| 519 | } | |
| 520 | return(mres); | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines (old) |
| > | Changed lines (new) |