102 lines
4.0 KiB
Fortran
102 lines
4.0 KiB
Fortran
|
|
! *** generated by SAPFOR with version 2415 and build date: May 4 2025 14:48:40
|
|
! *** Enabled options ***:
|
|
! *** maximum shadow width is 50 percent
|
|
! *** generated by SAPFOR
|
|
subroutine print_results_sp (name,class,n1,n2,n3,niter,t,mops,
|
|
& optype, verified, npbversion, compiletime, cs1, cs2, cs3, cs4, cs
|
|
&5, cs6, cs7)
|
|
implicit none
|
|
character :: name*(*)
|
|
character :: class*1
|
|
integer :: n1,n2,n3,niter,j
|
|
double precision :: t,mops
|
|
character :: optype*24,size*15
|
|
logical :: verified
|
|
character*(*) :: npbversion,compiletime,cs1,cs2,cs3,cs4,cs5,cs6,c
|
|
&s7
|
|
integer :: num_threads,max_threads,i
|
|
max_threads = 1
|
|
num_threads = 1
|
|
write (unit = *,fmt = 2) name
|
|
2 format(//, ' ', A, ' 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 = '(f15.0)') 2.d0** n1
|
|
j = 15
|
|
if (size(j:j) .eq. '.') j = j - 1
|
|
write (unit = *,fmt = 42) size(1:j)
|
|
42 format(' Size = ',9x, a15)
|
|
else
|
|
write (unit = *,fmt = 44) n1
|
|
44 format(' Size = ',12x, i12)
|
|
endif
|
|
else
|
|
write (unit = *,fmt = 4) n1,n2,n3
|
|
4 format(' Size = ',9x, i4,'x',i4,'x',i4)
|
|
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 = 7) num_threads
|
|
7 format(' Total threads = ', 12x, i12)
|
|
write (unit = *,fmt = 8) max_threads
|
|
8 format(' Avail threads = ', 12x, i12)
|
|
if (num_threads .ne. max_threads) write (unit = *,fmt = 88)
|
|
88 format(' Warning: Threads used differ from threads available')
|
|
write (unit = *,fmt = 9) mops
|
|
9 format(' Mop/s total = ',12x, f12.2)
|
|
write (unit = *,fmt = 10) mops / float (num_threads)
|
|
10 format(' Mop/s/thread = ', 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)
|
|
write (unit = *,fmt = 14) compiletime
|
|
14 format(' Compile date = ', 12x, a12)
|
|
write (unit = *,fmt = 121) cs1
|
|
121 format(/, ' Compile options:', /, ' F77 =
|
|
& ', A)
|
|
write (unit = *,fmt = 122) cs2
|
|
122 format(' FLINK = ', A)
|
|
write (unit = *,fmt = 123) cs3
|
|
123 format(' F_LIB = ', A)
|
|
write (unit = *,fmt = 124) cs4
|
|
124 format(' F_INC = ', A)
|
|
write (unit = *,fmt = 125) cs5
|
|
125 format(' FFLAGS = ', A)
|
|
write (unit = *,fmt = 126) cs6
|
|
126 format(' FLINKFLAGS = ', A)
|
|
write (unit = *,fmt = 127) cs7
|
|
127 format(' RAND = ', A)
|
|
write (unit = *,fmt = 130)
|
|
130 format(//' Please send all errors/feedbacks to:'// '
|
|
& NPB Development Team'/ ' npb@nas.nasa.gov'//)
|
|
|
|
! 130 format(//' Please send the results of this run to:'//
|
|
! > ' NPB Development Team '/
|
|
! > ' Internet: npb@nas.nasa.gov'/
|
|
! > ' '/
|
|
! > ' If email is not available, send this to:'//
|
|
! > ' MS T27A-1'/
|
|
! > ' NASA Ames Research Center'/
|
|
! > ' Moffett Field, CA 94035-1000'//
|
|
! > ' Fax: 650-604-3957'//)
|
|
return
|
|
end
|
|
|