目的
このサブルーチンは、指定されたロック変数とすべてのロックとの関連を解除します。 omp_destroy_lock の呼び出しで破棄されたロック変数を 再びロック変数として使用するには、omp_init_lock を使って再初期化する必要があります。
初期化されていないロック変数を使用して omp_destroy_lock を呼び出した場合、 呼び出しの結果は不確定です。
クラス
サブルーチン
引き数の型と属性
結果の値と属性
結果の値
例
下の例では、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