blob: 07fa3d2e27a74e4ad01f373a9581b5dd8780d979 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
type
TFloat80Array = array [0..1000000] of Extended;
procedure AddFloat80Proc(var Vector1; const Vector2; Count: Integer);
var
I: Integer;
begin
for I:=0 to Count - 1 do
TFloat80Array(Vector1)[I]:=TFloat80Array(Vector1)[I] + TFloat80Array(Vector2)[I];
end;
begin
end.
|