目的
omp_init_nest_lock サブルーチンを使用すると、 ネスト可能ロックを初期化して、指定したロック変数と関連させることができます。 ロック変数の初期状態はアンロックで、初期のネスト・カウントはゼロです。nvar の値は、 初期化されたネスト可能ロック変数でなければなりません。
すでに初期化された変数を使用して omp_init_nest_lock を呼び出すと、 結果は未定義になります。
クラス
サブルーチン
引き数の型と属性
結果の値と属性
結果の値
例
USE omp_lib INTEGER P INTEGER A INTEGER B INTEGER ( kind=omp_nest_lock_kind ) LCK CALL omp_init_nest_lock ( LCK ) !$OMP PARALLEL SECTIONS !$OMP SECTION CALL omp_set_nest_lock ( LCK ) P = P + A CALL omp_set_nest_lock ( LCK ) P = P + B CALL omp_unset_nest_lock ( LCK ) CALL omp_unset_nest_lock ( LCK ) !$OMP SECTION CALL omp_set_nest_lock ( LCK ) P = P + B CALL omp_unset_nest_lock ( LCK ) !$OMP END PARALLEL SECTIONS CALL omp_destroy_nest_lock ( LCK ) END