TYCHO  1.3.0
 All Data Structures Files Functions Variables Enumerations Enumerator
/home/kapf/tycho_docu/pressure_on_solid_reset.c
Go to the documentation of this file.
1 /*
2  * pressure_on_solid_reset.c
3  *
4  * Author: Wolfgang Kapferer
5  */
6 
7 #include <stdio.h>
8 #include <stdlib.h>
9 #include <math.h>
10 
11 #ifdef _OPENMP
12 #include <omp.h>
13 #endif
14 
15 #include "variables_global.h"
16 #include "prototypes.h"
17 
23 int pressure_on_solid_reset(int x, int y, int z) {
24 
25  int i, j, k;
26 
27 #ifdef _OPENMP
28 #pragma omp parallel default(none) \
29  private(j, i, k) \
30  shared(x, y, z, pressure_on_solid)
31  {
32 #endif
33 
34  for (i = 0; i < x; i++) {
35 
36 #ifdef _OPENMP
37 #pragma omp for schedule(static)
38 #endif
39 
40  for (j = 0; j < y; j++) {
41  for (k = 0; k < z; k++) {
42  pressure_on_solid[i][j][k] = 0.0;
43  }
44  }
45  }
46 
47 #ifdef _OPENMP
48  }
49 #endif
50 
51  return 0;
52 }