[llvm-commits] [test-suite] r59807 - in /test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia: CrystalMk/ CrystalMk/COPYRIGHT_and_DISCLAIMER CrystalMk/Crystal.h CrystalMk/Crystal_Cholesky.c CrystalMk/Crystal_div.c CrystalMk/Crystal_pow.c CrystalMk/Makefile CrystalMk/SPEdriver.c CrystalMk/init.c CrystalMk/main.c CrystalMk/reference_output Makefile

Duraid Madina duraid at octopus.com.au
Fri Nov 21 00:20:58 PST 2008


Author: duraid
Date: Fri Nov 21 02:20:55 2008
New Revision: 59807

URL: http://llvm.org/viewvc/llvm-project?rev=59807&view=rev
Log:
pull in another sequoia bench


Added:
    test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/
    test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/COPYRIGHT_and_DISCLAIMER
    test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal.h
    test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal_Cholesky.c
    test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal_div.c
    test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal_pow.c
    test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Makefile
    test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/SPEdriver.c
    test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/init.c
    test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/main.c
    test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/reference_output
Modified:
    test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/Makefile

Added: test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/COPYRIGHT_and_DISCLAIMER
URL: http://llvm.org/viewvc/llvm-project/test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/COPYRIGHT_and_DISCLAIMER?rev=59807&view=auto

==============================================================================
--- test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/COPYRIGHT_and_DISCLAIMER (added)
+++ test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/COPYRIGHT_and_DISCLAIMER Fri Nov 21 02:20:55 2008
@@ -0,0 +1,33 @@
+This work was produced at the University of California, Lawrence Livermore
+National Laboratory (UC LLNL) under contract no. W-7405-ENG-48 (Contract 48)
+between the U.S. Department of Energy (DOE) and The Regents of the University
+of California (University) for the operation of UC LLNL. The rights of the
+Federal Government are reserved under Contract 48 subject to the restrictions
+agreed upon by the DOE and University as allowed under DOE Acquisition Letter
+97-1.
+
+
+                                                                   DISCLAIMER
+
+
+This work was prepared as an account of work sponsored by an agency of
+the United States Government. Neither the United States Government nor the
+University of California nor any of their employees, makes any warranty,
+express or implied, or assumes any liability or responsibility for the
+accuracy, completeness, or usefulness of any information, apparatus, product,
+or process disclosed, or represents that its use would not infringe
+privately-owned rights.  Reference herein to any specific commercial
+products, process, or service by trade name, trademark, manufacturer or
+otherwise does not necessarily constitute or imply its endorsement,
+recommendation, or favoring by the United States Government or the University
+of California. The views and opinions of authors expressed herein do not
+necessarily state or reflect those of the United States Government or the
+University of California, and shall not be used for advertising or product
+endorsement purposes.
+
+
+                                               NOTIFICATION OF COMMERCIAL USE
+
+
+Commercialization of this product is prohibited without notifying the
+Department of Energy (DOE) or Lawrence Livermore National Laboratory (LLNL).

Added: test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal.h
URL: http://llvm.org/viewvc/llvm-project/test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal.h?rev=59807&view=auto

==============================================================================
--- test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal.h (added)
+++ test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal.h Fri Nov 21 02:20:55 2008
@@ -0,0 +1,8 @@
+/*BHEADER****************************************************************
+ * (c) 2007   The Regents of the University of California               *
+ *                                                                      *
+ * See the file COPYRIGHT_and_DISCLAIMER for a complete copyright       *
+ * notice and disclaimer.                                               *
+ *                                                                      *
+ *EHEADER****************************************************************/
+static const int  MS_XTAL_NSLIP_MAX = 12;

Added: test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal_Cholesky.c
URL: http://llvm.org/viewvc/llvm-project/test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal_Cholesky.c?rev=59807&view=auto

