! *** 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