XL Fortran for AIX V8.1.1

ランゲージ・リファレンス

omp_set_nest_lock

omp_set_nest_lock サブルーチンを使用すると、ネスト可能ロックを設定できます。サブルーチンを実行するスレッドは、ロックが使用可能になるまで待ち、使用可能になるとロックを設定してネスト・カウントを増やします。ネスト可能ロックは、サブルーチンを実行するスレッドによって所有される場合に使用可能であり、そうでない場合はアンロックされます。

引き数タイプおよび属性

整数の 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
 


[ ページのトップ | 前ページ | 次ページ | 目次 | 索引 ]