Commit 1835d62c authored by Adam Ralph's avatar Adam Ralph
Browse files

Replace pingpong.f90

parent 74358bd8
......@@ -22,26 +22,9 @@ program pingpong
! We take a command line argument to decide the number of loops to do
if (COMMAND_ARGUMENT_COUNT() /=1) then
write(*,'(a)')"Wrong usage!!!"
write(*,'(a)')"Correct usage: "
CALL get_command_argument(0, arg)
write(*,'(a)')trim(arg)//" <NRepetitions>"
write(*,'(a)')trim(arg)//" 1000"
call MPI_abort(MPI_COMM_WORLD, 10, ierror)
endif
CALL get_command_argument(1, arg)
read(arg,*) N
write(*,'(a)',advance='no')"Running... "
do i=0,COMMAND_ARGUMENT_COUNT()
CALL get_command_argument(i, arg)
write(*,'(a,1x)',advance="no") trim(arg)
enddo
write(*,*)
N = 1000
! Initialise the message to 10
msg = 10
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment