blob: 04af78d418f5774f3164ee14d0f5bc04acedffea (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
function MPIHelloWorld()
////////////
// PARALLEL / initialization, include MPI_Init time in measurement
////////////
MPI_Init(); // should have lambooted first
rnk = MPI_Comm_rank(); // let it abort if it fails
sizeNodes = MPI_Comm_size();
SLV = rnk; // handy shortcuts, master is rank 0
Master = ~ SLV; // slaves are all other
if Master
disp("We have "+string(sizeNodes) + " processors")
for slaveId = 1:sizeNodes-1
MPI_Send("== FROM Master == MPI_Send",slaveId)
end
for slaveId = 1:sizeNodes-1
tag=0
valueBack=MPI_Recv(slaveId, tag)
disp("<=> VALUE BACK <=> "+valueBack+ " from " +string(slaveId))
end
else
// slave
disp("Processor "+string(rnk))
rankSource=0
tag=0
value=MPI_Recv(rankSource, tag)
value="(Modified by the slave) "+value
MPI_Send(value,0)
end
MPI_Finalize()
endfunction
|
