Skip to content

test: add a test case with call to MPI_Wtime #25

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 2 commits into from
Mar 21, 2025
Merged

test: add a test case with call to MPI_Wtime #25

Changes from 1 commit
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
f14b0e5
test: add a test case with call to MPI_Wtime
gxyd Mar 19, 2025
8cefb16
remove mpi_wrapper.c function for MPI_Wtime function
gxyd Mar 21, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
31 changes: 31 additions & 0 deletions tests/wtime_1.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,31 @@
program wtime_1
use, intrinsic:: iso_fortran_env, only: dp=>real64
use mpi
implicit none
integer :: id, Nproc, ierr
real(dp) :: wtime

!> Initialize MPI.
call MPI_Init(ierr)

!> Get the number of processes.
call MPI_Comm_size(MPI_COMM_WORLD, Nproc, ierr)

!> Get the individual process ID.
call MPI_Comm_rank(MPI_COMM_WORLD, id, ierr)

!> Print a message.
if (id == 0) then
wtime = MPI_Wtime()
print *, 'number of processes: ', Nproc
end if

if (id == 0) then
wtime = MPI_Wtime() - wtime
print *, 'Elapsed wall clock time = ', wtime, ' seconds.'
end if

!> Shut down MPI.
call MPI_Finalize(ierr)

end program