|
0
|
1 C******************************************************************************
|
|
|
2 C FILE: omp_hello.f
|
|
|
3 C DESCRIPTION:
|
|
|
4 C OpenMP Example - Hello World - Fortran Version
|
|
|
5 C In this simple example, the master thread forks a parallel region.
|
|
|
6 C All threads in the team obtain their unique thread number and print it.
|
|
|
7 C The master thread only prints the total number of threads. Two OpenMP
|
|
|
8 C library routines are used to obtain the number of threads and each
|
|
|
9 C thread's number.
|
|
|
10 C AUTHOR: Blaise Barney 5/99
|
|
|
11 C LAST REVISED:
|
|
|
12 C******************************************************************************
|
|
|
13
|
|
|
14 PROGRAM HELLO
|
|
|
15
|
|
|
16 INTEGER NTHREADS, TID, OMP_GET_NUM_THREADS,
|
|
|
17 + OMP_GET_THREAD_NUM
|
|
|
18
|
|
|
19 C Fork a team of threads giving them their own copies of variables
|
|
|
20 !$OMP PARALLEL PRIVATE(NTHREADS, TID)
|
|
|
21
|
|
|
22
|
|
|
23 C Obtain thread number
|
|
|
24 TID = OMP_GET_THREAD_NUM()
|
|
|
25 PRINT *, 'Hello World from thread = ', TID
|
|
|
26
|
|
|
27 C Only master thread does this
|
|
|
28 IF (TID .EQ. 0) THEN
|
|
|
29 NTHREADS = OMP_GET_NUM_THREADS()
|
|
|
30 PRINT *, 'Number of threads = ', NTHREADS
|
|
|
31 END IF
|
|
|
32
|
|
|
33 C All threads join master thread and disband
|
|
|
34 !$OMP END PARALLEL
|
|
|
35
|
|
|
36 END
|
