# | Line 10 | Line 10 | static const char RCSid[] = "$Id$"; | |
---|---|---|
10 | #include <string.h> | |
11 | #include <fcntl.h> | |
12 | #include "resolu.h" | |
13 | + | #include "rtprocess.h" |
14 | #include "rmatrix.h" | |
15 | ||
16 | static char rmx_mismatch_warn[] = "WARNING: data type mismatch\n"; | |
# | Line 513 | 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) * |
517 | < | (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 |
> | Changed lines |