Mercurial > hg > CbC > CbC_gcc

comparison libgomp/omp_lib.f90.in @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
1 ! Copyright (C) 2005-2018 Free Software Foundation, Inc. 1 ! Copyright (C) 2005-2020 Free Software Foundation, Inc.
2 ! Contributed by Jakub Jelinek <jakub@redhat.com>. 2 ! Contributed by Jakub Jelinek <jakub@redhat.com>.
3 3
4 ! This file is part of the GNU Offloading and Multi Processing Library 4 ! This file is part of the GNU Offloading and Multi Processing Library
5 ! (libgomp). 5 ! (libgomp).
6 6
28 integer, parameter :: omp_lock_kind = @OMP_LOCK_KIND@ 28 integer, parameter :: omp_lock_kind = @OMP_LOCK_KIND@
29 integer, parameter :: omp_nest_lock_kind = @OMP_NEST_LOCK_KIND@ 29 integer, parameter :: omp_nest_lock_kind = @OMP_NEST_LOCK_KIND@
30 integer, parameter :: omp_sched_kind = 4 30 integer, parameter :: omp_sched_kind = 4
31 integer, parameter :: omp_proc_bind_kind = 4 31 integer, parameter :: omp_proc_bind_kind = 4
32 integer, parameter :: omp_lock_hint_kind = 4 32 integer, parameter :: omp_lock_hint_kind = 4
33 integer, parameter :: omp_pause_resource_kind = 4
33 integer (omp_sched_kind), parameter :: omp_sched_static = 1 34 integer (omp_sched_kind), parameter :: omp_sched_static = 1
34 integer (omp_sched_kind), parameter :: omp_sched_dynamic = 2 35 integer (omp_sched_kind), parameter :: omp_sched_dynamic = 2
35 integer (omp_sched_kind), parameter :: omp_sched_guided = 3 36 integer (omp_sched_kind), parameter :: omp_sched_guided = 3
36 integer (omp_sched_kind), parameter :: omp_sched_auto = 4 37 integer (omp_sched_kind), parameter :: omp_sched_auto = 4
37 integer (omp_proc_bind_kind), & 38 integer (omp_proc_bind_kind), &
52 parameter :: omp_lock_hint_contended = 2 53 parameter :: omp_lock_hint_contended = 2
53 integer (omp_lock_hint_kind), & 54 integer (omp_lock_hint_kind), &
54 parameter :: omp_lock_hint_nonspeculative = 4 55 parameter :: omp_lock_hint_nonspeculative = 4
55 integer (omp_lock_hint_kind), & 56 integer (omp_lock_hint_kind), &
56 parameter :: omp_lock_hint_speculative = 8 57 parameter :: omp_lock_hint_speculative = 8
58 integer (kind=omp_pause_resource_kind), &
59 parameter :: omp_pause_soft = 1
60 integer (kind=omp_pause_resource_kind), &
61 parameter :: omp_pause_hard = 2
57 end module 62 end module
58 63
59 module omp_lib 64 module omp_lib
60 use omp_lib_kinds 65 use omp_lib_kinds
61 implicit none 66 implicit none
431 function omp_get_max_task_priority () 436 function omp_get_max_task_priority ()
432 integer (4) :: omp_get_max_task_priority 437 integer (4) :: omp_get_max_task_priority
433 end function omp_get_max_task_priority 438 end function omp_get_max_task_priority
434 end interface 439 end interface
435 440
441 interface
442 subroutine omp_set_affinity_format (format)
443 character(len=*), intent(in) :: format
444 end subroutine omp_set_affinity_format
445 end interface
446
447 interface
448 function omp_get_affinity_format (buffer)
449 integer (4) :: omp_get_affinity_format
450 character(len=*), intent(out) :: buffer
451 end function omp_get_affinity_format
452 end interface
453
454 interface
455 subroutine omp_display_affinity (format)
456 character(len=*), intent(in) :: format
457 end subroutine omp_display_affinity
458 end interface
459
460 interface
461 function omp_capture_affinity (buffer, format)
462 integer (4) :: omp_capture_affinity
463 character(len=*), intent(out) :: buffer
464 character(len=*), intent(in) :: format
465 end function omp_capture_affinity
466 end interface
467
468 interface
469 function omp_pause_resource (kind, device_num)
470 use omp_lib_kinds
471 integer (4) :: omp_pause_resource
472 integer (kind=omp_pause_resource_kind), &
473 intent(in) :: kind
474 integer (4) :: device_num
475 end function
476 end interface
477
478 interface
479 function omp_pause_resource_all (kind)
480 use omp_lib_kinds
481 integer (4) :: omp_pause_resource_all
482 integer (kind=omp_pause_resource_kind), &
483 intent(in) :: kind
484 end function
485 end interface
486
436 end module omp_lib 487 end module omp_lib