--- 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];iptr<pattern->mainPattern->ptr[i+1]; iptr++) {