File: helloworld.f90

package info (click to toggle)
mpi4py 4.0.3-4
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 4,196 kB
  • sloc: python: 32,170; ansic: 13,449; makefile: 602; sh: 314; f90: 178; cpp: 148
file content (23 lines) | stat: -rw-r--r-- 535 bytes parent folder | download | duplicates (11)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program main

  use mpi
  implicit none

  integer :: provided,  ierr, size, rank, len
  character (len=MPI_MAX_PROCESSOR_NAME) :: name

  call MPI_Init_thread(MPI_THREAD_MULTIPLE, provided, ierr)

  call MPI_Comm_rank(MPI_COMM_WORLD, rank, ierr)
  call MPI_Comm_size(MPI_COMM_WORLD, size, ierr)
  call MPI_Get_processor_name(name, len, ierr)

  write(*, '(2A,I2,A,I2,3A)') &
       'Hello, World! ', &
       'I am process ', rank, &
       ' of ', size, &
       ' on ', name(1:len), '.'

  call MPI_Finalize(ierr)

end program main