Subroutine */
| 53 | static real c_b2435 = .5f; |
| 54 | |
| 55 | /* Subroutine */ int cgebak_(char *job, char *side, integer *n, integer *ilo, |
| 56 | integer *ihi, real *scale, integer *m, complex *v, integer *ldv, |
| 57 | integer *info) |
| 58 | { |
| 59 | /* System generated locals */ |
| 60 | integer v_dim1, v_offset, i__1; |
| 61 | |
| 62 | /* Local variables */ |
| 63 | static integer i__, k; |
| 64 | static real s; |
| 65 | static integer ii; |
| 66 | extern logical lsame_(char *, char *); |
| 67 | extern /* Subroutine */ int cswap_(integer *, complex *, integer *, |
| 68 | complex *, integer *); |
| 69 | static logical leftv; |
| 70 | extern /* Subroutine */ int csscal_(integer *, real *, complex *, integer |
| 71 | *), xerbla_(char *, integer *); |
| 72 | static logical rightv; |
| 73 | |
| 74 | |
| 75 | /* |
| 76 | -- LAPACK routine (version 3.2) -- |
| 77 | -- LAPACK is a software package provided by Univ. of Tennessee, -- |
| 78 | -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
| 79 | November 2006 |
| 80 | |
| 81 | |
| 82 | Purpose |
| 83 | ======= |
| 84 | |
| 85 | CGEBAK forms the right or left eigenvectors of a complex general |
| 86 | matrix by backward transformation on the computed eigenvectors of the |
| 87 | balanced matrix output by CGEBAL. |
| 88 | |
| 89 | Arguments |
| 90 | ========= |
| 91 | |
| 92 | JOB (input) CHARACTER*1 |
| 93 | Specifies the type of backward transformation required: |
| 94 | = 'N', do nothing, return immediately; |
| 95 | = 'P', do backward transformation for permutation only; |
| 96 | = 'S', do backward transformation for scaling only; |
| 97 | = 'B', do backward transformations for both permutation and |
| 98 | scaling. |
| 99 | JOB must be the same as the argument JOB supplied to CGEBAL. |
| 100 | |
| 101 | SIDE (input) CHARACTER*1 |
| 102 | = 'R': V contains right eigenvectors; |
| 103 | = 'L': V contains left eigenvectors. |
| 104 | |
| 105 | N (input) INTEGER |
| 106 | The number of rows of the matrix V. N >= 0. |
| 107 | |
| 108 | ILO (input) INTEGER |
| 109 | IHI (input) INTEGER |
| 110 | The integers ILO and IHI determined by CGEBAL. |
| 111 | 1 <= ILO <= IHI <= N, if N > 0; ILO=1 and IHI=0, if N=0. |
| 112 |