resource onedotfour()
const n:=200
var a[n,n],b[n,n],c[n,n]:real
var i,j,k:int

fa i:=1 to n,j:=1 to n ->
  a[i,j]:=i+j
  b[i,j]:=2*i+j
af

fa i:=1 to n,j:=1 to n ->
  c[i,j]:=0.0
  fa k:=1 to n ->
    c[i,j]+:=a[i,k]*b[k,j]
  af
af

procedure loop1(i:int)
var j,k:int
fa j:=1 to n ->
  c[i,j]:=0.0
  fa k:=1 to n ->
    c[i,j]+:=a[i,k]*b[k,j]
  af
af
end

co (i:=1 to n) loop1(i) oc

procedure loop2(j:int)
var i,k:int
fa i:=1 to n ->
  c[i,j]:=0.0
  fa k:=1 to n ->
    c[i,j]+:=a[i,k]*b[k,j]
  af
af
end

co (j:=1 to n) loop2(j) oc

procedure loop3(i,j:int)
var k:int
c[i,j]:=0.0
fa k:=1 to n ->
  c[i,j]+:=a[i,k]*b[k,j]
af
end

co (i:=1 to n,j:=1 to n) loop3(i,j) oc

end onedotfour