Mercurial > octave-nkf

diff libcruft/blas/zdrot.f @ 7575:d20a2f261306

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 30c606bec7a8
children
line wrap: on
line diff
--- a/libcruft/blas/zdrot.f	Mon Mar 10 13:10:10 2008 -0400
+++ b/libcruft/blas/zdrot.f	Mon Mar 10 13:30:01 2008 -0400
@@ -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