Mercurial > hg > octave-avbm
changeset 7575:d20a2f261306
use * instead of 1 for assumed-size fortran arrays
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Mon, 10 Mar 2008 13:30:01 -0400 |
parents | 9669b69e34ef |
children | 7ebdc99a0bab |
files | libcruft/ChangeLog libcruft/blas/zdrot.f libcruft/daspk/ddaspk.f libcruft/fftpack/cfftb.f libcruft/fftpack/cfftf.f libcruft/fftpack/cffti.f libcruft/odepack/dlsode.f libcruft/odepack/ewset.f libcruft/odepack/intdy.f |
diffstat | 9 files changed, 15 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/libcruft/ChangeLog +++ b/libcruft/ChangeLog @@ -1,3 +1,10 @@ +2008-03-10 John W. Eaton <jwe@octave.org> + + * blas/zdrot.f, odepack/dlsode.f, odepack/ewset.f, + odepack/intdy.f, fftpack/cffti.f, fftpack/cfftb.f, + fftpack/cfftf.f: + Use (*) instead of (1) for assumed-size dimensions. + 2008-03-06 Jaroslav Hajek <highegg@gmail.com> * qrupdate/dqrinc.f: Declare DGEMV external.
--- a/libcruft/blas/zdrot.f +++ b/libcruft/blas/zdrot.f @@ -4,7 +4,7 @@ c double precision and the vectors zx and zy are double complex. c jack dongarra, linpack, 3/11/78. c - double complex zx(1),zy(1),ztemp + double complex zx(*),zy(*),ztemp double precision c,s integer i,incx,incy,ix,iy,n c
--- a/libcruft/daspk/ddaspk.f +++ b/libcruft/daspk/ddaspk.f @@ -55,7 +55,7 @@ C * IDID, RWORK, LRW, IWORK, LIW, RPAR, IPAR, JAC, PSOL) C C Quantities which may be altered by the code are: -C T, Y(*), YPRIME(*), INFO(1), RTOL, ATOL, IDID, RWORK(*), IWORK(*) +C T, Y(*), YPRIME(*), INFO(*), RTOL, ATOL, IDID, RWORK(*), IWORK(*) C C C *Arguments:
--- a/libcruft/fftpack/cfftb.f +++ b/libcruft/fftpack/cfftb.f @@ -1,6 +1,6 @@ subroutine cfftb (n,c,wsave) implicit double precision (a-h,o-z) - dimension c(1) ,wsave(1) + dimension c(*) ,wsave(*) if (n .eq. 1) return iw1 = n+n+1 iw2 = iw1+n+n
--- a/libcruft/fftpack/cfftf.f +++ b/libcruft/fftpack/cfftf.f @@ -1,6 +1,6 @@ subroutine cfftf (n,c,wsave) implicit double precision (a-h,o-z) - dimension c(1) ,wsave(1) + dimension c(*) ,wsave(*) if (n .eq. 1) return iw1 = n+n+1 iw2 = iw1+n+n
--- a/libcruft/fftpack/cffti.f +++ b/libcruft/fftpack/cffti.f @@ -1,6 +1,6 @@ subroutine cffti (n,wsave) implicit double precision (a-h,o-z) - dimension wsave(1) + dimension wsave(*) if (n .eq. 1) return iw1 = n+n+1 iw2 = iw1+n+n
--- a/libcruft/odepack/dlsode.f +++ b/libcruft/odepack/dlsode.f @@ -3,7 +3,7 @@ EXTERNAL F, JAC INTEGER NEQ, ITOL, ITASK, ISTATE, IOPT, LRW, IWORK, LIW, MF DOUBLE PRECISION Y, T, TOUT, RTOL, ATOL, RWORK - DIMENSION NEQ(1), Y(1), RTOL(1), ATOL(1), RWORK(LRW), IWORK(LIW) + DIMENSION NEQ(*), Y(*), RTOL(*), ATOL(*), RWORK(LRW), IWORK(LIW) C----------------------------------------------------------------------- C THIS IS THE MARCH 30, 1987 VERSION OF C LSODE.. LIVERMORE SOLVER FOR ORDINARY DIFFERENTIAL EQUATIONS.
--- a/libcruft/odepack/ewset.f +++ b/libcruft/odepack/ewset.f @@ -9,7 +9,7 @@ INTEGER N, ITOL INTEGER I DOUBLE PRECISION RTOL, ATOL, YCUR, EWT - DIMENSION RTOL(1), ATOL(1), YCUR(N), EWT(N) + DIMENSION RTOL(*), ATOL(*), YCUR(N), EWT(N) C GO TO (10, 20, 30, 40), ITOL 10 CONTINUE
--- a/libcruft/odepack/intdy.f +++ b/libcruft/odepack/intdy.f @@ -9,7 +9,7 @@ DOUBLE PRECISION ROWNS, 1 CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND DOUBLE PRECISION C, R, S, TP - DIMENSION YH(NYH,1), DKY(1) + DIMENSION YH(NYH,*), DKY(*) COMMON /LS0001/ ROWNS(209), 2 CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND, 3 IOWND(14), IOWNS(6),