(re-send) Stream submission: Alpha PC164SX

From: John Henning, dtn 264-0378 06-Jan-1998 1159 -0500 (henning@tle.ENET.dec.com)
Date: Tue Jan 06 1998 - 11:04:14 CST


From: TLE::HENNING "John Henning, dtn 264-0378 18-Dec-1997 1343 -0500" 18-DEC-1997 13:47:09.76
To: US1RMC::"mccalpin@sgi.com"
CC: ME
Subj: Stream submission: Alpha PC164SX

Hi John,

Here's a STREAM run for the Alpha PC164SX

Hope your son still likes trains (so you have an excuse to buy them for
Christmas!)

        /john

C:\mccalpin\play>f77 -tune:ev5 -optimize:5 -fast tmp2.f
DIGITAL Visual Fortran Optimizing Compiler Version: V5.0
Copyright (c) 1997 Digital Equipment Corp. All rights reserved.

tmp2.f
Microsoft (R) 32-Bit Executable Linker Version 5.01.7076
Copyright (C) Microsoft Corp 1992-1997. All rights reserved.

/subsystem:console
/entry:mainCRTStartup
/ignore:505
/debugtype:cv
/debug:minimal
/pdb:none
C:\TEMP\obj21.tmp
dfor.lib
libc.lib
dfconsol.lib
kernel32.lib
/out:tmp2.exe

C:\mccalpin\play>tmp2
--------------------------------------
 Double precision appears to have 16 digits of accuracy
 Assuming 8 bytes per DOUBLEPRECISION word
--------------------------------------
 Timing calibration ; time = 29.6875000000000 hundredths of a second
 Increase the size of the arrays if this is <30
  and your clock precision is =<1/100 second
 ---------------------------------------------------
Function Rate (MB/s) RMS time Min time Max time
Assignment: 273.0671 0.1242 0.1172 0.1250
Scaling : 256.0004 0.1266 0.1250 0.1328
Summing : 292.5719 0.1719 0.1641 0.1797
SAXPYing : 292.5719 0.1719 0.1641 0.1797
 Sum of a is : 1.153302511199256E+018
 Sum of b is : 2.306605022415484E+017
 Sum of c is : 3.075473363245637E+017

So what is tmp2.f? It is a slight tweak to stream_d.f :

ftp> cd [.sources_from_ftp_25aug95]
250 CWD command succesful.
ftp> get stream_d.f
200 PORT command successful.
150 Opening data connection for stream_d.f (16.31.80.231,1296)
226 Transfer complete.
7509 bytes received in 0.09 seconds (88.34 Kbytes/sec)
ftp> bye
221 Goodbye.

C:\mccalpin\play>fc stream_d.f tmp2.f
Comparing files stream_d.f and TMP2.F
***** stream_d.f
      INTEGER n,ntimes
      PARAMETER (n=2 000 000,ntimes=10)
C ..
***** TMP2.F
      INTEGER n,ntimes
      PARAMETER (n = 2000003 ,ntimes=10)
C ..
*****

***** stream_d.f
C .. Local Scalars ..
      DOUBLE PRECISION t,t0
      INTEGER j,k,nbpw
***** TMP2.F
C .. Local Scalars ..
      DOUBLE PRECISION t
      INTEGER j,k,nbpw
*****

***** stream_d.f
      t = second(t0)
      t = second(t0)
      DO 10 j = 1,n
***** TMP2.F
      t = second(t0)
      DO 10 j = 1,n
*****

***** stream_d.f
* This code works on Sun and Silicon Graphics machines.
       REAL function second(t0)
       double precision t0
       real dummy(2)
       second = etime(dummy)
       end
***** TMP2.F
* This code works on Sun and Silicon Graphics machines.
       REAL function second
       second = secnds(0.0)
       end
*****



This archive was generated by hypermail 2b29 : Tue Apr 18 2000 - 05:23:07 CDT