56
A Procedure for Matrix Multiplication
•procedure MM (n: integer,
•          var A:[1..m,1..n] double,
•          var B:[1..n,1..p] double,
•          var C:[1..m,1..p] double);
•var i : integer;
•[1..m,1..p]  begin
•                for k := 1 to n do
•                    C += (>>[ ,k] A)*(>>[k, ]B);
•                end;
•             end;
•
•MM(n, E, F, G);
•
Explicit values in the parameter list force specific global variables to be used