summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
9575359)
That'll ensure in order output.
& rank, ']',' Energy consumed (Joules): ', e
end do
& rank, ']',' Energy consumed (Joules): ', e
end do
call MPI_Finalize(ierr)
if (ierr .ne. MPI_SUCCESS) then
print *, 'MPI_Finalize failed:', ierr
call MPI_Finalize(ierr)
if (ierr .ne. MPI_SUCCESS) then
print *, 'MPI_Finalize failed:', ierr
rank, '] Energy consumed (Joules): ', e
end do
rank, '] Energy consumed (Joules): ', e
end do
call MPI_Finalize(ierr)
if (ierr .ne. MPI_SUCCESS) then
print *, 'MPI_Finalize failed:', ierr
call MPI_Finalize(ierr)
if (ierr .ne. MPI_SUCCESS) then
print *, 'MPI_Finalize failed:', ierr