Skip to content

hybrid_hello.f

 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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
C  Fortran 77

      PROGRAM HELLO

C     Serial Region  (master thread of an MPI rank)
C     MPI Parameters
      INCLUDE 'mpif.h'
      INTEGER RANK, SIZE, IERROR, LEN
      CHARACTER*30 NAME

C     OpenMP Parameters
      integer ID, NTHREADS
      INTEGER OMP_GET_THREAD_NUM, OMP_GET_NUM_THREADS

C     All ranks initiate the message-passing environment.
C     Each rank obtains information about itself and its environment.
C     Start MPI.
      CALL MPI_INIT(IERROR)
C     Get number of ranks.
      CALL MPI_COMM_SIZE(MPI_COMM_WORLD, SIZE, IERROR)
C     Get rank.
      CALL MPI_COMM_RANK(MPI_COMM_WORLD, RANK, IERROR)
C     Get run-host name.
      CALL MPI_GET_PROCESSOR_NAME(NAME,LEN,IERROR)

C     Master thread obtains information about itself and its environment.
C     Get number of threads.
      NTHREADS = OMP_GET_NUM_THREADS()
C     Get thread.
      ID = OMP_GET_THREAD_NUM()
      PRINT *, 'SERIAL REGION:     Runhost:', NAME, '   Rank:', RANK,
     &         ' of ', SIZE, 'ranks, Thread:', ID, ' of ', NTHREADS,
     &         ' thread    hello, world'

C     Open parallel region.
C     Each thread obtains information about itself and its environment.
C$OMP PARALLEL PRIVATE(NAME,ID,NTHREADS)
      CALL MPI_COMM_SIZE(MPI_COMM_WORLD, SIZE, IERROR)
      CALL MPI_COMM_RANK(MPI_COMM_WORLD, RANK, IERROR)
      CALL MPI_GET_PROCESSOR_NAME(NAME,LEN,IERROR)
      NTHREADS = OMP_GET_NUM_THREADS()
      ID = OMP_GET_THREAD_NUM()
C$OMP CRITICAL
      PRINT *, 'PARALLEL REGION:   Runhost:', NAME, '   Rank:', RANK,
     &         ' of ', SIZE, 'ranks, Thread:', ID, ' of ', NTHREADS,
     &         ' threads   hello, world'
C$OMP END CRITICAL
C$OMP END PARALLEL
C     Close parallel region.

C     Serial Region  (master thread)
      PRINT *, 'SERIAL REGION:     Runhost:', NAME, '   Rank:', RANK,
     &         ' of ', SIZE, 'ranks, Thread:', ID, ' of ', NTHREADS,
     &         ' thread    hello, world'

C     Exit master thread.
C     Terminate MPI.
      CALL MPI_FINALIZE(IERROR)
      END

Back to the Compiling Hybrid Programs section