1extern int ztrsen_(char *job, char *compq, logical *select, integer *n, doublecomplex *t, integer *ldt, doublecomplex *q, integer *ldq, doublecomplex *w, integer *m, doublereal *s, doublereal *sep, doublecomplex *work, integer *lwork, integer *info, ftnlen job_len, ftnlen compq_len);
2/*:ref: lsame_ 12 4 13 13 124 124 */
3/*:ref: xerbla_ 14 3 13 4 124 */
4/*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
5/*:ref: ztrexc_ 14 10 13 4 9 4 9 4 4 4 4 124 */
6/*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
7/*:ref: ztrsyl_ 14 15 13 13 4 4 4 9 4 9 4 9 4 7 4 124 124 */
8/*:ref: zlacn2_ 14 6 4 9 9 7 4 4 */
9