A.16 Использование блокировок

В следующем примере (для Раздел 3.2 на странице 41) видит, что аргумент к функциям блокировки должен иметь типomp_lock_tи нет необходимости его сброса. Функции блокировки приводят к потокам простаивать при ожидании завершения записи к первой критической секции, но это другой рабочий при ожидании завершения записи на второй. omp_set_lock блоки функции, но omp_test_lock функция не делает, после чего исполнитель в скипе ().

Пример

Код

// omp_using_locks.c
// compile with: /openmp /c
#include <stdio.h>
#include <omp.h>

void work(int);
void skip(int);

int main() {
   omp_lock_t lck;
   int id;

   omp_init_lock(&lck);
   #pragma omp parallel shared(lck) private(id)
   {
      id = omp_get_thread_num();

      omp_set_lock(&lck);
      printf_s("My thread id is %d.\n", id);

      // only one thread at a time can execute this printf
      omp_unset_lock(&lck);

      while (! omp_test_lock(&lck)) {
         skip(id);   // we do not yet have the lock,
                     // so we must do something else 
      }
      work(id);     // we now have the lock
                    // and can do the work 
      omp_unset_lock(&lck);
   }
   omp_destroy_lock(&lck);
}