|
|
◆ Drot()
| Sub Drot |
( |
N As |
Long, |
|
|
X_I As |
Double, |
|
|
Y_I As |
Double, |
|
|
C As |
Double, |
|
|
S As |
Double, |
|
|
Optional IncX As |
Long = 1, |
|
|
Optional IncY As |
Long = 1 |
|
) |
| |
ギブンス変換を適用する (BLAS 1)
- 目的
- 本ルーチンはDrotgで求めたギブンス変換を適用する.
- 引数
-
| [in] | N | ベクトル x および y の要素数 (N <= 0 の場合, 処理を行わずに戻る) |
| [in,out] | X_I | 配列X()の一要素X(I).
[in] ここを先頭にベクトルxを要素間隔IncXで格納する.
[out] ここを先頭に変換後のベクトル x が要素間隔IncXで格納される. 変換後のx(i) = c*x(i) + s*y(i) (i = 1 〜 N) |
| [in,out] | Y_I | 配列Y()の一要素Y(I).
[in] ここを先頭にベクトルyを要素間隔IncYで格納する.
[out] ここを先頭に変換後のベクトル y が要素間隔IncYで格納される. 変換後のy(i) = -s*x(i) + c*y(i) (i = 1 〜 N) |
| [in] | C | c (cos) の値. |
| [in] | S | s (sin) の値. |
| [in] | IncX | (省略可)
配列X()内におけるベクトル x の要素間隔. (省略時 = 1) |
| [in] | IncY | (省略可)
配列Y()内におけるベクトル y の要素間隔. (省略時 = 1) |
- 出典
- BLAS
|
1.9.7