==============================================================================
--- test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal_Cholesky.c (added)
+++ test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal_Cholesky.c Fri Nov 21 02:20:55 2008
@@ -0,0 +1,67 @@
+/*BHEADER****************************************************************
+ * (c) 2007   The Regents of the University of California               *
+ *                                                                      *
+ * See the file COPYRIGHT_and_DISCLAIMER for a complete copyright       *
+ * notice and disclaimer.                                               *
+ *                                                                      *
+ *EHEADER****************************************************************/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include "Crystal.h"
+
+//-------------- 
+//  test Cholesky solver on matrix
+//-------------- 
+void Crystal_Cholesky(int nSlip,  
+                      double a[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX],
+                      double r[MS_XTAL_NSLIP_MAX],
+                      double g[MS_XTAL_NSLIP_MAX])
+{
+   int i, j, k;
+   double fdot;
+
+   
+      /* transfer rhs to solution vector to preserve rhs */
+   for ( i = 0; i < nSlip; i++) g[i] = r[i];
+      
+      /* matrix reduction */
+   for ( i = 1; i < nSlip; i++)
+      a[i][0] = a[i][0] / a[0][0];
+
+
+   for ( i = 1; i < nSlip; i++){
+      fdot = 0.0;
+      for ( k = 0; k < i; k++)
+         fdot += a[i][k] * a[k][i];
+      a[i][i] = a[i][i] - fdot;
+      for ( j = i+1; j < nSlip; j++){
+         fdot = 0.0;
+         for ( k = 0; k < i; k++)
+            fdot += a[i][k] * a[k][j];
+         a[i][j] = a[i][j] - fdot;
+         fdot = 0.0;
+         for ( k = 0; k < i; k++)
+            fdot += a[j][k] * a[k][i];
+         a[j][i] = ( a[j][i] - fdot) / a[i][i];
+      }
+   }
+
+   
+      /* forward reduction of RHS */
+   for ( i = 1; i < nSlip; i++ ){
+      for ( k = 0; k < i; k++)
+         g[i] = g[i] - a[i][k] * g[k];
+   } 
+   
+      /* back substitution */
+   g[nSlip-1] = g[nSlip-1] / a[nSlip-1][nSlip-1];
+   for ( i = nSlip - 2; i >= 0; i=i-1){
+      for ( k = i+1; k < nSlip; k++)
+         g[i] = g[i] - a[i][k]*g[k];
+      g[i] = g[i] / a[i][i];
+   }
+}
+
+
+

Added: test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal_div.c
URL: http://llvm.org/viewvc/llvm-project/test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal_div.c?rev=59807&view=auto

==============================================================================
--- test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal_div.c (added)
+++ test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal_div.c Fri Nov 21 02:20:55 2008
@@ -0,0 +1,77 @@
+/*BHEADER****************************************************************
+ * (c) 2007   The Regents of the University of California               *
+ *                                                                      *
+ * See the file COPYRIGHT_and_DISCLAIMER for a complete copyright       *
+ * notice and disclaimer.                                               *
+ *                                                                      *
+ *EHEADER****************************************************************/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include "Crystal.h"
+
+//-------------- 
+//  test FDIV
+//-------------- 
+void Crystal_div(int nSlip,  
+         double deltaTime,
+         double slipRate[MS_XTAL_NSLIP_MAX],
+         double dSlipRate[MS_XTAL_NSLIP_MAX],
+         double tau[MS_XTAL_NSLIP_MAX],
+         double tauc[MS_XTAL_NSLIP_MAX],
+         double rhs[MS_XTAL_NSLIP_MAX],
+         double dtcdgd[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX],
+	 double dtdg[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX],
+	 double matrix[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX])
+
+{
+   double bor_array[MS_XTAL_NSLIP_MAX];
+   double sgn[MS_XTAL_NSLIP_MAX];
+   double rateFact[MS_XTAL_NSLIP_MAX];
+   double tauN[MS_XTAL_NSLIP_MAX];
+   double err[MS_XTAL_NSLIP_MAX];
+
+   double rate_offset = 1.e-6;
+   double tauA        = 30.;
+   double tauH        = 1.2;
+   double rate_exp    = 0.01;
+   double bor_s_tmp   = 0.0;
+
+   int n = 0;
+   int m = 0;
+
+   for ( n = 0; n < nSlip; n++){
+     sgn[n] = 1.0;
+     rateFact[n] = 0.9 + (0.2 * n) / MS_XTAL_NSLIP_MAX;
+   }
+
+//----MS_Xtal_PowerTay
+   for ( n = 0; n < nSlip; n++){
+        bor_array[n] = 1 / ( slipRate[n]*sgn[n] + rate_offset);
+   }
+
+   for ( n = 0; n < nSlip; n++){
+        tau[n] = tauA * rateFact[n] * sgn[n];
+        for ( m = 0; m < nSlip; m++)
+           dtcdgd[n][m] = tauH * deltaTime * rateFact[n];
+        dtcdgd[n][n] += tau[n] * rate_exp * sgn[n] * bor_array[n];
+   }  
+ 
+//-----MS_Xtal_SlipRateCalc  
+   for (n = 0; n < nSlip; n++) {
+        bor_array[n] = 1/dtcdgd[n][n];
+   }
+
+   for (n = 0; n < nSlip; n++){
+        tauN[n] = tau[n];
+        for (m = 0; m < nSlip; m++){
+	    bor_s_tmp = dtdg[n][m]* deltaTime;
+            tauN[n] +=  bor_s_tmp * dSlipRate[m] ;
+            matrix[n][m] = (-bor_s_tmp + dtcdgd[n][m])*bor_array[n];
+        }
+        err[n] = tauN[n] - tauc[n];
+        rhs[n] = err[n] * bor_array[n];
+ 
+   }
+
+}

