Subroutine */
| 22973 | } /* zlatrs_ */ |
| 22974 | |
| 22975 | /* Subroutine */ int zlauu2_(char *uplo, integer *n, doublecomplex *a, |
| 22976 | integer *lda, integer *info) |
| 22977 | { |
| 22978 | /* System generated locals */ |
| 22979 | integer a_dim1, a_offset, i__1, i__2, i__3; |
| 22980 | doublereal d__1; |
| 22981 | doublecomplex z__1; |
| 22982 | |
| 22983 | /* Local variables */ |
| 22984 | static integer i__; |
| 22985 | static doublereal aii; |
| 22986 | extern logical lsame_(char *, char *); |
| 22987 | extern /* Double Complex */ VOID zdotc_(doublecomplex *, integer *, |
| 22988 | doublecomplex *, integer *, doublecomplex *, integer *); |
| 22989 | extern /* Subroutine */ int zgemv_(char *, integer *, integer *, |
| 22990 | doublecomplex *, doublecomplex *, integer *, doublecomplex *, |
| 22991 | integer *, doublecomplex *, doublecomplex *, integer *); |
| 22992 | static logical upper; |
| 22993 | extern /* Subroutine */ int xerbla_(char *, integer *), zdscal_( |
| 22994 | integer *, doublereal *, doublecomplex *, integer *), zlacgv_( |
| 22995 | integer *, doublecomplex *, integer *); |
| 22996 | |
| 22997 | |
| 22998 | /* |
| 22999 | -- LAPACK auxiliary routine (version 3.2) -- |
| 23000 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 23001 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 23002 | November 2006 |
| 23003 | |
| 23004 | |
| 23005 | Purpose |
| 23006 | ======= |
| 23007 | |
| 23008 | ZLAUU2 computes the product U * U' or L' * L, where the triangular |
| 23009 | factor U or L is stored in the upper or lower triangular part of |
| 23010 | the array A. |
| 23011 | |
| 23012 | If UPLO = 'U' or 'u' then the upper triangle of the result is stored, |
| 23013 | overwriting the factor U in A. |
| 23014 | If UPLO = 'L' or 'l' then the lower triangle of the result is stored, |
| 23015 | overwriting the factor L in A. |
| 23016 | |
| 23017 | This is the unblocked form of the algorithm, calling Level 2 BLAS. |
| 23018 | |
| 23019 | Arguments |
| 23020 | ========= |
| 23021 | |
| 23022 | UPLO (input) CHARACTER*1 |
| 23023 | Specifies whether the triangular factor stored in the array A |
| 23024 | is upper or lower triangular: |
| 23025 | = 'U': Upper triangular |
| 23026 | = 'L': Lower triangular |
| 23027 | |
| 23028 | N (input) INTEGER |
| 23029 | The order of the triangular factor U or L. N >= 0. |
| 23030 | |
| 23031 | A (input/output) COMPLEX*16 array, dimension (LDA,N) |
| 23032 | On entry, the triangular factor U or L. |