1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 | procedure main(argc, argv[])
shared thread_count := integer(argv[1])
shared greets as array of thread_count texts
for thread_number := 0 to thread_count do
create_thread(greet, thread_number) // thread team
end for
print "Hello from main thread"
for thread_number := 0 to thread_count do
print greets[thread_number]
end for
end procedure
procedure greet(thread_number)
greets[thread_number] := format("Hello from secondary thread", thread_number
, " of ", thread_count)
end procedure
|