Added: test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal_pow.c
URL: http://llvm.org/viewvc/llvm-project/test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal_pow.c?rev=59807&view=auto

==============================================================================
--- test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal_pow.c (added)
+++ test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Crystal_pow.c Fri Nov 21 02:20:55 2008
@@ -0,0 +1,44 @@
+/*BHEADER****************************************************************
+ * (c) 2007   The Regents of the University of California               *
+ *                                                                      *
+ * See the file COPYRIGHT_and_DISCLAIMER for a complete copyright       *
+ * notice and disclaimer.                                               *
+ *                                                                      *
+ *EHEADER****************************************************************/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "Crystal.h"
+
+//-------------- 
+//  test POW
+//-------------- 
+double Crystal_pow(int nSlip,  
+		double slipRate[MS_XTAL_NSLIP_MAX])
+
+{
+   double rateFact[MS_XTAL_NSLIP_MAX];
+   double sgn[MS_XTAL_NSLIP_MAX];
+
+   double muNew       = 60000.;
+   double muRef       = 50000.;
+   double rate_offset = 1.e-6;
+   double rate_norm   = 2.0;
+   double rate_exp    = 0.01;
+
+   int n = 0;
+
+   for ( n = 0; n < nSlip; n++){
+     sgn[n] = 1.0;
+     rateFact[n] = 0.9 * (0.2 * n) / MS_XTAL_NSLIP_MAX;
+   }
+
+   for ( n = 0; n < nSlip; n++){
+      rateFact[n] = (muNew / muRef) * 
+         pow((slipRate[n]*sgn[n]+rate_offset)/rate_norm, rate_exp);
+   }
+
+   return rateFact[3];
+
+}

Added: test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Makefile
URL: http://llvm.org/viewvc/llvm-project/test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Makefile?rev=59807&view=auto

==============================================================================
--- test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Makefile (added)
+++ test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/Makefile Fri Nov 21 02:20:55 2008
@@ -0,0 +1,8 @@
+LEVEL = ../../../..
+
+PROG     = CrystalMk
+ 
+LIBS += -lm
+LDFLAGS += -lm
+
+include	../../../Makefile.multisrc

Added: test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/SPEdriver.c
URL: http://llvm.org/viewvc/llvm-project/test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/SPEdriver.c?rev=59807&view=auto

