The R Project SVN – R – Diff – /trunk/src/modules/lapack/cmplx.f



*> \brief \b DZSUM1 forms the 1-norm of the complex vector using the true absolute value.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
*  ==================

*> Nick Higham for use with ZLACON.
*
*  =====================================================================
      DOUBLE PRECISION FUNCTION DZSUM1( N, CX, INCX )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            INCX, N
*     ..
*     .. Array Arguments ..

      RETURN
*
*     End of DZSUM1
*
      END
*> \brief \b ILAZLC scans a matrix for its last non-zero column.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*  =====================================================================
      INTEGER FUNCTION ILAZLC( M, N, A, LDA )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            M, N, LDA
*     ..
*     .. Array Arguments ..

            END DO
         END DO
      END IF
      RETURN
      END
*> \brief \b ILAZLR scans a matrix for its last non-zero row.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*  =====================================================================
      INTEGER FUNCTION ILAZLR( M, N, A, LDA )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            M, N, LDA
*     ..
*     .. Array Arguments ..

            ILAZLR = MAX( ILAZLR, I )
         END DO
      END IF
      RETURN
      END
*> \brief \b IZMAX1 finds the index of the vector element whose real part has maximum absolute value.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
*  ==================

*> Nick Higham for use with ZLACON.
*
*  =====================================================================
      INTEGER          FUNCTION IZMAX1( N, CX, INCX )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            INCX, N
*     ..
*     .. Array Arguments ..

      RETURN
*
*     End of ZBDSQR
*
      END
*> \brief \b ZDRSCL multiplies a vector by the reciprocal of a real scalar.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*  =====================================================================
      SUBROUTINE ZDRSCL( N, SA, SX, INCX )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            INCX, N
      DOUBLE PRECISION   SA
*     ..

      RETURN
*
*     End of ZGEBAL
*
      END
*> \brief \b ZGEBD2 reduces a general matrix to bidiagonal form using an unblocked algorithm.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
*  =====================

*> \endverbatim
*>
*  =====================================================================
      SUBROUTINE ZGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO )
*
*  -- LAPACK computational routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            INFO, LDA, M, N
*     ..
*     .. Array Arguments ..

      RETURN
*
*     End of ZGEEV
*
      END
*> \brief \b ZGEHD2 reduces a general square matrix to upper Hessenberg form using an unblocked algorithm.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
*  =====================

*> \endverbatim
*>
*  =====================================================================
      SUBROUTINE ZGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO )
*
*  -- LAPACK computational routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            IHI, ILO, INFO, LDA, N
*     ..
*     .. Array Arguments ..

      RETURN
*
*     End of ZGEHRD
*
      END
*> \brief \b ZGELQ2 computes the LQ factorization of a general rectangular matrix using an unblocked algorithm.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
*  =====================

*> \endverbatim
*>
*  =====================================================================
      SUBROUTINE ZGELQ2( M, N, A, LDA, TAU, WORK, INFO )
*
*  -- LAPACK computational routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            INFO, LDA, M, N
*     ..
*     .. Array Arguments ..

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
*  =====================

*>
*>  Each H(i) has the form
*>
*>     H(i) = I - tau * v * v**H
*>
*>  where tau is a complex scalar, and v is a real/complex vector
*>  with v(1:i-1) = 0 and v(i) = 1; v(i+1:m) is stored on exit in
*>  A(i+1:m,i), and tau in TAU(i).
*> \endverbatim
*
*> \par Contributors:

*>
*  =====================================================================
      SUBROUTINE ZGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK,
     $                   INFO )
*
*  -- LAPACK computational routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            INFO, LDA, LWORK, M, N
*     ..
*     .. Array Arguments ..

      RETURN
*
*     End of ZGEQP3
*
      END
*> \brief \b ZGEQR2 computes the QR factorization of a general rectangular matrix using an unblocked algorithm.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16GEcomputational
*
*> \par Further Details:
*  =====================

*> \endverbatim
*>
*  =====================================================================
      SUBROUTINE ZGEQR2( M, N, A, LDA, TAU, WORK, INFO )
*
*  -- LAPACK computational routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            INFO, LDA, M, N
*     ..
*     .. Array Arguments ..

      RETURN
*
*     End of ZGESVD
*
      END
*> \brief \b ZGETF2 computes the LU factorization of a general m-by-n matrix using partial pivoting with row interchanges (unblocked algorithm).
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16GEcomputational
*
*  =====================================================================
      SUBROUTINE ZGETF2( M, N, A, LDA, IPIV, INFO )
*
*  -- LAPACK computational routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            INFO, LDA, M, N
*     ..
*     .. Array Arguments ..

      RETURN
*
*     End of ZHEEV
*
      END
*> \brief \b ZHETD2 reduces a Hermitian matrix to real symmetric tridiagonal form by an unitary similarity transformation (unblocked algorithm).
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16HEcomputational
*
*> \par Further Details:
*  =====================

*> \endverbatim
*>
*  =====================================================================
      SUBROUTINE ZHETD2( UPLO, N, A, LDA, D, E, TAU, INFO )
*
*  -- LAPACK computational routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          UPLO
      INTEGER            INFO, LDA, N
*     ..

      END IF
*
*     ==== End of ZHSEQR ====
*
      END
*> \brief \b ZLABRD reduces the first nb rows and columns of a general matrix to a bidiagonal form.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
*  =====================

*>
*  =====================================================================
      SUBROUTINE ZLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y,
     $                   LDY )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            LDA, LDX, LDY, M, N, NB
*     ..
*     .. Array Arguments ..

      RETURN
*
*     End of ZLABRD
*
      END
*> \brief \b ZLACGV conjugates a complex vector.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*  =====================================================================
      SUBROUTINE ZLACGV( N, X, INCX )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            INCX, N
*     ..
*     .. Array Arguments ..

      RETURN
*
*     End of ZLACGV
*
      END
*> \brief \b ZLACN2 estimates the 1-norm of a square matrix, using reverse communication for evaluating matrix-vector products.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
*  =====================

*>  ACM Trans. Math. Soft., vol. 14, no. 4, pp. 381-396, December 1988.
*>
*  =====================================================================
      SUBROUTINE ZLACN2( N, V, X, EST, KASE, ISAVE )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            KASE, N
      DOUBLE PRECISION   EST
*     ..

      RETURN
*
*     End of ZLACN2
*
      END
*> \brief \b ZLACPY copies all or part of one two-dimensional array to another.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*  =====================================================================
      SUBROUTINE ZLACPY( UPLO, M, N, A, LDA, B, LDB )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          UPLO
      INTEGER            LDA, LDB, M, N
*     ..

      RETURN
*
*     End of ZLACPY
*
      END
*> \brief \b ZLADIV performs complex division in real arithmetic, avoiding unnecessary overflow.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*  =====================================================================
      COMPLEX*16     FUNCTION ZLADIV( X, Y )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      COMPLEX*16         X, Y
*     ..
*

      RETURN
*
*     End of ZLADIV
*
      END
*> \brief \b ZLAHQR computes the eigenvalues and Schur factorization of an upper Hessenberg matrix, using the double-shift/single-shift QR algorithm.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
*  ==================

*>
*  =====================================================================
      SUBROUTINE ZLAHQR( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ,
     $                   IHIZ, Z, LDZ, INFO )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, N
      LOGICAL            WANTT, WANTZ
*     ..

      RETURN
*
*     End of ZLAHQR
*
      END
*> \brief \b ZLAHR2 reduces the specified number of first columns of a general rectangular matrix A so that elements below the specified subdiagonal are zero, and returns auxiliary matrices which are needed to apply the transformation to the unreduced part of A.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
*  =====================

