projects
/
unres.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
da89ebec26ab994f6ad7db7b13b12241af9fb2cc
[unres.git]
/
helloworld.f90
1
subroutine sayhello(comm)
2
use mpi
3
implicit none
4
integer :: comm, rank, size, ierr
5
call MPI_Comm_size(comm, size, ierr)
6
call MPI_Comm_rank(comm, rank, ierr)
7
print *, 'Hello, World! I am process ',rank,' of ',size,'.'
8
end subroutine sayhello