CMSCOPE changed

6 files changed, 396 insertions, 0 deletions

diff --git a/modules/linear_algebra/includes/dynlib_linear_algebra.h b/modules/linear_algebra/includes/dynlib_linear_algebra.h
new file mode 100755
index 000000000..50aec544b
--- /dev/null
+++ b/modules/linear_algebra/includes/dynlib_linear_algebra.h
@@ -0,0 +1,28 @@
+/*
+* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+* Copyright (C) DIGITEO - 2009 - Allan CORNET
+*
+* 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 __DYNLIB_LINEAR_ALGEBRA_H__
+#define __DYNLIB_LINEAR_ALGEBRA_H__
+
+#ifdef _MSC_VER
+#ifdef LINEAR_ALGEBRA_EXPORTS
+#define LINEAR_ALGEBRA_IMPEXP __declspec(dllexport)
+#else
+#define LINEAR_ALGEBRA_IMPEXP __declspec(dllimport)
+#endif
+#else
+#define LINEAR_ALGEBRA_IMPEXP
+#endif
+
+#endif /* __DYNLIB_LINEAR_ALGEBRA_H__ */
+/*--------------------------------------------------------------------------*/
diff --git a/modules/linear_algebra/includes/gschur.h b/modules/linear_algebra/includes/gschur.h
new file mode 100755
index 000000000..828b795aa
--- /dev/null
+++ b/modules/linear_algebra/includes/gschur.h
@@ -0,0 +1,60 @@
+
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007-2008 - INRIA - Sylvestre LEDRU <sylvestre.ledru@inria.fr>
+ *
+ * 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 __GSCHUR_H__
+#define __GSCHUR_H__
+
+#include "dynlib_linear_algebra.h"
+#include "GetFunctionByName.h"
+#include "linear_FTables.h"
+
+
+/***********************************
+ * Search Table for gzhsel
+ ***********************************/
+
+#define ARGS_gzhsel doublecmplx *,doublecmplx *
+typedef int * (*gzhself)(ARGS_gzhsel);
+
+/**************** gzhsel ***************/
+LINEAR_ALGEBRA_IMPEXP void C2F(zb02ow)(ARGS_gzhsel);
+LINEAR_ALGEBRA_IMPEXP void C2F(zb02ox)(ARGS_gzhsel);
+
+FTAB FTab_gzhsel[] =
+{
+    {"zb02ow", (voidf)  C2F(zb02ow)},
+    {"zb02ox", (voidf)  C2F(zb02ox)},
+    {(char *) 0, (voidf) 0}
+};
+
+
+/***********************************
+ * Search Table for gshsel
+ ***********************************/
+
+#define ARGS_gshsel double *,double*,double*
+typedef int * (*gshself)(ARGS_gshsel);
+
+
+/**************** gshsel ***************/
+LINEAR_ALGEBRA_IMPEXP void C2F(sb02ow)(ARGS_gshsel);
+LINEAR_ALGEBRA_IMPEXP void C2F(sb02ox)(ARGS_gshsel);
+
+FTAB FTab_gshsel[] =
+{
+    {"sb02ow", (voidf)  C2F(sb02ow)},
+    {"sb02ox", (voidf)  C2F(sb02ox)},
+    {(char *) 0, (voidf) 0}
+};
+
+#endif /* __GSCHUR_H__ */
diff --git a/modules/linear_algebra/includes/gw_linear_algebra.h b/modules/linear_algebra/includes/gw_linear_algebra.h
new file mode 100755
index 000000000..275ad0d50
--- /dev/null
+++ b/modules/linear_algebra/includes/gw_linear_algebra.h
@@ -0,0 +1,59 @@
+
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - INRIA - Allan CORNET - <allan.cornet@inria.fr>
+ *
+ * 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 __GW_LINEAR_ALGEBRA__
+#define __GW_LINEAR_ALGEBRA__
+#include "dynlib_linear_algebra.h"
+#include "machine.h"
+/*--------------------------------------------------------------------------*/
+#define SCI_DOUBLE 1
+#define STRING  10
+#define REAL 0
+#define COMPLEX 1
+#define FUNCTION 13
+#define STRINGREAL 27
+#define STRINGCOMPLEX 12
+#define YES 1
+#define NO 0
+/*--------------------------------------------------------------------------*/
+LINEAR_ALGEBRA_IMPEXP int gw_linear_algebra(void);
+/*--------------------------------------------------------------------------*/
+LINEAR_ALGEBRA_IMPEXP int C2F(inthess)(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int C2F(intqr)(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int C2F(intbackslash)(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int C2F(intbdiagr)(char *fname, long unsigned int fname_len);
+LINEAR_ALGEBRA_IMPEXP int C2F(intdet)(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int C2F(intinv)(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int C2F(intlu)(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int C2F(intrcond)(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int C2F(intslash)(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int C2F(intsvd)(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int C2F(intlsq)(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int C2F(intchol)(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int C2F(intspec) (char *fname, unsigned long fname_len);
+/*--------------------------------------------------------------------------*/
+/* used in 'eig' */
+LINEAR_ALGEBRA_IMPEXP int sci_dsyev(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int sci_dgeev(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int sci_zgeev(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int sci_zheev(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int sci_dggev(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int sci_zggev(char *fname, unsigned long fname_len);
+/*--------------------------------------------------------------------------*/
+LINEAR_ALGEBRA_IMPEXP int C2F(intbalanc)(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int C2F(intschur)(char *fname, unsigned long fname_len);
+LINEAR_ALGEBRA_IMPEXP int C2F(intnorm) (char *fname,unsigned long fname_len);
+/*--------------------------------------------------------------------------*/
+#endif /*  __GW_LINEAR_ALGEBRA__ */
+/*--------------------------------------------------------------------------*/
+
diff --git a/modules/linear_algebra/includes/gw_linear_algebra2.h b/modules/linear_algebra/includes/gw_linear_algebra2.h
new file mode 100755
index 000000000..db5a50107
--- /dev/null
+++ b/modules/linear_algebra/includes/gw_linear_algebra2.h
@@ -0,0 +1,23 @@
+
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2006-2008 - INRIA - Allan CORNET - <allan.cornet@inria.fr>
+ *
+ * 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 __GW_LINEAR_ALGEBRA2__
+#define __GW_LINEAR_ALGEBRA2__
+/*--------------------------------------------------------------------------*/
+#include "dynlib_linear_algebra.h"
+/*--------------------------------------------------------------------------*/
+LINEAR_ALGEBRA_IMPEXP int gw_linear_algebra2(void);
+/*--------------------------------------------------------------------------*/
+#endif /*  __GW_LINEAR_ALGEBRA2__ */
+/*--------------------------------------------------------------------------*/
+
diff --git a/modules/linear_algebra/includes/issymmetric.h b/modules/linear_algebra/includes/issymmetric.h
new file mode 100755
index 000000000..f6922a647
--- /dev/null
+++ b/modules/linear_algebra/includes/issymmetric.h
@@ -0,0 +1,38 @@
+
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007-2008 - INRIA - Bruno JOFRET <bruno.jofret@inria.fr>
+ *
+ * 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
+ *
+ */
+
+/*
+**  -*- C -*-
+**
+** issymmetric.h
+**
+** Started on  Thu Sep 13 09:48:03 2007 bruno
+** Last update Thu Sep 13 10:05:59 2007 bruno
+*/
+
+#ifndef __ISSYMMETRIC__
+#define __ISSYMMETRIC__
+#include "dynlib_linear_algebra.h"
+
+
+
+#define SYMMETRIC	1
+#define NOT_SYMMETRIC	0
+
+/*
+** Check wether or not a Matrix is Symmetric.
+*/
+
+LINEAR_ALGEBRA_IMPEXP int C2F(issymmetric)(int *stackPosition);
+
+#endif /* !__ISSYMMETRIC__ */
diff --git a/modules/linear_algebra/includes/schur.h b/modules/linear_algebra/includes/schur.h
new file mode 100755
index 000000000..91ee56092
--- /dev/null
+++ b/modules/linear_algebra/includes/schur.h
@@ -0,0 +1,188 @@
+
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2007-2008 - INRIA - Sylvestre LEDRU <sylvestre.ledru@inria.fr>
+ *
+ * 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 __SCHUR_H__
+#define __SCHUR_H__
+
+#include "dynlib_linear_algebra.h"
+#include "machine.h"
+#include "linear_FTables.h"
+
+/***********************************
+ * Search Table for schsel
+ ***********************************/
+
+#define ARGS_schsel double *,double*
+typedef int * (*schself)(ARGS_schsel);
+
+/**
+ * function call : schsel
+ * @param alpha
+ * @param beta
+ * @return
+ */
+LINEAR_ALGEBRA_IMPEXP int *C2F(schsel)(double *alpha, double *beta);
+
+/**
+ * fixes the function associated to name
+ * @param len
+ * @param name
+ * @param rep
+ */
+LINEAR_ALGEBRA_IMPEXP void C2F(setschsel)(int *len, char *name, int *rep);
+
+/**************** schsel ***************/
+LINEAR_ALGEBRA_IMPEXP void C2F(sb02mv)(ARGS_schsel);
+LINEAR_ALGEBRA_IMPEXP void C2F(sb02mw)(ARGS_schsel);
+
+FTAB FTab_schsel[] =
+{
+    {"sb02mv", (voidf)  C2F(sb02mv)},
+    {"sb02mw", (voidf)  C2F(sb02mw)},
+    {(char *) 0, (voidf) 0}
+};
+
+
+/***********************************
+* Search Table for gschur uses : gshsel
+***********************************/
+/**
+ * @TODO : add comment
+ *
+ * @param alphar
+ * @param alphai
+ * @param beta
+ * @return <ReturnValue>
+ */
+LINEAR_ALGEBRA_IMPEXP int *C2F(gshsel)(double *alphar, double *alphai, double *beta);
+
+/**
+ *  fixes the function associated to name
+ *
+ * @param len
+ * @param name
+ * @param rep
+ */
+LINEAR_ALGEBRA_IMPEXP void C2F(setgshsel)(int *len, char *name, int *rep);
+
+
+/***********************************
+* Search Table for schur uses : fschur
+***********************************/
+
+/**
+ * @TODO : add comment
+ *
+ * @param alpha
+ * @param beta
+ * @return <ReturnValue>
+ */
+LINEAR_ALGEBRA_IMPEXP int *C2F(gzhsel)(doublecmplx *alpha, doublecmplx *beta);
+
+/**
+ *  fixes the function associated to name
+ *
+ * @param len
+ * @param name
+ * @param rep
+ */
+LINEAR_ALGEBRA_IMPEXP void C2F(setgzhsel)(int *len, char *name, int *rep);
+
+/***********************************
+* Search Table for gschur uses : gzhsel
+***********************************/
+/**
+ * @TODO : add comment
+ *
+ * @param alpha
+ * @param beta
+ * @return <ReturnValue>
+ */
+LINEAR_ALGEBRA_IMPEXP int *C2F(gzhsel)(doublecmplx *alpha, doublecmplx *beta);
+
+/**
+ *  fixes the function associated to name
+ *
+ * @param len
+ * @param name
+ * @param rep
+ */
+LINEAR_ALGEBRA_IMPEXP void C2F(setgzhsel)(int *len, char *name, int *rep);
+
+
+/***********************************
+* Search Table for schur uses : zchsel
+***********************************/
+/**
+ * @TODO : add comment
+ *
+ * @param alpha
+ * @return <ReturnValue>
+ */
+LINEAR_ALGEBRA_IMPEXP int *C2F(zchsel)(doublecmplx *alpha);
+
+/**
+ *  fixes the function associated to name
+ *
+ * @param len
+ * @param name
+ * @param rep
+ */
+LINEAR_ALGEBRA_IMPEXP void C2F(setzchsel)(int *len, char *name, int *rep);
+
+/***********************************
+* Search Table for schur uses : fschur
+***********************************/
+
+/**
+ * @TODO add comment
+ *
+ * @param lsize
+ * @param alpha
+ * @param beta
+ * @param s
+ * @param p
+ * @return <ReturnValue>
+ */
+LINEAR_ALGEBRA_IMPEXP int *C2F(fschur)(int *lsize, double *alpha, double *beta, double *s, double *p);
+
+/**
+ *  fixes the function associated to name
+ *
+ * @param name
+ * @param rep
+ */
+LINEAR_ALGEBRA_IMPEXP void C2F(setfschur)(char *name, int *rep);
+
+
+
+/***********************************
+ * Search Table for zchsel
+ ***********************************/
+
+#define ARGS_zchsel doublecmplx *
+typedef int * (*zchself)(ARGS_zchsel);
+
+
+/**************** zchsel ***************/
+LINEAR_ALGEBRA_IMPEXP void C2F(zb02mv)(ARGS_zchsel);
+LINEAR_ALGEBRA_IMPEXP void C2F(zb02mw)(ARGS_zchsel);
+
+FTAB FTab_zchsel[] =
+{
+    {"zb02mv", (voidf)  C2F(zb02mv)},
+    {"zb02mw", (voidf)  C2F(zb02mw)},
+    {(char *) 0, (voidf) 0}
+};
+
+#endif /* __SCHUR_H__ */