Mercurial > hg > octave-nkf
changeset 4344:dc5f2b0d81cc
[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 +++ 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