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) |