Mercurial > hg > octave-lyh

comparison liboctave/Sparse-op-defs.h @ 7350:288614c6634d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2008-01-07 16:50:34 by jwe]
author jwe
date Mon, 07 Jan 2008 16:51:31 +0000
parents 4571f691b0ce
children 1a446f28ce68
comparison
equal deleted inserted replaced
7349:a1ab9dbc9622 7350:288614c6634d
1692 SPARSE_BASE_REDUCTION_OP (RET_TYPE, EL_TYPE, \ 1692 SPARSE_BASE_REDUCTION_OP (RET_TYPE, EL_TYPE, \
1693 SPARSE_REDUCTION_OP_ROW_EXPR (OP), \ 1693 SPARSE_REDUCTION_OP_ROW_EXPR (OP), \
1694 SPARSE_REDUCTION_OP_COL_EXPR (OP), \ 1694 SPARSE_REDUCTION_OP_COL_EXPR (OP), \
1695 INIT_VAL, MT_RESULT) 1695 INIT_VAL, MT_RESULT)
1696 1696
1697
1698 // Don't break from this loop if the test succeeds because
1699 // we are looping over the rows and not the columns in the inner
1700 // loop.
1697 #define SPARSE_ANY_ALL_OP_ROW_CODE(TEST_OP, TEST_TRUE_VAL) \ 1701 #define SPARSE_ANY_ALL_OP_ROW_CODE(TEST_OP, TEST_TRUE_VAL) \
1698 if (data (i) TEST_OP 0.0) \ 1702 if (data (i) TEST_OP 0.0) \
1699 { \ 1703 tmp[ridx(i)] = TEST_TRUE_VAL; \
1700 tmp[ridx(i)] = TEST_TRUE_VAL; \
1701 break; \
1702 }
1703 1704
1704 #define SPARSE_ANY_ALL_OP_COL_CODE(TEST_OP, TEST_TRUE_VAL) \ 1705 #define SPARSE_ANY_ALL_OP_COL_CODE(TEST_OP, TEST_TRUE_VAL) \
1705 if (data (i) TEST_OP 0.0) \ 1706 if (data (i) TEST_OP 0.0) \
1706 { \ 1707 { \
1707 tmp[j] = TEST_TRUE_VAL; \ 1708 tmp[j] = TEST_TRUE_VAL; \