| author | Francesco Abbate <francesco.bbt@gmail.com> | 2009年09月06日 20:38:01 +0000 |
|---|---|---|
| committer | Francesco Abbate <francesco.bbt@gmail.com> | 2009年09月06日 20:38:01 +0000 |
| commit | 2909c35d22f3b04cf6fd32fe79d1897b495f0d55 (patch) | |
| tree | a3a7a6d6fff4b5b9f6a447e1b7c8e45ea91f0441 /matrix_headers_source.h | |
| parent | 8b5bf5e26a4b6f0a7460cb48d87403a032da0dd4 (diff) | |
| download | gsl-shell-2909c35d22f3b04cf6fd32fe79d1897b495f0d55.tar.gz | |
| -rw-r--r-- | matrix_headers_source.h | 31 |
diff --git a/matrix_headers_source.h b/matrix_headers_source.h new file mode 100644 index 00000000..65272519 --- /dev/null +++ b/matrix_headers_source.h @@ -0,0 +1,31 @@ +
+extern void FUNCTION (matrix, register) (lua_State *L);
+
+extern TYPE (gsl_matrix) * FUNCTION (matrix, push) (lua_State *L,
+ int n1, int n2);
+
+extern TYPE (gsl_matrix) * FUNCTION (matrix, push_raw) (lua_State *L,
+ int n1, int n2);
+
+extern void FUNCTION (matrix, push_view) (lua_State *L,
+ TYPE (gsl_matrix) *m);
+
+extern TYPE (gsl_matrix) * FUNCTION (matrix, check) (lua_State *L,
+ int index);
+
+extern VIEW (gsl_matrix) * FUNCTION (matrix, check_view) (lua_State *L,
+ int idx);
+
+
+/* matrix helper functions */
+extern void
+FUNCTION (matrix, set_view_and_push) (lua_State *L, int index, double *data,
+ size_t n1, size_t n2, const double *src);
+
+extern void
+FUNCTION (matrix, jacob_copy_real_to_cmpl) (double *dest_cmpl, double *src_real,
+ size_t n, size_t p, size_t mult);
+
+extern void
+FUNCTION (matrix, jacob_copy_cmpl_to_real) (double *dest_real, double *src_cmpl,
+ size_t n, size_t p, size_t mult);
|