Skip to content

Commit

Permalink
Break line for improved readability.
Browse files Browse the repository at this point in the history
  • Loading branch information
gha3mi committed Sep 30, 2023
1 parent 0176efa commit c226213
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion src/formatmul_benchmark.f90
Original file line number Diff line number Diff line change
Expand Up @@ -67,7 +67,8 @@ subroutine write_benchmark(method,m,n,o,nloops,t,elapsed_time_average,gflops,gfl
integer :: nunit
real(rk) :: gflops[*]
open (newunit = nunit, file = filename, access = 'append')
write(nunit,'(a," ",g0," ",g0," ",g0," ",g0," ",g0," ",g0," ",g0," ",g0)') method, m,n,o,nloops, t[this_image()]%elapsed_time, gflops[this_image()], elapsed_time_average, gflops_total
write(nunit,'(a," ",g0," ",g0," ",g0," ",g0," ",g0," ",g0," ",g0," ",g0)') &
method, m,n,o,nloops, t[this_image()]%elapsed_time, gflops[this_image()], elapsed_time_average, gflops_total
close(nunit)
end subroutine write_benchmark

Expand Down

0 comments on commit c226213

Please sign in to comment.