Mercurial > octave

changeset 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 23ff3d50ab76
files libcruft/fftpack/cfftb1.f libcruft/fftpack/cfftf1.f libcruft/fftpack/cffti1.f libcruft/odepack/prepj.f libcruft/odepack/solsy.f libcruft/odepack/stode.f
diffstat 6 files changed, 8 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/libcruft/fftpack/cfftb1.f	Thu Dec 14 08:32:21 1995 +0000
+++ b/libcruft/fftpack/cfftb1.f	Thu Dec 14 08:33:32 1995 +0000
@@ -1,6 +1,6 @@
       subroutine cfftb1 (n,c,ch,wa,ifac)
       implicit double precision (a-h,o-z)
-      dimension       ch(1)      ,c(1)       ,wa(1)      ,ifac(1)
+      dimension       ch(*)      ,c(*)       ,wa(*)      ,ifac(*)
       nf = ifac(2)
       na = 0
       l1 = 1
--- a/libcruft/fftpack/cfftf1.f	Thu Dec 14 08:32:21 1995 +0000
+++ b/libcruft/fftpack/cfftf1.f	Thu Dec 14 08:33:32 1995 +0000
@@ -1,6 +1,6 @@
       subroutine cfftf1 (n,c,ch,wa,ifac)
       implicit double precision (a-h,o-z)
-      dimension       ch(1)      ,c(1)       ,wa(1)      ,ifac(1)
+      dimension       ch(*)      ,c(*)       ,wa(*)      ,ifac(*)
       nf = ifac(2)
       na = 0
       l1 = 1
--- a/libcruft/fftpack/cffti1.f	Thu Dec 14 08:32:21 1995 +0000
+++ b/libcruft/fftpack/cffti1.f	Thu Dec 14 08:33:32 1995 +0000
@@ -1,6 +1,6 @@
       subroutine cffti1 (n,wa,ifac)
       implicit double precision (a-h,o-z)
-      dimension       wa(1)      ,ifac(1)    ,ntryh(4)
+      dimension       wa(*)      ,ifac(*)    ,ntryh(4)
       data ntryh(1),ntryh(2),ntryh(3),ntryh(4)/3,4,2,5/
       nl = n
       nf = 0
--- a/libcruft/odepack/prepj.f	Thu Dec 14 08:32:21 1995 +0000
+++ b/libcruft/odepack/prepj.f	Thu Dec 14 08:33:32 1995 +0000
@@ -13,8 +13,8 @@
      1   CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND
       DOUBLE PRECISION CON, DI, FAC, HL0, R, R0, SRUR, YI, YJ, YJJ,
      1   VNORM
-      DIMENSION NEQ(1), Y(1), YH(NYH,1), EWT(1), FTEM(1), SAVF(1),
-     1   WM(1), IWM(1)
+      DIMENSION NEQ(*), Y(*), YH(NYH,*), EWT(*), FTEM(*), SAVF(*),
+     1   WM(*), IWM(*)
       COMMON /LS0001/ ROWNS(209),
      2   CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND,
      3   IOWND(14), IOWNS(6), 
--- a/libcruft/odepack/solsy.f	Thu Dec 14 08:32:21 1995 +0000
+++ b/libcruft/odepack/solsy.f	Thu Dec 14 08:33:32 1995 +0000
@@ -9,7 +9,7 @@
       DOUBLE PRECISION ROWNS, 
      1   CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND
       DOUBLE PRECISION DI, HL0, PHL0, R 
-      DIMENSION WM(1), IWM(1), X(1), TEM(1)
+      DIMENSION WM(*), IWM(*), X(*), TEM(*)
       COMMON /LS0001/ ROWNS(209),
      2   CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND,
      3   IOWND(14), IOWNS(6), 
--- 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),