Post Reply 
Benchmark: Whetstones
11-01-2018, 07:59 PM (This post was last modified: 11-01-2018 08:03 PM by StephenG1CMZ.)
Post: #3
RE: Benchmark: Whetstones
The Whetstone benchmark relies upon an OUTREAL function.

This was originally provided in my Benchmarks program, but that complicated compilation.

I have now extracted OUTREAL here.
The example code here emphasis flexibility (allowing reals to be printed, listed, or both).
Before publishing timings a much simpler OUTREAL should be substituted
Code:


 //CUSTOMISE
 //SELECT OUTPUT 
 //GLOBAL SP SELECTS/INHIBITS PRINT
 //TO LIST OR TO SCREEN (OR LOGFILE TBD)
 EXPORT BenchmarkList:=1;
 EXPORT BenchmarkAns:={};
 //END CUSTOMISE

 EXPORT OUTREAL(LST)
 //REQUIRED TO OUTPUT OR USE RESULTS
 //HOW IS UNSPECIFIED
 BEGIN 
  //ONLY 1 OUTPUT IS REQUIRED
  //THE SELECTION/ALTERNATIVE IS AN OVERHEAD ANDSHOULDBE REMOVED
  IF SP THEN
   PRINT(LST);
  END;
  IF BenchmarkList THEN
   BenchmarkAns(0):=LST;
  END;
 END;

 BenchmarkReset()
 BEGIN
  PRINT();
  //PRINT(CRID);
  BenchmarkAns:={};
 END;

Stephen Lewkowicz (G1CMZ)
Visit this user's website Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
Benchmark: Whetstones - StephenG1CMZ - 12-03-2017, 11:51 PM
RE: Benchmark: Whetstones - StephenG1CMZ - 12-04-2017, 12:01 AM
RE: Benchmark: Whetstones - StephenG1CMZ - 11-01-2018 07:59 PM



User(s) browsing this thread: 1 Guest(s)