--- branches/windows_from_1456_trunk_1544_merged_in/paso/src/SolverFCT.c 2008/05/19 04:44:27 1557 +++ branches/windows_from_1456_trunk_1544_merged_in/paso/src/SolverFCT.c 2008/05/20 07:33:49 1558 @@ -121,7 +121,7 @@ out->u[i]=0.; } /* identify the main diagonals */ - #pragma omp parallel for schedule(static) private(i,iptr,iptr_main,k) + #pragma omp parallel for schedule(static) private(i,iptr,iptr_main) for (i = 0; i < n; ++i) { iptr_main=pattern->mainPattern->ptr[0]-1; for (iptr=pattern->mainPattern->ptr[i];iptrmainPattern->ptr[i+1]; iptr++) {