Mercurial > octave

changeset 28690:0e3c0cc55485

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* solsy.f, ssolsy.f: Declare lapack info variable.
author John W. Eaton <jwe@octave.org>
date Fri, 04 Sep 2020 14:34:49 -0400
parents 2cf0d03afdd4
children 17fc4f5ee1ef
files liboctave/external/odepack/solsy.f liboctave/external/odepack/ssolsy.f
diffstat 2 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/liboctave/external/odepack/solsy.f	Fri Sep 04 13:01:54 2020 -0400
+++ b/liboctave/external/odepack/solsy.f	Fri Sep 04 14:34:49 2020 -0400
@@ -7,6 +7,7 @@
       INTEGER ICF, IERPJ, IERSL, JCUR, JSTART, KFLAG, L, METH, MITER,
      2   MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU
       INTEGER I, MEBAND, ML, MU
+      INTEGER INLPCK
       DOUBLE PRECISION WM, X, TEM
       DOUBLE PRECISION CONIT, CRATE, EL, ELCO, HOLD, RMAX, TESCO,
      1   CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND
--- a/liboctave/external/odepack/ssolsy.f	Fri Sep 04 13:01:54 2020 -0400
+++ b/liboctave/external/odepack/ssolsy.f	Fri Sep 04 14:34:49 2020 -0400
@@ -61,6 +61,7 @@
      4   LYH, LEWT, LACOR, LSAVF, LWM, LIWM, METH, MITER,
      5   MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU
       INTEGER I, MEBAND, ML, MU
+      INTEGER INLPCK
       REAL DI, HL0, PHL0, R
 C
 C***FIRST EXECUTABLE STATEMENT  SSOLSY