# Diff of /trunk/paso/src/PasoUtil.c

revision 1564 by gross, Thu May 22 09:31:33 2008 UTC revision 1639 by gross, Mon Jul 14 08:55:25 2008 UTC
# Line 1  Line 1

1  /* \$Id\$ */  /* \$Id\$ */
2
3  /*******************************************************  /*******************************************************
# Line 34  bool_t Paso_Util_isAny(dim_t N,index_t* Line 33  bool_t Paso_Util_isAny(dim_t N,index_t*
33     bool_t out=FALSE;     bool_t out=FALSE;
34     dim_t i;     dim_t i;
35     #pragma omp parallel for private(i) schedule(static) reduction(||:out)     #pragma omp parallel for private(i) schedule(static) reduction(||:out)
36     for (i=0;i<N;i++) out = out || (array[i]==value);     for (i=0;i<N;i++) {
37                out = out || (array[i]==value);
38       }
39     return out;     return out;
40  }  }
41

/* copies source to taget: */
void Paso_copyDouble(dim_t n,double* source, double* target) {
dim_t i;
for (i=0;i<n;i++) target[i]=source[i];
}

42  /**************************************************************/  /**************************************************************/
43
44  /* calculates the cummultative sum in array and returns the total sum */  /* calculates the cummultative sum in array and returns the total sum */
# Line 61  index_t Paso_Util_cumsum(dim_t N,index_t Line 55  index_t Paso_Util_cumsum(dim_t N,index_t
55          sum=0;          sum=0;
56          #pragma omp for schedule(static)          #pragma omp for schedule(static)
57          for (i=0;i<N;++i) sum+=array[i];          for (i=0;i<N;++i) sum+=array[i];
58
60          #pragma omp barrier          #pragma omp barrier
61          #pragma omp single          #pragma omp single
# Line 90  index_t Paso_Util_cumsum(dim_t N,index_t Line 85  index_t Paso_Util_cumsum(dim_t N,index_t
85     #endif     #endif
86     return out;     return out;
87  }  }
88    /*
89     * set x to zero:
90     */
91    void Paso_zeroes(const dim_t n, double* x)
92    {
93       dim_t i,local_n,rest,n_start,n_end,q;
94       #ifdef _OPENMP
96       #else
98       #endif
99
100       #pragma omp parallel for private(i,local_n,rest,n_start,n_end,q)
104            n_start=local_n*i+MIN(i,rest);
105            n_end=local_n*(i+1)+MIN(i+1,rest);
106            #pragma ivdep
107            for (q=n_start;q<n_end;++q) x[q]=0;
108       }
109
110    }
111  /*  /*
112   * \$Log\$   * performs an update of the form x=a*x+b*y  where y and x are long vectors.
113   * Revision 1.2  2005/09/15 03:44:39  jgs   * if b=0, y is not used.
114   * Merge of development branch dev-02 back to main trunk on 2005-09-15   */
115   *  void Paso_Update(const dim_t n, const double a, double* x, const double b, const double* y)
116   * Revision 1.1.2.1  2005/09/05 06:29:48  gross  {
117   * These files have been extracted from finley to define a stand alone libray for iterative     dim_t i,local_n,rest,n_start,n_end,q;
118   * linear solvers on the ALTIX. main entry through Paso_solve. this version compiles but     #ifdef _OPENMP
120   *     #else
122       #endif
123
124       #pragma omp parallel for private(i,local_n,rest,n_start,n_end,q)
128            n_start=local_n*i+MIN(i,rest);
129            n_end=local_n*(i+1)+MIN(i+1,rest);
130            if (a==1.) {
131                #pragma ivdep
132                for (q=n_start;q<n_end;++q) {
133                  x[q]+=b*y[q];
134                }
135            } else if ((a==1.) && (b==1)) {
136                #pragma ivdep
137                for (q=n_start;q<n_end;++q) {
138                  x[q]+=y[q];
139                }
140            } else if ((ABS(a)==0) && (ABS(b)==0)) {
141                #pragma ivdep
142                for (q=n_start;q<n_end;++q) {
143                  x[q]=0.;
144                }
145            } else if ((ABS(a)==0) && (ABS(b)==1)) {
146                #pragma ivdep
147                for (q=n_start;q<n_end;++q) {
148                  x[q]=y[q];
149                }
150            } else if (ABS(a)==0) {
151                #pragma ivdep
152                for (q=n_start;q<n_end;++q) {
153                  x[q]=b*y[q];
154                }
155            } else {
156                #pragma ivdep
157                for (q=n_start;q<n_end;++q) {
158                  x[q]=a*x[q]+b*y[q];
159                }
160            }
161       }
162    }
163    void Paso_Copy(const dim_t n, double* out, const double* in) {
164        Paso_LinearCombination(n,out, 1.,in,0., in);
165    }
166    /*
167     * performs an update of the form z=a*x+b*y  where y and x are long vectors.
168     * if a=0, x is not used.
169     * if b=0, y is not used.
170     */
171    void Paso_LinearCombination(const dim_t n, double*z, const double a,const double* x, const double b, const double* y)
172    {
173       dim_t i,local_n,rest,n_start,n_end,q;
174       #ifdef _OPENMP
176       #else
178       #endif
179
180       #pragma omp parallel for private(i,local_n,rest,n_start,n_end,q)
184            n_start=local_n*i+MIN(i,rest);
185            n_end=local_n*(i+1)+MIN(i+1,rest);
186            if ((ABS(a)==0) && (ABS(b)==0)) {
187                #pragma ivdep
188                for (q=n_start;q<n_end;++q) {
189                  z[q]=0.;
190                }
191            } else if ((ABS(a)==0) && (ABS(b)>0.)) {
192                #pragma ivdep
193                for (q=n_start;q<n_end;++q) {
194                  z[q]=b*y[q];
195                }
196            } else if ((ABS(a)>0) && (ABS(b)==0.)) {
197                #pragma ivdep
198                for (q=n_start;q<n_end;++q) {
199                  z[q]=a*x[q];
200                }
201            } else {
202                #pragma ivdep
203                for (q=n_start;q<n_end;++q) {
204                  z[q]=a*x[q]+b*y[q];
205                }
206            }
207       }
208    }
209
210
211
212    double Paso_InnerProduct(const dim_t n,const double* x, const double* y, Paso_MPIInfo* mpiinfo)
213    {
214       dim_t i,local_n,rest,n_start,n_end,q;
215       double my_out=0, local_out=0., out=0.;
216       #ifdef _OPENMP
218       #else
220       #endif
221       #pragma omp parallel for private(i,local_n,rest,n_start,n_end,q) reduction(+:my_out)
225            n_start=local_n*i+MIN(i,rest);
226            n_end=local_n*(i+1)+MIN(i+1,rest);
227            for (q=n_start;q<n_end;++q) local_out+=x[q]*y[q];
228            my_out+=local_out;
229       }
230       #ifdef PASO_MPI
231          #pragma omp single
232          {
233              MPI_Allreduce(&my_out,&out, 1, MPI_DOUBLE, MPI_SUM, mpiinfo->comm);
234           }
235       #else
236           out=my_out;
237       #endif
238
239       return out;
240
241    }
242    double Paso_l2(const dim_t n, const double* x, Paso_MPIInfo* mpiinfo)
243    {
244       dim_t i,local_n,rest,n_start,n_end,q;
245       double my_out=0, local_out=0., out=0.;
246       #ifdef _OPENMP
248       #else
250       #endif
251       #pragma omp parallel for private(i,local_n,rest,n_start,n_end,q) reduction(+:my_out)
255            n_start=local_n*i+MIN(i,rest);
256            n_end=local_n*(i+1)+MIN(i+1,rest);
257            for (q=n_start;q<n_end;++q) local_out+=x[q]*x[q];
258            my_out+=local_out;
259       }
260       #ifdef PASO_MPI
261          #pragma omp single
262          {
263              MPI_Allreduce(&my_out,&out, 1, MPI_DOUBLE, MPI_SUM, mpiinfo->comm);
264           }
265       #else
266           out=my_out;
267       #endif
268
269       return sqrt(out);
270
271    }
272    /*
273     *  Apply a sequence of n-1 Givens rotations (c,s) to v of length n which assumed to be small.
274   *   *
275   */   */
276    void ApplyGivensRotations(const dim_t n,double* v,const double* c,const double* s)
277    {
278        dim_t i;
279        register double w1,w2;
280        #pragma ivdep
281        for (i=0; i<n-1;++i) {
282            w1=c[i]*v[i]-s[i]*v[i+1];
283            w2=s[i]*v[i]+c[i]*v[i+1];
284            v[i]=w1;
285            v[i+1]=w2;
286       }
287    }

Legend:
 Removed from v.1564 changed lines Added in v.1639