# HG changeset patch
# User jwe
# Date 818930012 0
# Node ID 44ed237bdc1e1dc15499e21c057d239474b35548
# Parent  395bb6d6c096510520a6858bbeba078b6049c2d5
[project @ 1995-12-14 08:32:49 by jwe]

diff --git a/libcruft/fftpack/cfftb1.f b/libcruft/fftpack/cfftb1.f
--- a/libcruft/fftpack/cfftb1.f
+++ b/libcruft/fftpack/cfftb1.f
@@ -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
diff --git a/libcruft/fftpack/cfftf1.f b/libcruft/fftpack/cfftf1.f
--- a/libcruft/fftpack/cfftf1.f
+++ b/libcruft/fftpack/cfftf1.f
@@ -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
diff --git a/libcruft/fftpack/cffti1.f b/libcruft/fftpack/cffti1.f
--- a/libcruft/fftpack/cffti1.f
+++ b/libcruft/fftpack/cffti1.f
@@ -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
diff --git a/libcruft/odepack/prepj.f b/libcruft/odepack/prepj.f
--- a/libcruft/odepack/prepj.f
+++ b/libcruft/odepack/prepj.f
@@ -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), 
diff --git a/libcruft/odepack/solsy.f b/libcruft/odepack/solsy.f
--- a/libcruft/odepack/solsy.f
+++ b/libcruft/odepack/solsy.f
@@ -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), 
diff --git a/libcruft/odepack/stode.f b/libcruft/odepack/stode.f
--- a/libcruft/odepack/stode.f
+++ b/libcruft/odepack/stode.f
@@ -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),