| author | francesco-ST <francesco.abbate@st.com> | 2010年10月25日 12:14:22 +0200 |
|---|---|---|
| committer | francesco-ST <francesco.abbate@st.com> | 2010年10月25日 12:14:22 +0200 |
| commit | 16b347628af89740c5cd4f5c6c9fd632fea55360 (patch) | |
| tree | 99ca6097182a2d52d380367285f3a021fa926b76 /matrix_source.c | |
| parent | 0f2d2469cbbcf0bd9827d0a391daeb0ae936f1f9 (diff) | |
| download | gsl-shell-16b347628af89740c5cd4f5c6c9fd632fea55360.tar.gz | |
| -rw-r--r-- | matrix_source.c | 15 |
diff --git a/matrix_source.c b/matrix_source.c index de84d8fc..b55e1280 100644 --- a/matrix_source.c +++ b/matrix_source.c @@ -268,21 +268,6 @@ FUNCTION(matrix, new) (lua_State *L) } int -FUNCTION(matrix, unm) (lua_State *L) -{ - const TYPE (gsl_matrix) *a = FUNCTION (matrix, check) (L, 1); - TYPE (gsl_matrix) *r; - LUA_TYPE fact = -1.0; - BASE gslfact = TYPE (value_assign) (fact); - - r = FUNCTION (matrix, push_raw) (L, a->size1, a->size2); - - FUNCTION (gsl_matrix, memcpy) (r, a); - FUNCTION (gsl_matrix, scale) (r, gslfact); - return 1; -} - -int FUNCTION(matrix, mul) (lua_State *L) { int k, nargs = lua_gettop (L); |