Mercurial > octave-nkf

diff libcruft/blas/zdrot.f @ 11738:5dc5de967ab0 release-3-0-x

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 Fri, 04 Apr 2008 14:27:06 -0400
parents 30c606bec7a8
children
line wrap: on
line diff
--- a/libcruft/blas/zdrot.f	Fri Apr 04 10:19:30 2008 -0400
+++ b/libcruft/blas/zdrot.f	Fri Apr 04 14:27:06 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