'!TITLE "ProTranspose.pcs"

Sub Main 
	Dim caoCtrl as Object
	Dim M(20) as Object
	Dim vntRet as Variant

	caoCtrl = cao.AddController("eigen", "caoProv.Eigen.Eigen3", "", "")
	M(1) = caoCtrl.AddVariable("ID=1", "3,2")
	M(4) = caoCtrl.AddVariable("ID=4", "2,3")


	' 初期値代入
	M(1).Value = Array(1,1,1, -1,0,1)

	vntRet = M(1).Value
	PrintDbg vntRet(0) & ", " & vntRet(1)
	PrintDbg vntRet(2) & ", " & vntRet(3)
	PrintDbg vntRet(4) & ", " & vntRet(5)

	' M1の行列式を転置してM4に入れる
	caoctrl.Transpose M(1).ID, M(4).ID
	
	vntRet = M(4).Value
	PrintDbg vntRet(0) & ", " & vntRet(1) & ", " & vntRet(2)
	PrintDbg vntRet(3) & ", " & vntRet(4) & ", " & vntRet(5) 
	

End Sub