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