summaryrefslogtreecommitdiff
path: root/sci_gateway/cpp/sci_matrix.c
diff options
context:
space:
mode:
Diffstat (limited to 'sci_gateway/cpp/sci_matrix.c')
-rw-r--r--sci_gateway/cpp/sci_matrix.c38
1 files changed, 0 insertions, 38 deletions
diff --git a/sci_gateway/cpp/sci_matrix.c b/sci_gateway/cpp/sci_matrix.c
deleted file mode 100644
index cf217d6..0000000
--- a/sci_gateway/cpp/sci_matrix.c
+++ /dev/null
@@ -1,38 +0,0 @@
-
-#include<Scierror.h>
-#include<sciprint.h>
-#include<api_scilab.h>
-#include "localization.h"
-#include "fun.h"
-#include <stdio.h>
-#include <math.h>
-
-static const char fname[] = "octave_fun";
-
-int sci_octave_fun(scilabEnv env, int nin, scilabVar* in, int nopt, scilabOpt* opt, int nout, scilabVar* out)
-
-{
-double retval;
-double* out1 = NULL;
-
-if (nin != 0)
- {
- Scierror(77, _("%s: Wrong number of input argument(s): %d expected.\n"), fname, 2);
- return 1;
- }
-
-if (nout != 1)
- {
- Scierror(77, _("%s: Wrong number of output argument(s): %d expected.\n"), fname, 1);
- return 1;
- }
- *out = scilab_createDoubleMatrix2d(env, 1, 1, 5);
- fun(&retval);
- printf("%f\n", retval);
- *out1 = retval;
- scilab_getDoubleArray(env, out[0], &out1);
-
-
-
- return 0;
-}