1! Copyright (C) 2005-2015 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 parameter (openmp_version = 201307) 50 51 external omp_init_lock, omp_init_nest_lock 52 external omp_destroy_lock, omp_destroy_nest_lock 53 external omp_set_lock, omp_set_nest_lock 54 external omp_unset_lock, omp_unset_nest_lock 55 external omp_set_dynamic, omp_set_nested 56 external omp_set_num_threads 57 58 external omp_get_dynamic, omp_get_nested 59 logical(4) omp_get_dynamic, omp_get_nested 60 external omp_test_lock, omp_in_parallel 61 logical(4) omp_test_lock, omp_in_parallel 62 63 external omp_get_max_threads, omp_get_num_procs 64 integer(4) omp_get_max_threads, omp_get_num_procs 65 external omp_get_num_threads, omp_get_thread_num 66 integer(4) omp_get_num_threads, omp_get_thread_num 67 external omp_test_nest_lock 68 integer(4) omp_test_nest_lock 69 70 external omp_get_wtick, omp_get_wtime 71 double precision omp_get_wtick, omp_get_wtime 72 73 external omp_set_schedule, omp_get_schedule 74 external omp_get_thread_limit, omp_set_max_active_levels 75 external omp_get_max_active_levels, omp_get_level 76 external omp_get_ancestor_thread_num, omp_get_team_size 77 external omp_get_active_level 78 integer(4) omp_get_thread_limit, omp_get_max_active_levels 79 integer(4) omp_get_level, omp_get_ancestor_thread_num 80 integer(4) omp_get_team_size, omp_get_active_level 81 82 external omp_in_final 83 logical(4) omp_in_final 84 85 external omp_get_cancelllation 86 logical(4) omp_get_cancelllation 87 88 external omp_get_proc_bind 89 integer(omp_proc_bind_kind) omp_get_proc_bind 90 91 external omp_set_default_device, omp_get_default_device 92 external omp_get_num_devices, omp_get_num_teams 93 external omp_get_team_num 94 integer(4) omp_get_default_device, omp_get_num_devices 95 integer(4) omp_get_num_teams, omp_get_team_num 96 97 external omp_is_initial_device 98 logical(4) omp_is_initial_device 99