XLPack 6.1
Excel VBA 数値計算ライブラリ・リファレンスマニュアル
読み取り中…
検索中…
一致する文字列を見つけられません

◆ 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