Subroutine */
| 1300 | } /* zgebrd_ */ |
| 1301 | |
| 1302 | /* Subroutine */ int zgeev_(char *jobvl, char *jobvr, integer *n, |
| 1303 | doublecomplex *a, integer *lda, doublecomplex *w, doublecomplex *vl, |
| 1304 | integer *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, |
| 1305 | integer *lwork, doublereal *rwork, integer *info) |
| 1306 | { |
| 1307 | /* System generated locals */ |
| 1308 | integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, |
| 1309 | i__2, i__3; |
| 1310 | doublereal d__1, d__2; |
| 1311 | doublecomplex z__1, z__2; |
| 1312 | |
| 1313 | /* Local variables */ |
| 1314 | static integer i__, k, ihi; |
| 1315 | static doublereal scl; |
| 1316 | static integer ilo; |
| 1317 | static doublereal dum[1], eps; |
| 1318 | static doublecomplex tmp; |
| 1319 | static integer ibal; |
| 1320 | static char side[1]; |
| 1321 | static doublereal anrm; |
| 1322 | static integer ierr, itau, iwrk, nout; |
| 1323 | extern logical lsame_(char *, char *); |
| 1324 | extern /* Subroutine */ int zscal_(integer *, doublecomplex *, |
| 1325 | doublecomplex *, integer *), dlabad_(doublereal *, doublereal *); |
| 1326 | extern doublereal dznrm2_(integer *, doublecomplex *, integer *); |
| 1327 | static logical scalea; |
| 1328 | |
| 1329 | static doublereal cscale; |
| 1330 | extern /* Subroutine */ int zgebak_(char *, char *, integer *, integer *, |
| 1331 | integer *, doublereal *, integer *, doublecomplex *, integer *, |
| 1332 | integer *), zgebal_(char *, integer *, |
| 1333 | doublecomplex *, integer *, integer *, integer *, doublereal *, |
| 1334 | integer *); |
| 1335 | extern integer idamax_(integer *, doublereal *, integer *); |
| 1336 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 1337 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 1338 | integer *, integer *, ftnlen, ftnlen); |
| 1339 | static logical select[1]; |
| 1340 | extern /* Subroutine */ int zdscal_(integer *, doublereal *, |
| 1341 | doublecomplex *, integer *); |
| 1342 | static doublereal bignum; |
| 1343 | extern doublereal zlange_(char *, integer *, integer *, doublecomplex *, |
| 1344 | integer *, doublereal *); |
| 1345 | extern /* Subroutine */ int zgehrd_(integer *, integer *, integer *, |
| 1346 | doublecomplex *, integer *, doublecomplex *, doublecomplex *, |
| 1347 | integer *, integer *), zlascl_(char *, integer *, integer *, |
| 1348 | doublereal *, doublereal *, integer *, integer *, doublecomplex *, |
| 1349 | integer *, integer *), zlacpy_(char *, integer *, |
| 1350 | integer *, doublecomplex *, integer *, doublecomplex *, integer *); |
| 1351 | static integer minwrk, maxwrk; |
| 1352 | static logical wantvl; |
| 1353 | static doublereal smlnum; |
| 1354 | static integer hswork, irwork; |
| 1355 | extern /* Subroutine */ int zhseqr_(char *, char *, integer *, integer *, |
| 1356 | integer *, doublecomplex *, integer *, doublecomplex *, |
| 1357 | doublecomplex *, integer *, doublecomplex *, integer *, integer *), ztrevc_(char *, char *, logical *, integer *, |
| 1358 | doublecomplex *, integer *, doublecomplex *, integer *, |
| 1359 | doublecomplex *, integer *, integer *, integer *, doublecomplex *, |
nothing calls this directly
no test coverage detected