openmp并行编程[中科院].pptVIP

LOCK 例程 一个锁是一个特殊的变量，它被一个线程设定，而别的线程仅能在设定锁的线程解除锁后才能设定锁 Fortran: Subroutine OMP_INIT_LOCK(VAR) Subroutine OMP_SET_LOCK(VAR) LOGICAL FUNCTION OMP_TEST_LOCK(VAR) Subroutine OMP_UNSET_LOCK(VAR) Subroutine OMP_DESTROY_LOCK(VAR) 其中变量是一个作为地址的整数 * * C/C++： #includeOMP.h void omp_init_lock(omp_lock_t *lock); void omp_set_lock(omp_lock_t *lock); int omp_test_lock(omp_lock_t *lock); void omp_unset_lock(omp_lock_t *lock); void omp_detroy_lock(omp_lock_t *lock); * * 例子 call omp_init_lock(ilock) !$OMP PARALLEL SHARED(ilock) ... do while ( .not. omp_test_lock(ilock)) call do_somethin