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.
 *