==============================================================================
--- test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/SPEdriver.c (added)
+++ test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/SPEdriver.c Fri Nov 21 02:20:55 2008
@@ -0,0 +1,96 @@
+/*BHEADER****************************************************************
+ * (c) 2007   The Regents of the University of California               *
+ *                                                                      *
+ * See the file COPYRIGHT_and_DISCLAIMER for a complete copyright       *
+ * notice and disclaimer.                                               *
+ *                                                                      *
+ *EHEADER****************************************************************/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <sys/time.h>
+#include <time.h>
+#include "Crystal.h"
+
+void Crystal_div(int nSlip,  
+                double deltaTime,
+                double slipRate[MS_XTAL_NSLIP_MAX],
+                double dSlipRate[MS_XTAL_NSLIP_MAX],
+                double tau[MS_XTAL_NSLIP_MAX],
+                double tauc[MS_XTAL_NSLIP_MAX],
+                double rhs[MS_XTAL_NSLIP_MAX],
+                double dtcdgd[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX],
+	        double dtdg[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX],
+	        double matrix[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX]);
+
+double Crystal_pow(int nSlip,  
+		  double slipRate[MS_XTAL_NSLIP_MAX]);
+
+
+void Crystal_Cholesky(int nSlip,  
+                     double a[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX],
+                     double r[MS_XTAL_NSLIP_MAX],
+                     double g[MS_XTAL_NSLIP_MAX]);
+
+//-------------- 
+//  SPE driver
+//-------------- 
+double SPEdriver(double slipRate[MS_XTAL_NSLIP_MAX],
+                 double dSlipRate[MS_XTAL_NSLIP_MAX],
+                 double tau[MS_XTAL_NSLIP_MAX],
+                 double tauc[MS_XTAL_NSLIP_MAX],
+                 double rhs[MS_XTAL_NSLIP_MAX],
+                 double dtcdgd[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX],
+	         double dtdg[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX],
+	         double matrix[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX])
+{
+  struct timeval  t0, t1;
+  clock_t t0_cpu = 0,
+          t1_cpu = 0;
+
+  double del_wtime = 0.0;
+  double tmp;
+
+  const int noIter = 2000000;
+  int i = 0;
+  int j, k;
+
+
+  gettimeofday(&t0, ((void *)0));
+  t0_cpu = clock();
+  for (i=0; i<noIter; ++i) {
+      Crystal_div(MS_XTAL_NSLIP_MAX,  
+                 0.01,
+                 slipRate,
+                 dSlipRate,
+                 tau,
+                 tauc,
+                 rhs,
+                 dtcdgd,
+                 dtdg,
+                 matrix);
+  }
+
+  for (i=0; i<noIter; ++i) {
+       tmp = Crystal_pow(MS_XTAL_NSLIP_MAX,
+	     slipRate);
+  }
+
+  for (i=0; i<MS_XTAL_NSLIP_MAX; i++){
+    for (j=0; j<MS_XTAL_NSLIP_MAX; j++)
+      matrix[i][j] = dtcdgd[i][j];
+  }
+
+  for (i=0; i<noIter; ++i) { 
+       for (j=0; j<MS_XTAL_NSLIP_MAX; j++){
+         for (k=0; k<MS_XTAL_NSLIP_MAX; k++)
+           dtcdgd[j][k] = matrix[j][k];
+       }
+       Crystal_Cholesky(MS_XTAL_NSLIP_MAX,  
+                       dtcdgd,
+                       tau,
+                       rhs);
+  }
+  return tmp;
+
+}

Added: test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/init.c
URL: http://llvm.org/viewvc/llvm-project/test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/init.c?rev=59807&view=auto

==============================================================================
--- test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/init.c (added)
+++ test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/init.c Fri Nov 21 02:20:55 2008
@@ -0,0 +1,43 @@
+/*BHEADER****************************************************************
+ * (c) 2007   The Regents of the University of California               *
+ *                                                                      *
+ * See the file COPYRIGHT_and_DISCLAIMER for a complete copyright       *
+ * notice and disclaimer.                                               *
+ *                                                                      *
+ *EHEADER****************************************************************/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include "Crystal.h"
+
+//-------------- 
+//  init
+//-------------- 
+void init(double slipRate[MS_XTAL_NSLIP_MAX],
+          double dSlipRate[MS_XTAL_NSLIP_MAX],
+          double tau[MS_XTAL_NSLIP_MAX],
+          double tauc[MS_XTAL_NSLIP_MAX],
+          double rhs[MS_XTAL_NSLIP_MAX],
+          double dtcdgd[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX],
+	  double dtdg[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX],
+	  double matrix[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX])
+{
+
+  int m = 0;
+  int n = 0;
+
+
+  for (n = 0; n <MS_XTAL_NSLIP_MAX; n++){
+      slipRate[n]   = 1.9 + (0.2 * n) / MS_XTAL_NSLIP_MAX;
+      dSlipRate[n]  = slipRate[n] * 0.001;
+      tau[n]        = n + 2.0;
+      tauc[n]       = 30.0;
+      rhs[n]        = n + 3.5;
+      for (m = 0; m < MS_XTAL_NSLIP_MAX; m++) {
+            dtcdgd[n][m] = 0.01 + 0.00001 * m * n;
+            dtdg[n][m]   = m + n; 
+            matrix[n][m] = 0.0; 
+      }
+  } 
+  
+}

Added: test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/main.c
URL: http://llvm.org/viewvc/llvm-project/test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/main.c?rev=59807&view=auto

