# HG changeset patch
# User jwe
# Date 1045760235 0
# Node ID dc5f2b0d81cc0f8aa6ff8988d088f4addac9fef7
# Parent  db5e0814277a383a4e8ded3e088f2d2bcf3b1a6c
[project @ 2003-02-20 16:57:15 by jwe]

diff --git a/libcruft/dassl/ddaslv.f b/libcruft/dassl/ddaslv.f
--- a/libcruft/dassl/ddaslv.f
+++ b/libcruft/dassl/ddaslv.f
@@ -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