OpenMP* の高度な問題

ここでは、OpenMP* ライブラリー関数と環境変数の使用方法について説明し、OpenMP* を使用してパフォーマンスを向上するためのいくつかのガイドラインを示します。

OpenMP* は、特定の関数呼び出しおよび環境変数を提供します。ここで使用する主要な関数および環境変数については、次のトピックを参照してください。

• OpenMP* ランタイム・ライブラリー・ルーチン

• OpenMP* 環境変数

この関数呼び出しを使用するには、omp_lib.h ヘッダーファイルをインクルードか、または use omp_lib を指定して Fortran90 モジュールファイルを使用します。これらのファイルは、コンパイラーのインストール時に INCLUDE ディレクトリーにインストールされ、[Q]openmp オプションを使用してアプリケーションをコンパイルします。

次の例では、OpenMP* 関数を使用してアルファベットを出力する方法といくつかの重要な概念について説明します。

1. ディレクティブの代わりに関数を使用するには、コードを書き換える必要があります。コードの書き換えには、追加のデバッグ、テスト、メンテナンスが伴います。
2. OpenMP* サポートなしにコンパイルすることは困難です。
3. 次のループではスレッド数が 26 の倍数でない場合、アルファベットの文字はすべて出力されません。このように、単純なバグは簡単に引き起こされます。
4. ワークキューのアルゴリズムを独自に作成しない限り、ループ・スケジュールの調整ができなくなります。ワークキューのアルゴリズムを独自に作成する場合、一般的には例に示すような STATIC スケジュールが多く、自らのスケジュールによって制限されることになります。

include "omp_lib.h" 
integer i 
integer LettersPerThread, ThisThreadNum, StartLetter, EndLetter 

call omp_set_num_threads(4) 
 	!$OMP PARALLEL PRIVATE(i) 

		! OMP_NUM_THREADS が 26 の倍数ではない。
		! これは、このコードでは大きな問題。
		LettersPerThread = 26 / omp_get_num_threads() 
		ThisThreadNum = omp_get_thread_num() 
		StartLetter = 'a'+ThisThreadNum*LettersPerThread 
		EndLetter = 'a'+ThisThreadNum*LettersPerThread+LettersPerThread 

		DO i = StartLetter, EndLetter - 1 
	 		write( *,FMT='(A)',ADVANCE='NO') char(i) 
		END DO 

	 !$OMP END PARALLEL 
write(*,*) 
end

スレッド・アプリケーションのデバッグには細心の注意が必要です。これは、デバッガーによってランタイム時のパフォーマンスが左右され、競合状態が表面化しないことがあるためです。print 文でさえも、問題を発見しにくくすることがあります。これは、PRINT 文が、同期およびオペレーティング・システム関数を使用するためです。OpenMP* 自体も、プライベート変数と共有変数を区別するために追加の構造を挿入するため、さらに問題を複雑にします。OpenMP* をサポートするデバッガーを使用することにより、変数を検証しステップ実行することが可能になります。また、インテル® Inspector を使用して、発見が困難なスレッド化エラーを分析して検出することができます。 高度なデバッグツールを使用しなくても、排除処理が問題の特定に役立つこともあります。

誤りの多くは競合状態です。ほとんどの競合状態は、本来ならばプライベート変数として宣言されるべき共有変数によって引き起こされます。最初に、並列領域内の変数から検証し、必要に応じて変数がプライベートとして宣言されていることを確認します。次に、並列領域内の関数呼び出しを確認します。

次に示す DEFAULT(NONE) 節は、見つけるのが困難な変数を探すのに役立ちます。DEFAULT(NONE) を指定する場合、各変数はデータ共有属性節とともに宣言する必要があります。

!$OMP PARALLEL DO DEFAULT(NONE) PRIVATE(x,y) SHARED(a,b)

その他のよくある誤りは、初期化されていない変数の使用です。プライベート変数は、並列構造の入口では初期値を持っていません。FIRSTPRIVATE 節および LASTPRIVATE 節を使用して初期化してください (これには余分なオーバーヘッドが伴うため、必要な場合のみ実行します)。

ここまで試してもバグが見つからない場合は、スコープの縮小について考慮します。バイナリーハントを試してください。また別の方法として、並列領域の大きなチャンクをクリティカル・セクションと見なします。バグが含まれている疑いのあるコード領域を選択して、クリティカル・セクションに配置します。クリティカル・セクション内では動作し、クリティカル・セクション外では失敗するコードのセクションを探します。そして、変数を調べて、バグが明白であるかどうかを検証します。それでも動作しない場合は、コンパイラー固有の環境変数 KMP_LIBRARY=serial を設定して、プログラム全体をシリアルで実行します。

この時点でコードがまだ動作せず、OpenMP* API 関数呼び出しを使用していない場合は、[Q]openmp オプションを指定しないでコンパイルして、シリアルバージョンが動作することを確認してください。OpenMP* API 関数呼び出しを使用している場合は、[Q]openmp-stubs オプションを使用してください。