omp_destroy_lock(svar)

目的

このサブルーチンは、指定されたロック変数とすべてのロックとの関連を解除します。 omp_destroy_lock の呼び出しで破棄されたロック変数を 再びロック変数として使用するには、omp_init_lock を使って再初期化する必要があります。

初期化されていないロック変数を使用して omp_destroy_lock を呼び出した場合、 呼び出しの結果は不確定です。

クラス

サブルーチン

引き数の型と属性

svar
整数型の kind omp_lock_kind

結果の値と属性

結果の値

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

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