Mercurial > octave-nkf

diff libcruft/daspk/dmatd.f @ 4329:d53c33d93440

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-02-18 20:00:48 by jwe]
author jwe
date Tue, 18 Feb 2003 20:08:20 +0000
parents 8389e78e67d4
children
line wrap: on
line diff
--- a/libcruft/daspk/dmatd.f	Sun Feb 16 04:29:00 2003 +0000
+++ b/libcruft/daspk/dmatd.f	Tue Feb 18 20:08:20 2003 +0000
@@ -56,7 +56,7 @@
 C                They are not altered by DMATD.
 C-----------------------------------------------------------------------
 C***ROUTINES CALLED
-C   JACD, RES, DGEFA, DGBFA
+C   JACD, RES, DGETRF, DGBTRF
 C
 C***END PROLOGUE  DMATD
 C
@@ -111,7 +111,7 @@
 C
 C     Do dense-matrix LU decomposition on J.
 C
-230      CALL DGEFA(WM,NEQ,NEQ,IWM(LIPVT),IER)
+230      CALL DGETRF( NEQ, NEQ, WM, NEQ, IWM(LIPVT), IER)
       RETURN
 C
 C
@@ -175,7 +175,8 @@
 C
 C     Do LU decomposition of banded J.
 C
-550   CALL DGBFA (WM,MEBAND,NEQ,IWM(LML),IWM(LMU),IWM(LIPVT),IER)
+550   CALL DGBTRF(NEQ, NEQ, IWM(LML), IWM(LMU), WM, MEBAND,
+     *     IWM(LIPVT), IER)
       RETURN
 C
 C------END OF SUBROUTINE DMATD------------------------------------------