|
|
◆ Zupgtr()
| Sub Zupgtr |
( |
Uplo As |
String, |
|
|
N As |
Long, |
|
|
Ap() As |
Complex, |
|
|
Tau() As |
Complex, |
|
|
Q() As |
Complex, |
|
|
Info As |
Long |
|
) |
| |
三重対角形への変換行列の生成 (エルミート行列) (圧縮形式)
- 目的
- 本ルーチンは Zhptrd が返す N - 1 個の基本鏡映の積により定義される N 次ユニタリ行列 Q を生成する.
Uplo = "U" の場合, Q = H(N-1) . . . H(2) H(1).
Uplo = "L" の場合, Q = H(1) H(2) . . . H(N-1).
- 引数
-
| [in] | Uplo | = "U": 圧縮形式の上三角部分が Zhptrd の前回呼び出しで使われた.
= "L": 圧縮形式の下三角部分が Zhptrd の前回呼び出しで使われた. |
| [in] | N | 行列 Q の行および列数. (N >= 0) (N = 0 の場合, 処理を行わずに戻る) |
| [in] | Ap() | 配列 Ap(LAp - 1) (LAp >= N(N + 1)/2)
Zhptrd が返す基本鏡映を定義するベクトル.
|
| [in] | Tau() | 配列 Tau(LTau - 1) (LTau >= N - 1)
Tau(i) は Zhptrd により返された基本鏡映 H(i) のスカラー係数でなければならない. |
| [out] | Q() | 配列 Q(LQ1 - 1, LQ2 - 1) (LQ1 >= N, LQ2 >= N)
n x n ユニタリ行列 Q. |
| [out] | Info | = 0: 正常終了.
= -1: パラメータ Uplo の誤り (Uplo != "U" および "L")
= -2: パラメータ N の誤り (N < 0)
= -3: パラメータ Ap() の誤り.
= -4: パラメータ Tau() の誤り.
= -5: パラメータ Q() の誤り. |
- 出典
- LAPACK
|