Mercurial > octave-nkf
diff libcruft/lapack/zlassq.f @ 3333:15cddaacbc2d
[project @ 1999-11-03 19:53:59 by jwe]
author | jwe |
---|---|
date | Wed, 03 Nov 1999 19:54:52 +0000 |
parents | 30c606bec7a8 |
children | 68db500cb558 |
line wrap: on
line diff
--- a/libcruft/lapack/zlassq.f Tue Nov 02 06:57:16 1999 +0000 +++ b/libcruft/lapack/zlassq.f Wed Nov 03 19:54:52 1999 +0000 @@ -1,9 +1,9 @@ SUBROUTINE ZLASSQ( N, X, INCX, SCALE, SUMSQ ) * -* -- LAPACK auxiliary routine (version 2.0) -- +* -- LAPACK auxiliary routine (version 3.0) -- * Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd., * Courant Institute, Argonne National Lab, and Rice University -* October 31, 1992 +* June 30, 1999 * * .. Scalar Arguments .. INTEGER INCX, N @@ -41,7 +41,7 @@ * N (input) INTEGER * The number of elements to be used from the vector X. * -* X (input) DOUBLE PRECISION +* X (input) COMPLEX*16 array, dimension (N) * The vector x as described above. * x( i ) = X( 1 + ( i - 1 )*INCX ), 1 <= i <= n. *