1 program mym0;
2 uses mtx09;
3 var
4 x:array[1..6] of double = (1.0,2.0,3.0,4.0,5.0,6.0);
5 _x:mtx; // possible convention to identify static memory mapped mtx
6 begin
7 mym(_x,x[1],3,2); // _x cannot get bigger than 6 elements
8 mwr(_x); // but it can be smaller;
9 equ(_x,'10 20'); // _x behaves as any plain (dynamic) mtx;
10 mwr(_x); // now row vector size 2
11 x[2] := x[1] + x[2]/3; // x and _x access to the same data
12 mwr(_x) //
13 end.
14 {
15 1 2
16 3 4
17 5 6
18
19 10 20
20
21 10 16.6667
22
23 }