version 1.18, 2018/05/29 07:17:56
|
version 1.19, 2020/05/21 21:45:59
|
Line 150
|
Line 150
|
*> \param[out] INFO |
*> \param[out] INFO |
*> \verbatim |
*> \verbatim |
*> INFO is INTEGER |
*> INFO is INTEGER |
*> = 0: successful exit |
*> = 0: successful exit |
*> .GT. 0: If INFO = i, DLAHQR failed to compute all the |
*> > 0: If INFO = i, DLAHQR failed to compute all the |
*> eigenvalues ILO to IHI in a total of 30 iterations |
*> eigenvalues ILO to IHI in a total of 30 iterations |
*> per eigenvalue; elements i+1:ihi of WR and WI |
*> per eigenvalue; elements i+1:ihi of WR and WI |
*> contain those eigenvalues which have been |
*> contain those eigenvalues which have been |
*> successfully computed. |
*> successfully computed. |
*> |
*> |
*> If INFO .GT. 0 and WANTT is .FALSE., then on exit, |
*> If INFO > 0 and WANTT is .FALSE., then on exit, |
*> the remaining unconverged eigenvalues are the |
*> the remaining unconverged eigenvalues are the |
*> eigenvalues of the upper Hessenberg matrix rows |
*> eigenvalues of the upper Hessenberg matrix rows |
*> and columns ILO thorugh INFO of the final, output |
*> and columns ILO through INFO of the final, output |
*> value of H. |
*> value of H. |
*> |
*> |
*> If INFO .GT. 0 and WANTT is .TRUE., then on exit |
*> If INFO > 0 and WANTT is .TRUE., then on exit |
*> (*) (initial value of H)*U = U*(final value of H) |
*> (*) (initial value of H)*U = U*(final value of H) |
*> where U is an orthognal matrix. The final |
*> where U is an orthogonal matrix. The final |
*> value of H is upper Hessenberg and triangular in |
*> value of H is upper Hessenberg and triangular in |
*> rows and columns INFO+1 through IHI. |
*> rows and columns INFO+1 through IHI. |
*> |
*> |
*> If INFO .GT. 0 and WANTZ is .TRUE., then on exit |
*> If INFO > 0 and WANTZ is .TRUE., then on exit |
*> (final value of Z) = (initial value of Z)*U |
*> (final value of Z) = (initial value of Z)*U |
*> where U is the orthogonal matrix in (*) |
*> where U is the orthogonal matrix in (*) |
*> (regardless of the value of WANTT.) |
*> (regardless of the value of WANTT.) |