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