summaryrefslogtreecommitdiffstats
path: root/scilab/modules/sparse
diff options
context:
space:
mode:
authorAllan CORNET <allan.cornet@scilab.org>2010-02-09 07:09:07 +0100
committerAllan CORNET <allan.cornet@scilab.org>2010-02-09 07:09:07 +0100
commit9c12850e7891d30bf62f02f473d08d241dafd9d2 (patch)
tree2cefd6c94efcbc59ef17237f31aba3bbe598fa0c /scilab/modules/sparse
parent89d2d4dd4d9b634f25e38381b5b2039a6124ec00 (diff)
downloadscilab-9c12850e7891d30bf62f02f473d08d241dafd9d2.zip
scilab-9c12850e7891d30bf62f02f473d08d241dafd9d2.tar.gz
fix build with f2c no _ in fortran function name (doubled by f2c)
Diffstat (limited to 'scilab/modules/sparse')
-rw-r--r--scilab/modules/sparse/includes/gw_sparse.h2
-rw-r--r--scilab/modules/sparse/sci_gateway/c/gw_sparse.c2
-rw-r--r--scilab/modules/sparse/sci_gateway/fortran/sci_ta2lpd.f2
3 files changed, 3 insertions, 3 deletions
diff --git a/scilab/modules/sparse/includes/gw_sparse.h b/scilab/modules/sparse/includes/gw_sparse.h
index 61b0f9a..9f97da2 100644
--- a/scilab/modules/sparse/includes/gw_sparse.h
+++ b/scilab/modules/sparse/includes/gw_sparse.h
@@ -43,7 +43,7 @@ int C2F(sci_bfinit) (char *fname,unsigned long fname_len);
43int C2F(sci_msparse) (char *fname,unsigned long fname_len); 43int C2F(sci_msparse) (char *fname,unsigned long fname_len);
44int C2F(sci_mspget) (char *fname,unsigned long fname_len); 44int C2F(sci_mspget) (char *fname,unsigned long fname_len);
45int C2F(sci_mfull) (char *fname,unsigned long fname_len); 45int C2F(sci_mfull) (char *fname,unsigned long fname_len);
46int C2F(sci_ta2lpd) (char *fname,unsigned long fname_len); 46int C2F(scita2lpd) (char *fname,unsigned long fname_len);
47/*--------------------------------------------------------------------------*/ 47/*--------------------------------------------------------------------------*/
48#endif /* __GW_SPARSE__ */ 48#endif /* __GW_SPARSE__ */
49/*--------------------------------------------------------------------------*/ 49/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/sparse/sci_gateway/c/gw_sparse.c b/scilab/modules/sparse/sci_gateway/c/gw_sparse.c
index 6bcc025..7fbb77a 100644
--- a/scilab/modules/sparse/sci_gateway/c/gw_sparse.c
+++ b/scilab/modules/sparse/sci_gateway/c/gw_sparse.c
@@ -41,7 +41,7 @@ static gw_generic_table Tab[]=
41 {C2F(sci_msparse),"msparse"}, 41 {C2F(sci_msparse),"msparse"},
42 {C2F(sci_mspget),"mspget"}, 42 {C2F(sci_mspget),"mspget"},
43 {C2F(sci_mfull),"mfull"}, 43 {C2F(sci_mfull),"mfull"},
44 {C2F(sci_ta2lpd),"ta2lpd"} 44 {C2F(scita2lpd),"ta2lpd"}
45}; 45};
46/*--------------------------------------------------------------------------*/ 46/*--------------------------------------------------------------------------*/
47int gw_sparse(void) 47int gw_sparse(void)
diff --git a/scilab/modules/sparse/sci_gateway/fortran/sci_ta2lpd.f b/scilab/modules/sparse/sci_gateway/fortran/sci_ta2lpd.f
index 9167a52..94ebb5e 100644
--- a/scilab/modules/sparse/sci_gateway/fortran/sci_ta2lpd.f
+++ b/scilab/modules/sparse/sci_gateway/fortran/sci_ta2lpd.f
@@ -7,7 +7,7 @@ c you should have received as part of this distribution. The terms
7c are also available at 7c are also available at
8c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt 8c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
9 9
10 subroutine sci_ta2lpd(fname) 10 subroutine scita2lpd(fname)
11c 11c
12 character*(*) fname 12 character*(*) fname
13 include 'stack.h' 13 include 'stack.h'