4 package body Array29
is
6 procedure Copy
(Src
: in Matrix
; Dst
: out Matrix
) is
8 for I
in Src
'Range (1) loop
9 for J
in Src
'Range (2) loop
10 Dst
(I
, J
) := Src
(I
, J
);
17 FM1
: constant Matrix
(1 .. N
, 1 .. N
) := ((1.0, 2.0), (3.0, 4.0));
18 FM2
: constant Matrix
(1 .. N
, 1 .. N
) := ((1.0, 2.0), (3.0, 4.0));
19 A
: constant array (1 .. 2) of Matrix
(1 .. N
, 1 .. N
)
20 := (Matrix
(FM1
), Matrix
(FM2
));
21 Final
: Matrix
(1 .. N
, 1 .. N
);
23 Copy
(Src
=> A
(1), Dst
=> Final
);