var b, c: clVector; bv: TSingleArray; begin b := clVector(TDoubleArray.Create(1,1,1,1)); b = [1,1,1,1]; b.Scale(2); c := b*2 + Cplx(2,3); c := b*2 + 2 + 3i b.Add(c); b.CopyToArray(bv); //copy data back to host from GPU end;