xnpster/spbt
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

initial

Browse Source
This commit is contained in:
Mikhail Kocharmin
2025-05-06 22:04:43 +03:00
commit 784a8f2ec7
29 changed files with 5922 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

101
print_result_sp.for Normal file
View File

@@ -0,0 +1,101 @@
! *** 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