TYCHO  1.3.0
 All Data Structures Files Functions Variables Enumerations Enumerator
/home/kapf/tycho_docu/pre_old_copy.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 
21 int pre_old_copy(int x, int y, int z) {
22 
23  int i, j, k;
24 
25 #ifdef _OPENMP
26 #pragma omp parallel default(none) \
27  private(j, i, k) \
28  shared(x, y, z, pre_old, pre)
29  {
30 #endif
31 
32  for (i = 0; i < x; i++) {
33 
34 #ifdef _OPENMP
35 #pragma omp for schedule(static)
36 #endif
37 
38  for (j = 0; j < y; j++) {
39  for (k = 0; k < z; k++) {
40  pre_old[i][j][k] = pre[i][j][k];
41  }
42  }
43  }
44 
45 #ifdef _OPENMP
46  }
47 #endif
48 
49  return 0;
50 }