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

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

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

revision 2099 by artak, Thu Nov 6 03:07:02 2008 UTC revision 2100 by gross, Wed Nov 26 08:13:00 2008 UTC
# Line 269  Paso_Solver_AMG* Paso_Solver_getAMG(Paso Line 269  Paso_Solver_AMG* Paso_Solver_getAMG(Paso
269                                    #pragma omp parallel                                    #pragma omp parallel
270                                    {                                    {
271                                      #pragma omp for private(i,k) schedule(static)                                      #pragma omp for private(i,k) schedule(static)
272                                      for (i = 0; i < out->n_F; ++i) {                                     for (i = 0; i < out->n_F; ++i) {
273                                            for (k=0; k<n_block;++k) {                                            for (k=0; k<n_block;++k) {
274                                               out->x_F[i*n_block+k]=0.;                                               out->x_F[i*n_block+k]=0.;
275                                               out->b_F[i*n_block+k]=0.;                                               out->b_F[i*n_block+k]=0.;

Legend:
Removed from v.2099  
changed lines
  Added in v.2100

  ViewVC Help
Powered by ViewVC 1.1.26