Compaq Fortran for Tru64 UNIX Alpha Systems V5.4

omp_test_lock (3f)


Syntax

  interface
     logical function omp_test_lock ( var )
     integer ( kind=8 ) var
     end function omp_test_lock
  end interface
  integer ( kind=8 ) v
  logical result
  result = omp_test_lock ( v )

Return Values

  If attempts to set the lock specified by the variable succeed, the function
  returns TRUE; otherwise, the function returns FALSE.

Restrictions

  Attempting to call this routine with a lock variable that has not been
  initialized is an invalid operation and will cause a run-time error.

See Also

  omp_destroy_lock(3f), omp_init_lock(3f), omp_set_lock(3f),
  omp_unset_lock(3f)