mirror of
https://github.com/LCPQ/quantum_package
synced 2024-10-02 14:30:59 +02:00
13 lines
229 B
Fortran
13 lines
229 B
Fortran
program MPI
|
|
implicit none
|
|
BEGIN_DOC
|
|
! MPI test program
|
|
END_DOC
|
|
print *, 'hello world'
|
|
print *, 'rank, size, master = ', mpi_rank, mpi_size, mpi_master
|
|
|
|
integer :: ierr
|
|
call MPI_FINALIZE(ierr)
|
|
print *, ierr
|
|
end
|