MPI hello world 예제(Fortran언어)

나의일 관련/Linux

천연사이다 2017. 10. 27. 16:12

시스템 상태 체크 시 사용하는 MPI 코드

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