/[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 1939 by artak, Tue Oct 28 03:47:08 2008 UTC revision 1940 by artak, Tue Oct 28 03:50:01 2008 UTC
# Line 110  Paso_Solver_AMG* Paso_Solver_getAMG(Paso Line 110  Paso_Solver_AMG* Paso_Solver_getAMG(Paso
110       time0=Paso_timer();       time0=Paso_timer();
111       #pragma omp parallel for private(i) schedule(static)       #pragma omp parallel for private(i) schedule(static)
112       for (i=0;i<n;++i) mis_marker[i]=-1;       for (i=0;i<n;++i) mis_marker[i]=-1;
113       /*Paso_Pattern_RS(A_p,mis_marker,0.25);*/       Paso_Pattern_RS(A_p,mis_marker,1/n);
114       Paso_Pattern_coup(A_p,mis_marker,1/n);       /*Paso_Pattern_coup(A_p,mis_marker,1/n);*/
115       time2=Paso_timer()-time0;       time2=Paso_timer()-time0;
116       if (Paso_noError()) {       if (Paso_noError()) {
117          #pragma omp parallel for private(i) schedule(static)          #pragma omp parallel for private(i) schedule(static)

Legend:
Removed from v.1939  
changed lines
  Added in v.1940

  ViewVC Help
Powered by ViewVC 1.1.26