omp_init_nest_lock(nvar)

目的

omp_init_nest_lock サブルーチンを使用すると、 ネスト可能ロックを初期化して、指定したロック変数と関連させることができます。 ロック変数の初期状態はアンロックで、初期のネスト・カウントはゼロです。nvar の値は、 初期化されたネスト可能ロック変数でなければなりません。

すでに初期化された変数を使用して omp_init_nest_lock を呼び出すと、 結果は未定義になります。

クラス

サブルーチン

引き数の型と属性

nvar
整数の kind omp_nest_lock_kind

結果の値と属性

結果の値

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
 
IBM Copyright 2003