XL Fortran for AIX V8.1.1

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

omp_init_lock

omp_init_lock サブルーチンはロックを初期化して、パラメーターとして渡されたロック変数をそのロックと関連付けます。 omp_init_lock を呼び出した後、ロック変数の元の状態はアンロックされます。

注:
すでに初期化したロック変数とともにこのルーチンを呼び出すと、その結果は定義できません。

引き数タイプおよび属性

整数の kind omp_lock_kind

      USE omp_lib
      INTEGER(kind=omp_lock_kind) LCK
      INTEGER ID
      CALL omp_init_lock(LCK)
!$OMP PARALLEL SHARED(LCK), PRIVATE(ID)
      ID = omp_get_thread_num()
      CALL omp_set_lock(LCK)
      PRINT *,'MY THREAD ID IS', ID
      CALL omp_unset_lock(LCK)
!$OMP END PARALLEL
      CALL omp_destroy_lock(LCK)

上の例では、1 度に 1 つのスレッドごとに、ロック変数 LCK に関連した所有権を獲得し、スレッド ID を出力して、ロックの所有権を解放します。


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