==============================================================================
--- test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/main.c (added)
+++ test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/main.c Fri Nov 21 02:20:55 2008
@@ -0,0 +1,77 @@
+/*BHEADER****************************************************************
+ * (c) 2007   The Regents of the University of California               *
+ *                                                                      *
+ * See the file COPYRIGHT_and_DISCLAIMER for a complete copyright       *
+ * notice and disclaimer.                                               *
+ *                                                                      *
+ *EHEADER****************************************************************/
+
+
+//--------------
+//  A micro kernel 
+//--------------
+#include <stdio.h>
+#include <stdlib.h>
+#include <sys/time.h>
+#include <time.h>
+#include "Crystal.h"
+
+
+void init(double slipRate[MS_XTAL_NSLIP_MAX],
+          double dSlipRate[MS_XTAL_NSLIP_MAX],
+          double tau[MS_XTAL_NSLIP_MAX],
+          double tauc[MS_XTAL_NSLIP_MAX],
+          double rhs[MS_XTAL_NSLIP_MAX],
+          double dtcdgd[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX],
+	  double dtdg[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX],
+	  double matrix[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX]);
+double SPEdriver(double slipRate[MS_XTAL_NSLIP_MAX],
+                 double dSlipRate[MS_XTAL_NSLIP_MAX],
+                 double tau[MS_XTAL_NSLIP_MAX],
+                 double tauc[MS_XTAL_NSLIP_MAX],
+                 double rhs[MS_XTAL_NSLIP_MAX],
+                 double dtcdgd[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX],
+	         double dtdg[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX],
+	         double matrix[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX]);
+
+
+int main()
+{
+  struct timeval  t0, t1;
+  clock_t t0_cpu = 0,
+          t1_cpu = 0;
+
+  double slipRate[MS_XTAL_NSLIP_MAX];
+  double dSlipRate[MS_XTAL_NSLIP_MAX];
+  double tau[MS_XTAL_NSLIP_MAX];
+  double tauc[MS_XTAL_NSLIP_MAX];
+  double rhs[MS_XTAL_NSLIP_MAX];
+  double dtcdgd[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX];
+  double dtdg[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX];
+  double matrix[MS_XTAL_NSLIP_MAX][MS_XTAL_NSLIP_MAX];
+
+  double del_wtime = 0.0;
+  double returnVal = 0.0;  
+
+  int i = 0;
+  int j = 0;
+
+  printf ("\nSequoia benchmark version 1.0\n");
+
+  init(slipRate, dSlipRate, tau, tauc, rhs, dtcdgd, dtdg, matrix);
+
+  returnVal = SPEdriver(slipRate, dSlipRate, tau, tauc, rhs, dtcdgd, dtdg, matrix);
+
+  printf("\n***** results \n");  
+
+  printf("returnVal = %f \n", returnVal); 
+  
+  for (i=0; i<MS_XTAL_NSLIP_MAX; i+=MS_XTAL_NSLIP_MAX/3) {
+     for (j=0; j<MS_XTAL_NSLIP_MAX; j+=MS_XTAL_NSLIP_MAX/3) {
+         printf("i = %5d j = %5d    dtcdgd[i][j]   = %e \n", i,j,dtcdgd[i][j]);
+     }
+  }
+  
+  return  0;
+
+}

Added: test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/reference_output
URL: http://llvm.org/viewvc/llvm-project/test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/reference_output?rev=59807&view=auto

==============================================================================
--- test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/reference_output (added)
+++ test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/CrystalMk/reference_output Fri Nov 21 02:20:55 2008
@@ -0,0 +1,14 @@
+
+Sequoia benchmark version 1.0
+
+***** results 
+returnVal = 1.199696 
+i =     0 j =     0    dtcdgd[i][j]   = 1.529052e-01 
+i =     0 j =     4    dtcdgd[i][j]   = 1.080000e-02 
+i =     0 j =     8    dtcdgd[i][j]   = 1.080000e-02 
+i =     4 j =     0    dtcdgd[i][j]   = 7.586401e-02 
+i =     4 j =     4    dtcdgd[i][j]   = 1.563261e-01 
+i =     4 j =     8    dtcdgd[i][j]   = 8.868500e-03 
+i =     8 j =     0    dtcdgd[i][j]   = 8.109601e-02 
+i =     8 j =     4    dtcdgd[i][j]   = 6.064326e-02 
+i =     8 j =     8    dtcdgd[i][j]   = 1.600819e-01 

Modified: test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/Makefile
URL: http://llvm.org/viewvc/llvm-project/test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/Makefile?rev=59807&r1=59806&r2=59807&view=diff

==============================================================================
--- test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/Makefile (original)
+++ test-suite/trunk/MultiSource/Benchmarks/ASC_Sequoia/Makefile Fri Nov 21 02:20:55 2008
@@ -1,7 +1,7 @@
 # MultiSource/ASC_Sequoia Makefile:  Build all subdirectories automatically
 
 LEVEL = ../../..
-PARALLEL_DIRS = IRSmk AMGmk # sphot
+PARALLEL_DIRS = IRSmk AMGmk CrystalMk # sphot
 
 
 include $(LEVEL)/Makefile.programs





More information about the llvm-commits mailing list