summaryrefslogtreecommitdiffstats
path: root/scilab/modules
diff options
context:
space:
mode:
authorMichael Baudin <michael.baudin@scilab.org>2011-05-09 14:18:36 +0200
committerAllan CORNET <allan.cornet@scilab.org>2011-05-09 15:01:05 +0200
commitdaba6120a32c9c1b05a9ee88081731d145c7be47 (patch)
tree39b88968ca2a4d24918e3c5364307303848b57ed /scilab/modules
parentdcc3894c6a862af832d70fdf2669529977ea257c (diff)
downloadscilab-daba6120a32c9c1b05a9ee88081731d145c7be47.zip
scilab-daba6120a32c9c1b05a9ee88081731d145c7be47.tar.gz
polynomials: updated roots gateway to pass f2c
Change-Id: I2938e9c7fb8aa2f2a4f3dad00e931b086269151f
Diffstat (limited to 'scilab/modules')
-rw-r--r--scilab/modules/polynomials/sci_gateway/fortran/sci_f_roots.f2
1 files changed, 1 insertions, 1 deletions
diff --git a/scilab/modules/polynomials/sci_gateway/fortran/sci_f_roots.f b/scilab/modules/polynomials/sci_gateway/fortran/sci_f_roots.f
index f74384d..5c390bf 100644
--- a/scilab/modules/polynomials/sci_gateway/fortran/sci_f_roots.f
+++ b/scilab/modules/polynomials/sci_gateway/fortran/sci_f_roots.f
@@ -17,8 +17,8 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
17 integer fail 17 integer fail
18 logical ref,eigen 18 logical ref,eigen
19 integer algo_eig 19 integer algo_eig
20 data algo_eig/14/
21 integer algo_fast 20 integer algo_fast
21 data algo_eig/14/
22 data algo_fast/15/ 22 data algo_fast/15/
23c 23c
24 iadr(l)=l+l-1 24 iadr(l)=l+l-1