*>  Mathematical Software, 32(2):180-194, June 2006.
*>
*  =====================================================================
      SUBROUTINE ZLAHR2( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            K, LDA, LDT, LDY, N, NB
*     ..
*     .. Array Arguments ..

      RETURN
*
*     End of ZLAHR2
*
      END
 
*> \brief \b ZLAHRD reduces the first nb columns of a general rectangular matrix A so that elements below the k-th subdiagonal are zero, and returns auxiliary matrices which are needed to apply the transformation to the unreduced part of A.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
*  =====================

*> \endverbatim
*>
*  =====================================================================
      SUBROUTINE ZLAHRD( N, K, NB, A, LDA, TAU, T, LDT, Y, LDY )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            K, LDA, LDT, LDY, N, NB
*     ..
*     .. Array Arguments ..

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16GEauxiliary
*
*  =====================================================================
      DOUBLE PRECISION FUNCTION ZLANGE( NORM, M, N, A, LDA, WORK )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          NORM
      INTEGER            LDA, M, N
*     ..

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16HEauxiliary
*
*  =====================================================================
      DOUBLE PRECISION FUNCTION ZLANHE( NORM, UPLO, N, A, LDA, WORK )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          NORM, UPLO
      INTEGER            LDA, N
*     ..

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*  =====================================================================
      DOUBLE PRECISION FUNCTION ZLANHS( NORM, N, A, LDA, WORK )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          NORM
      INTEGER            LDA, N
*     ..

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*  =====================================================================
      DOUBLE PRECISION FUNCTION ZLANTR( NORM, UPLO, DIAG, M, N, A, LDA,
     $                 WORK )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          DIAG, NORM, UPLO
      INTEGER            LDA, M, N
*     ..

      RETURN
*
*     End of ZLANTR
*
      END
*> \brief \b ZLAQP2 computes a QR factorization with column pivoting of the matrix block.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
*  ==================

*
*  =====================================================================
      SUBROUTINE ZLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2,
     $                   WORK )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            LDA, M, N, OFFSET
*     ..
*     .. Array Arguments ..

      RETURN
*
*     End of ZLAQP2
*
      END
*> \brief \b ZLAQPS computes a step of QR factorization with column pivoting of a real m-by-n matrix A by using BLAS level 3.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
*  ==================

*
*  =====================================================================
      SUBROUTINE ZLAQPS( M, N, OFFSET, NB, KB, A, LDA, JPVT, TAU, VN1,
     $                   VN2, AUXV, F, LDF )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            KB, LDA, LDF, M, N, NB, OFFSET
*     ..
*     .. Array Arguments ..

      RETURN
*
*     End of ZLAQPS
*
      END
*> \brief \b ZLAQR0 computes the eigenvalues of a Hessenberg matrix, and optionally the matrices from the Schur decomposition.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
*  ==================

*>
*  =====================================================================
      SUBROUTINE ZLAQR0( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ,
     $                   IHIZ, Z, LDZ, WORK, LWORK, INFO )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N
      LOGICAL            WANTT, WANTZ
*     ..

      WORK( 1 ) = DCMPLX( LWKOPT, 0 )
*
*     ==== End of ZLAQR0 ====
*
      END
*> \brief \b ZLAQR1 sets a scalar multiple of the first column of the product of 2-by-2 or 3-by-3 matrix H and specified shifts.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
*  ==================

*>       University of Kansas, USA
*>
*  =====================================================================
      SUBROUTINE ZLAQR1( N, H, LDH, S1, S2, V )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      COMPLEX*16         S1, S2
      INTEGER            LDH, N
*     ..

            V( 2 ) = H21S*( H( 1, 1 )+H( 2, 2 )-S1-S2 ) + H( 2, 3 )*H31S
            V( 3 ) = H31S*( H( 1, 1 )+H( 3, 3 )-S1-S2 ) + H21S*H( 3, 2 )
         END IF
      END IF
      END
 
*> \brief \b ZLAQR2 performs the unitary similarity transformation of a Hessenberg matrix to detect and deflate fully converged eigenvalues from a trailing principal submatrix (aggressive early deflation).
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
*  ==================

*  =====================================================================
      SUBROUTINE ZLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ,
     $                   IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT,
     $                   NV, WV, LDWV, WORK, LWORK )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV,
     $                   LDZ, LWORK, N, ND, NH, NS, NV, NW
      LOGICAL            WANTT, WANTZ

      WORK( 1 ) = DCMPLX( LWKOPT, 0 )
*
*     ==== End of ZLAQR2 ====
*
      END
 
*> \brief \b ZLAQR3 performs the unitary similarity transformation of a Hessenberg matrix to detect and deflate fully converged eigenvalues from a trailing principal submatrix (aggressive early deflation).
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
*  ==================

*  =====================================================================
      SUBROUTINE ZLAQR3( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, ILOZ,
     $                   IHIZ, Z, LDZ, NS, ND, SH, V, LDV, NH, T, LDT,
     $                   NV, WV, LDWV, WORK, LWORK )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            IHIZ, ILOZ, KBOT, KTOP, LDH, LDT, LDV, LDWV,
     $                   LDZ, LWORK, N, ND, NH, NS, NV, NW
      LOGICAL            WANTT, WANTZ

      WORK( 1 ) = DCMPLX( LWKOPT, 0 )
*
*     ==== End of ZLAQR3 ====
*
      END
*> \brief \b ZLAQR4 computes the eigenvalues of a Hessenberg matrix, and optionally the matrices from the Schur decomposition.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
*  ==================

*>
*  =====================================================================
      SUBROUTINE ZLAQR4( WANTT, WANTZ, N, ILO, IHI, H, LDH, W, ILOZ,
     $                   IHIZ, Z, LDZ, WORK, LWORK, INFO )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            IHI, IHIZ, ILO, ILOZ, INFO, LDH, LDZ, LWORK, N
      LOGICAL            WANTT, WANTZ
*     ..

      WORK( 1 ) = DCMPLX( LWKOPT, 0 )
*
*     ==== End of ZLAQR4 ====
*
      END
*> \brief \b ZLAQR5 performs a single small-bulge multi-shift QR sweep.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Contributors:
*  ==================

*  =====================================================================
      SUBROUTINE ZLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, S,
     $                   H, LDH, ILOZ, IHIZ, Z, LDZ, V, LDV, U, LDU, NV,
     $                   WV, LDWV, NH, WH, LDWH )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            IHIZ, ILOZ, KACC22, KBOT, KTOP, LDH, LDU, LDV,
     $                   LDWH, LDWV, LDZ, N, NH, NSHFTS, NV
      LOGICAL            WANTT, WANTZ

  210 CONTINUE
*
*     ==== End of ZLAQR5 ====
*
      END
*> \brief \b ZLARF applies an elementary reflector to a general rectangular matrix.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*  =====================================================================
      SUBROUTINE ZLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          SIDE
      INTEGER            INCV, LDC, M, N
      COMPLEX*16         TAU

      RETURN
*
*     End of ZLARF
*
      END
*> \brief \b ZLARFB applies a block reflector or its conjugate-transpose to a general rectangular matrix.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
*  =====================

*>
*  =====================================================================
      SUBROUTINE ZLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV,
     $                   T, LDT, C, LDC, WORK, LDWORK )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          DIRECT, SIDE, STOREV, TRANS
      INTEGER            K, LDC, LDT, LDV, LDWORK, M, N
*     ..

            IF( LSAME( SIDE, 'L' ) ) THEN
*
*              Form  H * C  or  H**H * C  where  C = ( C1 )
*                                                    ( C2 )
*
 
               LASTC = ILAZLC( M, N, C, LDC )
*
*              W := C**H * V  =  (C1**H * V1 + C2**H * V2)  (stored in WORK)
*
*              W := C2**H
*
               DO 70 J = 1, K
                  CALL ZCOPY( LASTC, C( M-K+J, 1 ), LDC,
     $                 WORK( 1, J ), 1 )
                  CALL ZLACGV( LASTC, WORK( 1, J ), 1 )
   70          CONTINUE
*
*              W := W * V2
*
               CALL ZTRMM( 'Right', 'Upper', 'No transpose', 'Unit',
     $              LASTC, K, ONE, V( M-K+1, 1 ), LDV,
     $              WORK, LDWORK )
               IF( M.GT.K ) THEN
*
*                 W := W + C1**H*V1
*
                  CALL ZGEMM( 'Conjugate transpose', 'No transpose',
     $                 LASTC, K, M-K,
     $                 ONE, C, LDC, V, LDV,
     $                 ONE, WORK, LDWORK )
               END IF
*
*              W := W * T**H  or  W * T

               CALL ZTRMM( 'Right', 'Lower', TRANST, 'Non-unit',
     $              LASTC, K, ONE, T, LDT, WORK, LDWORK )
*
*              C := C - V * W**H
*
               IF( M.GT.K ) THEN
*
*                 C1 := C1 - V1 * W**H
*
                  CALL ZGEMM( 'No transpose', 'Conjugate transpose',
     $                 M-K, LASTC, K,
     $                 -ONE, V, LDV, WORK, LDWORK,
     $                 ONE, C, LDC )
               END IF
