for (i=0; i<N-1; i++) {
for (k=i+1; k <= N-1; k++)
for (j=i+1; j <= N; j++)
A(k,j) = A(k,j)-A(k,i)*A(i,j)/A(i,i);
}
X[N-1] = A(N-1,N)/A(N-1,N-1);
for (j=N-2; j>=0; j--) {
for (k=0; k <= j; k++)
A(k,N) = A(k,N)-A(k,j+1)*X[j+1];
X[j]=A(j,N)/A(j,j);
}
#pragma omp parallel for collapse(2)
#pragma omp parallel for
.