Subroutine */
| 1991 | } /* zgehd2_ */ |
| 1992 | |
| 1993 | /* Subroutine */ int zgehrd_(integer *n, integer *ilo, integer *ihi, |
| 1994 | doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * |
| 1995 | work, integer *lwork, integer *info) |
| 1996 | { |
| 1997 | /* System generated locals */ |
| 1998 | integer a_dim1, a_offset, i__1, i__2, i__3, i__4; |
| 1999 | doublecomplex z__1; |
| 2000 | |
| 2001 | /* Local variables */ |
| 2002 | static integer i__, j; |
| 2003 | static doublecomplex t[4160] /* was [65][64] */; |
| 2004 | static integer ib; |
| 2005 | static doublecomplex ei; |
| 2006 | static integer nb, nh, nx, iws, nbmin, iinfo; |
| 2007 | extern /* Subroutine */ int zgemm_(char *, char *, integer *, integer *, |
| 2008 | integer *, doublecomplex *, doublecomplex *, integer *, |
| 2009 | doublecomplex *, integer *, doublecomplex *, doublecomplex *, |
| 2010 | integer *), ztrmm_(char *, char *, char *, char *, |
| 2011 | integer *, integer *, doublecomplex *, doublecomplex *, integer * |
| 2012 | , doublecomplex *, integer *), |
| 2013 | zaxpy_(integer *, doublecomplex *, doublecomplex *, integer *, |
| 2014 | doublecomplex *, integer *), zgehd2_(integer *, integer *, |
| 2015 | integer *, doublecomplex *, integer *, doublecomplex *, |
| 2016 | doublecomplex *, integer *), zlahr2_(integer *, integer *, |
| 2017 | integer *, doublecomplex *, integer *, doublecomplex *, |
| 2018 | doublecomplex *, integer *, doublecomplex *, integer *), xerbla_( |
| 2019 | char *, integer *); |
| 2020 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 2021 | integer *, integer *, ftnlen, ftnlen); |
| 2022 | extern /* Subroutine */ int zlarfb_(char *, char *, char *, char *, |
| 2023 | integer *, integer *, integer *, doublecomplex *, integer *, |
| 2024 | doublecomplex *, integer *, doublecomplex *, integer *, |
| 2025 | doublecomplex *, integer *); |
| 2026 | static integer ldwork, lwkopt; |
| 2027 | static logical lquery; |
| 2028 | |
| 2029 | |
| 2030 | /* |
| 2031 | -- LAPACK routine (version 3.2.1) -- |
| 2032 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 2033 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 2034 | -- April 2009 -- |
| 2035 | |
| 2036 | |
| 2037 | Purpose |
| 2038 | ======= |
| 2039 | |
| 2040 | ZGEHRD reduces a complex general matrix A to upper Hessenberg form H by |
| 2041 | an unitary similarity transformation: Q' * A * Q = H . |
| 2042 | |
| 2043 | Arguments |
| 2044 | ========= |
| 2045 | |
| 2046 | N (input) INTEGER |
| 2047 | The order of the matrix A. N >= 0. |
| 2048 | |
| 2049 | ILO (input) INTEGER |
| 2050 | IHI (input) INTEGER |