example13.c in bones-compiler-1.6.0

- old
+ new

@@ -8,11 +8,11 @@
 // Web address........http://parse.ele.tue.nl/bones/
 //
 // == File information
 // Filename...........element/example13.c
 // Author.............Cedric Nugteren
-// Last modified on...07-May-2013
+// Last modified on...10-October-2014
 //
 
 #include <stdio.h>
 
 // This is 'example13', an example with multiple loop nests and various if-statements
@@ -37,10 +37,11 @@
 			E[i][j] = i*j+9;
 		}
 	}
 	
 	// Perform the computation
+	#pragma scop
 	#pragma species kernel C[0:N-1]|element -> B[11:N-1]|element ^ A[0:5]|element
 	for (i=0; i<N; i++) {
 		if (i > 10) {
 			B[i] = C[i];
 		}
@@ -63,9 +64,10 @@
 				D[i][j] = E[i][j];
 			}
 		}
 	}
 	#pragma species endkernel example13_k3
+	#pragma endscop
 	
 	// Clean-up and exit the function
 	fflush(stdout);
 	return 0;
 }