/[escript]/trunk/paso/src/Util.c
ViewVC logotype

Diff of /trunk/paso/src/Util.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1484 by gross, Mon Apr 7 23:38:50 2008 UTC revision 1485 by ksteube, Wed Apr 9 04:13:09 2008 UTC
# Line 144  double Paso_InnerProduct(const dim_t n,c Line 144  double Paso_InnerProduct(const dim_t n,c
144     #else     #else
145         const int num_threads=1;         const int num_threads=1;
146     #endif     #endif
147     #pragma omp parallel for private(i,local_n,rest,n_start,n_end,q) reduction(+:my_out);     #pragma omp parallel for private(i,local_n,rest,n_start,n_end,q) reduction(+:my_out)
148     for (i=0;i<num_threads;++i) {     for (i=0;i<num_threads;++i) {
149          local_n=n/num_threads;          local_n=n/num_threads;
150          rest=n-local_n*num_threads;          rest=n-local_n*num_threads;
# Line 174  double Paso_l2(const dim_t n, const doub Line 174  double Paso_l2(const dim_t n, const doub
174     #else     #else
175         const int num_threads=1;         const int num_threads=1;
176     #endif     #endif
177     #pragma omp parallel for private(i,local_n,rest,n_start,n_end,q) reduction(+:my_out);     #pragma omp parallel for private(i,local_n,rest,n_start,n_end,q) reduction(+:my_out)
178     for (i=0;i<num_threads;++i) {     for (i=0;i<num_threads;++i) {
179          local_n=n/num_threads;          local_n=n/num_threads;
180          rest=n-local_n*num_threads;          rest=n-local_n*num_threads;

Legend:
Removed from v.1484  
changed lines
  Added in v.1485

  ViewVC Help
Powered by ViewVC 1.1.26