*
*              W := W * V2**H
*
               CALL ZTRMM( 'Right', 'Upper', 'Conjugate transpose',
     $              'Unit', LASTC, K, ONE, V( M-K+1, 1 ), LDV,
     $              WORK, LDWORK )
*
*              C2 := C2 - W**H
*
               DO 90 J = 1, K
                  DO 80 I = 1, LASTC
                     C( M-K+J, I ) = C( M-K+J, I ) -
     $                               DCONJG( WORK( I, J ) )
   80             CONTINUE
   90          CONTINUE
*
            ELSE IF( LSAME( SIDE, 'R' ) ) THEN
*
*              Form  C * H  or  C * H**H  where  C = ( C1  C2 )
*
 
               LASTC = ILAZLR( M, N, C, LDC )
*
*              W := C * V  =  (C1*V1 + C2*V2)  (stored in WORK)
*
*              W := C2
*
               DO 100 J = 1, K
                  CALL ZCOPY( LASTC, C( 1, N-K+J ), 1,
     $                 WORK( 1, J ), 1 )
  100          CONTINUE
*
*              W := W * V2
*
               CALL ZTRMM( 'Right', 'Upper', 'No transpose', 'Unit',
     $              LASTC, K, ONE, V( N-K+1, 1 ), LDV,
     $              WORK, LDWORK )
               IF( N.GT.K ) THEN
*
*                 W := W + C1 * V1
*
                  CALL ZGEMM( 'No transpose', 'No transpose',
     $                 LASTC, K, N-K,
     $                 ONE, C, LDC, V, LDV, ONE, WORK, LDWORK )
               END IF
*
*              W := W * T  or  W * T**H
*
               CALL ZTRMM( 'Right', 'Lower', TRANS, 'Non-unit',
     $              LASTC, K, ONE, T, LDT, WORK, LDWORK )
*
*              C := C - W * V**H
*
               IF( N.GT.K ) THEN
*
*                 C1 := C1 - W * V1**H
*
                  CALL ZGEMM( 'No transpose', 'Conjugate transpose',
     $                 LASTC, N-K, K, -ONE, WORK, LDWORK, V, LDV,
     $                 ONE, C, LDC )
               END IF
*
*              W := W * V2**H
*
               CALL ZTRMM( 'Right', 'Upper', 'Conjugate transpose',
     $              'Unit', LASTC, K, ONE, V( N-K+1, 1 ), LDV,
     $              WORK, LDWORK )
*
*              C2 := C2 - W
*
               DO 120 J = 1, K
                  DO 110 I = 1, LASTC
                     C( I, N-K+J ) = C( I, N-K+J )
     $                    - WORK( I, J )
  110             CONTINUE
  120          CONTINUE
            END IF
         END IF

            IF( LSAME( SIDE, 'L' ) ) THEN
*
*              Form  H * C  or  H**H * C  where  C = ( C1 )
*                                                    ( C2 )
*
 
               LASTC = ILAZLC( M, N, C, LDC )
*
*              W := C**H * V**H  =  (C1**H * V1**H + C2**H * V2**H) (stored in WORK)
*
*              W := C2**H
*
               DO 190 J = 1, K
                  CALL ZCOPY( LASTC, C( M-K+J, 1 ), LDC,
     $                 WORK( 1, J ), 1 )
                  CALL ZLACGV( LASTC, WORK( 1, J ), 1 )
  190          CONTINUE
*
*              W := W * V2**H
*
               CALL ZTRMM( 'Right', 'Lower', 'Conjugate transpose',
     $              'Unit', LASTC, K, ONE, V( 1, M-K+1 ), LDV,
     $              WORK, LDWORK )
               IF( M.GT.K ) THEN
*
*                 W := W + C1**H * V1**H
*
                  CALL ZGEMM( 'Conjugate transpose',
     $                 'Conjugate transpose', LASTC, K, M-K,
     $                 ONE, C, LDC, V, LDV, ONE, WORK, LDWORK )
               END IF
*
*              W := W * T**H  or  W * T
*
               CALL ZTRMM( 'Right', 'Lower', TRANST, 'Non-unit',
     $              LASTC, K, ONE, T, LDT, WORK, LDWORK )
*
*              C := C - V**H * W**H
*
               IF( M.GT.K ) THEN
*
*                 C1 := C1 - V1**H * W**H
*
                  CALL ZGEMM( 'Conjugate transpose',
     $                 'Conjugate transpose', M-K, LASTC, K,
     $                 -ONE, V, LDV, WORK, LDWORK, ONE, C, LDC )
               END IF
*
*              W := W * V2
*
               CALL ZTRMM( 'Right', 'Lower', 'No transpose', 'Unit',
     $              LASTC, K, ONE, V( 1, M-K+1 ), LDV,
     $              WORK, LDWORK )
*
*              C2 := C2 - W**H
*
               DO 210 J = 1, K
                  DO 200 I = 1, LASTC
                     C( M-K+J, I ) = C( M-K+J, I ) -
     $                               DCONJG( WORK( I, J ) )
  200             CONTINUE
  210          CONTINUE
*
            ELSE IF( LSAME( SIDE, 'R' ) ) THEN
*
*              Form  C * H  or  C * H**H  where  C = ( C1  C2 )
*
 
               LASTC = ILAZLR( M, N, C, LDC )
*
*              W := C * V**H  =  (C1*V1**H + C2*V2**H)  (stored in WORK)
*
*              W := C2
*
               DO 220 J = 1, K
                  CALL ZCOPY( LASTC, C( 1, N-K+J ), 1,
     $                 WORK( 1, J ), 1 )
  220          CONTINUE
*
*              W := W * V2**H
*
               CALL ZTRMM( 'Right', 'Lower', 'Conjugate transpose',
     $              'Unit', LASTC, K, ONE, V( 1, N-K+1 ), LDV,
     $              WORK, LDWORK )
               IF( N.GT.K ) THEN
*
*                 W := W + C1 * V1**H
*
                  CALL ZGEMM( 'No transpose', 'Conjugate transpose',
     $                 LASTC, K, N-K, ONE, C, LDC, V, LDV, ONE,
     $                 WORK, LDWORK )
               END IF
*
*              W := W * T  or  W * T**H
*
               CALL ZTRMM( 'Right', 'Lower', TRANS, 'Non-unit',
     $              LASTC, K, ONE, T, LDT, WORK, LDWORK )
*
*              C := C - W * V
*
               IF( N.GT.K ) THEN
*
*                 C1 := C1 - W * V1
*
                  CALL ZGEMM( 'No transpose', 'No transpose',
     $                 LASTC, N-K, K, -ONE, WORK, LDWORK, V, LDV,
     $                 ONE, C, LDC )
               END IF
*
*              W := W * V2
*
               CALL ZTRMM( 'Right', 'Lower', 'No transpose', 'Unit',
     $              LASTC, K, ONE, V( 1, N-K+1 ), LDV,
     $              WORK, LDWORK )
*
*              C1 := C1 - W
*
               DO 240 J = 1, K
                  DO 230 I = 1, LASTC
                     C( I, N-K+J ) = C( I, N-K+J ) - WORK( I, J )
 
  230             CONTINUE
  240          CONTINUE
*
            END IF
*

      RETURN
*
*     End of ZLARFB
*
      END
*> \brief \b ZLARFG generates an elementary reflector (Householder matrix).
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*  =====================================================================
      SUBROUTINE ZLARFG( N, ALPHA, X, INCX, TAU )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            INCX, N
      COMPLEX*16         ALPHA, TAU
*     ..

      RETURN
*
*     End of ZLARFG
*
      END
*> \brief \b ZLARFT forms the triangular factor T of a block reflector H = I - vtvH
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
*  =====================

*> \endverbatim
*>
*  =====================================================================
      SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, TAU, T, LDT )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          DIRECT, STOREV
      INTEGER            K, LDT, LDV, N
*     ..

      RETURN
*
*     End of ZLARFT
*
      END
*> \brief \b ZLARFX applies an elementary reflector to a general rectangular matrix, with loop unrolling when the reflector has order ≤ 10.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*  =====================================================================
      SUBROUTINE ZLARFX( SIDE, M, N, V, TAU, C, LDC, WORK )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          SIDE
      INTEGER            LDC, M, N
      COMPLEX*16         TAU

      RETURN
*
*     End of ZLARFX
*
      END
