Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!esosun!net1!sdcsvax!nosc!marlin!aburto
From: aburto@marlin.UUCP (Alfred A. Aburto)
Newsgroups: comp.sys.amiga
Subject: Re: Savage Benchmark Results
Message-ID: <839@marlin.UUCP>
Date: Fri, 14-Nov-86 16:49:54 EST
Article-I.D.: marlin.839
Posted: Fri Nov 14 16:49:54 1986
Date-Received: Sun, 16-Nov-86 01:06:37 EST
References: <1150@cit-vax.Caltech.Edu> <3830@videovax.Tek.COM> <838@marlin.UUCP>
Reply-To: aburto@marlin.UUCP (Alfred A. Aburto)
Distribution: net
Organization: Naval Ocean Systems Center, San Diego
Lines: 28
Keywords: 68020, 68881, Turbo-Amiga

Here is the Savage Benchmark Program:
**************************************
*           Fortran 77               *
**************************************
	Program Savage
	implicit double precision (a-h,o-z)

	write(*,1000)

	a = 1.0
	iloop = 2499

	do 100 i=1,iloop
	 a = dtan(datan(dexp(dlog(dsqrt(a*a))))) + 1.0
 100     continue

       write(*,1010)
       write(*,1020) a
 1000  format(5x,'Start')
 1010  format(5x,'Stop ')
 1020  format(5x,'a = ',f22.15)
       stop
       end

--------------------------------------------------------
Al Aburto

	iloo