mirror of
https://github.com/ivabus/pantry
synced 2024-09-20 08:40:50 +03:00
9 lines
283 B
Fortran
9 lines
283 B
Fortran
|
program hello
|
||
|
|
include 'mpif.h'
|
||
|
|
integer rank, size, ierror, tag, status(MPI_STATUS_SIZE)
|
||
|
|
call MPI_INIT(ierror)
|
||
|
|
call MPI_COMM_SIZE(MPI_COMM_WORLD, size, ierror)
|
||
|
|
call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierror)
|
||
|
|
print*, 'node', rank, ': Hello Fortran world'
|
||
|
|
call MPI_FINALIZE(ierror)
|
||
|
|
end
|