*> \brief \b ZLARTG generates a plane rotation with real cosine and complex sine.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
*  =====================

*> \endverbatim
*>
*  =====================================================================
      SUBROUTINE ZLARTG( F, G, CS, SN, R )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      DOUBLE PRECISION   CS
      COMPLEX*16         F, G, R, SN
*     ..

      RETURN
*
*     End of ZLARTG
*
      END
*> \brief \b ZLASCL multiplies a general rectangular matrix by a real scalar defined as cto/cfrom.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*  =====================================================================
      SUBROUTINE ZLASCL( TYPE, KL, KU, CFROM, CTO, M, N, A, LDA, INFO )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          TYPE
      INTEGER            INFO, KL, KU, LDA, M, N
      DOUBLE PRECISION   CFROM, CTO

      RETURN
*
*     End of ZLASCL
*
      END
*> \brief \b ZLASET initializes the off-diagonal elements and the diagonal elements of a matrix to given values.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*  =====================================================================
      SUBROUTINE ZLASET( UPLO, M, N, ALPHA, BETA, A, LDA )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          UPLO
      INTEGER            LDA, M, N
      COMPLEX*16         ALPHA, BETA

      RETURN
*
*     End of ZLASET
*
      END
*> \brief \b ZLASR applies a sequence of plane rotations to a general rectangular matrix.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*  =====================================================================
      SUBROUTINE ZLASR( SIDE, PIVOT, DIRECT, M, N, C, S, A, LDA )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          DIRECT, PIVOT, SIDE
      INTEGER            LDA, M, N
*     ..

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*  =====================================================================
      SUBROUTINE ZLASSQ( N, X, INCX, SCALE, SUMSQ )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            INCX, N
      DOUBLE PRECISION   SCALE, SUMSQ
*     ..

      RETURN
*
*     End of ZLASSQ
*
      END
*> \brief \b ZLASWP performs a series of row interchanges on a general rectangular matrix.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
*  =====================

*> \endverbatim
*>
*  =====================================================================
      SUBROUTINE ZLASWP( N, A, LDA, K1, K2, IPIV, INCX )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            INCX, K1, K2, LDA, N
*     ..
*     .. Array Arguments ..

      RETURN
*
*     End of ZLASWP
*
      END
*> \brief \b ZLATRD reduces the first nb rows and columns of a symmetric/Hermitian matrix A to real tridiagonal form by an unitary similarity transformation.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
*  =====================

*> \endverbatim
*>
*  =====================================================================
      SUBROUTINE ZLATRD( UPLO, N, NB, A, LDA, E, TAU, W, LDW )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          UPLO
      INTEGER            LDA, LDW, N, NB
*     ..

      RETURN
*
*     End of ZLATRD
*
      END
*> \brief \b ZLATRS solves a triangular system of equations with the scale factor set to prevent overflow.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*> \par Further Details:
*  =====================

*>
*  =====================================================================
      SUBROUTINE ZLATRS( UPLO, TRANS, DIAG, NORMIN, N, A, LDA, X, SCALE,
     $                   CNORM, INFO )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          DIAG, NORMIN, TRANS, UPLO
      INTEGER            INFO, LDA, N
      DOUBLE PRECISION   SCALE

      RETURN
*
*     End of ZLATRS
*
      END
*> \brief \b ZPOTF2 computes the Cholesky factorization of a symmetric/Hermitian positive definite matrix (unblocked algorithm).
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16POcomputational
*
*  =====================================================================
      SUBROUTINE ZPOTF2( UPLO, N, A, LDA, INFO )
*
*  -- LAPACK computational routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          UPLO
      INTEGER            INFO, LDA, N
*     ..

      RETURN
*
*     End of ZPOTRF
*
      END
*> \brief \b ZROT applies a plane rotation with real cosine and complex sine to a pair of complex vectors.
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERauxiliary
*
*  =====================================================================
      SUBROUTINE ZROT( N, CX, INCX, CY, INCY, C, S )
*
*  -- LAPACK auxiliary routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            INCX, INCY, N
      DOUBLE PRECISION   C
      COMPLEX*16         S

      RETURN
*
*     End of ZTRTRS
*
      END
*> \brief \b ZUNG2L generates all or part of the unitary matrix Q from a QL factorization determined by cgeqlf (unblocked algorithm).
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERcomputational
*
*  =====================================================================
      SUBROUTINE ZUNG2L( M, N, K, A, LDA, TAU, WORK, INFO )
*
*  -- LAPACK computational routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            INFO, K, LDA, M, N
*     ..
*     .. Array Arguments ..

      RETURN
*
*     End of ZUNGHR
*
      END
*> \brief \b ZUNGL2 generates all or part of the unitary matrix Q from an LQ factorization determined by cgelqf (unblocked algorithm).
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERcomputational
*
*  =====================================================================
      SUBROUTINE ZUNGL2( M, N, K, A, LDA, TAU, WORK, INFO )
*
*  -- LAPACK computational routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            INFO, K, LDA, M, N
*     ..
*     .. Array Arguments ..

      RETURN
*
*     End of ZUNGQR
*
      END
*> \brief \b ZUNGR2 generates all or part of the unitary matrix Q from an RQ factorization determined by cgerqf (unblocked algorithm).
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERcomputational
*
*  =====================================================================
      SUBROUTINE ZUNGR2( M, N, K, A, LDA, TAU, WORK, INFO )
*
*  -- LAPACK computational routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      INTEGER            INFO, K, LDA, M, N
*     ..
*     .. Array Arguments ..

      RETURN
*
*     End of ZUNGTR
*
      END
*> \brief \b ZUNM2R multiplies a general matrix by the unitary matrix from a QR factorization determined by cgeqrf (unblocked algorithm).
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERcomputational
*
*  =====================================================================
      SUBROUTINE ZUNM2R( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC,
     $                   WORK, INFO )
*
*  -- LAPACK computational routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          SIDE, TRANS
      INTEGER            INFO, K, LDA, LDC, M, N
*     ..

      RETURN
*
*     End of ZUNMHR
*
      END
*> \brief \b ZUNML2 multiplies a general matrix by the unitary matrix from a LQ factorization determined by cgelqf (unblocked algorithm).
*
*  =========== DOCUMENTATION ===========
*
* Online html documentation available at 
*            http://www.netlib.org/lapack/explore-html/ 

*> \author Univ. of Tennessee 
*> \author Univ. of California Berkeley 
*> \author Univ. of Colorado Denver 
*> \author NAG Ltd. 
*
*> \date September 2012
*
*> \ingroup complex16OTHERcomputational
*
*  =====================================================================
      SUBROUTINE ZUNML2( SIDE, TRANS, M, N, K, A, LDA, TAU, C, LDC,
     $                   WORK, INFO )
*
*  -- LAPACK computational routine (version 3.4.2) --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*     September 2012
*
*     .. Scalar Arguments ..
      CHARACTER          SIDE, TRANS
      INTEGER            INFO, K, LDA, LDC, M, N
*     ..

