Add files from the presentation slides

Signed-off-by: Danila Fedorin <daniel.fedorin@hpe.com>

Author: DanilaFe

01-heat-1D-serial.chpl

@@ -0,0 +1,17 @@
+config const nx = 100000;
+config const N = 10000;
+const alpha = 0.1;
+
+const omega = {0..<nx},
+      omegaHat = omega.expand(-1);
+
+var u: [omega] real = 1.0;
+u[nx/4..3*nx/4] = 2.0;
+var un = u;
+
+for 1..N {
+  un <=> u;
+  for i in omegaHat do
+    u[i] = un[i] + alpha *
+	   (un[i-1] – 2*un[i] + un[i+1]);
+}

02-heat-1D-buggy.chpl

@@ -0,0 +1,17 @@
+config const nx = 100000;
+config const N = 10000;
+const alpha = 0.1;
+
+const omega = {0..<nx},
+      omegaHat = omega.expand(-1);
+
+var u: [omega] real = 1.0;
+u[nx/4..3*nx/4] = 2.0;
+var un = u;
+
+for 1..N {
+  un <=> u;
+  for i in omega do
+    u[i] = un[i] + alpha *
+	   (un[i-1] – 2*un[i] + un[i+1]);
+}

03-heat-1D.chpl

@@ -0,0 +1,17 @@
+config const nx = 100000;
+config const N = 10000;
+const alpha = 0.1;
+
+const omega = {0..<nx},
+      omegaHat = omega.expand(-1);
+
+var u: [omega] real = 1.0;
+u[nx/4..3*nx/4] = 2.0;
+var un = u;
+
+for 1..N {
+  un <=> u;
+  forall i in omegaHat do
+    u[i] = un[i] + alpha *
+	   (un[i-1] – 2*un[i] + un[i+1]);
+}

04-basic-on.chpl

@@ -0,0 +1,9 @@
+writeln("Hello from locale ", here.id);
+
+var A: [1..2, 1..2] real;
+
+on Locales[1] {
+  var B: [1..2, 1..2] real;
+
+  B = 2 * A;
+}

05-gpus.chpl

@@ -0,0 +1,9 @@
+var x = 10;
+
+
+on here.gpus[0] {
+  var A = [1, 2, 3, 4, 5, ...];
+  forall a in A do a += 1;
+}
+
+writeln(x);

06-heat-1D-gpu.chpl

@@ -0,0 +1,19 @@
+config const nx = 100000;
+config const N = 10000;
+const alpha = 0.1;
+
+on here.gpus[0] {
+  const omega = {0..<nx},
+        omegaHat = omega.expand(-1);
+
+  var u: [omega] real = 1.0;
+  u[nx/4..3*nx/4] = 2.0;
+  var un = u;
+
+  for 1..N {
+    un <=> u;
+    forall i in omegaHat do
+      u[i] = un[i] + alpha *
+  	   (un[i-1] – 2*un[i] + un[i+1]);
+  }
+}

07-heat-1D-block.chpl

@@ -0,0 +1,17 @@
+config const nx = 100000;
+config const N = 10000;
+const alpha = 0.1;
+
+const omega = blockDist.createDomain({0..<nx}),
+      omegaHat = omega.expand(-1);
+
+var u: [omega] real = 1.0;
+u[nx/4..3*nx/4] = 2.0;
+var un = u;
+
+for 1..N {
+  un <=> u;
+  forall i in omegaHat do
+    u[i] = un[i] + alpha *
+	   (un[i-1] – 2*un[i] + un[i+1]);
+}

08-heat-2D.chpl

@@ -0,0 +1,15 @@
+const omega = {0..<nx, 0..<ny},
+      omegaHat = omega.expand(-1);
+
+var u: [omega] real = 1.0;
+u[nx/4..nx/2, ny/4..ny/2] = 2.0;
+var un = u;
+
+for 1..N {
+  un <=> u
+  forall (i, j) in omegaHat do
+    u[i, j] = un[i, j] + alpha * (
+	       un[i-1, j] + un[i, j-1] +
+	       un[i+1, j] + un[i, j+1] –
+	       4 * un[i, j]);
+}

09-heat-2D-block.chpl

@@ -0,0 +1,17 @@
+use BlockDist;
+
+const omega = blockDist.createDomain(0..<nx, 0..<ny),
+      omegaHat = omega.expand(-1);
+
+var u: [omega] real = 1.0;
+u[nx/4..nx/2, ny/4..ny/2] = 2.0;
+var un = u;
+
+for 1..N {
+  un <=> u
+  forall (i, j) in omegaHat do
+    u[i, j] = un[i, j] + alpha * (
+	       un[i-1, j] + un[i, j-1] +
+	       un[i+1, j] + un[i, j+1] –
+	       4 * un[i, j]);
+}

10-heat-2D-stencil.chpl

@@ -0,0 +1,17 @@
+use StencilDist;
+
+const omega = stencilDist.createDomain(0..<nx, 0..<ny),
+      omegaHat = omega.expand(-1);
+
+var u: [omega] real = 1.0;
+u[nx/4..nx/2, ny/4..ny/2] = 2.0;
+var un = u;
+
+for 1..N {
+  un <=> u
+  forall (i, j) in omegaHat do
+    u[i, j] = un[i, j] + alpha * (
+	       un[i-1, j] + un[i, j-1] +
+	       un[i+1, j] + un[i, j+1] –
+	       4 * un[i, j]);
+}