1 -- Copyright (c) 2011, 2014. The SimGrid Team.
2 -- All rights reserved.
4 -- This program is free software; you can redistribute it and/or modify it
5 -- under the terms of the license (GNU LGPL) which comes with this package.
9 simgrid.info("Hello From Receiver")
10 local sender = simgrid.host.get_by_name(arg[1])
11 local send_alias = arg[2]
12 local recv_alias = "Receiver"
13 simgrid.info("Receiving Task from " .. simgrid.host.name(sender))
14 local task = simgrid.task.recv(recv_alias)
15 local mm = mmult(task['size'], task['size'], task['matrix_1'], task['matrix_2'])
16 --mprint(task['size'], task['size'], mm)
17 task['matrix_res'] = mm
18 simgrid.info("Calcul is done ... Bye")
21 local n = tonumber((arg and arg[1]) or 1)
22 function mkmatrix(rows, cols)
25 for i = 0, (rows - 1) do
27 for j = 0, (cols - 1) do
36 function mmult(rows, cols, m1, m2)
38 for i = 0, (rows - 1) do
40 for j = 0, (cols - 1) do
42 for k = 0, (cols - 1) do
43 rowj = rowj + m1[i][k] * m2[k][j]
51 function mprint(rows, cols, m)
52 for i = 0, (cols - 1) do
53 for j = 0, (rows - 1 )do