initial

print_result_bt.for

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