1! Copyright (C) 2005-2018 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 63 external omp_init_lock, omp_init_nest_lock 64 external omp_init_lock_with_hint 65 external omp_init_nest_lock_with_hint 66 external omp_destroy_lock, omp_destroy_nest_lock 67 external omp_set_lock, omp_set_nest_lock 68 external omp_unset_lock, omp_unset_nest_lock 69 external omp_set_dynamic, omp_set_nested 70 external omp_set_num_threads 71 72 external omp_get_dynamic, omp_get_nested 73 logical(4) omp_get_dynamic, omp_get_nested 74 external omp_test_lock, omp_in_parallel 75 logical(4) omp_test_lock, omp_in_parallel 76 77 external omp_get_max_threads, omp_get_num_procs 78 integer(4) omp_get_max_threads, omp_get_num_procs 79 external omp_get_num_threads, omp_get_thread_num 80 integer(4) omp_get_num_threads, omp_get_thread_num 81 external omp_test_nest_lock 82 integer(4) omp_test_nest_lock 83 84 external omp_get_wtick, omp_get_wtime 85 double precision omp_get_wtick, omp_get_wtime 86 87 external omp_set_schedule, omp_get_schedule 88 external omp_get_thread_limit, omp_set_max_active_levels 89 external omp_get_max_active_levels, omp_get_level 90 external omp_get_ancestor_thread_num, omp_get_team_size 91 external omp_get_active_level 92 integer(4) omp_get_thread_limit, omp_get_max_active_levels 93 integer(4) omp_get_level, omp_get_ancestor_thread_num 94 integer(4) omp_get_team_size, omp_get_active_level 95 96 external omp_in_final 97 logical(4) omp_in_final 98 99 external omp_get_cancelllation 100 logical(4) omp_get_cancelllation 101 102 external omp_get_proc_bind 103 integer(omp_proc_bind_kind) omp_get_proc_bind 104 105 integer(4) omp_get_num_places 106 external omp_get_num_places 107 integer(4) omp_get_place_num_procs 108 external omp_get_place_num_procs 109 external omp_get_place_proc_ids 110 integer(4) omp_get_place_num 111 external omp_get_place_num 112 integer(4) omp_get_partition_num_places 113 external omp_get_partition_num_places 114 external omp_get_partition_place_nums 115 116 external omp_set_default_device, omp_get_default_device 117 external omp_get_num_devices, omp_get_num_teams 118 external omp_get_team_num 119 integer(4) omp_get_default_device, omp_get_num_devices 120 integer(4) omp_get_num_teams, omp_get_team_num 121 122 external omp_is_initial_device 123 logical(4) omp_is_initial_device 124 external omp_get_initial_device 125 integer(4) omp_get_initial_device 126 127 external omp_get_max_task_priority 128 integer(4) omp_get_max_task_priority 129