1 files changed, 40 insertions, 0 deletions
diff --git a/modules/intersci/examples/ex8c.c b/modules/intersci/examples/ex8c.c
new file mode 100755
index 000000000..1a4e0276e
--- /dev/null
+++ b/modules/intersci/examples/ex8c.c
@@ -0,0 +1,40 @@
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) ????-2008 - INRIA
+ *
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at
+ * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
+ *
+ */
+
+#include "../../routines/machine.h"
+#include <stdlib.h>
+
+/*************************************************************
+ * Example of an int array created by C code
+ * converted to output Scilab variable by cintf
+ *************************************************************/
+
+C2F(ccalc8) ( a, m, n, err)
+int **a, *m, *n, *err ;
+{
+    int i ;
+    *n = 5 ;
+    *m = 3 ;
+    *a = ( int *) malloc( (unsigned) (*m) * (*n) * sizeof(int));
+    if ( *a == (int *) 0 )
+    {
+        *err = 1;
+        sciprint("No more space\n");
+    }
+    *err = 0;
+    for ( i = 0 ; i < (*m) * (*n) ; i++)
+    {
+        (*a)[i] = i ;
+    }
+}
+
+