1extern int zgees_(char *jobvs, char *sort, L_fp select, integer *n, doublecomplex *a, integer *lda, integer *sdim, doublecomplex *w, doublecomplex *vs, integer *ldvs, doublecomplex *work, integer *lwork, doublereal *rwork, logical *bwork, integer *info, ftnlen jobvs_len, ftnlen sort_len);
2/*:ref: lsame_ 12 4 13 13 124 124 */
3/*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
4/*:ref: zhseqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
5/*:ref: xerbla_ 14 3 13 4 124 */
6/*:ref: dlamch_ 7 2 13 124 */
7/*:ref: dlabad_ 14 2 7 7 */
8/*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
9/*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
10/*:ref: zgebal_ 14 9 13 4 9 4 4 4 7 4 124 */
11/*:ref: zgehrd_ 14 9 4 4 4 9 4 9 9 4 4 */
12/*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
13/*:ref: zunghr_ 14 9 4 4 4 9 4 9 9 4 4 */
14/*:ref: ztrsen_ 14 17 13 13 12 4 9 4 9 4 9 4 7 7 9 4 4 124 124 */
15/*:ref: zgebak_ 14 12 13 13 4 4 4 7 4 9 4 4 124 124 */
16/*:ref: zcopy_ 14 5 4 9 4 9 4 */
17