Subroutine */
| 1298 | } /* cgebrd_ */ |
| 1299 | |
| 1300 | /* Subroutine */ int cgeev_(char *jobvl, char *jobvr, integer *n, complex *a, |
| 1301 | integer *lda, complex *w, complex *vl, integer *ldvl, complex *vr, |
| 1302 | integer *ldvr, complex *work, integer *lwork, real *rwork, integer * |
| 1303 | info) |
| 1304 | { |
| 1305 | /* System generated locals */ |
| 1306 | integer a_dim1, a_offset, vl_dim1, vl_offset, vr_dim1, vr_offset, i__1, |
| 1307 | i__2, i__3; |
| 1308 | real r__1, r__2; |
| 1309 | complex q__1, q__2; |
| 1310 | |
| 1311 | /* Local variables */ |
| 1312 | static integer i__, k, ihi; |
| 1313 | static real scl; |
| 1314 | static integer ilo; |
| 1315 | static real dum[1], eps; |
| 1316 | static complex tmp; |
| 1317 | static integer ibal; |
| 1318 | static char side[1]; |
| 1319 | static real anrm; |
| 1320 | static integer ierr, itau, iwrk, nout; |
| 1321 | extern /* Subroutine */ int cscal_(integer *, complex *, complex *, |
| 1322 | integer *); |
| 1323 | extern logical lsame_(char *, char *); |
| 1324 | extern doublereal scnrm2_(integer *, complex *, integer *); |
| 1325 | extern /* Subroutine */ int cgebak_(char *, char *, integer *, integer *, |
| 1326 | integer *, real *, integer *, complex *, integer *, integer *), cgebal_(char *, integer *, complex *, integer *, |
| 1327 | integer *, integer *, real *, integer *), slabad_(real *, |
| 1328 | real *); |
| 1329 | static logical scalea; |
| 1330 | extern doublereal clange_(char *, integer *, integer *, complex *, |
| 1331 | integer *, real *); |
| 1332 | static real cscale; |
| 1333 | extern /* Subroutine */ int cgehrd_(integer *, integer *, integer *, |
| 1334 | complex *, integer *, complex *, complex *, integer *, integer *), |
| 1335 | clascl_(char *, integer *, integer *, real *, real *, integer *, |
| 1336 | integer *, complex *, integer *, integer *); |
| 1337 | extern doublereal slamch_(char *); |
| 1338 | extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer |
| 1339 | *), clacpy_(char *, integer *, integer *, complex *, integer *, |
| 1340 | complex *, integer *), xerbla_(char *, integer *); |
| 1341 | extern integer ilaenv_(integer *, char *, char *, integer *, integer *, |
| 1342 | integer *, integer *, ftnlen, ftnlen); |
| 1343 | static logical select[1]; |
| 1344 | static real bignum; |
| 1345 | extern integer isamax_(integer *, real *, integer *); |
| 1346 | extern /* Subroutine */ int chseqr_(char *, char *, integer *, integer *, |
| 1347 | integer *, complex *, integer *, complex *, complex *, integer *, |
| 1348 | complex *, integer *, integer *), ctrevc_(char *, |
| 1349 | char *, logical *, integer *, complex *, integer *, complex *, |
| 1350 | integer *, complex *, integer *, integer *, integer *, complex *, |
| 1351 | real *, integer *), cunghr_(integer *, integer *, |
| 1352 | integer *, complex *, integer *, complex *, complex *, integer *, |
| 1353 | integer *); |
| 1354 | static integer minwrk, maxwrk; |
| 1355 | static logical wantvl; |
| 1356 | static real smlnum; |
| 1357 | static integer hswork, irwork; |
nothing calls this directly
no test coverage detected