24 lines
676 B
Diff
24 lines
676 B
Diff
|
From 5eb1faf8ee2eac3057ef55c99dd3083242559b9e Mon Sep 17 00:00:00 2001
|
||
|
|
From: dbpercival <dbpercival@gmail.com>
|
||
|
|
Date: Sat, 8 Jul 2023 16:26:35 -0700
|
||
|
|
Subject: [PATCH] Update sapa_lapack.c
|
||
|
|
|
||
|
|
Stephen's suggested change
|
||
|
|
---
|
||
|
|
src/sapa_lapack.c | 2 +-
|
||
|
|
1 file changed, 1 insertion(+), 1 deletion(-)
|
||
|
|
|
||
|
|
diff --git a/src/sapa_lapack.c b/src/sapa_lapack.c
|
||
|
|
index eff4851..a520e33 100644
|
||
|
|
--- a/src/sapa_lapack.c
|
||
|
|
+++ b/src/sapa_lapack.c
|
||
|
|
@@ -102,7 +102,7 @@ SEXP R_sapa_dpss(SEXP nsample, SEXP ntaper, SEXP bandwidth)
|
||
|
|
ISPLIT,
|
||
|
|
WORK1,
|
||
|
|
IWORK1,
|
||
|
|
- &INFO);
|
||
|
|
+ &INFO FCONE FCONE);
|
||
|
|
// if (INFO != 0)
|
||
|
|
// error(_("error code %d from LAPACK routine '%s'"), info, "dstebz");
|
||
|
|
|