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