From 3b74728d024da24b06b9eab6021acf44135f40ad Mon Sep 17 00:00:00 2001
From: Dorian Stoll <dorian.stoll@uni-potsdam.de>
Date: Wed, 12 Jun 2024 14:07:42 +0200
Subject: [PATCH] rodinia-srad: c: Init from provided reference
---
src/benchmarks/rodinia-srad/c/Makefile | 33 ++++
src/benchmarks/rodinia-srad/c/README | 13 ++
src/benchmarks/rodinia-srad/c/srad.cpp | 244 +++++++++++++++++++++++++
3 files changed, 290 insertions(+)
create mode 100644 src/benchmarks/rodinia-srad/c/Makefile
create mode 100644 src/benchmarks/rodinia-srad/c/README
create mode 100644 src/benchmarks/rodinia-srad/c/srad.cpp
diff --git a/src/benchmarks/rodinia-srad/c/Makefile b/src/benchmarks/rodinia-srad/c/Makefile
new file mode 100644
index 00000000..9bd5dd3c
--- /dev/null
+++ b/src/benchmarks/rodinia-srad/c/Makefile
@@ -0,0 +1,33 @@
+SHELL=/bin/sh -ue
+
+CFLAGS += -O2
+CXXFLAGS += -O2
+
+ifdef OUTPUT
+CPPFLAGS += -DOUTPUT
+endif
+
+ifdef DEBUG
+CFLAGS += -g
+CXXFLAGS += -g
+endif
+
+# include Make.user relative to every active Makefile, exactly once
+MAKEFILE_DIRS = $(foreach MAKEFILE,$(realpath $(MAKEFILE_LIST)), $(shell dirname $(MAKEFILE)))
+$(foreach DIR,$(sort $(MAKEFILE_DIRS)),\
+ $(eval -include $(DIR)/Make.user)\
+)
+
+CFLAGS += -fopenmp
+CXXFLAGS += -fopenmp
+LDLIBS += -fopenmp
+
+EXE = srad
+
+.PHONY: all
+all: $(EXE)
+
+.PHONY: clean
+clean:
+ $(RM) $(EXE)
+
diff --git a/src/benchmarks/rodinia-srad/c/README b/src/benchmarks/rodinia-srad/c/README
new file mode 100644
index 00000000..bd61c69d
--- /dev/null
+++ b/src/benchmarks/rodinia-srad/c/README
@@ -0,0 +1,13 @@
+Usage:
+srad 128 128 0 31 0 31 4 0.5 2
+
+128 //number of rows in the domain
+128 //number of cols in the domain
+0 //y1 position of the speckle
+31 //y2 position of the speckle
+0 //x1 position of the speckle
+31 //x2 position of the speckle
+4 //number of threads
+0.5 //Lambda value
+2 //number of iterations
+
diff --git a/src/benchmarks/rodinia-srad/c/srad.cpp b/src/benchmarks/rodinia-srad/c/srad.cpp
new file mode 100644
index 00000000..353b7278
--- /dev/null
+++ b/src/benchmarks/rodinia-srad/c/srad.cpp
@@ -0,0 +1,244 @@
+// srad.cpp : Defines the entry point for the console application.
+//
+
+//#define OUTPUT
+
+
+#define OPEN
+#define ITERATION
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <math.h>
+#include <omp.h>
+
+void random_matrix(float *I, int rows, int cols);
+
+void usage(int argc, char **argv) {
+ fprintf(stderr, "Usage: %s <rows> <cols> <y1> <y2> <x1> <x2> <no. of "
+ "threads><lamda> <no. of iter>\n",
+ argv[0]);
+ fprintf(stderr, "\t<rows> - number of rows\n");
+ fprintf(stderr, "\t<cols> - number of cols\n");
+ fprintf(stderr, "\t<y1> - y1 value of the speckle\n");
+ fprintf(stderr, "\t<y2> - y2 value of the speckle\n");
+ fprintf(stderr, "\t<x1> - x1 value of the speckle\n");
+ fprintf(stderr, "\t<x2> - x2 value of the speckle\n");
+ fprintf(stderr, "\t<no. of threads> - no. of threads\n");
+ fprintf(stderr, "\t<lamda> - lambda (0,1)\n");
+ fprintf(stderr, "\t<no. of iter> - number of iterations\n");
+
+ exit(1);
+}
+
+int main(int argc, char *argv[]) {
+ int rows, cols, size_I, size_R, niter = 10, iter, k;
+ float *I, *J, q0sqr, sum, sum2, tmp, meanROI, varROI;
+ float Jc, G2, L, num, den, qsqr;
+ int *iN, *iS, *jE, *jW;
+ float *dN, *dS, *dW, *dE;
+ int r1, r2, c1, c2;
+ float cN, cS, cW, cE;
+ float *c, D;
+ float lambda;
+ int i, j;
+ int nthreads;
+
+ if (argc == 10) {
+ rows = atoi(argv[1]); // number of rows in the domain
+ cols = atoi(argv[2]); // number of cols in the domain
+ if ((rows % 16 != 0) || (cols % 16 != 0)) {
+ fprintf(stderr, "rows and cols must be multiples of 16\n");
+ exit(1);
+ }
+ r1 = atoi(argv[3]); // y1 position of the speckle
+ r2 = atoi(argv[4]); // y2 position of the speckle
+ c1 = atoi(argv[5]); // x1 position of the speckle
+ c2 = atoi(argv[6]); // x2 position of the speckle
+ nthreads = atoi(argv[7]); // number of threads
+ lambda = atof(argv[8]); // Lambda value
+ niter = atoi(argv[9]); // number of iterations
+ } else {
+ usage(argc, argv);
+ }
+
+
+ size_I = cols * rows;
+ size_R = (r2 - r1 + 1) * (c2 - c1 + 1);
+
+ I = (float *)malloc(size_I * sizeof(float));
+ J = (float *)malloc(size_I * sizeof(float));
+ c = (float *)malloc(sizeof(float) * size_I);
+
+ iN = (int *)malloc(sizeof(int) * rows);
+ iS = (int *)malloc(sizeof(int) * rows);
+ jW = (int *)malloc(sizeof(int) * cols);
+ jE = (int *)malloc(sizeof(int) * cols);
+
+
+ dN = (float *)malloc(sizeof(float) * size_I);
+ dS = (float *)malloc(sizeof(float) * size_I);
+ dW = (float *)malloc(sizeof(float) * size_I);
+ dE = (float *)malloc(sizeof(float) * size_I);
+
+
+ for (int i = 0; i < rows; i++) {
+ iN[i] = i - 1;
+ iS[i] = i + 1;
+ }
+ for (int j = 0; j < cols; j++) {
+ jW[j] = j - 1;
+ jE[j] = j + 1;
+ }
+ iN[0] = 0;
+ iS[rows - 1] = rows - 1;
+ jW[0] = 0;
+ jE[cols - 1] = cols - 1;
+
+ printf("Randomizing the input matrix\n");
+
+ random_matrix(I, rows, cols);
+
+ for (k = 0; k < size_I; k++) {
+ J[k] = (float)exp(I[k]);
+ }
+
+ printf("Start the SRAD main loop\n");
+
+#ifdef ITERATION
+ for (iter = 0; iter < niter; iter++) {
+#endif
+ sum = 0;
+ sum2 = 0;
+ for (i = r1; i <= r2; i++) {
+ for (j = c1; j <= c2; j++) {
+ tmp = J[i * cols + j];
+ sum += tmp;
+ sum2 += tmp * tmp;
+ }
+ }
+ meanROI = sum / size_R;
+ varROI = (sum2 / size_R) - meanROI * meanROI;
+ q0sqr = varROI / (meanROI * meanROI);
+
+
+#ifdef OPEN
+ omp_set_num_threads(nthreads);
+#pragma omp parallel for shared(J, dN, dS, dW, dE, c, rows, cols, iN, iS, jW, \
+ jE) private(i, j, k, Jc, G2, L, num, den, \
+ qsqr)
+#endif
+ for (int i = 0; i < rows; i++) {
+ for (int j = 0; j < cols; j++) {
+
+ k = i * cols + j;
+ Jc = J[k];
+
+ // directional derivates
+ dN[k] = J[iN[i] * cols + j] - Jc;
+ dS[k] = J[iS[i] * cols + j] - Jc;
+ dW[k] = J[i * cols + jW[j]] - Jc;
+ dE[k] = J[i * cols + jE[j]] - Jc;
+
+ G2 = (dN[k] * dN[k] + dS[k] * dS[k] + dW[k] * dW[k] +
+ dE[k] * dE[k]) /
+ (Jc * Jc);
+
+ L = (dN[k] + dS[k] + dW[k] + dE[k]) / Jc;
+
+ num = (0.5 * G2) - ((1.0 / 16.0) * (L * L));
+ den = 1 + (.25 * L);
+ qsqr = num / (den * den);
+
+ // diffusion coefficent (equ 33)
+ den = (qsqr - q0sqr) / (q0sqr * (1 + q0sqr));
+ c[k] = 1.0 / (1.0 + den);
+
+ // saturate diffusion coefficent
+ if (c[k] < 0) {
+ c[k] = 0;
+ } else if (c[k] > 1) {
+ c[k] = 1;
+ }
+ }
+ }
+#ifdef OPEN
+ omp_set_num_threads(nthreads);
+#pragma omp parallel for shared(J, c, rows, cols, \
+ lambda) private(i, j, k, D, cS, cN, cW, cE)
+#endif
+ for (int i = 0; i < rows; i++) {
+ for (int j = 0; j < cols; j++) {
+
+ // current index
+ k = i * cols + j;
+
+ // diffusion coefficent
+ cN = c[k];
+ cS = c[iS[i] * cols + j];
+ cW = c[k];
+ cE = c[i * cols + jE[j]];
+
+ // divergence (equ 58)
+ D = cN * dN[k] + cS * dS[k] + cW * dW[k] + cE * dE[k];
+
+ // image update (equ 61)
+ J[k] = J[k] + 0.25 * lambda * D;
+#ifdef OUTPUT
+// printf("%.5f ", J[k]);
+#endif // output
+ }
+#ifdef OUTPUT
+// printf("\n");
+#endif // output
+ }
+
+#ifdef ITERATION
+ }
+#endif
+
+
+#ifdef OUTPUT
+ for (int i = 0; i < rows; i++) {
+ for (int j = 0; j < cols; j++) {
+
+ printf("%.5f ", J[i * cols + j]);
+ }
+ printf("\n");
+ }
+#endif
+
+ printf("Computation Done\n");
+
+ free(I);
+ free(J);
+ free(iN);
+ free(iS);
+ free(jW);
+ free(jE);
+ free(dN);
+ free(dS);
+ free(dW);
+ free(dE);
+
+ free(c);
+ return 0;
+}
+
+
+void random_matrix(float *I, int rows, int cols) {
+
+ srand(7);
+
+ for (int i = 0; i < rows; i++) {
+ for (int j = 0; j < cols; j++) {
+ I[i * cols + j] = rand() / (float)RAND_MAX;
+#ifdef OUTPUT
+// printf("%g ", I[i * cols + j]);
+#endif
+ }
+#ifdef OUTPUT
+// printf("\n");
+#endif
+ }
+}
--
GitLab