OpenMP* サポートをアプリケーションに追加する

OpenMP* ディレクティブ構文

OpenMP* サポートをアプリケーションに追加するには、最初に適切な OpenMP* ディレクティブをソースコードに追加します。

OpenMP* ディレクティブは、特定の形式と構文を使用します。「OpenMP* のインテル拡張ルーチン」では、インテル® Fortran コンパイラーに追加された OpenMP* の拡張機能について説明されています。

次の構文は、ソースでディレクティブを使用する例を示します。

<prefix> <directive> [<clause>[[,]<clause>...]]

説明:

• <prefix> - すべての OpenMP* ディレクティブに必須。自由形式のソース入力の場合、プリフィクスは !$OMP のみです。固定形式のソース入力の場合、プリフィクスは !$OMP または C$OMP です。

• <directive> - 有効な OpenMP* ディレクティブです。プリフィクスの直後に必ず指定する必要があります。例: !$OMP PARALLEL

• [<clause>] - オプション。clause は順番に関係なく指定でき、制限されていない限り必要に応じて繰り返すことができます。

• [<newline>] - ディレクティブ構文で必要なコンポーネント。このディレクティブに囲まれた構造化ブロックを続行します。

• [,]: オプション。<clause> 間のカンマはオプションです。

Qopenmp (Windows*) または qopenmp (Linux* および macOS*) オプションを指定しない場合、ディレクティブはコメントとして解釈されます。

並列領域を定義している OpenMP* 構造の構文形式は、次のいずれかです。

!$OMP <ディレクティブ>
  <コードの構造化ブロック> 
!$OMP END <ディレクティブ> 
                  # または
!$OMP <ディレクティブ>
  <コードの構造化ブロック> 
                  # または
!$OMP <ディレクティブ>

次の例は、OpenMP* ディレクティブを使用してループを並列化する 1 つの方法を説明します。

subroutine simple_omp(a, N)
  use omp_lib
  integer :: N, a(N) 
!$OMP PARALLEL DO
  do i = 1, N
    a(i) = i*2
  end do 
end subroutine simple_omp

アプリケーションのコンパイル

Qopenmp (Windows*) または qopenmp (Linux* および macOS*) オプションを指定すると、並列化機能はソースの OpenMP* ディレクティブに基づいてマルチスレッド・コードを生成します。このコードはシングル・プロセッサー・システム、マルチプロセッサー・システム、マルチコア・プロセッサー・システムで並列実行が可能です。

Qopenmp (Windows*) または qopenmp (Linux* および macOS*) オプションは、-O0 (Linux* および macOS*) または /Od (Windows*)、O1、O2、O3 の最適化レベルで動作します。

Qopenmp (Windows*) または qopenmp (Linux* および macOS*) オプションと -O0 (Linux* および macOS*) または /Od (Windows*) を指定すると、OpenMP* アプリケーションのデバッグに役立ちます。

次のようなコマンドを使用してアプリケーションをコンパイルします。

次のようなコマンドを使用して、上記の例をコンパイルすると仮定します。c オプションは、実行ファイルを生成しないでコードをコンパイルするようにコンパイラーに指示します。

コンパイラーは、次のようなメッセージを表示します。

parallel.f90(20) : (列 6) リマーク: OpenMP 定義ループが並列化されました。

OpenMP 環境の設定

マルチスレッド・コードを起動する前に、OpenMP* 環境変数 OMP_NUM_THREADS で使用するスレッドの数を設定できます。