1! Copyright (C) 2005-2020 Free Software Foundation, Inc. 2! Contributed by Jakub Jelinek <jakub@redhat.com>. 3 4! This file is part of the GNU Offloading and Multi Processing Library 5! (libgomp). 6 7! Libgomp is free software; you can redistribute it and/or modify it 8! under the terms of the GNU General Public License as published by 9! the Free Software Foundation; either version 3, or (at your option) 10! any later version. 11 12! Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY 13! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS 14! FOR A PARTICULAR PURPOSE. See the GNU General Public License for 15! more details. 16 17! Under Section 7 of GPL version 3, you are granted additional 18! permissions described in the GCC Runtime Library Exception, version 19! 3.1, as published by the Free Software Foundation. 20 21! You should have received a copy of the GNU General Public License and 22! a copy of the GCC Runtime Library Exception along with this program; 23! see the files COPYING3 and COPYING.RUNTIME respectively. If not, see 24! <http://www.gnu.org/licenses/>. 25 26 integer omp_lock_kind, omp_nest_lock_kind, openmp_version 27 parameter (omp_lock_kind = @OMP_LOCK_KIND@) 28 parameter (omp_nest_lock_kind = @OMP_NEST_LOCK_KIND@) 29 integer omp_sched_kind 30 parameter (omp_sched_kind = 4) 31 integer (omp_sched_kind) omp_sched_static, omp_sched_dynamic 32 integer (omp_sched_kind) omp_sched_guided, omp_sched_auto 33 parameter (omp_sched_static = 1) 34 parameter (omp_sched_dynamic = 2) 35 parameter (omp_sched_guided = 3) 36 parameter (omp_sched_auto = 4) 37 integer omp_proc_bind_kind 38 parameter (omp_proc_bind_kind = 4) 39 integer (omp_proc_bind_kind) omp_proc_bind_false 40 integer (omp_proc_bind_kind) omp_proc_bind_true 41 integer (omp_proc_bind_kind) omp_proc_bind_master 42 integer (omp_proc_bind_kind) omp_proc_bind_close 43 integer (omp_proc_bind_kind) omp_proc_bind_spread 44 parameter (omp_proc_bind_false = 0) 45 parameter (omp_proc_bind_true = 1) 46 parameter (omp_proc_bind_master = 2) 47 parameter (omp_proc_bind_close = 3) 48 parameter (omp_proc_bind_spread = 4) 49 integer omp_lock_hint_kind 50 parameter (omp_lock_hint_kind = 4) 51 integer (omp_lock_hint_kind) omp_lock_hint_none 52 integer (omp_lock_hint_kind) omp_lock_hint_uncontended 53 integer (omp_lock_hint_kind) omp_lock_hint_contended 54 integer (omp_lock_hint_kind) omp_lock_hint_nonspeculative 55 integer (omp_lock_hint_kind) omp_lock_hint_speculative 56 parameter (omp_lock_hint_none = 0) 57 parameter (omp_lock_hint_uncontended = 1) 58 parameter (omp_lock_hint_contended = 2) 59 parameter (omp_lock_hint_nonspeculative = 4) 60 parameter (omp_lock_hint_speculative = 8) 61 parameter (openmp_version = 201511) 62 integer omp_pause_resource_kind 63 parameter (omp_pause_resource_kind = 4) 64 integer (omp_pause_resource_kind) omp_pause_soft 65 integer (omp_pause_resource_kind) omp_pause_hard 66 parameter (omp_pause_soft = 1) 67 parameter (omp_pause_hard = 2) 68 69 external omp_init_lock, omp_init_nest_lock 70 external omp_init_lock_with_hint 71 external omp_init_nest_lock_with_hint 72 external omp_destroy_lock, omp_destroy_nest_lock 73 external omp_set_lock, omp_set_nest_lock 74 external omp_unset_lock, omp_unset_nest_lock 75 external omp_set_dynamic, omp_set_nested 76 external omp_set_num_threads 77 78 external omp_get_dynamic, omp_get_nested 79 logical(4) omp_get_dynamic, omp_get_nested 80 external omp_test_lock, omp_in_parallel 81 logical(4) omp_test_lock, omp_in_parallel 82 83 external omp_get_max_threads, omp_get_num_procs 84 integer(4) omp_get_max_threads, omp_get_num_procs 85 external omp_get_num_threads, omp_get_thread_num 86 integer(4) omp_get_num_threads, omp_get_thread_num 87 external omp_test_nest_lock 88 integer(4) omp_test_nest_lock 89 90 external omp_get_wtick, omp_get_wtime 91 double precision omp_get_wtick, omp_get_wtime 92 93 external omp_set_schedule, omp_get_schedule 94 external omp_get_thread_limit, omp_set_max_active_levels 95 external omp_get_max_active_levels, omp_get_level 96 external omp_get_ancestor_thread_num, omp_get_team_size 97 external omp_get_active_level 98 integer(4) omp_get_thread_limit, omp_get_max_active_levels 99 integer(4) omp_get_level, omp_get_ancestor_thread_num 100 integer(4) omp_get_team_size, omp_get_active_level 101 102 external omp_in_final 103 logical(4) omp_in_final 104 105 external omp_get_cancellation 106 logical(4) omp_get_cancellation 107 108 external omp_get_proc_bind 109 integer(omp_proc_bind_kind) omp_get_proc_bind 110 111 integer(4) omp_get_num_places 112 external omp_get_num_places 113 integer(4) omp_get_place_num_procs 114 external omp_get_place_num_procs 115 external omp_get_place_proc_ids 116 integer(4) omp_get_place_num 117 external omp_get_place_num 118 integer(4) omp_get_partition_num_places 119 external omp_get_partition_num_places 120 external omp_get_partition_place_nums 121 122 external omp_set_default_device, omp_get_default_device 123 external omp_get_num_devices, omp_get_num_teams 124 external omp_get_team_num 125 integer(4) omp_get_default_device, omp_get_num_devices 126 integer(4) omp_get_num_teams, omp_get_team_num 127 128 external omp_is_initial_device 129 logical(4) omp_is_initial_device 130 external omp_get_initial_device 131 integer(4) omp_get_initial_device 132 133 external omp_get_max_task_priority 134 integer(4) omp_get_max_task_priority 135 136 external omp_set_affinity_format, omp_get_affinity_format 137 external omp_display_affinity, omp_capture_affinity 138 integer(4) omp_get_affinity_format 139 integer(4) omp_capture_affinity 140 141 external omp_pause_resource, omp_pause_resource_all 142 integer(4) omp_pause_resource 143 integer(4) omp_pause_resource_all 144