1 files changed, 52 insertions, 0 deletions
diff --git a/modules/sparse/includes/sp.h b/modules/sparse/includes/sp.h
new file mode 100755
index 000000000..b00d900dc
--- /dev/null
+++ b/modules/sparse/includes/sp.h
@@ -0,0 +1,52 @@
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 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
+ *
+ */
+
+#ifndef __SP_H__
+#define __SP_H__
+
+#define SQR(x) ((x)*(x))
+
+#define NB 32            /* block size for dgels */
+#define MINABSTOL 1e-8
+#define MAXITERS 100
+#define TOLC 1e-5        /* tolerance used for dual infeasibility */
+#define SIGTOL 1e-5      /* tolerance used for detecting zero steps 
+* dF or dZ */
+#define MINRCOND 1e-8    /* minimum rcond to declare F_i dependent */
+
+/* BLAS 1 */
+double dnrm2_( );
+double ddot_( );
+void dcopy_( );
+void daxpy_( );
+void dscal_( );
+
+/* BLAS 2 */
+void dgemv_( );
+void dspmv_( );
+
+/* BLAS 3 */
+void dgemm_( );
+
+/* LAPACK */
+void dgels_( );
+void dspgst_( );
+void dspev_( );
+void dspgv_( );
+void dtrcon_( );
+
+int sp( /* int m, int L, double *F, int *blck_szs, double *c,
+           double *x, double *Z, double *ul, double nu, double abstol,
+           double reltol, double tv, int *iters, double *work,
+           int lwork, int *iwork, int *info */ );
+
+#endif /* __SP_H__ */