Mercurial > octave

diff libcruft/odepack/stode.f @ 1645:44ed237bdc1e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-12-14 08:32:49 by jwe]
author jwe
date Thu, 14 Dec 1995 08:33:32 +0000
parents 395bb6d6c096
children
line wrap: on
line diff
--- a/libcruft/odepack/stode.f	Thu Dec 14 08:32:21 1995 +0000
+++ b/libcruft/odepack/stode.f	Thu Dec 14 08:33:32 1995 +0000
@@ -12,8 +12,8 @@
      2   CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND
       DOUBLE PRECISION DCON, DDN, DEL, DELP, DSM, DUP, EXDN, EXSM, EXUP,
      1   R, RH, RHDN, RHSM, RHUP, TOLD, VNORM
-      DIMENSION NEQ(1), Y(1), YH(NYH,1), YH1(1), EWT(1), SAVF(1),
-     1   ACOR(1), WM(1), IWM(1)
+      DIMENSION NEQ(*), Y(*), YH(NYH,*), YH1(*), EWT(*), SAVF(*),
+     1   ACOR(*), WM(*), IWM(*)
       COMMON /LS0001/ CONIT, CRATE, EL(13), ELCO(13,12),
      1   HOLD, RMAX, TESCO(3,12),
      2   CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND, IOWND(14),