1
2
3
4
5
6
7
8
9
10
11
12
procedure main(argc, argv[])
shared const thread_count = integer(argv[1])
print "Hello from main thread of process ", process_number, " of " \
, process_count," on ", process_hostname
parallel do
print "\tHello from thread ", thread_number, " of ", thread_count, \
" of process ", process_number, " of ", process_count," on " \
, process_hostname
end parallel
end procedure