Added material for the Intro to OpenMP session

Author: raphaelmcobe

README.md

@@ -48,3 +48,7 @@ The programme specifically addresses the needs of scientists using, writing, or
 **Interfacing Multiple Programming Languages** [[Slides]](day2/multi-language.pdf) [[Code]](day2/multi-language) 
 
 **Floating Point Math and Errors** [[Slides]](day2/floating-point) [[Code]](day2/floating-point-code/)
+
+#### Day 3
+
+**Introduction to OpenMP** [[Slides]](day3/introduction-to-openmp.pdf) [[Code]](day3/introduction-to-openmp/)

day3/introduction-to-openmp.pdf

@@ -0,0 +1,25 @@
+#include <stdio.h>
+#include <omp.h>
+int main() {
+
+    char hn[600];
+    int thi=10;
+    int thid=200;
+    int thid2=20;
+    int thid3=15;
+
+    printf("before Thread shared %d private %d firstprivate %d lastprivate %d \n", thi, thid, thid2, thid3);
+    #pragma omp parallel shared(thi) private(thid) firstprivate(thid2)
+    {
+        gethostname(hn,600);
+        printf("hello from hostname %s shared %d private %d firstprivate %d lastprivate %d \n",hn, thi, thid, thid2, thid3);
+	thi = omp_get_thread_num();
+	thid = omp_get_thread_num();
+	thid2 = omp_get_thread_num();
+    thid3 = omp_get_thread_num();
+        printf("hello from hostname %s shared %d private %d firstprivate %d lastprivate %d \n",hn, thi, thid, thid2, thid2);
+    }
+
+    printf("Outside Thread shared %d private %d firstprivate %d lastprivate %d \n", thi, thid, thid2, thid3);
+    return(0);
+}

day3/introduction-to-openmp/OMP-hello

@@ -0,0 +1,38 @@
+#include <stdio.h>
+#include <omp.h>
+
+int main() {
+
+    printf(" omp_get_max_threads %d", omp_get_max_threads() );
+    printf(" omp_get_thread_limit %d", omp_get_thread_limit() );
+
+    char hn[600];
+    int ID = 0;		
+    #pragma omp parallel
+    {
+	ID = omp_get_thread_num();
+        gethostname(hn,600);
+
+        printf("hello from hostname %s Thread Number: %d\n",hn, ID);
+    }
+
+    printf("Executing with 4 threads");
+
+    #pragma omp parallel num_threads(4)
+    {
+	ID = omp_get_thread_num();
+        gethostname(hn,600);
+        printf("\nhello from hostname %s Thread Number: %d\n",hn, ID);
+    }
+
+    printf("Executing with 8 threads");
+    omp_set_num_threads(8);	
+    #pragma omp parallel 
+    {
+	ID = omp_get_thread_num();
+        gethostname(hn,600);
+        printf("\nhello from hostname %s Thread Number: %d\n",hn, ID);
+    }
+
+    return(0);
+}

day3/introduction-to-openmp/OMP-hello-PR-variable

@@ -0,0 +1,13 @@
+#include <stdio.h>
+
+int main() {
+
+    char hn[600];
+
+    #pragma omp parallel
+    {
+        gethostname(hn,600);
+        printf("hello from hostname %s\n",hn);
+    }
+    return(0);
+}

day3/introduction-to-openmp/OMP-hello-PR-variable.c

@@ -0,0 +1,107 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <time.h>
+#include <omp.h>
+#include <math.h>
+
+int main() {
+
+  double *a;
+  double *b;
+  double randV;
+  double lastx;
+  int i =0; 
+  int msize = 0;
+
+  //msize = 987456213; //16000;
+  msize = 1000; //16000;
+  randV = 0;
+
+  srand(time(NULL));
+  randV=rand();
+  randV=randV;
+
+  a = (double*) malloc(msize * sizeof(double));
+  for ( i = 0; i < msize; i++) {
+    a[i] = i/randV;
+  }
+
+  randV=rand();
+  randV=randV;
+  printf("randV %f\n", randV);
+
+  b = (double*) malloc(msize * sizeof(double));
+
+  int totthreads;
+  
+  totthreads=omp_get_num_threads();
+  totthreads=11;
+
+  int id=0;
+  int stepPThread;    
+  int stepLastThread;    
+  int begin;
+  int end;
+
+  #pragma omp parallel shared(totthreads) private(id, stepPThread, stepLastThread, begin, end)
+  {
+    id=omp_get_thread_num();
+    stepPThread=msize/totthreads;    
+    stepLastThread=msize % totthreads;    
+    begin = id*stepPThread;
+    end = (begin + stepPThread)-1;
+
+    int cmp = totthreads-1;
+
+    if (id == cmp) {
+      end = end + stepLastThread;
+      //printf("\n id %d cmp %d \n", id, cmp);       
+    }
+    //else
+      //printf("\n id %d cmp %d \n", id, cmp);
+
+    printf("totthreads %d id %d stepPThread %d stepLastThread %d begin %d end %d \n", totthreads, id, stepPThread, stepLastThread, begin, end);
+
+    for ( i = begin; i < end; i++) {
+      b[i] = i/randV;
+    }
+  }
+
+  #pragma omp parallel 
+  {
+    #pragma omp for
+    for ( i = 0; i < msize; i++) {
+      b[i] = i/randV;
+    }
+  }
+
+  #pragma omp parallel for
+  for ( i = 0; i < msize; i++) {
+    a[i] = a[i]+b[i];
+  }
+
+  lastx = 0;
+  for ( i = 0; i < msize; i++) {
+      lastx = a[i]+b[i] ;
+  }
+
+  printf("lastx SERIAL %f\n", lastx);
+
+  lastx = 0;
+  #pragma omp parallel for lastprivate(lastx)
+  for ( i = 0; i < msize; i++) {
+      lastx = a[i]+b[i] ;
+  }
+
+  printf("lastx lastprivate %f\n", lastx);
+
+  lastx = 0;
+  #pragma omp parallel for
+  for ( i = 0; i < msize; i++) {
+      lastx =  a[i]+b[i] ;
+  }
+
+  printf("lastx omp parallel for %f\n", lastx);
+ 
+  return(0);
+}