cory-master/BabelStream
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add Read and Init timings for Fortran (not csv)

Browse Source
This commit is contained in:
Tom Deakin 2023-10-09 11:16:14 +01:00
parent 165db1749c
commit f3aaca06dd
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/fortran/main.F90
View File

@ -496,6 +496,7 @@ program BabelStream
real(kind=REAL64), allocatable :: timings(:,:) real(kind=REAL64), allocatable :: timings(:,:)
real(kind=REAL64), allocatable :: h_A(:), h_B(:), h_C(:) real(kind=REAL64), allocatable :: h_A(:), h_B(:), h_C(:)
real(kind=REAL64) :: summ real(kind=REAL64) :: summ
real(kind=REAL64) :: init_tic, init_toc, read_tic, read_toc
call parseArguments() call parseArguments()
@ -541,9 +542,17 @@ program BabelStream
call alloc(array_size) call alloc(array_size)
init_tic = get_wtime()
call init_arrays(startA, startB, startC) call init_arrays(startA, startB, startC)
init_toc = get_wtime()
summ = 0.0d0 summ = 0.0d0
if (.not.csv) then
write(*,'(a6,f9.1,a4,f9.1,a3,a9)') 'Init: ',init_toc-init_tic, 's (=', &
(3.0d0 * element_size * array_size * scaling) / (init_toc-init_tic), TRIM(label), 'ytes/sec)'
end if
timings = -1.0d0 timings = -1.0d0
if (selection.eq.1) then if (selection.eq.1) then
call run_all(timings, summ) call run_all(timings, summ)
@ -559,7 +568,15 @@ program BabelStream
stop 1 stop 1
endif endif
read_tic = get_wtime()
call read_arrays(h_A, h_B, h_C) call read_arrays(h_A, h_B, h_C)
read_toc = get_wtime()
if (.not.csv) then
write(*,'(a6,f9.1,a4,f9.1,a3,a9)') 'Read: ',read_toc-read_tic, 's (=', &
(3.0d0 * element_size * array_size * scaling) / (read_toc-read_tic), TRIM(label), 'ytes/sec)'
end if
call check_solution(h_A, h_B, h_C, summ) call check_solution(h_A, h_B, h_C, summ)
block block