var a,b: TOpenCLVector; ac: TDoubleArray; prod: double; begin CreateIt(a,b,c); try a.CopyFromAray(TDoubleArray.Create(1,2,3,4)); b.CopyFromAray(TDoubleArray.Create(5,6,7,8)); c.Size(3); c.DotProd(0, a,b); // c[0] = 1*5 + 2*6 + * 3*7 + 4*8 c.DotProd(1, a,b); // c[1] = 1*5 + 2*6 + * 3*7 + 4*8 c.DotProd(2, a,b); // c[2] = 1*5 + 2*6 + * 3*7 + 4*8 c.CopyToArray(ac); //ac = [70, 70, 70] finally FreeIt(a,b,c); end; end;