Mercurial > octave-nkf

changeset 4344:dc5f2b0d81cc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-02-20 16:57:15 by jwe]
author jwe
date Thu, 20 Feb 2003 16:57:15 +0000
parents db5e0814277a
children 4e23bfdd6172
files libcruft/dassl/ddaslv.f
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/libcruft/dassl/ddaslv.f	Thu Feb 20 16:46:37 2003 +0000
+++ b/libcruft/dassl/ddaslv.f	Thu Feb 20 16:57:15 2003 +0000
@@ -33,7 +33,7 @@
 C
       EXTERNAL  DGBTRS, DGETRS
 C
-      INTEGER  LIPVT, LML, LMU, LMTYPE, MEBAND, MTYPE, NPD, INLAPACK
+      INTEGER  LIPVT, LML, LMU, LMTYPE, MEBAND, MTYPE, NPD, INFO
       PARAMETER (NPD=1)
       PARAMETER (LML=1)
       PARAMETER (LMU=2)
@@ -46,7 +46,7 @@
 C
 C     DENSE MATRIX
 100   CALL DGETRS('N', NEQ, 1, WM(NPD), NEQ, IWM(LIPVT), DELTA, NEQ, 
-     *     INLPCK)
+     *     INFO)
       RETURN
 C
 C     DUMMY SECTION FOR MTYPE=3