omp_init_lock(svar)

目的

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

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

クラス

サブルーチン

引き数の型と属性

svar
整数の 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 を出力して、 ロックの所有権を解放します。 IBM Copyright 2003