diff options
Diffstat (limited to 'numpy/linalg/lapack_lite/f2c.c')
| -rw-r--r-- | numpy/linalg/lapack_lite/f2c.c | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/numpy/linalg/lapack_lite/f2c.c b/numpy/linalg/lapack_lite/f2c.c index 9a1e9cec1..f1d3fdfbe 100644 --- a/numpy/linalg/lapack_lite/f2c.c +++ b/numpy/linalg/lapack_lite/f2c.c @@ -14,9 +14,9 @@ #include "f2c.h" -extern void s_wsfe(cilist *f) {;} -extern void e_wsfe(void) {;} -extern void do_fio(integer *c, char *s, ftnlen l) {;} +extern int s_wsfe(cilist *f) {return 0;} +extern int e_wsfe(void) {return 0;} +extern int do_fio(integer *c, char *s, ftnlen l) {return 0;} /* You'll want this if you redo the f2c_*.c files with the -C option * to f2c for checking array subscripts. (It's not suggested you do that @@ -377,7 +377,7 @@ p->i = p1.i; #endif /* NO_OVERWRITE */ - VOID + int #ifdef KR_headers s_cat(lp, rpp, rnp, np, ll) char *lp, *rpp[]; ftnlen rnp[], *np, ll; #else @@ -485,9 +485,9 @@ return(0); /* assign strings: a = b */ #ifdef KR_headers -VOID s_copy(a, b, la, lb) register char *a, *b; ftnlen la, lb; +int s_copy(a, b, la, lb) register char *a, *b; ftnlen la, lb; #else -void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb) +int s_copy(register char *a, register char *b, ftnlen la, ftnlen lb) #endif { register char *aend, *bend; @@ -524,6 +524,7 @@ void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb) while(a < aend) *a++ = ' '; } + return 0; } |