var a,b,c: TOpenCLVector; begin CreateIt(a,b,c); try a.CopyFromArray(TSingleArray.Create(0,1,10,-1,-10)); // a = [0, 1, 10, -1, -10]; b.CopyFromArray(TSingleArray.Create(0,1,PI,-1,-PI)); // b = [0, 1, PI, -1, -PI]; c.Rem(a,b); // c = [0, 0, 0.5752, 0, -0.5752] finally FreeIt(a,b,c); end; end;