Rev 59934	Rev 62769
Line 1...	Line 1...
1	`*> \brief \b DZSUM1`	1	`*> \brief \b DZSUM1 forms the 1-norm of the complex vector using the true absolute value.`
2	`*`	2	`*`
3	`* =========== DOCUMENTATION ===========`	3	`* =========== DOCUMENTATION ===========`
4	`*`	4	`*`
5	`* Online html documentation available at`	5	`* Online html documentation available at`
6	`* http://www.netlib.org/lapack/explore-html/`	6	`* http://www.netlib.org/lapack/explore-html/`
Line 67...	Line 67...
67	`*> \author Univ. of Tennessee`	67	`*> \author Univ. of Tennessee`
68	`*> \author Univ. of California Berkeley`	68	`*> \author Univ. of California Berkeley`
69	`*> \author Univ. of Colorado Denver`	69	`*> \author Univ. of Colorado Denver`
70	`*> \author NAG Ltd.`	70	`*> \author NAG Ltd.`
71	`*`	71	`*`
72	`*> \date November 2011`	72	`*> \date September 2012`
73	`*`	73	`*`
74	`*> \ingroup complex16OTHERauxiliary`	74	`*> \ingroup complex16OTHERauxiliary`
75	`*`	75	`*`
76	`*> \par Contributors:`	76	`*> \par Contributors:`
77	`* ==================`	77	`* ==================`
Line 79...	Line 79...
79	`*> Nick Higham for use with ZLACON.`	79	`*> Nick Higham for use with ZLACON.`
80	`*`	80	`*`
81	`* =====================================================================`	81	`* =====================================================================`
82	`DOUBLE PRECISION FUNCTION DZSUM1( N, CX, INCX )`	82	`DOUBLE PRECISION FUNCTION DZSUM1( N, CX, INCX )`
83	`*`	83	`*`
84	`* -- LAPACK auxiliary routine (version 3.4.0) --`	84	`* -- LAPACK auxiliary routine (version 3.4.2) --`
85	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`	85	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
86	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`	86	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
87	`* November 2011`	87	`* September 2012`
88	`*`	88	`*`
89	`* .. Scalar Arguments ..`	89	`* .. Scalar Arguments ..`
90	`INTEGER INCX, N`	90	`INTEGER INCX, N`
91	`* ..`	91	`* ..`
92	`* .. Array Arguments ..`	92	`* .. Array Arguments ..`
Line 136...	Line 136...
136	`RETURN`	136	`RETURN`
137	`*`	137	`*`
138	`* End of DZSUM1`	138	`* End of DZSUM1`
139	`*`	139	`*`
140	`END`	140	`END`
141	`*> \brief \b ILAZLC`	141	`*> \brief \b ILAZLC scans a matrix for its last non-zero column.`
142	`*`	142	`*`
143	`* =========== DOCUMENTATION ===========`	143	`* =========== DOCUMENTATION ===========`
144	`*`	144	`*`
145	`* Online html documentation available at`	145	`* Online html documentation available at`
146	`* http://www.netlib.org/lapack/explore-html/`	146	`* http://www.netlib.org/lapack/explore-html/`
Line 209...	Line 209...
209	`*> \author Univ. of Tennessee`	209	`*> \author Univ. of Tennessee`
210	`*> \author Univ. of California Berkeley`	210	`*> \author Univ. of California Berkeley`
211	`*> \author Univ. of Colorado Denver`	211	`*> \author Univ. of Colorado Denver`
212	`*> \author NAG Ltd.`	212	`*> \author NAG Ltd.`
213	`*`	213	`*`
214	`*> \date November 2011`	214	`*> \date September 2012`
215	`*`	215	`*`
216	`*> \ingroup complex16OTHERauxiliary`	216	`*> \ingroup complex16OTHERauxiliary`
217	`*`	217	`*`
218	`* =====================================================================`	218	`* =====================================================================`
219	`INTEGER FUNCTION ILAZLC( M, N, A, LDA )`	219	`INTEGER FUNCTION ILAZLC( M, N, A, LDA )`
220	`*`	220	`*`
221	`* -- LAPACK auxiliary routine (version 3.4.0) --`	221	`* -- LAPACK auxiliary routine (version 3.4.2) --`
222	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`	222	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
223	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`	223	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
224	`* November 2011`	224	`* September 2012`
225	`*`	225	`*`
226	`* .. Scalar Arguments ..`	226	`* .. Scalar Arguments ..`
227	`INTEGER M, N, LDA`	227	`INTEGER M, N, LDA`
228	`* ..`	228	`* ..`
229	`* .. Array Arguments ..`	229	`* .. Array Arguments ..`
Line 254...	Line 254...
254	`END DO`	254	`END DO`
255	`END DO`	255	`END DO`
256	`END IF`	256	`END IF`
257	`RETURN`	257	`RETURN`
258	`END`	258	`END`
259	`*> \brief \b ILAZLR`	259	`*> \brief \b ILAZLR scans a matrix for its last non-zero row.`
260	`*`	260	`*`
261	`* =========== DOCUMENTATION ===========`	261	`* =========== DOCUMENTATION ===========`
262	`*`	262	`*`
263	`* Online html documentation available at`	263	`* Online html documentation available at`
264	`* http://www.netlib.org/lapack/explore-html/`	264	`* http://www.netlib.org/lapack/explore-html/`
Line 327...	Line 327...
327	`*> \author Univ. of Tennessee`	327	`*> \author Univ. of Tennessee`
328	`*> \author Univ. of California Berkeley`	328	`*> \author Univ. of California Berkeley`
329	`*> \author Univ. of Colorado Denver`	329	`*> \author Univ. of Colorado Denver`
330	`*> \author NAG Ltd.`	330	`*> \author NAG Ltd.`
331	`*`	331	`*`
332	`*> \date April 2012`	332	`*> \date September 2012`
333	`*`	333	`*`
334	`*> \ingroup complex16OTHERauxiliary`	334	`*> \ingroup complex16OTHERauxiliary`
335	`*`	335	`*`
336	`* =====================================================================`	336	`* =====================================================================`
337	`INTEGER FUNCTION ILAZLR( M, N, A, LDA )`	337	`INTEGER FUNCTION ILAZLR( M, N, A, LDA )`
338	`*`	338	`*`
339	`* -- LAPACK auxiliary routine (version 3.4.1) --`	339	`* -- LAPACK auxiliary routine (version 3.4.2) --`
340	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`	340	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
341	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`	341	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
342	`* April 2012`	342	`* September 2012`
343	`*`	343	`*`
344	`* .. Scalar Arguments ..`	344	`* .. Scalar Arguments ..`
345	`INTEGER M, N, LDA`	345	`INTEGER M, N, LDA`
346	`* ..`	346	`* ..`
347	`* .. Array Arguments ..`	347	`* .. Array Arguments ..`
Line 375...	Line 375...
375	`ILAZLR = MAX( ILAZLR, I )`	375	`ILAZLR = MAX( ILAZLR, I )`
376	`END DO`	376	`END DO`
377	`END IF`	377	`END IF`
378	`RETURN`	378	`RETURN`
379	`END`	379	`END`
380	`*> \brief \b IZMAX1`	380	`*> \brief \b IZMAX1 finds the index of the vector element whose real part has maximum absolute value.`
381	`*`	381	`*`
382	`* =========== DOCUMENTATION ===========`	382	`* =========== DOCUMENTATION ===========`
383	`*`	383	`*`
384	`* Online html documentation available at`	384	`* Online html documentation available at`
385	`* http://www.netlib.org/lapack/explore-html/`	385	`* http://www.netlib.org/lapack/explore-html/`
Line 446...	Line 446...
446	`*> \author Univ. of Tennessee`	446	`*> \author Univ. of Tennessee`
447	`*> \author Univ. of California Berkeley`	447	`*> \author Univ. of California Berkeley`
448	`*> \author Univ. of Colorado Denver`	448	`*> \author Univ. of Colorado Denver`
449	`*> \author NAG Ltd.`	449	`*> \author NAG Ltd.`
450	`*`	450	`*`
451	`*> \date November 2011`	451	`*> \date September 2012`
452	`*`	452	`*`
453	`*> \ingroup complex16OTHERauxiliary`	453	`*> \ingroup complex16OTHERauxiliary`
454	`*`	454	`*`
455	`*> \par Contributors:`	455	`*> \par Contributors:`
456	`* ==================`	456	`* ==================`
Line 458...	Line 458...
458	`*> Nick Higham for use with ZLACON.`	458	`*> Nick Higham for use with ZLACON.`
459	`*`	459	`*`
460	`* =====================================================================`	460	`* =====================================================================`
461	`INTEGER FUNCTION IZMAX1( N, CX, INCX )`	461	`INTEGER FUNCTION IZMAX1( N, CX, INCX )`
462	`*`	462	`*`
463	`* -- LAPACK auxiliary routine (version 3.4.0) --`	463	`* -- LAPACK auxiliary routine (version 3.4.2) --`
464	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`	464	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
465	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`	465	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
466	`* November 2011`	466	`* September 2012`
467	`*`	467	`*`
468	`* .. Scalar Arguments ..`	468	`* .. Scalar Arguments ..`
469	`INTEGER INCX, N`	469	`INTEGER INCX, N`
470	`* ..`	470	`* ..`
471	`* .. Array Arguments ..`	471	`* .. Array Arguments ..`
Line 1372...	Line 1372...
1372	`RETURN`	1372	`RETURN`
1373	`*`	1373	`*`
1374	`* End of ZBDSQR`	1374	`* End of ZBDSQR`
1375	`*`	1375	`*`
1376	`END`	1376	`END`
1377	`*> \brief \b ZDRSCL`	1377	`*> \brief \b ZDRSCL multiplies a vector by the reciprocal of a real scalar.`
1378	`*`	1378	`*`
1379	`* =========== DOCUMENTATION ===========`	1379	`* =========== DOCUMENTATION ===========`
1380	`*`	1380	`*`
1381	`* Online html documentation available at`	1381	`* Online html documentation available at`
1382	`* http://www.netlib.org/lapack/explore-html/`	1382	`* http://www.netlib.org/lapack/explore-html/`
Line 1451...	Line 1451...
1451	`*> \author Univ. of Tennessee`	1451	`*> \author Univ. of Tennessee`
1452	`*> \author Univ. of California Berkeley`	1452	`*> \author Univ. of California Berkeley`
1453	`*> \author Univ. of Colorado Denver`	1453	`*> \author Univ. of Colorado Denver`
1454	`*> \author NAG Ltd.`	1454	`*> \author NAG Ltd.`
1455	`*`	1455	`*`
1456	`*> \date November 2011`	1456	`*> \date September 2012`
1457	`*`	1457	`*`
1458	`*> \ingroup complex16OTHERauxiliary`	1458	`*> \ingroup complex16OTHERauxiliary`
1459	`*`	1459	`*`
1460	`* =====================================================================`	1460	`* =====================================================================`
1461	`SUBROUTINE ZDRSCL( N, SA, SX, INCX )`	1461	`SUBROUTINE ZDRSCL( N, SA, SX, INCX )`
1462	`*`	1462	`*`
1463	`* -- LAPACK auxiliary routine (version 3.4.0) --`	1463	`* -- LAPACK auxiliary routine (version 3.4.2) --`
1464	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`	1464	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
1465	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`	1465	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
1466	`* November 2011`	1466	`* September 2012`
1467	`*`	1467	`*`
1468	`* .. Scalar Arguments ..`	1468	`* .. Scalar Arguments ..`
1469	`INTEGER INCX, N`	1469	`INTEGER INCX, N`
1470	`DOUBLE PRECISION SA`	1470	`DOUBLE PRECISION SA`
1471	`* ..`	1471	`* ..`
Line 2229...	Line 2229...
2229	`RETURN`	2229	`RETURN`
2230	`*`	2230	`*`
2231	`* End of ZGEBAL`	2231	`* End of ZGEBAL`
2232	`*`	2232	`*`
2233	`END`	2233	`END`
2234	`*> \brief \b ZGEBD2`	2234	`*> \brief \b ZGEBD2 reduces a general matrix to bidiagonal form using an unblocked algorithm.`
2235	`*`	2235	`*`
2236	`* =========== DOCUMENTATION ===========`	2236	`* =========== DOCUMENTATION ===========`
2237	`*`	2237	`*`
2238	`* Online html documentation available at`	2238	`* Online html documentation available at`
2239	`* http://www.netlib.org/lapack/explore-html/`	2239	`* http://www.netlib.org/lapack/explore-html/`
Line 2363...	Line 2363...
2363	`*> \author Univ. of Tennessee`	2363	`*> \author Univ. of Tennessee`
2364	`*> \author Univ. of California Berkeley`	2364	`*> \author Univ. of California Berkeley`
2365	`*> \author Univ. of Colorado Denver`	2365	`*> \author Univ. of Colorado Denver`
2366	`*> \author NAG Ltd.`	2366	`*> \author NAG Ltd.`
2367	`*`	2367	`*`
2368	`*> \date November 2011`	2368	`*> \date September 2012`
2369	`*`	2369	`*`
2370	`*> \ingroup complex16GEcomputational`	2370	`*> \ingroup complex16GEcomputational`
2371	`*`	2371	`*`
2372	`*> \par Further Details:`	2372	`*> \par Further Details:`
2373	`* =====================`	2373	`* =====================`
Line 2420...	Line 2420...
2420	`*> \endverbatim`	2420	`*> \endverbatim`
2421	`*>`	2421	`*>`
2422	`* =====================================================================`	2422	`* =====================================================================`
2423	`SUBROUTINE ZGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO )`	2423	`SUBROUTINE ZGEBD2( M, N, A, LDA, D, E, TAUQ, TAUP, WORK, INFO )`
2424	`*`	2424	`*`
2425	`* -- LAPACK computational routine (version 3.4.0) --`	2425	`* -- LAPACK computational routine (version 3.4.2) --`
2426	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`	2426	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
2427	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`	2427	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
2428	`* November 2011`	2428	`* September 2012`
2429	`*`	2429	`*`
2430	`* .. Scalar Arguments ..`	2430	`* .. Scalar Arguments ..`
2431	`INTEGER INFO, LDA, M, N`	2431	`INTEGER INFO, LDA, M, N`
2432	`* ..`	2432	`* ..`
2433	`* .. Array Arguments ..`	2433	`* .. Array Arguments ..`
Line 3671...	Line 3671...
3671	`RETURN`	3671	`RETURN`
3672	`*`	3672	`*`
3673	`* End of ZGEEV`	3673	`* End of ZGEEV`
3674	`*`	3674	`*`
3675	`END`	3675	`END`
3676	`*> \brief \b ZGEHD2`	3676	`*> \brief \b ZGEHD2 reduces a general square matrix to upper Hessenberg form using an unblocked algorithm.`
3677	`*`	3677	`*`
3678	`* =========== DOCUMENTATION ===========`	3678	`* =========== DOCUMENTATION ===========`
3679	`*`	3679	`*`
3680	`* Online html documentation available at`	3680	`* Online html documentation available at`
3681	`* http://www.netlib.org/lapack/explore-html/`	3681	`* http://www.netlib.org/lapack/explore-html/`
Line 3779...	Line 3779...
3779	`*> \author Univ. of Tennessee`	3779	`*> \author Univ. of Tennessee`
3780	`*> \author Univ. of California Berkeley`	3780	`*> \author Univ. of California Berkeley`
3781	`*> \author Univ. of Colorado Denver`	3781	`*> \author Univ. of Colorado Denver`
3782	`*> \author NAG Ltd.`	3782	`*> \author NAG Ltd.`
3783	`*`	3783	`*`
3784	`*> \date November 2011`	3784	`*> \date September 2012`
3785	`*`	3785	`*`
3786	`*> \ingroup complex16GEcomputational`	3786	`*> \ingroup complex16GEcomputational`
3787	`*`	3787	`*`
3788	`*> \par Further Details:`	3788	`*> \par Further Details:`
3789	`* =====================`	3789	`* =====================`
Line 3822...	Line 3822...
3822	`*> \endverbatim`	3822	`*> \endverbatim`
3823	`*>`	3823	`*>`
3824	`* =====================================================================`	3824	`* =====================================================================`
3825	`SUBROUTINE ZGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO )`	3825	`SUBROUTINE ZGEHD2( N, ILO, IHI, A, LDA, TAU, WORK, INFO )`
3826	`*`	3826	`*`
3827	`* -- LAPACK computational routine (version 3.4.0) --`	3827	`* -- LAPACK computational routine (version 3.4.2) --`
3828	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`	3828	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
3829	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`	3829	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
3830	`* November 2011`	3830	`* September 2012`
3831	`*`	3831	`*`
3832	`* .. Scalar Arguments ..`	3832	`* .. Scalar Arguments ..`
3833	`INTEGER IHI, ILO, INFO, LDA, N`	3833	`INTEGER IHI, ILO, INFO, LDA, N`
3834	`* ..`	3834	`* ..`
3835	`* .. Array Arguments ..`	3835	`* .. Array Arguments ..`
Line 4247...	Line 4247...
4247	`RETURN`	4247	`RETURN`
4248	`*`	4248	`*`
4249	`* End of ZGEHRD`	4249	`* End of ZGEHRD`
4250	`*`	4250	`*`
4251	`END`	4251	`END`
4252	`*> \brief \b ZGELQ2`	4252	`*> \brief \b ZGELQ2 computes the LQ factorization of a general rectangular matrix using an unblocked algorithm.`
4253	`*`	4253	`*`
4254	`* =========== DOCUMENTATION ===========`	4254	`* =========== DOCUMENTATION ===========`
4255	`*`	4255	`*`
4256	`* Online html documentation available at`	4256	`* Online html documentation available at`
4257	`* http://www.netlib.org/lapack/explore-html/`	4257	`* http://www.netlib.org/lapack/explore-html/`
Line 4345...	Line 4345...
4345	`*> \author Univ. of Tennessee`	4345	`*> \author Univ. of Tennessee`
4346	`*> \author Univ. of California Berkeley`	4346	`*> \author Univ. of California Berkeley`
4347	`*> \author Univ. of Colorado Denver`	4347	`*> \author Univ. of Colorado Denver`
4348	`*> \author NAG Ltd.`	4348	`*> \author NAG Ltd.`
4349	`*`	4349	`*`
4350	`*> \date November 2011`	4350	`*> \date September 2012`
4351	`*`	4351	`*`
4352	`*> \ingroup complex16GEcomputational`	4352	`*> \ingroup complex16GEcomputational`
4353	`*`	4353	`*`
4354	`*> \par Further Details:`	4354	`*> \par Further Details:`
4355	`* =====================`	4355	`* =====================`
Line 4370...	Line 4370...
4370	`*> \endverbatim`	4370	`*> \endverbatim`
4371	`*>`	4371	`*>`
4372	`* =====================================================================`	4372	`* =====================================================================`
4373	`SUBROUTINE ZGELQ2( M, N, A, LDA, TAU, WORK, INFO )`	4373	`SUBROUTINE ZGELQ2( M, N, A, LDA, TAU, WORK, INFO )`
4374	`*`	4374	`*`
4375	`* -- LAPACK computational routine (version 3.4.0) --`	4375	`* -- LAPACK computational routine (version 3.4.2) --`
4376	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`	4376	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
4377	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`	4377	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
4378	`* November 2011`	4378	`* September 2012`
4379	`*`	4379	`*`
4380	`* .. Scalar Arguments ..`	4380	`* .. Scalar Arguments ..`
4381	`INTEGER INFO, LDA, M, N`	4381	`INTEGER INFO, LDA, M, N`
4382	`* ..`	4382	`* ..`
4383	`* .. Array Arguments ..`	4383	`* .. Array Arguments ..`
Line 4839...	Line 4839...
4839	`*> \author Univ. of Tennessee`	4839	`*> \author Univ. of Tennessee`
4840	`*> \author Univ. of California Berkeley`	4840	`*> \author Univ. of California Berkeley`
4841	`*> \author Univ. of Colorado Denver`	4841	`*> \author Univ. of Colorado Denver`
4842	`*> \author NAG Ltd.`	4842	`*> \author NAG Ltd.`
4843	`*`	4843	`*`
4844	`*> \date November 2011`	4844	`*> \date September 2012`
4845	`*`	4845	`*`
4846	`*> \ingroup complex16GEcomputational`	4846	`*> \ingroup complex16GEcomputational`
4847	`*`	4847	`*`
4848	`*> \par Further Details:`	4848	`*> \par Further Details:`
4849	`* =====================`	4849	`* =====================`
Line 4856...	Line 4856...
4856	`*>`	4856	`*>`
4857	`*> Each H(i) has the form`	4857	`*> Each H(i) has the form`
4858	`*>`	4858	`*>`
4859	`> H(i) = I - tau v * v**H`	4859	`> H(i) = I - tau v * v**H`
4860	`*>`	4860	`*>`
4861	`*> where tau is a real/complex scalar, and v is a real/complex vector`	4861	`*> where tau is a complex scalar, and v is a real/complex vector`
4862	`*> with v(1:i-1) = 0 and v(i) = 1; v(i+1:m) is stored on exit in`	4862	`*> with v(1:i-1) = 0 and v(i) = 1; v(i+1:m) is stored on exit in`
4863	`*> A(i+1:m,i), and tau in TAU(i).`	4863	`*> A(i+1:m,i), and tau in TAU(i).`
4864	`*> \endverbatim`	4864	`*> \endverbatim`
4865	`*`	4865	`*`
4866	`*> \par Contributors:`	4866	`*> \par Contributors:`
Line 4871...	Line 4871...
4871	`*>`	4871	`*>`
4872	`* =====================================================================`	4872	`* =====================================================================`
4873	`SUBROUTINE ZGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK,`	4873	`SUBROUTINE ZGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, RWORK,`
4874	`$ INFO )`	4874	`$ INFO )`
4875	`*`	4875	`*`
4876	`* -- LAPACK computational routine (version 3.4.0) --`	4876	`* -- LAPACK computational routine (version 3.4.2) --`
4877	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`	4877	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
4878	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`	4878	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
4879	`* November 2011`	4879	`* September 2012`
4880	`*`	4880	`*`
4881	`* .. Scalar Arguments ..`	4881	`* .. Scalar Arguments ..`
4882	`INTEGER INFO, LDA, LWORK, M, N`	4882	`INTEGER INFO, LDA, LWORK, M, N`
4883	`* ..`	4883	`* ..`
4884	`* .. Array Arguments ..`	4884	`* .. Array Arguments ..`
Line 5088...	Line 5088...
5088	`RETURN`	5088	`RETURN`
5089	`*`	5089	`*`
5090	`* End of ZGEQP3`	5090	`* End of ZGEQP3`
5091	`*`	5091	`*`
5092	`END`	5092	`END`
5093	`*> \brief \b ZGEQR2`	5093	`*> \brief \b ZGEQR2 computes the QR factorization of a general rectangular matrix using an unblocked algorithm.`
5094	`*`	5094	`*`
5095	`* =========== DOCUMENTATION ===========`	5095	`* =========== DOCUMENTATION ===========`
5096	`*`	5096	`*`
5097	`* Online html documentation available at`	5097	`* Online html documentation available at`
5098	`* http://www.netlib.org/lapack/explore-html/`	5098	`* http://www.netlib.org/lapack/explore-html/`
Line 5186...	Line 5186...
5186	`*> \author Univ. of Tennessee`	5186	`*> \author Univ. of Tennessee`
5187	`*> \author Univ. of California Berkeley`	5187	`*> \author Univ. of California Berkeley`
5188	`*> \author Univ. of Colorado Denver`	5188	`*> \author Univ. of Colorado Denver`
5189	`*> \author NAG Ltd.`	5189	`*> \author NAG Ltd.`
5190	`*`	5190	`*`
5191	`*> \date November 2011`	5191	`*> \date September 2012`
5192	`*`	5192	`*`
5193	`*> \ingroup complex16GEcomputational`	5193	`*> \ingroup complex16GEcomputational`
5194	`*`	5194	`*`
5195	`*> \par Further Details:`	5195	`*> \par Further Details:`
5196	`* =====================`	5196	`* =====================`
Line 5211...	Line 5211...
5211	`*> \endverbatim`	5211	`*> \endverbatim`
5212	`*>`	5212	`*>`
5213	`* =====================================================================`	5213	`* =====================================================================`
5214	`SUBROUTINE ZGEQR2( M, N, A, LDA, TAU, WORK, INFO )`	5214	`SUBROUTINE ZGEQR2( M, N, A, LDA, TAU, WORK, INFO )`
5215	`*`	5215	`*`
5216	`* -- LAPACK computational routine (version 3.4.0) --`	5216	`* -- LAPACK computational routine (version 3.4.2) --`
5217	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`	5217	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
5218	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`	5218	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
5219	`* November 2011`	5219	`* September 2012`
5220	`*`	5220	`*`
5221	`* .. Scalar Arguments ..`	5221	`* .. Scalar Arguments ..`
5222	`INTEGER INFO, LDA, M, N`	5222	`INTEGER INFO, LDA, M, N`
5223	`* ..`	5223	`* ..`
5224	`* .. Array Arguments ..`	5224	`* .. Array Arguments ..`
Line 9424...	Line 9424...
9424	`RETURN`	9424	`RETURN`
9425	`*`	9425	`*`
9426	`* End of ZGESVD`	9426	`* End of ZGESVD`
9427	`*`	9427	`*`
9428	`END`	9428	`END`
9429	`*> \brief \b ZGETF2`	9429	`*> \brief \b ZGETF2 computes the LU factorization of a general m-by-n matrix using partial pivoting with row interchanges (unblocked algorithm).`
9430	`*`	9430	`*`
9431	`* =========== DOCUMENTATION ===========`	9431	`* =========== DOCUMENTATION ===========`
9432	`*`	9432	`*`
9433	`* Online html documentation available at`	9433	`* Online html documentation available at`
9434	`* http://www.netlib.org/lapack/explore-html/`	9434	`* http://www.netlib.org/lapack/explore-html/`
Line 9527...	Line 9527...
9527	`*> \author Univ. of Tennessee`	9527	`*> \author Univ. of Tennessee`
9528	`*> \author Univ. of California Berkeley`	9528	`*> \author Univ. of California Berkeley`
9529	`*> \author Univ. of Colorado Denver`	9529	`*> \author Univ. of Colorado Denver`
9530	`*> \author NAG Ltd.`	9530	`*> \author NAG Ltd.`
9531	`*`	9531	`*`
9532	`*> \date November 2011`	9532	`*> \date September 2012`
9533	`*`	9533	`*`
9534	`*> \ingroup complex16GEcomputational`	9534	`*> \ingroup complex16GEcomputational`
9535	`*`	9535	`*`
9536	`* =====================================================================`	9536	`* =====================================================================`
9537	`SUBROUTINE ZGETF2( M, N, A, LDA, IPIV, INFO )`	9537	`SUBROUTINE ZGETF2( M, N, A, LDA, IPIV, INFO )`
9538	`*`	9538	`*`
9539	`* -- LAPACK computational routine (version 3.4.0) --`	9539	`* -- LAPACK computational routine (version 3.4.2) --`
9540	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`	9540	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
9541	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`	9541	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
9542	`* November 2011`	9542	`* September 2012`
9543	`*`	9543	`*`
9544	`* .. Scalar Arguments ..`	9544	`* .. Scalar Arguments ..`
9545	`INTEGER INFO, LDA, M, N`	9545	`INTEGER INFO, LDA, M, N`
9546	`* ..`	9546	`* ..`
9547	`* .. Array Arguments ..`	9547	`* .. Array Arguments ..`
Line 10386...	Line 10386...
10386	`RETURN`	10386	`RETURN`
10387	`*`	10387	`*`
10388	`* End of ZHEEV`	10388	`* End of ZHEEV`
10389	`*`	10389	`*`
10390	`END`	10390	`END`
10391	`*> \brief \b ZHETD2`	10391	`*> \brief \b ZHETD2 reduces a Hermitian matrix to real symmetric tridiagonal form by an unitary similarity transformation (unblocked algorithm).`
10392	`*`	10392	`*`
10393	`* =========== DOCUMENTATION ===========`	10393	`* =========== DOCUMENTATION ===========`
10394	`*`	10394	`*`
10395	`* Online html documentation available at`	10395	`* Online html documentation available at`
10396	`* http://www.netlib.org/lapack/explore-html/`	10396	`* http://www.netlib.org/lapack/explore-html/`
Line 10510...	Line 10510...
10510	`*> \author Univ. of Tennessee`	10510	`*> \author Univ. of Tennessee`
10511	`*> \author Univ. of California Berkeley`	10511	`*> \author Univ. of California Berkeley`
10512	`*> \author Univ. of Colorado Denver`	10512	`*> \author Univ. of Colorado Denver`
10513	`*> \author NAG Ltd.`	10513	`*> \author NAG Ltd.`
10514	`*`	10514	`*`
10515	`*> \date November 2011`	10515	`*> \date September 2012`
10516	`*`	10516	`*`
10517	`*> \ingroup complex16HEcomputational`	10517	`*> \ingroup complex16HEcomputational`
10518	`*`	10518	`*`
10519	`*> \par Further Details:`	10519	`*> \par Further Details:`
10520	`* =====================`	10520	`* =====================`
Line 10563...	Line 10563...
10563	`*> \endverbatim`	10563	`*> \endverbatim`
10564	`*>`	10564	`*>`
10565	`* =====================================================================`	10565	`* =====================================================================`
10566	`SUBROUTINE ZHETD2( UPLO, N, A, LDA, D, E, TAU, INFO )`	10566	`SUBROUTINE ZHETD2( UPLO, N, A, LDA, D, E, TAU, INFO )`
10567	`*`	10567	`*`
10568	`* -- LAPACK computational routine (version 3.4.0) --`	10568	`* -- LAPACK computational routine (version 3.4.2) --`
10569	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`	10569	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
10570	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`	10570	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
10571	`* November 2011`	10571	`* September 2012`
10572	`*`	10572	`*`
10573	`* .. Scalar Arguments ..`	10573	`* .. Scalar Arguments ..`
10574	`CHARACTER UPLO`	10574	`CHARACTER UPLO`
10575	`INTEGER INFO, LDA, N`	10575	`INTEGER INFO, LDA, N`
10576	`* ..`	10576	`* ..`
Line 11596...	Line 11596...
11596	`END IF`	11596	`END IF`
11597	`*`	11597	`*`
11598	`* ==== End of ZHSEQR ====`	11598	`* ==== End of ZHSEQR ====`
11599	`*`	11599	`*`
11600	`END`	11600	`END`
11601	`*> \brief \b ZLABRD`	11601	`*> \brief \b ZLABRD reduces the first nb rows and columns of a general matrix to a bidiagonal form.`
11602	`*`	11602	`*`
11603	`* =========== DOCUMENTATION ===========`	11603	`* =========== DOCUMENTATION ===========`
11604	`*`	11604	`*`
11605	`* Online html documentation available at`	11605	`* Online html documentation available at`
11606	`* http://www.netlib.org/lapack/explore-html/`	11606	`* http://www.netlib.org/lapack/explore-html/`
Line 11755...	Line 11755...
11755	`*> \author Univ. of Tennessee`	11755	`*> \author Univ. of Tennessee`
11756	`*> \author Univ. of California Berkeley`	11756	`*> \author Univ. of California Berkeley`
11757	`*> \author Univ. of Colorado Denver`	11757	`*> \author Univ. of Colorado Denver`
11758	`*> \author NAG Ltd.`	11758	`*> \author NAG Ltd.`
11759	`*`	11759	`*`
11760	`*> \date November 2011`	11760	`*> \date September 2012`
11761	`*`	11761	`*`
11762	`*> \ingroup complex16OTHERauxiliary`	11762	`*> \ingroup complex16OTHERauxiliary`
11763	`*`	11763	`*`
11764	`*> \par Further Details:`	11764	`*> \par Further Details:`
11765	`* =====================`	11765	`* =====================`
Line 11810...	Line 11810...
11810	`*>`	11810	`*>`
11811	`* =====================================================================`	11811	`* =====================================================================`
11812	`SUBROUTINE ZLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y,`	11812	`SUBROUTINE ZLABRD( M, N, NB, A, LDA, D, E, TAUQ, TAUP, X, LDX, Y,`
11813	`$ LDY )`	11813	`$ LDY )`
11814	`*`	11814	`*`
11815	`* -- LAPACK auxiliary routine (version 3.4.0) --`	11815	`* -- LAPACK auxiliary routine (version 3.4.2) --`
11816	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`	11816	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
11817	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`	11817	`* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--`
11818	`* November 2011`	11818	`* September 2012`
11819	`*`	11819	`*`
11820	`* .. Scalar Arguments ..`	11820	`* .. Scalar Arguments ..`
11821	`INTEGER LDA, LDX, LDY, M, N, NB`	11821	`INTEGER LDA, LDX, LDY, M, N, NB`
11822	`* ..`	11822	`* ..`
11823	`* .. Array Arguments ..`	11823	`* .. Array Arguments ..`
Line 12016...	Line 12016...
12016	`RETURN`	12016	`RETURN`
12017	`*`	12017	`*`
12018	`* End of ZLABRD`	12018	`* End of ZLABRD`
12019	`*`	12019	`*`
12020	`END`	12020	`END`
12021	`*> \brief \b ZLACGV`	12021	`*> \brief \b ZLACGV conjugates a complex vector.`
12022	`*`	12022	`*`
12023	`* =========== DOCUMENTATION ===========`	12023	`* =========== DOCUMENTATION ===========`
12024	`*`	12024	`*`
12025	`* Online html documentation available at`	12025	`* Online html documentation available at`
12026	`* http://www.netlib.org/lapack/explore-html/`	12026	`* http://www.netlib.org/lapack/explore-html/`
Line 12085...	Line 12085...
12085	`*> \author Univ. of Tennessee`	12085	`*> \author Univ. of Tennessee`
12086	`*> \author Univ. of California Berkeley`	12086	`*> \author Univ. of California Berkeley`
12087	`*> \author Univ. of Colorado Denver`	12087	`*> \author Univ. of Colorado Denver`
12088	`*> \author NAG Ltd.`	12088	`*> \author NAG Ltd.`
12089	`*`	12089	`*`

The R Project SVN R

(root)/trunk/src/modules/lapack/cmplx.f – Rev 59934 → 62769