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