57
Rank Defined Formal Parameters
It is sufficient for
the compiler to know the ranks of the arrays, not their specific
dimensional values … rank-defined parameters
•Use
commas to imply the rank (r-1)
•Call
the procedure in the context of the proper region
procedure MM(n:integer, var
A,B,C :[ , ] double);
var i : integer;
begin
for k := 1 to n do
C += (>>[ ,k] A)*(>>[k, ]B);
end;
end;
Inherit regions … call is
[1..m,1..p] MM(n,E,F,G);