D1b. 行列基本演算 BLAS3 (複素数)

関数
Sub	Zgemm (Transa As String, Transb As String, M As Long, N As Long, K As Long, Alpha As Complex, A() As Complex, B() As Complex, Beta As Complex, C() As Complex, Optional Info As Long)
	C <- αOp(A)Op(B) + βC (Op(X) = X, XT または XH) (複素行列) (BLAS 3)
Sub	Zhemm (Side As String, Uplo As String, M As Long, N As Long, Alpha As Complex, A() As Complex, B() As Complex, Beta As Complex, C() As Complex, Optional Info As Long)
	C <- αAB + βC または C <- αBA + βC (エルミート行列) (BLAS 3)
Sub	Zher2k (Uplo As String, Trans As String, N As Long, K As Long, Alpha As Complex, A() As Complex, B() As Complex, Beta As Double, C() As Complex, Optional Info As Long)
	Rank 2k 操作: C <- αABH + conjg(α)BAH + βC または C <- αAHB + conjg(α)BHA + βC (エルミート行列) (BLAS 3)
Sub	Zsymm (Side As String, Uplo As String, M As Long, N As Long, Alpha As Complex, A() As Complex, B() As Complex, Beta As Complex, C() As Complex, Optional Info As Long)
	C <- αAB + βC または C <- αBA + βC (複素対称行列) (BLAS 3)
Sub	Zsyr2k (Uplo As String, Trans As String, N As Long, K As Long, Alpha As Complex, A() As Complex, B() As Complex, Beta As Complex, C() As Complex, Optional Info As Long)
	Rank 2k 操作: C <- αABT + αBAT + βC または C <- αATB + αBTA + βC (複素対称行列) (BLAS 3)
Sub	Zherk (Uplo As String, Trans As String, N As Long, K As Long, Alpha As Double, A() As Complex, Beta As Double, C() As Complex, Optional Info As Long)
	Rank k 操作: C <- αAAH + βC または C <- αAHA + βC (エルミート行列) (BLAS 3)
Sub	Ztrmm (Side As String, Uplo As String, Transa As String, Diag As String, M As Long, N As Long, Alpha As Complex, A() As Complex, B() As Complex, Optional Info As Long)
	B <- αOp(A)B または B <- αBop(A) (Op(A) = A, AT または AH) (複素三角行列) (BLAS 3)
Sub	Ztrsm (Side As String, Uplo As String, Transa As String, Diag As String, M As Long, N As Long, Alpha As Complex, A() As Complex, B() As Complex, Optional Info As Long)
	Op(A)X = αB または XOp(A) = αB の解 (Op(A) = A, AT または AH) (複素三角行列) (BLAS 3)

詳解

D1b. 行列基本演算 BLAS3 (複素数) プログラムを表示しています.