OpenMP を使用した次の C コードがあります。
#pragma omp parallel default(none) private(i, j, k) shared(lb0, ub0, lb1, ub1, lb2, ub2, g, current, update, diff, dg)
#pragma omp for collapse(3)
for( i = lb0; i <= ub0; i++ ) {
for( j = lb1; j <= ub1; j++ ) {
for( k = lb2; k <= ub2; k++ ) {
g->data[ update ][ i ][ j ][ k ] =
ONE_SIXTH * ( g->data[ current ][ i + 1 ][ j ][ k ] +
g->data[ current ][ i - 1 ][ j ][ k ] +
g->data[ current ][ i ][ j + 1 ][ k ] +
g->data[ current ][ i ][ j - 1 ][ k ] +
g->data[ current ][ i ][ j ][ k + 1 ] +
g->data[ current ][ i ][ j ][ k - 1 ] );
diff = fabs( g->data[ update ][ i ][ j ][ k ] - g->data[ current ][ i ][ j ][ k ] );
dg = dg > diff ? dg : diff;
}
}
}
私が知る限り、#pragma omp for ディレクティブでcollapse句を使用するためのルールに従っていますが、コンパイルすると次のエラーが発生します。
grid.c: In function ‘grid_update’:
grid.c:202: error: expected ‘#pragma omp’ clause before ‘collapse’
make: *** [grid.o] Error 1
ここで何が間違っていますか？#pragma omp collapse別のディレクティブとして入れてみましたが、それもうまくいきません。