目的
omp_init_lock サブルーチンはロックを初期化して、 パラメーターとして渡されたロック変数をそのロックと関連付けます。 omp_init_lock を呼び出した後、 ロック変数の元の状態はアンロックされます。
すでに初期化したロック変数とともにこのルーチンを呼び出すと、 その結果は定義できません。
クラス
サブルーチン
引き数の型と属性
結果の値と属性
結果の値
例
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 を出力して、
ロックの所有権を解放します。