Subroutine */
| 1454 | } /* dbdsqr_ */ |
| 1455 | |
| 1456 | /* Subroutine */ int dgebak_(char *job, char *side, integer *n, integer *ilo, |
| 1457 | integer *ihi, doublereal *scale, integer *m, doublereal *v, integer * |
| 1458 | ldv, integer *info) |
| 1459 | { |
| 1460 | /* System generated locals */ |
| 1461 | integer v_dim1, v_offset, i__1; |
| 1462 | |
| 1463 | /* Local variables */ |
| 1464 | static integer i__, k; |
| 1465 | static doublereal s; |
| 1466 | static integer ii; |
| 1467 | extern /* Subroutine */ int dscal_(integer *, doublereal *, doublereal *, |
| 1468 | integer *); |
| 1469 | extern logical lsame_(char *, char *); |
| 1470 | extern /* Subroutine */ int dswap_(integer *, doublereal *, integer *, |
| 1471 | doublereal *, integer *); |
| 1472 | static logical leftv; |
| 1473 | extern /* Subroutine */ int xerbla_(char *, integer *); |
| 1474 | static logical rightv; |
| 1475 | |
| 1476 | |
| 1477 | /* |
| 1478 | -- LAPACK routine (version 3.2) -- |
| 1479 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 1480 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 1481 | November 2006 |
| 1482 | |
| 1483 | |
| 1484 | Purpose |
| 1485 | ======= |
| 1486 | |
| 1487 | DGEBAK forms the right or left eigenvectors of a real general matrix |
| 1488 | by backward transformation on the computed eigenvectors of the |
| 1489 | balanced matrix output by DGEBAL. |
| 1490 | |
| 1491 | Arguments |
| 1492 | ========= |
| 1493 | |
| 1494 | JOB (input) CHARACTER*1 |
| 1495 | Specifies the type of backward transformation required: |
| 1496 | = 'N', do nothing, return immediately; |
| 1497 | = 'P', do backward transformation for permutation only; |
| 1498 | = 'S', do backward transformation for scaling only; |
| 1499 | = 'B', do backward transformations for both permutation and |
| 1500 | scaling. |
| 1501 | JOB must be the same as the argument JOB supplied to DGEBAL. |
| 1502 | |
| 1503 | SIDE (input) CHARACTER*1 |
| 1504 | = 'R': V contains right eigenvectors; |
| 1505 | = 'L': V contains left eigenvectors. |
| 1506 | |
| 1507 | N (input) INTEGER |
| 1508 | The number of rows of the matrix V. N >= 0. |
| 1509 | |
| 1510 | ILO (input) INTEGER |
| 1511 | IHI (input) INTEGER |
| 1512 | The integers ILO and IHI determined by DGEBAL. |
| 1513 | 1 <= ILO <= IHI <= N, if N > 0; ILO=1 and IHI=0, if N=0. |