Restoring authorship annotation for Anton Samokhvalov <pg83@yandex.ru>. Commit 2 of 2.

1 files changed, 470 insertions, 470 deletions

diff --git a/contrib/libs/cxxsupp/openmp/include/41/omp_lib.f90.var b/contrib/libs/cxxsupp/openmp/include/41/omp_lib.f90.var
index 7066ee41c5..2d23667b10 100644
--- a/contrib/libs/cxxsupp/openmp/include/41/omp_lib.f90.var
+++ b/contrib/libs/cxxsupp/openmp/include/41/omp_lib.f90.var
@@ -1,470 +1,470 @@
-! include/41/omp_lib.f90.var 
- 
-! 
-!//===----------------------------------------------------------------------===// 
-!// 
-!//                     The LLVM Compiler Infrastructure 
-!// 
-!// This file is dual licensed under the MIT and the University of Illinois Open 
-!// Source Licenses. See LICENSE.txt for details. 
-!// 
-!//===----------------------------------------------------------------------===// 
-! 
- 
-      module omp_lib_kinds 
- 
-        use, intrinsic :: iso_c_binding 
- 
-        integer, parameter :: omp_integer_kind       = c_int 
-        integer, parameter :: omp_logical_kind       = 4 
-        integer, parameter :: omp_real_kind          = c_float 
-        integer, parameter :: kmp_double_kind        = c_double 
-        integer, parameter :: omp_lock_kind          = c_intptr_t 
-        integer, parameter :: omp_nest_lock_kind     = c_intptr_t 
-        integer, parameter :: omp_sched_kind         = omp_integer_kind 
-        integer, parameter :: omp_proc_bind_kind     = omp_integer_kind 
-        integer, parameter :: kmp_pointer_kind       = c_intptr_t 
-        integer, parameter :: kmp_size_t_kind        = c_size_t 
-        integer, parameter :: kmp_affinity_mask_kind = c_intptr_t 
-        integer, parameter :: kmp_cancel_kind        = omp_integer_kind 
-        integer, parameter :: omp_lock_hint_kind     = omp_integer_kind 
- 
-      end module omp_lib_kinds 
- 
-      module omp_lib 
- 
-        use omp_lib_kinds 
- 
-        integer (kind=omp_integer_kind), parameter :: openmp_version    = @LIBOMP_OMP_YEAR_MONTH@ 
-        integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@ 
-        integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@ 
-        integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@ 
-        character(*)               kmp_build_date 
-        parameter( kmp_build_date = '@LIBOMP_BUILD_DATE@' ) 
- 
-        integer(kind=omp_sched_kind), parameter :: omp_sched_static  = 1 
-        integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2 
-        integer(kind=omp_sched_kind), parameter :: omp_sched_guided  = 3 
-        integer(kind=omp_sched_kind), parameter :: omp_sched_auto    = 4 
- 
- 
-        integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_false = 0 
-        integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_true = 1 
-        integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_master = 2 
-        integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_close = 3 
-        integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_spread = 4 
- 
-        integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_parallel = 1 
-        integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_loop = 2 
-        integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_sections = 3 
-        integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_taskgroup = 4 
- 
-        integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_none           = 0 
-        integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_uncontended    = 1 
-        integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_contended      = 2 
-        integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_nonspeculative = 4 
-        integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_speculative    = 8 
-        integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_hle            = 65536 
-        integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_rtm            = 131072 
-        integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_adaptive       = 262144 
- 
-        interface 
- 
-!         *** 
-!         *** omp_* entry points 
-!         *** 
- 
-          subroutine omp_set_num_threads(nthreads) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind), value :: nthreads 
-          end subroutine omp_set_num_threads 
- 
-          subroutine omp_set_dynamic(enable) bind(c) 
-            use omp_lib_kinds 
-            logical (kind=omp_logical_kind), value :: enable 
-          end subroutine omp_set_dynamic 
- 
-          subroutine omp_set_nested(enable) bind(c) 
-            use omp_lib_kinds 
-            logical (kind=omp_logical_kind), value :: enable 
-          end subroutine omp_set_nested 
- 
-          function omp_get_num_threads() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) omp_get_num_threads 
-          end function omp_get_num_threads 
- 
-          function omp_get_max_threads() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) omp_get_max_threads 
-          end function omp_get_max_threads 
- 
-          function omp_get_thread_num() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) omp_get_thread_num 
-          end function omp_get_thread_num 
- 
-          function omp_get_num_procs() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) omp_get_num_procs 
-          end function omp_get_num_procs 
- 
-          function omp_in_parallel() bind(c) 
-            use omp_lib_kinds 
-            logical (kind=omp_logical_kind) omp_in_parallel 
-          end function omp_in_parallel 
- 
-          function omp_in_final() bind(c) 
-            use omp_lib_kinds 
-            logical (kind=omp_logical_kind) omp_in_final 
-          end function omp_in_final 
- 
-          function omp_get_dynamic() bind(c) 
-            use omp_lib_kinds 
-            logical (kind=omp_logical_kind) omp_get_dynamic 
-          end function omp_get_dynamic 
- 
-          function omp_get_nested() bind(c) 
-            use omp_lib_kinds 
-            logical (kind=omp_logical_kind) omp_get_nested 
-          end function omp_get_nested 
- 
-          function omp_get_thread_limit() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) omp_get_thread_limit 
-          end function omp_get_thread_limit 
- 
-          subroutine omp_set_max_active_levels(max_levels) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind), value :: max_levels 
-          end subroutine omp_set_max_active_levels 
- 
-          function omp_get_max_active_levels() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) omp_get_max_active_levels 
-          end function omp_get_max_active_levels 
- 
-          function omp_get_level() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) omp_get_level 
-          end function omp_get_level 
- 
-          function omp_get_active_level() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) omp_get_active_level 
-          end function omp_get_active_level 
- 
-          function omp_get_ancestor_thread_num(level) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) omp_get_ancestor_thread_num 
-            integer (kind=omp_integer_kind), value :: level 
-          end function omp_get_ancestor_thread_num 
- 
-          function omp_get_team_size(level) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) omp_get_team_size 
-            integer (kind=omp_integer_kind), value :: level 
-          end function omp_get_team_size 
- 
-          subroutine omp_set_schedule(kind, modifier) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_sched_kind), value :: kind 
-            integer (kind=omp_integer_kind), value :: modifier 
-          end subroutine omp_set_schedule 
- 
-          subroutine omp_get_schedule(kind, modifier) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_sched_kind) kind 
-            integer (kind=omp_integer_kind) modifier 
-          end subroutine omp_get_schedule 
- 
-          function omp_get_proc_bind() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_proc_bind_kind) omp_get_proc_bind 
-          end function omp_get_proc_bind 
- 
-          function omp_get_wtime() bind(c) 
-            use omp_lib_kinds 
-            real (kind=kmp_double_kind) omp_get_wtime 
-          end function omp_get_wtime 
- 
-          function omp_get_wtick() bind(c) 
-            use omp_lib_kinds 
-            real (kind=kmp_double_kind) omp_get_wtick 
-          end function omp_get_wtick 
- 
-          function omp_get_default_device() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) omp_get_default_device 
-          end function omp_get_default_device 
- 
-          subroutine omp_set_default_device(dflt_device) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind), value :: dflt_device 
-          end subroutine omp_set_default_device 
- 
-          function omp_get_num_devices() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) omp_get_num_devices 
-          end function omp_get_num_devices 
- 
-          function omp_get_num_teams() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) omp_get_num_teams 
-          end function omp_get_num_teams 
- 
-          function omp_get_team_num() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) omp_get_team_num 
-          end function omp_get_team_num 
- 
-          function omp_get_cancellation() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) omp_get_cancellation 
-          end function omp_get_cancellation 
- 
-          function omp_is_initial_device() bind(c) 
-            use omp_lib_kinds 
-            logical (kind=omp_logical_kind) omp_is_initial_device 
-          end function omp_is_initial_device 
- 
-          subroutine omp_init_lock(lockvar) bind(c) 
-!DIR$ IF(__INTEL_COMPILER.GE.1400) 
-!DIR$ attributes known_intrinsic :: omp_init_lock 
-!DIR$ ENDIF 
-            use omp_lib_kinds 
-            integer (kind=omp_lock_kind) lockvar 
-          end subroutine omp_init_lock 
- 
-          subroutine omp_destroy_lock(lockvar) bind(c) 
-!DIR$ IF(__INTEL_COMPILER.GE.1400) 
-!DIR$ attributes known_intrinsic :: omp_destroy_lock 
-!DIR$ ENDIF 
-            use omp_lib_kinds 
-            integer (kind=omp_lock_kind) lockvar 
-          end subroutine omp_destroy_lock 
- 
-          subroutine omp_set_lock(lockvar) bind(c) 
-!DIR$ IF(__INTEL_COMPILER.GE.1400) 
-!DIR$ attributes known_intrinsic :: omp_set_lock 
-!DIR$ ENDIF 
-            use omp_lib_kinds 
-            integer (kind=omp_lock_kind) lockvar 
-          end subroutine omp_set_lock 
- 
-          subroutine omp_unset_lock(lockvar) bind(c) 
-!DIR$ IF(__INTEL_COMPILER.GE.1400) 
-!DIR$ attributes known_intrinsic :: omp_unset_lock 
-!DIR$ ENDIF 
-            use omp_lib_kinds 
-            integer (kind=omp_lock_kind) lockvar 
-          end subroutine omp_unset_lock 
- 
-          function omp_test_lock(lockvar) bind(c) 
-!DIR$ IF(__INTEL_COMPILER.GE.1400) 
-!DIR$ attributes known_intrinsic :: omp_test_lock 
-!DIR$ ENDIF 
-            use omp_lib_kinds 
-            logical (kind=omp_logical_kind) omp_test_lock 
-            integer (kind=omp_lock_kind) lockvar 
-          end function omp_test_lock 
- 
-          subroutine omp_init_nest_lock(lockvar) bind(c) 
-!DIR$ IF(__INTEL_COMPILER.GE.1400) 
-!DIR$ attributes known_intrinsic :: omp_init_nest_lock 
-!DIR$ ENDIF 
-            use omp_lib_kinds 
-            integer (kind=omp_nest_lock_kind) lockvar 
-          end subroutine omp_init_nest_lock 
- 
-          subroutine omp_destroy_nest_lock(lockvar) bind(c) 
-!DIR$ IF(__INTEL_COMPILER.GE.1400) 
-!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock 
-!DIR$ ENDIF 
-            use omp_lib_kinds 
-            integer (kind=omp_nest_lock_kind) lockvar 
-          end subroutine omp_destroy_nest_lock 
- 
-          subroutine omp_set_nest_lock(lockvar) bind(c) 
-!DIR$ IF(__INTEL_COMPILER.GE.1400) 
-!DIR$ attributes known_intrinsic :: omp_set_nest_lock 
-!DIR$ ENDIF 
-            use omp_lib_kinds 
-            integer (kind=omp_nest_lock_kind) lockvar 
-          end subroutine omp_set_nest_lock 
- 
-          subroutine omp_unset_nest_lock(lockvar) bind(c) 
-!DIR$ IF(__INTEL_COMPILER.GE.1400) 
-!DIR$ attributes known_intrinsic :: omp_unset_nest_lock 
-!DIR$ ENDIF 
-            use omp_lib_kinds 
-            integer (kind=omp_nest_lock_kind) lockvar 
-          end subroutine omp_unset_nest_lock 
- 
-          function omp_test_nest_lock(lockvar) bind(c) 
-!DIR$ IF(__INTEL_COMPILER.GE.1400) 
-!DIR$ attributes known_intrinsic :: omp_test_nest_lock 
-!DIR$ ENDIF 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) omp_test_nest_lock 
-            integer (kind=omp_nest_lock_kind) lockvar 
-          end function omp_test_nest_lock 
- 
-!         *** 
-!         *** kmp_* entry points 
-!         *** 
- 
-          subroutine kmp_set_stacksize(size) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind), value :: size 
-          end subroutine kmp_set_stacksize 
- 
-          subroutine kmp_set_stacksize_s(size) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=kmp_size_t_kind), value :: size 
-          end subroutine kmp_set_stacksize_s 
- 
-          subroutine kmp_set_blocktime(msec) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind), value :: msec 
-          end subroutine kmp_set_blocktime 
- 
-          subroutine kmp_set_library_serial() bind(c) 
-          end subroutine kmp_set_library_serial 
- 
-          subroutine kmp_set_library_turnaround() bind(c) 
-          end subroutine kmp_set_library_turnaround 
- 
-          subroutine kmp_set_library_throughput() bind(c) 
-          end subroutine kmp_set_library_throughput 
- 
-          subroutine kmp_set_library(libnum) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind), value :: libnum 
-          end subroutine kmp_set_library 
- 
-          subroutine kmp_set_defaults(string) bind(c) 
-            use, intrinsic :: iso_c_binding 
-            character (kind=c_char) :: string(*) 
-          end subroutine kmp_set_defaults 
- 
-          function kmp_get_stacksize() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) kmp_get_stacksize 
-          end function kmp_get_stacksize 
- 
-          function kmp_get_stacksize_s() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=kmp_size_t_kind) kmp_get_stacksize_s 
-          end function kmp_get_stacksize_s 
- 
-          function kmp_get_blocktime() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) kmp_get_blocktime 
-          end function kmp_get_blocktime 
- 
-          function kmp_get_library() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) kmp_get_library 
-          end function kmp_get_library 
- 
-          function kmp_set_affinity(mask) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) kmp_set_affinity 
-            integer (kind=kmp_affinity_mask_kind) mask 
-          end function kmp_set_affinity 
- 
-          function kmp_get_affinity(mask) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) kmp_get_affinity 
-            integer (kind=kmp_affinity_mask_kind) mask 
-          end function kmp_get_affinity 
- 
-          function kmp_get_affinity_max_proc() bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) kmp_get_affinity_max_proc 
-          end function kmp_get_affinity_max_proc 
- 
-          subroutine kmp_create_affinity_mask(mask) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=kmp_affinity_mask_kind) mask 
-          end subroutine kmp_create_affinity_mask 
- 
-          subroutine kmp_destroy_affinity_mask(mask) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=kmp_affinity_mask_kind) mask 
-          end subroutine kmp_destroy_affinity_mask 
- 
-          function kmp_set_affinity_mask_proc(proc, mask) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc 
-            integer (kind=omp_integer_kind), value :: proc 
-            integer (kind=kmp_affinity_mask_kind) mask 
-          end function kmp_set_affinity_mask_proc 
- 
-          function kmp_unset_affinity_mask_proc(proc, mask) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc 
-            integer (kind=omp_integer_kind), value :: proc 
-            integer (kind=kmp_affinity_mask_kind) mask 
-          end function kmp_unset_affinity_mask_proc 
- 
-          function kmp_get_affinity_mask_proc(proc, mask) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc 
-            integer (kind=omp_integer_kind), value :: proc 
-            integer (kind=kmp_affinity_mask_kind) mask 
-          end function kmp_get_affinity_mask_proc 
- 
-          function kmp_malloc(size) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=kmp_pointer_kind) kmp_malloc 
-            integer (kind=kmp_size_t_kind), value :: size 
-          end function kmp_malloc 
- 
-          function kmp_calloc(nelem, elsize) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=kmp_pointer_kind) kmp_calloc 
-            integer (kind=kmp_size_t_kind), value :: nelem 
-            integer (kind=kmp_size_t_kind), value :: elsize 
-          end function kmp_calloc 
- 
-          function kmp_realloc(ptr, size) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=kmp_pointer_kind) kmp_realloc 
-            integer (kind=kmp_pointer_kind), value :: ptr 
-            integer (kind=kmp_size_t_kind), value :: size 
-          end function kmp_realloc 
- 
-          subroutine kmp_free(ptr) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=kmp_pointer_kind), value :: ptr 
-          end subroutine kmp_free 
- 
-          subroutine kmp_set_warnings_on() bind(c) 
-          end subroutine kmp_set_warnings_on 
- 
-          subroutine kmp_set_warnings_off() bind(c) 
-          end subroutine kmp_set_warnings_off 
- 
-          function kmp_get_cancellation_status(cancelkind) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=kmp_cancel_kind), value :: cancelkind 
-            logical (kind=omp_logical_kind) kmp_get_cancellation_status 
-          end function kmp_get_cancellation_status 
- 
-          subroutine omp_init_lock_with_hint(lockvar, lockhint) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_lock_kind) lockvar 
-            integer (kind=omp_lock_hint_kind), value :: lockhint 
-          end subroutine omp_init_lock_with_hint 
- 
-          subroutine omp_init_nest_lock_with_hint(lockvar, lockhint) bind(c) 
-            use omp_lib_kinds 
-            integer (kind=omp_lock_kind) lockvar 
-            integer (kind=omp_lock_hint_kind), value :: lockhint 
-          end subroutine omp_init_nest_lock_with_hint 
- 
-        end interface 
- 
-      end module omp_lib 
+! include/41/omp_lib.f90.var
+
+!
+!//===----------------------------------------------------------------------===//
+!//
+!//                     The LLVM Compiler Infrastructure
+!//
+!// This file is dual licensed under the MIT and the University of Illinois Open
+!// Source Licenses. See LICENSE.txt for details.
+!//
+!//===----------------------------------------------------------------------===//
+!
+
+      module omp_lib_kinds
+
+        use, intrinsic :: iso_c_binding
+
+        integer, parameter :: omp_integer_kind       = c_int
+        integer, parameter :: omp_logical_kind       = 4
+        integer, parameter :: omp_real_kind          = c_float
+        integer, parameter :: kmp_double_kind        = c_double
+        integer, parameter :: omp_lock_kind          = c_intptr_t
+        integer, parameter :: omp_nest_lock_kind     = c_intptr_t
+        integer, parameter :: omp_sched_kind         = omp_integer_kind
+        integer, parameter :: omp_proc_bind_kind     = omp_integer_kind
+        integer, parameter :: kmp_pointer_kind       = c_intptr_t
+        integer, parameter :: kmp_size_t_kind        = c_size_t
+        integer, parameter :: kmp_affinity_mask_kind = c_intptr_t
+        integer, parameter :: kmp_cancel_kind        = omp_integer_kind
+        integer, parameter :: omp_lock_hint_kind     = omp_integer_kind
+
+      end module omp_lib_kinds
+
+      module omp_lib
+
+        use omp_lib_kinds
+
+        integer (kind=omp_integer_kind), parameter :: openmp_version    = @LIBOMP_OMP_YEAR_MONTH@
+        integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@
+        integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@
+        integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@
+        character(*)               kmp_build_date
+        parameter( kmp_build_date = '@LIBOMP_BUILD_DATE@' )
+
+        integer(kind=omp_sched_kind), parameter :: omp_sched_static  = 1
+        integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2
+        integer(kind=omp_sched_kind), parameter :: omp_sched_guided  = 3
+        integer(kind=omp_sched_kind), parameter :: omp_sched_auto    = 4
+
+
+        integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_false = 0
+        integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_true = 1
+        integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_master = 2
+        integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_close = 3
+        integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_spread = 4
+
+        integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_parallel = 1
+        integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_loop = 2
+        integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_sections = 3
+        integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_taskgroup = 4
+
+        integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_none           = 0
+        integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_uncontended    = 1
+        integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_contended      = 2
+        integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_nonspeculative = 4
+        integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_speculative    = 8
+        integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_hle            = 65536
+        integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_rtm            = 131072
+        integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_adaptive       = 262144
+
+        interface
+
+!         ***
+!         *** omp_* entry points
+!         ***
+
+          subroutine omp_set_num_threads(nthreads) bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind), value :: nthreads
+          end subroutine omp_set_num_threads
+
+          subroutine omp_set_dynamic(enable) bind(c)
+            use omp_lib_kinds
+            logical (kind=omp_logical_kind), value :: enable
+          end subroutine omp_set_dynamic
+
+          subroutine omp_set_nested(enable) bind(c)
+            use omp_lib_kinds
+            logical (kind=omp_logical_kind), value :: enable
+          end subroutine omp_set_nested
+
+          function omp_get_num_threads() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) omp_get_num_threads
+          end function omp_get_num_threads
+
+          function omp_get_max_threads() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) omp_get_max_threads
+          end function omp_get_max_threads
+
+          function omp_get_thread_num() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) omp_get_thread_num
+          end function omp_get_thread_num
+
+          function omp_get_num_procs() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) omp_get_num_procs
+          end function omp_get_num_procs
+
+          function omp_in_parallel() bind(c)
+            use omp_lib_kinds
+            logical (kind=omp_logical_kind) omp_in_parallel
+          end function omp_in_parallel
+
+          function omp_in_final() bind(c)
+            use omp_lib_kinds
+            logical (kind=omp_logical_kind) omp_in_final
+          end function omp_in_final
+
+          function omp_get_dynamic() bind(c)
+            use omp_lib_kinds
+            logical (kind=omp_logical_kind) omp_get_dynamic
+          end function omp_get_dynamic
+
+          function omp_get_nested() bind(c)
+            use omp_lib_kinds
+            logical (kind=omp_logical_kind) omp_get_nested
+          end function omp_get_nested
+
+          function omp_get_thread_limit() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) omp_get_thread_limit
+          end function omp_get_thread_limit
+
+          subroutine omp_set_max_active_levels(max_levels) bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind), value :: max_levels
+          end subroutine omp_set_max_active_levels
+
+          function omp_get_max_active_levels() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) omp_get_max_active_levels
+          end function omp_get_max_active_levels
+
+          function omp_get_level() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) omp_get_level
+          end function omp_get_level
+
+          function omp_get_active_level() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) omp_get_active_level
+          end function omp_get_active_level
+
+          function omp_get_ancestor_thread_num(level) bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
+            integer (kind=omp_integer_kind), value :: level
+          end function omp_get_ancestor_thread_num
+
+          function omp_get_team_size(level) bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) omp_get_team_size
+            integer (kind=omp_integer_kind), value :: level
+          end function omp_get_team_size
+
+          subroutine omp_set_schedule(kind, modifier) bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_sched_kind), value :: kind
+            integer (kind=omp_integer_kind), value :: modifier
+          end subroutine omp_set_schedule
+
+          subroutine omp_get_schedule(kind, modifier) bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_sched_kind) kind
+            integer (kind=omp_integer_kind) modifier
+          end subroutine omp_get_schedule
+
+          function omp_get_proc_bind() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_proc_bind_kind) omp_get_proc_bind
+          end function omp_get_proc_bind
+
+          function omp_get_wtime() bind(c)
+            use omp_lib_kinds
+            real (kind=kmp_double_kind) omp_get_wtime
+          end function omp_get_wtime
+
+          function omp_get_wtick() bind(c)
+            use omp_lib_kinds
+            real (kind=kmp_double_kind) omp_get_wtick
+          end function omp_get_wtick
+
+          function omp_get_default_device() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) omp_get_default_device
+          end function omp_get_default_device
+
+          subroutine omp_set_default_device(dflt_device) bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind), value :: dflt_device
+          end subroutine omp_set_default_device
+
+          function omp_get_num_devices() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) omp_get_num_devices
+          end function omp_get_num_devices
+
+          function omp_get_num_teams() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) omp_get_num_teams
+          end function omp_get_num_teams
+
+          function omp_get_team_num() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) omp_get_team_num
+          end function omp_get_team_num
+
+          function omp_get_cancellation() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) omp_get_cancellation
+          end function omp_get_cancellation
+
+          function omp_is_initial_device() bind(c)
+            use omp_lib_kinds
+            logical (kind=omp_logical_kind) omp_is_initial_device
+          end function omp_is_initial_device
+
+          subroutine omp_init_lock(lockvar) bind(c)
+!DIR$ IF(__INTEL_COMPILER.GE.1400)
+!DIR$ attributes known_intrinsic :: omp_init_lock
+!DIR$ ENDIF
+            use omp_lib_kinds
+            integer (kind=omp_lock_kind) lockvar
+          end subroutine omp_init_lock
+
+          subroutine omp_destroy_lock(lockvar) bind(c)
+!DIR$ IF(__INTEL_COMPILER.GE.1400)
+!DIR$ attributes known_intrinsic :: omp_destroy_lock
+!DIR$ ENDIF
+            use omp_lib_kinds
+            integer (kind=omp_lock_kind) lockvar
+          end subroutine omp_destroy_lock
+
+          subroutine omp_set_lock(lockvar) bind(c)
+!DIR$ IF(__INTEL_COMPILER.GE.1400)
+!DIR$ attributes known_intrinsic :: omp_set_lock
+!DIR$ ENDIF
+            use omp_lib_kinds
+            integer (kind=omp_lock_kind) lockvar
+          end subroutine omp_set_lock
+
+          subroutine omp_unset_lock(lockvar) bind(c)
+!DIR$ IF(__INTEL_COMPILER.GE.1400)
+!DIR$ attributes known_intrinsic :: omp_unset_lock
+!DIR$ ENDIF
+            use omp_lib_kinds
+            integer (kind=omp_lock_kind) lockvar
+          end subroutine omp_unset_lock
+
+          function omp_test_lock(lockvar) bind(c)
+!DIR$ IF(__INTEL_COMPILER.GE.1400)
+!DIR$ attributes known_intrinsic :: omp_test_lock
+!DIR$ ENDIF
+            use omp_lib_kinds
+            logical (kind=omp_logical_kind) omp_test_lock
+            integer (kind=omp_lock_kind) lockvar
+          end function omp_test_lock
+
+          subroutine omp_init_nest_lock(lockvar) bind(c)
+!DIR$ IF(__INTEL_COMPILER.GE.1400)
+!DIR$ attributes known_intrinsic :: omp_init_nest_lock
+!DIR$ ENDIF
+            use omp_lib_kinds
+            integer (kind=omp_nest_lock_kind) lockvar
+          end subroutine omp_init_nest_lock
+
+          subroutine omp_destroy_nest_lock(lockvar) bind(c)
+!DIR$ IF(__INTEL_COMPILER.GE.1400)
+!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
+!DIR$ ENDIF
+            use omp_lib_kinds
+            integer (kind=omp_nest_lock_kind) lockvar
+          end subroutine omp_destroy_nest_lock
+
+          subroutine omp_set_nest_lock(lockvar) bind(c)
+!DIR$ IF(__INTEL_COMPILER.GE.1400)
+!DIR$ attributes known_intrinsic :: omp_set_nest_lock
+!DIR$ ENDIF
+            use omp_lib_kinds
+            integer (kind=omp_nest_lock_kind) lockvar
+          end subroutine omp_set_nest_lock
+
+          subroutine omp_unset_nest_lock(lockvar) bind(c)
+!DIR$ IF(__INTEL_COMPILER.GE.1400)
+!DIR$ attributes known_intrinsic :: omp_unset_nest_lock
+!DIR$ ENDIF
+            use omp_lib_kinds
+            integer (kind=omp_nest_lock_kind) lockvar
+          end subroutine omp_unset_nest_lock
+
+          function omp_test_nest_lock(lockvar) bind(c)
+!DIR$ IF(__INTEL_COMPILER.GE.1400)
+!DIR$ attributes known_intrinsic :: omp_test_nest_lock
+!DIR$ ENDIF
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) omp_test_nest_lock
+            integer (kind=omp_nest_lock_kind) lockvar
+          end function omp_test_nest_lock
+
+!         ***
+!         *** kmp_* entry points
+!         ***
+
+          subroutine kmp_set_stacksize(size) bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind), value :: size
+          end subroutine kmp_set_stacksize
+
+          subroutine kmp_set_stacksize_s(size) bind(c)
+            use omp_lib_kinds
+            integer (kind=kmp_size_t_kind), value :: size
+          end subroutine kmp_set_stacksize_s
+
+          subroutine kmp_set_blocktime(msec) bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind), value :: msec
+          end subroutine kmp_set_blocktime
+
+          subroutine kmp_set_library_serial() bind(c)
+          end subroutine kmp_set_library_serial
+
+          subroutine kmp_set_library_turnaround() bind(c)
+          end subroutine kmp_set_library_turnaround
+
+          subroutine kmp_set_library_throughput() bind(c)
+          end subroutine kmp_set_library_throughput
+
+          subroutine kmp_set_library(libnum) bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind), value :: libnum
+          end subroutine kmp_set_library
+
+          subroutine kmp_set_defaults(string) bind(c)
+            use, intrinsic :: iso_c_binding
+            character (kind=c_char) :: string(*)
+          end subroutine kmp_set_defaults
+
+          function kmp_get_stacksize() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) kmp_get_stacksize
+          end function kmp_get_stacksize
+
+          function kmp_get_stacksize_s() bind(c)
+            use omp_lib_kinds
+            integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
+          end function kmp_get_stacksize_s
+
+          function kmp_get_blocktime() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) kmp_get_blocktime
+          end function kmp_get_blocktime
+
+          function kmp_get_library() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) kmp_get_library
+          end function kmp_get_library
+
+          function kmp_set_affinity(mask) bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) kmp_set_affinity
+            integer (kind=kmp_affinity_mask_kind) mask
+          end function kmp_set_affinity
+
+          function kmp_get_affinity(mask) bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) kmp_get_affinity
+            integer (kind=kmp_affinity_mask_kind) mask
+          end function kmp_get_affinity
+
+          function kmp_get_affinity_max_proc() bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
+          end function kmp_get_affinity_max_proc
+
+          subroutine kmp_create_affinity_mask(mask) bind(c)
+            use omp_lib_kinds
+            integer (kind=kmp_affinity_mask_kind) mask
+          end subroutine kmp_create_affinity_mask
+
+          subroutine kmp_destroy_affinity_mask(mask) bind(c)
+            use omp_lib_kinds
+            integer (kind=kmp_affinity_mask_kind) mask
+          end subroutine kmp_destroy_affinity_mask
+
+          function kmp_set_affinity_mask_proc(proc, mask) bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
+            integer (kind=omp_integer_kind), value :: proc
+            integer (kind=kmp_affinity_mask_kind) mask
+          end function kmp_set_affinity_mask_proc
+
+          function kmp_unset_affinity_mask_proc(proc, mask) bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
+            integer (kind=omp_integer_kind), value :: proc
+            integer (kind=kmp_affinity_mask_kind) mask
+          end function kmp_unset_affinity_mask_proc
+
+          function kmp_get_affinity_mask_proc(proc, mask) bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
+            integer (kind=omp_integer_kind), value :: proc
+            integer (kind=kmp_affinity_mask_kind) mask
+          end function kmp_get_affinity_mask_proc
+
+          function kmp_malloc(size) bind(c)
+            use omp_lib_kinds
+            integer (kind=kmp_pointer_kind) kmp_malloc
+            integer (kind=kmp_size_t_kind), value :: size
+          end function kmp_malloc
+
+          function kmp_calloc(nelem, elsize) bind(c)
+            use omp_lib_kinds
+            integer (kind=kmp_pointer_kind) kmp_calloc
+            integer (kind=kmp_size_t_kind), value :: nelem
+            integer (kind=kmp_size_t_kind), value :: elsize
+          end function kmp_calloc
+
+          function kmp_realloc(ptr, size) bind(c)
+            use omp_lib_kinds
+            integer (kind=kmp_pointer_kind) kmp_realloc
+            integer (kind=kmp_pointer_kind), value :: ptr
+            integer (kind=kmp_size_t_kind), value :: size
+          end function kmp_realloc
+
+          subroutine kmp_free(ptr) bind(c)
+            use omp_lib_kinds
+            integer (kind=kmp_pointer_kind), value :: ptr
+          end subroutine kmp_free
+
+          subroutine kmp_set_warnings_on() bind(c)
+          end subroutine kmp_set_warnings_on
+
+          subroutine kmp_set_warnings_off() bind(c)
+          end subroutine kmp_set_warnings_off
+
+          function kmp_get_cancellation_status(cancelkind) bind(c)
+            use omp_lib_kinds
+            integer (kind=kmp_cancel_kind), value :: cancelkind
+            logical (kind=omp_logical_kind) kmp_get_cancellation_status
+          end function kmp_get_cancellation_status
+
+          subroutine omp_init_lock_with_hint(lockvar, lockhint) bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_lock_kind) lockvar
+            integer (kind=omp_lock_hint_kind), value :: lockhint
+          end subroutine omp_init_lock_with_hint
+
+          subroutine omp_init_nest_lock_with_hint(lockvar, lockhint) bind(c)
+            use omp_lib_kinds
+            integer (kind=omp_lock_kind) lockvar
+            integer (kind=omp_lock_hint_kind), value :: lockhint
+          end subroutine omp_init_nest_lock_with_hint
+
+        end interface
+
+      end module omp_lib