Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.fortran/omp_hello.f @ 0:a06113de4d67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:a06113de4d67
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