program testmpi
include 'mpif.h'
integer :: num_proc, ierr, my_rank
integer i=0
integer j=0
call MPI_INIT(ierr)
call MPI_COMM_SIZE(MPI_COMM_WORLD, num_proc, ierr)
call MPI_COMM_RANK(MPI_COMM_WORLD, my_rank, ierr)
write(*,*) 'hello from CPU', my_rank,'of',num_proc,'CPUs'
do 10 j=10
do 20 i=1,10
print *, i
j=i
20 continue
10 continue
end
call MPI_Finalize(Ierr)
end program