2 subroutine print_results(name, class, n1, n2, n3, niter,
3 > nprocs_compiled, nprocs_total,
4 > t, mops, optype, verified, npbversion,
5 > compiletime, cs1, cs2, cs3, cs4, cs5, cs6, cs7)
10 integer n1, n2, n3, niter, nprocs_compiled, nprocs_total, j
11 double precision t, mops
12 character optype*24, size*15
14 character*(*) npbversion, compiletime,
15 > cs1, cs2, cs3, cs4, cs5, cs6, cs7
18 2 format(//, ' ', A2, ' Benchmark Completed.')
21 3 format(' Class = ', 12x, a12)
23 c If this is not a grid-based problem (EP, FT, CG), then
24 c we only print n1, which contains some measure of the
25 c problem size. In that case, n2 and n3 are both zero.
26 c Otherwise, we print the grid size n1xn2xn3
28 if ((n2 .eq. 0) .and. (n3 .eq. 0)) then
29 if (name(1:2) .eq. 'EP') then
30 write(size, '(f15.0)' ) 2.d0**n1
32 if (size(j:j) .eq. '.') j = j - 1
33 write (*,42) size(1:j)
34 42 format(' Size = ',9x, a15)
37 44 format(' Size = ',12x, i12)
41 4 format(' Size = ',9x, i4,'x',i4,'x',i4)
45 5 format(' Iterations = ', 12x, i12)
48 6 format(' Time in seconds = ',12x, f12.2)
50 write (*,7) nprocs_total
51 7 format(' Total processes = ', 12x, i12)
53 write (*,8) nprocs_compiled
54 8 format(' Compiled procs = ', 12x, i12)
57 9 format(' Mop/s total = ',12x, f12.2)
59 write (*,10) mops/float( nprocs_total )
60 10 format(' Mop/s/process = ', 12x, f12.2)
63 11 format(' Operation type = ', a24)
66 write(*,12) ' SUCCESSFUL'
68 write(*,12) 'UNSUCCESSFUL'
70 12 format(' Verification = ', 12x, a)
72 write(*,13) npbversion
73 13 format(' Version = ', 12x, a12)
75 write(*,14) compiletime
76 14 format(' Compile date = ', 12x, a12)
80 121 format(/, ' Compile options:', /,
84 122 format(' FLINK = ', A)
87 123 format(' FMPI_LIB = ', A)
90 124 format(' FMPI_INC = ', A)
93 125 format(' FFLAGS = ', A)
96 126 format(' FLINKFLAGS = ', A)
99 127 format(' RAND = ', A)
102 130 format(//' Please send the results of this run to:'//
103 > ' NPB Development Team '/
104 > ' Internet: npb@nas.nasa.gov'/
106 > ' If email is not available, send this to:'//
108 > ' NASA Ames Research Center'/
109 > ' Moffett Field, CA 94035-1000'//
110 > ' Fax: 650-604-3957'//)