mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-02 03:15:29 +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
|