Parallel Programming in Fortran 95 using OpenMP - People

68 4. The OpenMP run-time library
integer(kind = OMP_nest_lock_kind), intent(inout) :: var
end subroutine OMP_unset_nest_lock
function OMP_test_lock(var)
logical(kind = OMP_logical_kind) :: OMP_test_lock
integer(kind = OMP_lock_kind), intent(inout) :: var
end function OMP_test_lock
function OMP_test_nest_lock(var)
integer(kind = OMP_integer_kind) :: OMP_test_nest_lock
integer(kind = OMP_nest_lock_kind), intent(inout) :: var
end function OMP_test_nest_lock
function OMP_get_wtime()
real(8) :: OMP_get_wtime
end function OMP_get_wtime
function OMP_get_wtick()
real(8) :: OMP_get_wtick
end function OMP_get_wtick
end interface
end module omp_lib