64 lines
2.3 KiB
Fortran
64 lines
2.3 KiB
Fortran
|
|
! *** generated by SAPFOR with version 2412 and build date: Apr 29 2025 22:44:14
|
|
! *** Enabled options ***:
|
|
! *** maximum shadow width is 50 percent
|
|
! *** generated by SAPFOR
|
|
subroutine print_results_bt (name,class,n1,n2,n3,niter,t,mops,
|
|
& optype, verified, npbversion)
|
|
|
|
! , compiletime, cs1, cs2, cs3, cs4, cs5, cs6, cs7)
|
|
implicit none
|
|
character*2 :: name
|
|
character*1 :: class
|
|
integer :: n1,n2,n3,niter,j
|
|
double precision :: t,mops
|
|
character :: optype*24,size*13
|
|
logical :: verified
|
|
character*(*) :: npbversion
|
|
|
|
! , compiletime,cs1, cs2, cs3, cs4, cs5, cs6, cs7
|
|
write (unit = *,fmt = 2) name
|
|
2 format(//, ' ', A2, ' Benchmark Completed.')
|
|
write (unit = *,fmt = 3) class
|
|
3 format(' Class = ', 12x, a12)
|
|
|
|
! If this is not a grid-based problem (EP, FT, CG), then
|
|
! we only print n1, which contains some measure of the
|
|
! problem size. In that case, n2 and n3 are both zero.
|
|
! Otherwise, we print the grid size n1xn2xn3
|
|
if (n2 .eq. 0 .and. n3 .eq. 0) then
|
|
if (name(1:2) .eq. 'EP') then
|
|
write (unit = size,fmt = '(f12.0)') 2.d0** n1
|
|
do j = 13,1,(-(1))
|
|
if (size(j:j) .eq. '.') size(j:j) = ' '
|
|
enddo
|
|
write (unit = *,fmt = 42) size
|
|
42 format(' Size = ',12x, a14)
|
|
else
|
|
write (unit = *,fmt = 44) n1
|
|
44 format(' Size = ',12x, i12)
|
|
endif
|
|
else
|
|
write (unit = *,fmt = 4) n1,n2,n3
|
|
4 format(' Size = ',12x, i3,'x',i3,'x',i3)
|
|
endif
|
|
write (unit = *,fmt = 5) niter
|
|
5 format(' Iterations = ', 12x, i12)
|
|
write (unit = *,fmt = 6) t
|
|
6 format(' Time in seconds = ',12x, f12.2)
|
|
write (unit = *,fmt = 9) mops
|
|
9 format(' Mop/s total = ',12x, f12.2)
|
|
write (unit = *,fmt = 11) optype
|
|
11 format(' Operation type = ', a24)
|
|
if (verified) then
|
|
write (unit = *,fmt = 12) ' SUCCESSFUL'
|
|
else
|
|
write (unit = *,fmt = 12) 'UNSUCCESSFUL'
|
|
endif
|
|
12 format(' Verification = ', 12x, a)
|
|
write (unit = *,fmt = 13) npbversion
|
|
13 format(' Version = ', 12x, a12)
|
|
return
|
|
end
|
|
|