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

15 files changed, 7196 insertions, 7196 deletions

diff --git a/contrib/libs/cxxsupp/openmp/include/30/omp.h.var b/contrib/libs/cxxsupp/openmp/include/30/omp.h.var
index 9ffcfb297b..212c8c180d 100644
--- a/contrib/libs/cxxsupp/openmp/include/30/omp.h.var
+++ b/contrib/libs/cxxsupp/openmp/include/30/omp.h.var
@@ -1,164 +1,164 @@
-/*
- * include/30/omp.h.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.
-//
-//===----------------------------------------------------------------------===//
-
-
-#ifndef __OMP_H
-#   define __OMP_H
-
-#   define KMP_VERSION_MAJOR    @LIBOMP_VERSION_MAJOR@
-#   define KMP_VERSION_MINOR    @LIBOMP_VERSION_MINOR@
-#   define KMP_VERSION_BUILD    @LIBOMP_VERSION_BUILD@
-#   define KMP_BUILD_DATE       "@LIBOMP_BUILD_DATE@"
-
-#   ifdef __cplusplus
-    extern "C" {
-#   endif
-
-#       define omp_set_num_threads          ompc_set_num_threads
-#       define omp_set_dynamic              ompc_set_dynamic
-#       define omp_set_nested               ompc_set_nested
-#       define omp_set_max_active_levels    ompc_set_max_active_levels
-#       define omp_set_schedule             ompc_set_schedule
-#       define omp_get_ancestor_thread_num  ompc_get_ancestor_thread_num
-#       define omp_get_team_size            ompc_get_team_size
-
-
-#       define kmp_set_stacksize            kmpc_set_stacksize
-#       define kmp_set_stacksize_s          kmpc_set_stacksize_s
-#       define kmp_set_blocktime            kmpc_set_blocktime
-#       define kmp_set_library              kmpc_set_library
-#       define kmp_set_defaults             kmpc_set_defaults
-#       define kmp_set_affinity_mask_proc   kmpc_set_affinity_mask_proc
-#       define kmp_unset_affinity_mask_proc kmpc_unset_affinity_mask_proc
-#       define kmp_get_affinity_mask_proc   kmpc_get_affinity_mask_proc
-
-#       define kmp_malloc                   kmpc_malloc
-#       define kmp_calloc                   kmpc_calloc
-#       define kmp_realloc                  kmpc_realloc
-#       define kmp_free                     kmpc_free
-
-
-#   if defined(_WIN32)
-#       define __KAI_KMPC_CONVENTION __cdecl
-#   else
-#       define __KAI_KMPC_CONVENTION
-#   endif
-
-    /* schedule kind constants */
-    typedef enum omp_sched_t {
-	omp_sched_static  = 1,
-	omp_sched_dynamic = 2,
-	omp_sched_guided  = 3,
-	omp_sched_auto    = 4
-    } omp_sched_t;
-
-    /* set API functions */
-    extern void   __KAI_KMPC_CONVENTION  omp_set_num_threads (int);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_dynamic     (int);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_nested      (int);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_max_active_levels (int);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_schedule          (omp_sched_t, int);
-
-    /* query API functions */
-    extern int    __KAI_KMPC_CONVENTION  omp_get_num_threads  (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_dynamic      (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_nested       (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_max_threads  (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_thread_num   (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_num_procs    (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_in_parallel      (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_in_final         (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_active_level        (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_level               (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_ancestor_thread_num (int);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_team_size           (int);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_thread_limit        (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_max_active_levels   (void);
-    extern void   __KAI_KMPC_CONVENTION  omp_get_schedule            (omp_sched_t *, int *);
-
-    /* lock API functions */
-    typedef struct omp_lock_t {
-        void * _lk;
-    } omp_lock_t;
-
-    extern void   __KAI_KMPC_CONVENTION  omp_init_lock    (omp_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_lock     (omp_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_unset_lock   (omp_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_destroy_lock (omp_lock_t *);
-    extern int    __KAI_KMPC_CONVENTION  omp_test_lock    (omp_lock_t *);
-
-    /* nested lock API functions */
-    typedef struct omp_nest_lock_t {
-        void * _lk;
-    } omp_nest_lock_t;
-
-    extern void   __KAI_KMPC_CONVENTION  omp_init_nest_lock    (omp_nest_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_nest_lock     (omp_nest_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_unset_nest_lock   (omp_nest_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_destroy_nest_lock (omp_nest_lock_t *);
-    extern int    __KAI_KMPC_CONVENTION  omp_test_nest_lock    (omp_nest_lock_t *);
-
-    /* time API functions */
-    extern double __KAI_KMPC_CONVENTION  omp_get_wtime (void);
-    extern double __KAI_KMPC_CONVENTION  omp_get_wtick (void);
-
-#   include <stdlib.h>
-    /* kmp API functions */
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_stacksize          (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_stacksize          (int);
-    extern size_t __KAI_KMPC_CONVENTION  kmp_get_stacksize_s        (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_stacksize_s        (size_t);
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_blocktime          (void);
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_library            (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_blocktime          (int);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_library            (int);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_serial     (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_turnaround (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_throughput (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_defaults           (char const *);
-
-    /* affinity API functions */
-    typedef void * kmp_affinity_mask_t;
-
-    extern int    __KAI_KMPC_CONVENTION  kmp_set_affinity             (kmp_affinity_mask_t *);
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity             (kmp_affinity_mask_t *);
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity_max_proc    (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_create_affinity_mask     (kmp_affinity_mask_t *);
-    extern void   __KAI_KMPC_CONVENTION  kmp_destroy_affinity_mask    (kmp_affinity_mask_t *);
-    extern int    __KAI_KMPC_CONVENTION  kmp_set_affinity_mask_proc   (int, kmp_affinity_mask_t *);
-    extern int    __KAI_KMPC_CONVENTION  kmp_unset_affinity_mask_proc (int, kmp_affinity_mask_t *);
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity_mask_proc   (int, kmp_affinity_mask_t *);
-
-    extern void * __KAI_KMPC_CONVENTION  kmp_malloc  (size_t);
-    extern void * __KAI_KMPC_CONVENTION  kmp_calloc  (size_t, size_t);
-    extern void * __KAI_KMPC_CONVENTION  kmp_realloc (void *, size_t);
-    extern void   __KAI_KMPC_CONVENTION  kmp_free    (void *);
-
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_warnings_on(void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_warnings_off(void);
-
-#   undef __KAI_KMPC_CONVENTION
-
-    /* Warning:
-       The following typedefs are not standard, deprecated and will be removed in a future release.
-    */
-    typedef int     omp_int_t;
-    typedef double  omp_wtime_t;
-
-#   ifdef __cplusplus
-    }
-#   endif
-
-#endif /* __OMP_H */
-
+/* 
+ * include/30/omp.h.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. 
+// 
+//===----------------------------------------------------------------------===// 
+ 
+ 
+#ifndef __OMP_H 
+#   define __OMP_H 
+ 
+#   define KMP_VERSION_MAJOR    @LIBOMP_VERSION_MAJOR@ 
+#   define KMP_VERSION_MINOR    @LIBOMP_VERSION_MINOR@ 
+#   define KMP_VERSION_BUILD    @LIBOMP_VERSION_BUILD@ 
+#   define KMP_BUILD_DATE       "@LIBOMP_BUILD_DATE@" 
+ 
+#   ifdef __cplusplus 
+    extern "C" { 
+#   endif 
+ 
+#       define omp_set_num_threads          ompc_set_num_threads 
+#       define omp_set_dynamic              ompc_set_dynamic 
+#       define omp_set_nested               ompc_set_nested 
+#       define omp_set_max_active_levels    ompc_set_max_active_levels 
+#       define omp_set_schedule             ompc_set_schedule 
+#       define omp_get_ancestor_thread_num  ompc_get_ancestor_thread_num 
+#       define omp_get_team_size            ompc_get_team_size 
+ 
+ 
+#       define kmp_set_stacksize            kmpc_set_stacksize 
+#       define kmp_set_stacksize_s          kmpc_set_stacksize_s 
+#       define kmp_set_blocktime            kmpc_set_blocktime 
+#       define kmp_set_library              kmpc_set_library 
+#       define kmp_set_defaults             kmpc_set_defaults 
+#       define kmp_set_affinity_mask_proc   kmpc_set_affinity_mask_proc 
+#       define kmp_unset_affinity_mask_proc kmpc_unset_affinity_mask_proc 
+#       define kmp_get_affinity_mask_proc   kmpc_get_affinity_mask_proc 
+ 
+#       define kmp_malloc                   kmpc_malloc 
+#       define kmp_calloc                   kmpc_calloc 
+#       define kmp_realloc                  kmpc_realloc 
+#       define kmp_free                     kmpc_free 
+ 
+ 
+#   if defined(_WIN32) 
+#       define __KAI_KMPC_CONVENTION __cdecl 
+#   else 
+#       define __KAI_KMPC_CONVENTION 
+#   endif 
+ 
+    /* schedule kind constants */ 
+    typedef enum omp_sched_t { 
+	omp_sched_static  = 1, 
+	omp_sched_dynamic = 2, 
+	omp_sched_guided  = 3, 
+	omp_sched_auto    = 4 
+    } omp_sched_t; 
+ 
+    /* set API functions */ 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_num_threads (int); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_dynamic     (int); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_nested      (int); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_max_active_levels (int); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_schedule          (omp_sched_t, int); 
+ 
+    /* query API functions */ 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_num_threads  (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_dynamic      (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_nested       (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_max_threads  (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_thread_num   (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_num_procs    (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_in_parallel      (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_in_final         (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_active_level        (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_level               (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_ancestor_thread_num (int); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_team_size           (int); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_thread_limit        (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_max_active_levels   (void); 
+    extern void   __KAI_KMPC_CONVENTION  omp_get_schedule            (omp_sched_t *, int *); 
+ 
+    /* lock API functions */ 
+    typedef struct omp_lock_t { 
+        void * _lk; 
+    } omp_lock_t; 
+ 
+    extern void   __KAI_KMPC_CONVENTION  omp_init_lock    (omp_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_lock     (omp_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_unset_lock   (omp_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_destroy_lock (omp_lock_t *); 
+    extern int    __KAI_KMPC_CONVENTION  omp_test_lock    (omp_lock_t *); 
+ 
+    /* nested lock API functions */ 
+    typedef struct omp_nest_lock_t { 
+        void * _lk; 
+    } omp_nest_lock_t; 
+ 
+    extern void   __KAI_KMPC_CONVENTION  omp_init_nest_lock    (omp_nest_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_nest_lock     (omp_nest_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_unset_nest_lock   (omp_nest_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_destroy_nest_lock (omp_nest_lock_t *); 
+    extern int    __KAI_KMPC_CONVENTION  omp_test_nest_lock    (omp_nest_lock_t *); 
+ 
+    /* time API functions */ 
+    extern double __KAI_KMPC_CONVENTION  omp_get_wtime (void); 
+    extern double __KAI_KMPC_CONVENTION  omp_get_wtick (void); 
+ 
+#   include <stdlib.h> 
+    /* kmp API functions */ 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_stacksize          (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_stacksize          (int); 
+    extern size_t __KAI_KMPC_CONVENTION  kmp_get_stacksize_s        (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_stacksize_s        (size_t); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_blocktime          (void); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_library            (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_blocktime          (int); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_library            (int); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_serial     (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_turnaround (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_throughput (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_defaults           (char const *); 
+ 
+    /* affinity API functions */ 
+    typedef void * kmp_affinity_mask_t; 
+ 
+    extern int    __KAI_KMPC_CONVENTION  kmp_set_affinity             (kmp_affinity_mask_t *); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity             (kmp_affinity_mask_t *); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity_max_proc    (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_create_affinity_mask     (kmp_affinity_mask_t *); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_destroy_affinity_mask    (kmp_affinity_mask_t *); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_set_affinity_mask_proc   (int, kmp_affinity_mask_t *); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_unset_affinity_mask_proc (int, kmp_affinity_mask_t *); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity_mask_proc   (int, kmp_affinity_mask_t *); 
+ 
+    extern void * __KAI_KMPC_CONVENTION  kmp_malloc  (size_t); 
+    extern void * __KAI_KMPC_CONVENTION  kmp_calloc  (size_t, size_t); 
+    extern void * __KAI_KMPC_CONVENTION  kmp_realloc (void *, size_t); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_free    (void *); 
+ 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_warnings_on(void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_warnings_off(void); 
+ 
+#   undef __KAI_KMPC_CONVENTION 
+ 
+    /* Warning: 
+       The following typedefs are not standard, deprecated and will be removed in a future release. 
+    */ 
+    typedef int     omp_int_t; 
+    typedef double  omp_wtime_t; 
+ 
+#   ifdef __cplusplus 
+    } 
+#   endif 
+ 
+#endif /* __OMP_H */ 
+ 
diff --git a/contrib/libs/cxxsupp/openmp/include/30/omp_lib.f.var b/contrib/libs/cxxsupp/openmp/include/30/omp_lib.f.var
index 99122067af..f46b5224ac 100644
--- a/contrib/libs/cxxsupp/openmp/include/30/omp_lib.f.var
+++ b/contrib/libs/cxxsupp/openmp/include/30/omp_lib.f.var
@@ -1,633 +1,633 @@
-! include/30/omp_lib.f.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.
-!//
-!//===----------------------------------------------------------------------===//
-!
-
-!***
-!*** Some of the directives for the following routine extend past column 72,
-!*** so process this file in 132-column mode.
-!***
-
-!dec$ fixedformlinesize:132
-
-      module omp_lib_kinds
-
-        integer, parameter :: omp_integer_kind       = 4
-        integer, parameter :: omp_logical_kind       = 4
-        integer, parameter :: omp_real_kind          = 4
-        integer, parameter :: omp_lock_kind          = int_ptr_kind()
-        integer, parameter :: omp_nest_lock_kind     = int_ptr_kind()
-        integer, parameter :: omp_sched_kind         = omp_integer_kind
-        integer, parameter :: kmp_pointer_kind       = int_ptr_kind()
-        integer, parameter :: kmp_size_t_kind        = int_ptr_kind()
-        integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind()
-
-      end module omp_lib_kinds
-
-      module omp_lib
-
-        use omp_lib_kinds
-
-        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(*), parameter :: kmp_build_date    = '@LIBOMP_BUILD_DATE@'
-        integer (kind=omp_integer_kind), parameter :: openmp_version    = @LIBOMP_OMP_YEAR_MONTH@
-
-        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
-
-        interface
-
-!         ***
-!         *** omp_* entry points
-!         ***
-
-          subroutine omp_set_num_threads(nthreads)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) nthreads
-          end subroutine omp_set_num_threads
-
-          subroutine omp_set_dynamic(enable)
-            use omp_lib_kinds
-            logical (kind=omp_logical_kind) enable
-          end subroutine omp_set_dynamic
-
-          subroutine omp_set_nested(enable)
-            use omp_lib_kinds
-            logical (kind=omp_logical_kind) enable
-          end subroutine omp_set_nested
-
-          function omp_get_num_threads()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_num_threads
-          end function omp_get_num_threads
-
-          function omp_get_max_threads()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_max_threads
-          end function omp_get_max_threads
-
-          function omp_get_thread_num()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_thread_num
-          end function omp_get_thread_num
-
-          function omp_get_num_procs()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_num_procs
-          end function omp_get_num_procs
-
-          function omp_in_parallel()
-            use omp_lib_kinds
-            logical (kind=omp_logical_kind) omp_in_parallel
-          end function omp_in_parallel
-
-          function omp_get_dynamic()
-            use omp_lib_kinds
-            logical (kind=omp_logical_kind) omp_get_dynamic
-          end function omp_get_dynamic
-
-          function omp_get_nested()
-            use omp_lib_kinds
-            logical (kind=omp_logical_kind) omp_get_nested
-          end function omp_get_nested
-
-          function omp_get_thread_limit()
-            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)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) max_levels
-          end subroutine omp_set_max_active_levels
-
-          function omp_get_max_active_levels()
-            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()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_level
-          end function omp_get_level
-
-          function omp_get_active_level()
-            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)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) level
-            integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
-          end function omp_get_ancestor_thread_num
-
-          function omp_get_team_size(level)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) level
-            integer (kind=omp_integer_kind) omp_get_team_size
-          end function omp_get_team_size
-
-          subroutine omp_set_schedule(kind, modifier)
-            use omp_lib_kinds
-            integer (kind=omp_sched_kind) kind
-            integer (kind=omp_integer_kind) modifier
-          end subroutine omp_set_schedule
-
-          subroutine omp_get_schedule(kind, modifier)
-            use omp_lib_kinds
-            integer (kind=omp_sched_kind) kind
-            integer (kind=omp_integer_kind) modifier
-          end subroutine omp_get_schedule
-
-          function omp_get_wtime()
-            double precision omp_get_wtime
-          end function omp_get_wtime
-
-          function omp_get_wtick ()
-            double precision omp_get_wtick
-          end function omp_get_wtick
-
-          subroutine omp_init_lock(lockvar)
-            use omp_lib_kinds
-            integer (kind=omp_lock_kind) lockvar
-          end subroutine omp_init_lock
-
-          subroutine omp_destroy_lock(lockvar)
-            use omp_lib_kinds
-            integer (kind=omp_lock_kind) lockvar
-          end subroutine omp_destroy_lock
-
-          subroutine omp_set_lock(lockvar)
-            use omp_lib_kinds
-            integer (kind=omp_lock_kind) lockvar
-          end subroutine omp_set_lock
-
-          subroutine omp_unset_lock(lockvar)
-            use omp_lib_kinds
-            integer (kind=omp_lock_kind) lockvar
-          end subroutine omp_unset_lock
-
-          function omp_test_lock(lockvar)
-            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)
-            use omp_lib_kinds
-            integer (kind=omp_nest_lock_kind) lockvar
-          end subroutine omp_init_nest_lock
-
-          subroutine omp_destroy_nest_lock(lockvar)
-            use omp_lib_kinds
-            integer (kind=omp_nest_lock_kind) lockvar
-          end subroutine omp_destroy_nest_lock
-
-          subroutine omp_set_nest_lock(lockvar)
-            use omp_lib_kinds
-            integer (kind=omp_nest_lock_kind) lockvar
-          end subroutine omp_set_nest_lock
-
-          subroutine omp_unset_nest_lock(lockvar)
-            use omp_lib_kinds
-            integer (kind=omp_nest_lock_kind) lockvar
-          end subroutine omp_unset_nest_lock
-
-          function omp_test_nest_lock(lockvar)
-            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)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) size
-          end subroutine kmp_set_stacksize
-
-          subroutine kmp_set_stacksize_s(size)
-            use omp_lib_kinds
-            integer (kind=kmp_size_t_kind) size
-          end subroutine kmp_set_stacksize_s
-
-          subroutine kmp_set_blocktime(msec)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) msec
-          end subroutine kmp_set_blocktime
-
-          subroutine kmp_set_library_serial()
-          end subroutine kmp_set_library_serial
-
-          subroutine kmp_set_library_turnaround()
-          end subroutine kmp_set_library_turnaround
-
-          subroutine kmp_set_library_throughput()
-          end subroutine kmp_set_library_throughput
-
-          subroutine kmp_set_library(libnum)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) libnum
-          end subroutine kmp_set_library
-
-          subroutine kmp_set_defaults(string)
-            character*(*) string
-          end subroutine kmp_set_defaults
-
-          function kmp_get_stacksize()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_get_stacksize
-          end function kmp_get_stacksize
-
-          function kmp_get_stacksize_s()
-            use omp_lib_kinds
-            integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
-          end function kmp_get_stacksize_s
-
-          function kmp_get_blocktime()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_get_blocktime
-          end function kmp_get_blocktime
-
-          function kmp_get_library()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_get_library
-          end function kmp_get_library
-
-          function kmp_set_affinity(mask)
-            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)
-            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()
-            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)
-            use omp_lib_kinds
-            integer (kind=kmp_affinity_mask_kind) mask
-          end subroutine kmp_create_affinity_mask
-
-          subroutine kmp_destroy_affinity_mask(mask)
-            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)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
-            integer (kind=omp_integer_kind) proc
-            integer (kind=kmp_affinity_mask_kind) mask
-          end function kmp_set_affinity_mask_proc
-
-          function kmp_unset_affinity_mask_proc(proc, mask)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
-            integer (kind=omp_integer_kind) proc
-            integer (kind=kmp_affinity_mask_kind) mask
-          end function kmp_unset_affinity_mask_proc
-
-          function kmp_get_affinity_mask_proc(proc, mask)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
-            integer (kind=omp_integer_kind) proc
-            integer (kind=kmp_affinity_mask_kind) mask
-          end function kmp_get_affinity_mask_proc
-
-          function kmp_malloc(size)
-            use omp_lib_kinds
-            integer (kind=kmp_pointer_kind) kmp_malloc
-            integer (kind=kmp_size_t_kind) size
-          end function kmp_malloc
-
-          function kmp_calloc(nelem, elsize)
-            use omp_lib_kinds
-            integer (kind=kmp_pointer_kind) kmp_calloc
-            integer (kind=kmp_size_t_kind) nelem
-            integer (kind=kmp_size_t_kind) elsize
-          end function kmp_calloc
-
-          function kmp_realloc(ptr, size)
-            use omp_lib_kinds
-            integer (kind=kmp_pointer_kind) kmp_realloc
-            integer (kind=kmp_pointer_kind) ptr
-            integer (kind=kmp_size_t_kind) size
-          end function kmp_realloc
-
-          subroutine kmp_free(ptr)
-            use omp_lib_kinds
-            integer (kind=kmp_pointer_kind) ptr
-          end subroutine kmp_free
-
-          subroutine kmp_set_warnings_on()
-          end subroutine kmp_set_warnings_on
-
-          subroutine kmp_set_warnings_off()
-          end subroutine kmp_set_warnings_off
-
-        end interface
-
-!dec$ if defined(_WIN32)
-!dec$   if defined(_WIN64) .or. defined(_M_AMD64)
-
-!***
-!*** The Fortran entry points must be in uppercase, even if the /Qlowercase
-!*** option is specified.  The alias attribute ensures that the specified
-!*** string is used as the entry point.
-!***
-!*** On the Windows* OS IA-32 architecture, the Fortran entry points have an
-!*** underscore prepended.  On the Windows* OS Intel(R) 64
-!*** architecture, no underscore is prepended.
-!***
-
-!dec$ attributes alias:'OMP_SET_NUM_THREADS' :: omp_set_num_threads
-!dec$ attributes alias:'OMP_SET_DYNAMIC' :: omp_set_dynamic
-!dec$ attributes alias:'OMP_SET_NESTED' :: omp_set_nested
-!dec$ attributes alias:'OMP_GET_NUM_THREADS' :: omp_get_num_threads
-!dec$ attributes alias:'OMP_GET_MAX_THREADS' :: omp_get_max_threads
-!dec$ attributes alias:'OMP_GET_THREAD_NUM' :: omp_get_thread_num
-!dec$ attributes alias:'OMP_GET_NUM_PROCS' :: omp_get_num_procs
-!dec$ attributes alias:'OMP_IN_PARALLEL' :: omp_in_parallel
-!dec$ attributes alias:'OMP_GET_DYNAMIC' :: omp_get_dynamic
-!dec$ attributes alias:'OMP_GET_NESTED' :: omp_get_nested
-!dec$ attributes alias:'OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
-!dec$ attributes alias:'OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
-!dec$ attributes alias:'OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
-!dec$ attributes alias:'OMP_GET_LEVEL' :: omp_get_level
-!dec$ attributes alias:'OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
-!dec$ attributes alias:'OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
-!dec$ attributes alias:'OMP_GET_TEAM_SIZE' :: omp_get_team_size
-!dec$ attributes alias:'OMP_SET_SCHEDULE' :: omp_set_schedule
-!dec$ attributes alias:'OMP_GET_SCHEDULE' :: omp_get_schedule
-!dec$ attributes alias:'OMP_GET_WTIME' :: omp_get_wtime
-!dec$ attributes alias:'OMP_GET_WTICK' :: omp_get_wtick
-
-!dec$ attributes alias:'omp_init_lock' :: omp_init_lock
-!dec$ attributes alias:'omp_destroy_lock' :: omp_destroy_lock
-!dec$ attributes alias:'omp_set_lock' :: omp_set_lock
-!dec$ attributes alias:'omp_unset_lock' :: omp_unset_lock
-!dec$ attributes alias:'omp_test_lock' :: omp_test_lock
-!dec$ attributes alias:'omp_init_nest_lock' :: omp_init_nest_lock
-!dec$ attributes alias:'omp_destroy_nest_lock' :: omp_destroy_nest_lock
-!dec$ attributes alias:'omp_set_nest_lock' :: omp_set_nest_lock
-!dec$ attributes alias:'omp_unset_nest_lock' :: omp_unset_nest_lock
-!dec$ attributes alias:'omp_test_nest_lock' :: omp_test_nest_lock
-
-!dec$ attributes alias:'KMP_SET_STACKSIZE'::kmp_set_stacksize
-!dec$ attributes alias:'KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
-!dec$ attributes alias:'KMP_SET_BLOCKTIME'::kmp_set_blocktime
-!dec$ attributes alias:'KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
-!dec$ attributes alias:'KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
-!dec$ attributes alias:'KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
-!dec$ attributes alias:'KMP_SET_LIBRARY'::kmp_set_library
-!dec$ attributes alias:'KMP_GET_STACKSIZE'::kmp_get_stacksize
-!dec$ attributes alias:'KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
-!dec$ attributes alias:'KMP_GET_BLOCKTIME'::kmp_get_blocktime
-!dec$ attributes alias:'KMP_GET_LIBRARY'::kmp_get_library
-!dec$ attributes alias:'KMP_SET_AFFINITY'::kmp_set_affinity
-!dec$ attributes alias:'KMP_GET_AFFINITY'::kmp_get_affinity
-!dec$ attributes alias:'KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
-!dec$ attributes alias:'KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
-!dec$ attributes alias:'KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
-!dec$ attributes alias:'KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
-!dec$ attributes alias:'KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
-!dec$ attributes alias:'KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
-!dec$ attributes alias:'KMP_MALLOC'::kmp_malloc
-!dec$ attributes alias:'KMP_CALLOC'::kmp_calloc
-!dec$ attributes alias:'KMP_REALLOC'::kmp_realloc
-!dec$ attributes alias:'KMP_FREE'::kmp_free
-
-!dec$ attributes alias:'KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
-!dec$ attributes alias:'KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
-
-!dec$   else
-
-!***
-!*** On Windows* OS IA-32 architecture, the Fortran entry points have an underscore prepended.
-!***
-
-!dec$ attributes alias:'_OMP_SET_NUM_THREADS' :: omp_set_num_threads
-!dec$ attributes alias:'_OMP_SET_DYNAMIC' :: omp_set_dynamic
-!dec$ attributes alias:'_OMP_SET_NESTED' :: omp_set_nested
-!dec$ attributes alias:'_OMP_GET_NUM_THREADS' :: omp_get_num_threads
-!dec$ attributes alias:'_OMP_GET_MAX_THREADS' :: omp_get_max_threads
-!dec$ attributes alias:'_OMP_GET_THREAD_NUM' :: omp_get_thread_num
-!dec$ attributes alias:'_OMP_GET_NUM_PROCS' :: omp_get_num_procs
-!dec$ attributes alias:'_OMP_IN_PARALLEL' :: omp_in_parallel
-!dec$ attributes alias:'_OMP_GET_DYNAMIC' :: omp_get_dynamic
-!dec$ attributes alias:'_OMP_GET_NESTED' :: omp_get_nested
-!dec$ attributes alias:'_OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
-!dec$ attributes alias:'_OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
-!dec$ attributes alias:'_OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
-!dec$ attributes alias:'_OMP_GET_LEVEL' :: omp_get_level
-!dec$ attributes alias:'_OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
-!dec$ attributes alias:'_OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
-!dec$ attributes alias:'_OMP_GET_TEAM_SIZE' :: omp_get_team_size
-!dec$ attributes alias:'_OMP_SET_SCHEDULE' :: omp_set_schedule
-!dec$ attributes alias:'_OMP_GET_SCHEDULE' :: omp_get_schedule
-!dec$ attributes alias:'_OMP_GET_WTIME' :: omp_get_wtime
-!dec$ attributes alias:'_OMP_GET_WTICK' :: omp_get_wtick
-
-!dec$ attributes alias:'_omp_init_lock' :: omp_init_lock
-!dec$ attributes alias:'_omp_destroy_lock' :: omp_destroy_lock
-!dec$ attributes alias:'_omp_set_lock' :: omp_set_lock
-!dec$ attributes alias:'_omp_unset_lock' :: omp_unset_lock
-!dec$ attributes alias:'_omp_test_lock' :: omp_test_lock
-!dec$ attributes alias:'_omp_init_nest_lock' :: omp_init_nest_lock
-!dec$ attributes alias:'_omp_destroy_nest_lock' :: omp_destroy_nest_lock
-!dec$ attributes alias:'_omp_set_nest_lock' :: omp_set_nest_lock
-!dec$ attributes alias:'_omp_unset_nest_lock' :: omp_unset_nest_lock
-!dec$ attributes alias:'_omp_test_nest_lock' :: omp_test_nest_lock
-
-!dec$ attributes alias:'_KMP_SET_STACKSIZE'::kmp_set_stacksize
-!dec$ attributes alias:'_KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
-!dec$ attributes alias:'_KMP_SET_BLOCKTIME'::kmp_set_blocktime
-!dec$ attributes alias:'_KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
-!dec$ attributes alias:'_KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
-!dec$ attributes alias:'_KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
-!dec$ attributes alias:'_KMP_SET_LIBRARY'::kmp_set_library
-!dec$ attributes alias:'_KMP_GET_STACKSIZE'::kmp_get_stacksize
-!dec$ attributes alias:'_KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
-!dec$ attributes alias:'_KMP_GET_BLOCKTIME'::kmp_get_blocktime
-!dec$ attributes alias:'_KMP_GET_LIBRARY'::kmp_get_library
-!dec$ attributes alias:'_KMP_SET_AFFINITY'::kmp_set_affinity
-!dec$ attributes alias:'_KMP_GET_AFFINITY'::kmp_get_affinity
-!dec$ attributes alias:'_KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
-!dec$ attributes alias:'_KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
-!dec$ attributes alias:'_KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
-!dec$ attributes alias:'_KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
-!dec$ attributes alias:'_KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
-!dec$ attributes alias:'_KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
-!dec$ attributes alias:'_KMP_MALLOC'::kmp_malloc
-!dec$ attributes alias:'_KMP_CALLOC'::kmp_calloc
-!dec$ attributes alias:'_KMP_REALLOC'::kmp_realloc
-!dec$ attributes alias:'_KMP_FREE'::kmp_free
-
-!dec$ attributes alias:'_KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
-!dec$ attributes alias:'_KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
-
-!dec$   endif
-!dec$ endif
-
-!dec$ if defined(__linux)
-
-!***
-!*** The Linux* OS entry points are in lowercase, with an underscore appended.
-!***
-
-!dec$ attributes alias:'omp_set_num_threads_'::omp_set_num_threads
-!dec$ attributes alias:'omp_set_dynamic_'::omp_set_dynamic
-!dec$ attributes alias:'omp_set_nested_'::omp_set_nested
-!dec$ attributes alias:'omp_get_num_threads_'::omp_get_num_threads
-!dec$ attributes alias:'omp_get_max_threads_'::omp_get_max_threads
-!dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num
-!dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs
-!dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel
-!dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic
-!dec$ attributes alias:'omp_get_nested_'::omp_get_nested
-!dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit
-!dec$ attributes alias:'omp_set_max_active_levels_'::omp_set_max_active_levels
-!dec$ attributes alias:'omp_get_max_active_levels_'::omp_get_max_active_levels
-!dec$ attributes alias:'omp_get_level_'::omp_get_level
-!dec$ attributes alias:'omp_get_active_level_'::omp_get_active_level
-!dec$ attributes alias:'omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
-!dec$ attributes alias:'omp_get_team_size_'::omp_get_team_size
-!dec$ attributes alias:'omp_set_schedule_'::omp_set_schedule
-!dec$ attributes alias:'omp_get_schedule_'::omp_get_schedule
-!dec$ attributes alias:'omp_get_wtime_'::omp_get_wtime
-!dec$ attributes alias:'omp_get_wtick_'::omp_get_wtick
-
-!dec$ attributes alias:'omp_init_lock_'::omp_init_lock
-!dec$ attributes alias:'omp_destroy_lock_'::omp_destroy_lock
-!dec$ attributes alias:'omp_set_lock_'::omp_set_lock
-!dec$ attributes alias:'omp_unset_lock_'::omp_unset_lock
-!dec$ attributes alias:'omp_test_lock_'::omp_test_lock
-!dec$ attributes alias:'omp_init_nest_lock_'::omp_init_nest_lock
-!dec$ attributes alias:'omp_destroy_nest_lock_'::omp_destroy_nest_lock
-!dec$ attributes alias:'omp_set_nest_lock_'::omp_set_nest_lock
-!dec$ attributes alias:'omp_unset_nest_lock_'::omp_unset_nest_lock
-!dec$ attributes alias:'omp_test_nest_lock_'::omp_test_nest_lock
-
-!dec$ attributes alias:'kmp_set_stacksize_'::kmp_set_stacksize
-!dec$ attributes alias:'kmp_set_stacksize_s_'::kmp_set_stacksize_s
-!dec$ attributes alias:'kmp_set_blocktime_'::kmp_set_blocktime
-!dec$ attributes alias:'kmp_set_library_serial_'::kmp_set_library_serial
-!dec$ attributes alias:'kmp_set_library_turnaround_'::kmp_set_library_turnaround
-!dec$ attributes alias:'kmp_set_library_throughput_'::kmp_set_library_throughput
-!dec$ attributes alias:'kmp_set_library_'::kmp_set_library
-!dec$ attributes alias:'kmp_get_stacksize_'::kmp_get_stacksize
-!dec$ attributes alias:'kmp_get_stacksize_s_'::kmp_get_stacksize_s
-!dec$ attributes alias:'kmp_get_blocktime_'::kmp_get_blocktime
-!dec$ attributes alias:'kmp_get_library_'::kmp_get_library
-!dec$ attributes alias:'kmp_set_affinity_'::kmp_set_affinity
-!dec$ attributes alias:'kmp_get_affinity_'::kmp_get_affinity
-!dec$ attributes alias:'kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
-!dec$ attributes alias:'kmp_create_affinity_mask_'::kmp_create_affinity_mask
-!dec$ attributes alias:'kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
-!dec$ attributes alias:'kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
-!dec$ attributes alias:'kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
-!dec$ attributes alias:'kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
-!dec$ attributes alias:'kmp_malloc_'::kmp_malloc
-!dec$ attributes alias:'kmp_calloc_'::kmp_calloc
-!dec$ attributes alias:'kmp_realloc_'::kmp_realloc
-!dec$ attributes alias:'kmp_free_'::kmp_free
-
-!dec$ attributes alias:'kmp_set_warnings_on_'::kmp_set_warnings_on
-!dec$ attributes alias:'kmp_set_warnings_off_'::kmp_set_warnings_off
-
-!dec$ endif
-
-!dec$ if defined(__APPLE__)
-
-!***
-!*** The Mac entry points are in lowercase, with an both an underscore
-!*** appended and an underscore prepended.
-!***
-
-!dec$ attributes alias:'_omp_set_num_threads_'::omp_set_num_threads
-!dec$ attributes alias:'_omp_set_dynamic_'::omp_set_dynamic
-!dec$ attributes alias:'_omp_set_nested_'::omp_set_nested
-!dec$ attributes alias:'_omp_get_num_threads_'::omp_get_num_threads
-!dec$ attributes alias:'_omp_get_max_threads_'::omp_get_max_threads
-!dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num
-!dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs
-!dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel
-!dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic
-!dec$ attributes alias:'_omp_get_nested_'::omp_get_nested
-!dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit
-!dec$ attributes alias:'_omp_set_max_active_levels_'::omp_set_max_active_levels
-!dec$ attributes alias:'_omp_get_max_active_levels_'::omp_get_max_active_levels
-!dec$ attributes alias:'_omp_get_level_'::omp_get_level
-!dec$ attributes alias:'_omp_get_active_level_'::omp_get_active_level
-!dec$ attributes alias:'_omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
-!dec$ attributes alias:'_omp_get_team_size_'::omp_get_team_size
-!dec$ attributes alias:'_omp_set_schedule_'::omp_set_schedule
-!dec$ attributes alias:'_omp_get_schedule_'::omp_get_schedule
-!dec$ attributes alias:'_omp_get_wtime_'::omp_get_wtime
-!dec$ attributes alias:'_omp_get_wtick_'::omp_get_wtick
-
-!dec$ attributes alias:'_omp_init_lock_'::omp_init_lock
-!dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock
-!dec$ attributes alias:'_omp_set_lock_'::omp_set_lock
-!dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock
-!dec$ attributes alias:'_omp_test_lock_'::omp_test_lock
-!dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock
-!dec$ attributes alias:'_omp_destroy_nest_lock_'::omp_destroy_nest_lock
-!dec$ attributes alias:'_omp_set_nest_lock_'::omp_set_nest_lock
-!dec$ attributes alias:'_omp_unset_nest_lock_'::omp_unset_nest_lock
-!dec$ attributes alias:'_omp_test_nest_lock_'::omp_test_nest_lock
-
-!dec$ attributes alias:'_kmp_set_stacksize_'::kmp_set_stacksize
-!dec$ attributes alias:'_kmp_set_stacksize_s_'::kmp_set_stacksize_s
-!dec$ attributes alias:'_kmp_set_blocktime_'::kmp_set_blocktime
-!dec$ attributes alias:'_kmp_set_library_serial_'::kmp_set_library_serial
-!dec$ attributes alias:'_kmp_set_library_turnaround_'::kmp_set_library_turnaround
-!dec$ attributes alias:'_kmp_set_library_throughput_'::kmp_set_library_throughput
-!dec$ attributes alias:'_kmp_set_library_'::kmp_set_library
-!dec$ attributes alias:'_kmp_get_stacksize_'::kmp_get_stacksize
-!dec$ attributes alias:'_kmp_get_stacksize_s_'::kmp_get_stacksize_s
-!dec$ attributes alias:'_kmp_get_blocktime_'::kmp_get_blocktime
-!dec$ attributes alias:'_kmp_get_library_'::kmp_get_library
-!dec$ attributes alias:'_kmp_set_affinity_'::kmp_set_affinity
-!dec$ attributes alias:'_kmp_get_affinity_'::kmp_get_affinity
-!dec$ attributes alias:'_kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
-!dec$ attributes alias:'_kmp_create_affinity_mask_'::kmp_create_affinity_mask
-!dec$ attributes alias:'_kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
-!dec$ attributes alias:'_kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
-!dec$ attributes alias:'_kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
-!dec$ attributes alias:'_kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
-!dec$ attributes alias:'_kmp_malloc_'::kmp_malloc
-!dec$ attributes alias:'_kmp_calloc_'::kmp_calloc
-!dec$ attributes alias:'_kmp_realloc_'::kmp_realloc
-!dec$ attributes alias:'_kmp_free_'::kmp_free
-
-!dec$ attributes alias:'_kmp_set_warnings_on_'::kmp_set_warnings_on
-!dec$ attributes alias:'_kmp_set_warnings_off_'::kmp_set_warnings_off
-
-!dec$ endif
-
-      end module omp_lib
-
+! include/30/omp_lib.f.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. 
+!// 
+!//===----------------------------------------------------------------------===// 
+! 
+ 
+!*** 
+!*** Some of the directives for the following routine extend past column 72, 
+!*** so process this file in 132-column mode. 
+!*** 
+ 
+!dec$ fixedformlinesize:132 
+ 
+      module omp_lib_kinds 
+ 
+        integer, parameter :: omp_integer_kind       = 4 
+        integer, parameter :: omp_logical_kind       = 4 
+        integer, parameter :: omp_real_kind          = 4 
+        integer, parameter :: omp_lock_kind          = int_ptr_kind() 
+        integer, parameter :: omp_nest_lock_kind     = int_ptr_kind() 
+        integer, parameter :: omp_sched_kind         = omp_integer_kind 
+        integer, parameter :: kmp_pointer_kind       = int_ptr_kind() 
+        integer, parameter :: kmp_size_t_kind        = int_ptr_kind() 
+        integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind() 
+ 
+      end module omp_lib_kinds 
+ 
+      module omp_lib 
+ 
+        use omp_lib_kinds 
+ 
+        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(*), parameter :: kmp_build_date    = '@LIBOMP_BUILD_DATE@' 
+        integer (kind=omp_integer_kind), parameter :: openmp_version    = @LIBOMP_OMP_YEAR_MONTH@ 
+ 
+        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 
+ 
+        interface 
+ 
+!         *** 
+!         *** omp_* entry points 
+!         *** 
+ 
+          subroutine omp_set_num_threads(nthreads) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) nthreads 
+          end subroutine omp_set_num_threads 
+ 
+          subroutine omp_set_dynamic(enable) 
+            use omp_lib_kinds 
+            logical (kind=omp_logical_kind) enable 
+          end subroutine omp_set_dynamic 
+ 
+          subroutine omp_set_nested(enable) 
+            use omp_lib_kinds 
+            logical (kind=omp_logical_kind) enable 
+          end subroutine omp_set_nested 
+ 
+          function omp_get_num_threads() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_num_threads 
+          end function omp_get_num_threads 
+ 
+          function omp_get_max_threads() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_max_threads 
+          end function omp_get_max_threads 
+ 
+          function omp_get_thread_num() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_thread_num 
+          end function omp_get_thread_num 
+ 
+          function omp_get_num_procs() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_num_procs 
+          end function omp_get_num_procs 
+ 
+          function omp_in_parallel() 
+            use omp_lib_kinds 
+            logical (kind=omp_logical_kind) omp_in_parallel 
+          end function omp_in_parallel 
+ 
+          function omp_get_dynamic() 
+            use omp_lib_kinds 
+            logical (kind=omp_logical_kind) omp_get_dynamic 
+          end function omp_get_dynamic 
+ 
+          function omp_get_nested() 
+            use omp_lib_kinds 
+            logical (kind=omp_logical_kind) omp_get_nested 
+          end function omp_get_nested 
+ 
+          function omp_get_thread_limit() 
+            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) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) max_levels 
+          end subroutine omp_set_max_active_levels 
+ 
+          function omp_get_max_active_levels() 
+            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() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_level 
+          end function omp_get_level 
+ 
+          function omp_get_active_level() 
+            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) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) level 
+            integer (kind=omp_integer_kind) omp_get_ancestor_thread_num 
+          end function omp_get_ancestor_thread_num 
+ 
+          function omp_get_team_size(level) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) level 
+            integer (kind=omp_integer_kind) omp_get_team_size 
+          end function omp_get_team_size 
+ 
+          subroutine omp_set_schedule(kind, modifier) 
+            use omp_lib_kinds 
+            integer (kind=omp_sched_kind) kind 
+            integer (kind=omp_integer_kind) modifier 
+          end subroutine omp_set_schedule 
+ 
+          subroutine omp_get_schedule(kind, modifier) 
+            use omp_lib_kinds 
+            integer (kind=omp_sched_kind) kind 
+            integer (kind=omp_integer_kind) modifier 
+          end subroutine omp_get_schedule 
+ 
+          function omp_get_wtime() 
+            double precision omp_get_wtime 
+          end function omp_get_wtime 
+ 
+          function omp_get_wtick () 
+            double precision omp_get_wtick 
+          end function omp_get_wtick 
+ 
+          subroutine omp_init_lock(lockvar) 
+            use omp_lib_kinds 
+            integer (kind=omp_lock_kind) lockvar 
+          end subroutine omp_init_lock 
+ 
+          subroutine omp_destroy_lock(lockvar) 
+            use omp_lib_kinds 
+            integer (kind=omp_lock_kind) lockvar 
+          end subroutine omp_destroy_lock 
+ 
+          subroutine omp_set_lock(lockvar) 
+            use omp_lib_kinds 
+            integer (kind=omp_lock_kind) lockvar 
+          end subroutine omp_set_lock 
+ 
+          subroutine omp_unset_lock(lockvar) 
+            use omp_lib_kinds 
+            integer (kind=omp_lock_kind) lockvar 
+          end subroutine omp_unset_lock 
+ 
+          function omp_test_lock(lockvar) 
+            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) 
+            use omp_lib_kinds 
+            integer (kind=omp_nest_lock_kind) lockvar 
+          end subroutine omp_init_nest_lock 
+ 
+          subroutine omp_destroy_nest_lock(lockvar) 
+            use omp_lib_kinds 
+            integer (kind=omp_nest_lock_kind) lockvar 
+          end subroutine omp_destroy_nest_lock 
+ 
+          subroutine omp_set_nest_lock(lockvar) 
+            use omp_lib_kinds 
+            integer (kind=omp_nest_lock_kind) lockvar 
+          end subroutine omp_set_nest_lock 
+ 
+          subroutine omp_unset_nest_lock(lockvar) 
+            use omp_lib_kinds 
+            integer (kind=omp_nest_lock_kind) lockvar 
+          end subroutine omp_unset_nest_lock 
+ 
+          function omp_test_nest_lock(lockvar) 
+            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) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) size 
+          end subroutine kmp_set_stacksize 
+ 
+          subroutine kmp_set_stacksize_s(size) 
+            use omp_lib_kinds 
+            integer (kind=kmp_size_t_kind) size 
+          end subroutine kmp_set_stacksize_s 
+ 
+          subroutine kmp_set_blocktime(msec) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) msec 
+          end subroutine kmp_set_blocktime 
+ 
+          subroutine kmp_set_library_serial() 
+          end subroutine kmp_set_library_serial 
+ 
+          subroutine kmp_set_library_turnaround() 
+          end subroutine kmp_set_library_turnaround 
+ 
+          subroutine kmp_set_library_throughput() 
+          end subroutine kmp_set_library_throughput 
+ 
+          subroutine kmp_set_library(libnum) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) libnum 
+          end subroutine kmp_set_library 
+ 
+          subroutine kmp_set_defaults(string) 
+            character*(*) string 
+          end subroutine kmp_set_defaults 
+ 
+          function kmp_get_stacksize() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_get_stacksize 
+          end function kmp_get_stacksize 
+ 
+          function kmp_get_stacksize_s() 
+            use omp_lib_kinds 
+            integer (kind=kmp_size_t_kind) kmp_get_stacksize_s 
+          end function kmp_get_stacksize_s 
+ 
+          function kmp_get_blocktime() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_get_blocktime 
+          end function kmp_get_blocktime 
+ 
+          function kmp_get_library() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_get_library 
+          end function kmp_get_library 
+ 
+          function kmp_set_affinity(mask) 
+            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) 
+            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() 
+            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) 
+            use omp_lib_kinds 
+            integer (kind=kmp_affinity_mask_kind) mask 
+          end subroutine kmp_create_affinity_mask 
+ 
+          subroutine kmp_destroy_affinity_mask(mask) 
+            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) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc 
+            integer (kind=omp_integer_kind) proc 
+            integer (kind=kmp_affinity_mask_kind) mask 
+          end function kmp_set_affinity_mask_proc 
+ 
+          function kmp_unset_affinity_mask_proc(proc, mask) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc 
+            integer (kind=omp_integer_kind) proc 
+            integer (kind=kmp_affinity_mask_kind) mask 
+          end function kmp_unset_affinity_mask_proc 
+ 
+          function kmp_get_affinity_mask_proc(proc, mask) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc 
+            integer (kind=omp_integer_kind) proc 
+            integer (kind=kmp_affinity_mask_kind) mask 
+          end function kmp_get_affinity_mask_proc 
+ 
+          function kmp_malloc(size) 
+            use omp_lib_kinds 
+            integer (kind=kmp_pointer_kind) kmp_malloc 
+            integer (kind=kmp_size_t_kind) size 
+          end function kmp_malloc 
+ 
+          function kmp_calloc(nelem, elsize) 
+            use omp_lib_kinds 
+            integer (kind=kmp_pointer_kind) kmp_calloc 
+            integer (kind=kmp_size_t_kind) nelem 
+            integer (kind=kmp_size_t_kind) elsize 
+          end function kmp_calloc 
+ 
+          function kmp_realloc(ptr, size) 
+            use omp_lib_kinds 
+            integer (kind=kmp_pointer_kind) kmp_realloc 
+            integer (kind=kmp_pointer_kind) ptr 
+            integer (kind=kmp_size_t_kind) size 
+          end function kmp_realloc 
+ 
+          subroutine kmp_free(ptr) 
+            use omp_lib_kinds 
+            integer (kind=kmp_pointer_kind) ptr 
+          end subroutine kmp_free 
+ 
+          subroutine kmp_set_warnings_on() 
+          end subroutine kmp_set_warnings_on 
+ 
+          subroutine kmp_set_warnings_off() 
+          end subroutine kmp_set_warnings_off 
+ 
+        end interface 
+ 
+!dec$ if defined(_WIN32) 
+!dec$   if defined(_WIN64) .or. defined(_M_AMD64) 
+ 
+!*** 
+!*** The Fortran entry points must be in uppercase, even if the /Qlowercase 
+!*** option is specified.  The alias attribute ensures that the specified 
+!*** string is used as the entry point. 
+!*** 
+!*** On the Windows* OS IA-32 architecture, the Fortran entry points have an 
+!*** underscore prepended.  On the Windows* OS Intel(R) 64 
+!*** architecture, no underscore is prepended. 
+!*** 
+ 
+!dec$ attributes alias:'OMP_SET_NUM_THREADS' :: omp_set_num_threads 
+!dec$ attributes alias:'OMP_SET_DYNAMIC' :: omp_set_dynamic 
+!dec$ attributes alias:'OMP_SET_NESTED' :: omp_set_nested 
+!dec$ attributes alias:'OMP_GET_NUM_THREADS' :: omp_get_num_threads 
+!dec$ attributes alias:'OMP_GET_MAX_THREADS' :: omp_get_max_threads 
+!dec$ attributes alias:'OMP_GET_THREAD_NUM' :: omp_get_thread_num 
+!dec$ attributes alias:'OMP_GET_NUM_PROCS' :: omp_get_num_procs 
+!dec$ attributes alias:'OMP_IN_PARALLEL' :: omp_in_parallel 
+!dec$ attributes alias:'OMP_GET_DYNAMIC' :: omp_get_dynamic 
+!dec$ attributes alias:'OMP_GET_NESTED' :: omp_get_nested 
+!dec$ attributes alias:'OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit 
+!dec$ attributes alias:'OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels 
+!dec$ attributes alias:'OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels 
+!dec$ attributes alias:'OMP_GET_LEVEL' :: omp_get_level 
+!dec$ attributes alias:'OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level 
+!dec$ attributes alias:'OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num 
+!dec$ attributes alias:'OMP_GET_TEAM_SIZE' :: omp_get_team_size 
+!dec$ attributes alias:'OMP_SET_SCHEDULE' :: omp_set_schedule 
+!dec$ attributes alias:'OMP_GET_SCHEDULE' :: omp_get_schedule 
+!dec$ attributes alias:'OMP_GET_WTIME' :: omp_get_wtime 
+!dec$ attributes alias:'OMP_GET_WTICK' :: omp_get_wtick 
+ 
+!dec$ attributes alias:'omp_init_lock' :: omp_init_lock 
+!dec$ attributes alias:'omp_destroy_lock' :: omp_destroy_lock 
+!dec$ attributes alias:'omp_set_lock' :: omp_set_lock 
+!dec$ attributes alias:'omp_unset_lock' :: omp_unset_lock 
+!dec$ attributes alias:'omp_test_lock' :: omp_test_lock 
+!dec$ attributes alias:'omp_init_nest_lock' :: omp_init_nest_lock 
+!dec$ attributes alias:'omp_destroy_nest_lock' :: omp_destroy_nest_lock 
+!dec$ attributes alias:'omp_set_nest_lock' :: omp_set_nest_lock 
+!dec$ attributes alias:'omp_unset_nest_lock' :: omp_unset_nest_lock 
+!dec$ attributes alias:'omp_test_nest_lock' :: omp_test_nest_lock 
+ 
+!dec$ attributes alias:'KMP_SET_STACKSIZE'::kmp_set_stacksize 
+!dec$ attributes alias:'KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s 
+!dec$ attributes alias:'KMP_SET_BLOCKTIME'::kmp_set_blocktime 
+!dec$ attributes alias:'KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial 
+!dec$ attributes alias:'KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround 
+!dec$ attributes alias:'KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput 
+!dec$ attributes alias:'KMP_SET_LIBRARY'::kmp_set_library 
+!dec$ attributes alias:'KMP_GET_STACKSIZE'::kmp_get_stacksize 
+!dec$ attributes alias:'KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s 
+!dec$ attributes alias:'KMP_GET_BLOCKTIME'::kmp_get_blocktime 
+!dec$ attributes alias:'KMP_GET_LIBRARY'::kmp_get_library 
+!dec$ attributes alias:'KMP_SET_AFFINITY'::kmp_set_affinity 
+!dec$ attributes alias:'KMP_GET_AFFINITY'::kmp_get_affinity 
+!dec$ attributes alias:'KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc 
+!dec$ attributes alias:'KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask 
+!dec$ attributes alias:'KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask 
+!dec$ attributes alias:'KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc 
+!dec$ attributes alias:'KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc 
+!dec$ attributes alias:'KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc 
+!dec$ attributes alias:'KMP_MALLOC'::kmp_malloc 
+!dec$ attributes alias:'KMP_CALLOC'::kmp_calloc 
+!dec$ attributes alias:'KMP_REALLOC'::kmp_realloc 
+!dec$ attributes alias:'KMP_FREE'::kmp_free 
+ 
+!dec$ attributes alias:'KMP_SET_WARNINGS_ON'::kmp_set_warnings_on 
+!dec$ attributes alias:'KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off 
+ 
+!dec$   else 
+ 
+!*** 
+!*** On Windows* OS IA-32 architecture, the Fortran entry points have an underscore prepended. 
+!*** 
+ 
+!dec$ attributes alias:'_OMP_SET_NUM_THREADS' :: omp_set_num_threads 
+!dec$ attributes alias:'_OMP_SET_DYNAMIC' :: omp_set_dynamic 
+!dec$ attributes alias:'_OMP_SET_NESTED' :: omp_set_nested 
+!dec$ attributes alias:'_OMP_GET_NUM_THREADS' :: omp_get_num_threads 
+!dec$ attributes alias:'_OMP_GET_MAX_THREADS' :: omp_get_max_threads 
+!dec$ attributes alias:'_OMP_GET_THREAD_NUM' :: omp_get_thread_num 
+!dec$ attributes alias:'_OMP_GET_NUM_PROCS' :: omp_get_num_procs 
+!dec$ attributes alias:'_OMP_IN_PARALLEL' :: omp_in_parallel 
+!dec$ attributes alias:'_OMP_GET_DYNAMIC' :: omp_get_dynamic 
+!dec$ attributes alias:'_OMP_GET_NESTED' :: omp_get_nested 
+!dec$ attributes alias:'_OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit 
+!dec$ attributes alias:'_OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels 
+!dec$ attributes alias:'_OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels 
+!dec$ attributes alias:'_OMP_GET_LEVEL' :: omp_get_level 
+!dec$ attributes alias:'_OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level 
+!dec$ attributes alias:'_OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num 
+!dec$ attributes alias:'_OMP_GET_TEAM_SIZE' :: omp_get_team_size 
+!dec$ attributes alias:'_OMP_SET_SCHEDULE' :: omp_set_schedule 
+!dec$ attributes alias:'_OMP_GET_SCHEDULE' :: omp_get_schedule 
+!dec$ attributes alias:'_OMP_GET_WTIME' :: omp_get_wtime 
+!dec$ attributes alias:'_OMP_GET_WTICK' :: omp_get_wtick 
+ 
+!dec$ attributes alias:'_omp_init_lock' :: omp_init_lock 
+!dec$ attributes alias:'_omp_destroy_lock' :: omp_destroy_lock 
+!dec$ attributes alias:'_omp_set_lock' :: omp_set_lock 
+!dec$ attributes alias:'_omp_unset_lock' :: omp_unset_lock 
+!dec$ attributes alias:'_omp_test_lock' :: omp_test_lock 
+!dec$ attributes alias:'_omp_init_nest_lock' :: omp_init_nest_lock 
+!dec$ attributes alias:'_omp_destroy_nest_lock' :: omp_destroy_nest_lock 
+!dec$ attributes alias:'_omp_set_nest_lock' :: omp_set_nest_lock 
+!dec$ attributes alias:'_omp_unset_nest_lock' :: omp_unset_nest_lock 
+!dec$ attributes alias:'_omp_test_nest_lock' :: omp_test_nest_lock 
+ 
+!dec$ attributes alias:'_KMP_SET_STACKSIZE'::kmp_set_stacksize 
+!dec$ attributes alias:'_KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s 
+!dec$ attributes alias:'_KMP_SET_BLOCKTIME'::kmp_set_blocktime 
+!dec$ attributes alias:'_KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial 
+!dec$ attributes alias:'_KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround 
+!dec$ attributes alias:'_KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput 
+!dec$ attributes alias:'_KMP_SET_LIBRARY'::kmp_set_library 
+!dec$ attributes alias:'_KMP_GET_STACKSIZE'::kmp_get_stacksize 
+!dec$ attributes alias:'_KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s 
+!dec$ attributes alias:'_KMP_GET_BLOCKTIME'::kmp_get_blocktime 
+!dec$ attributes alias:'_KMP_GET_LIBRARY'::kmp_get_library 
+!dec$ attributes alias:'_KMP_SET_AFFINITY'::kmp_set_affinity 
+!dec$ attributes alias:'_KMP_GET_AFFINITY'::kmp_get_affinity 
+!dec$ attributes alias:'_KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc 
+!dec$ attributes alias:'_KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask 
+!dec$ attributes alias:'_KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask 
+!dec$ attributes alias:'_KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc 
+!dec$ attributes alias:'_KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc 
+!dec$ attributes alias:'_KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc 
+!dec$ attributes alias:'_KMP_MALLOC'::kmp_malloc 
+!dec$ attributes alias:'_KMP_CALLOC'::kmp_calloc 
+!dec$ attributes alias:'_KMP_REALLOC'::kmp_realloc 
+!dec$ attributes alias:'_KMP_FREE'::kmp_free 
+ 
+!dec$ attributes alias:'_KMP_SET_WARNINGS_ON'::kmp_set_warnings_on 
+!dec$ attributes alias:'_KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off 
+ 
+!dec$   endif 
+!dec$ endif 
+ 
+!dec$ if defined(__linux) 
+ 
+!*** 
+!*** The Linux* OS entry points are in lowercase, with an underscore appended. 
+!*** 
+ 
+!dec$ attributes alias:'omp_set_num_threads_'::omp_set_num_threads 
+!dec$ attributes alias:'omp_set_dynamic_'::omp_set_dynamic 
+!dec$ attributes alias:'omp_set_nested_'::omp_set_nested 
+!dec$ attributes alias:'omp_get_num_threads_'::omp_get_num_threads 
+!dec$ attributes alias:'omp_get_max_threads_'::omp_get_max_threads 
+!dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num 
+!dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs 
+!dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel 
+!dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic 
+!dec$ attributes alias:'omp_get_nested_'::omp_get_nested 
+!dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit 
+!dec$ attributes alias:'omp_set_max_active_levels_'::omp_set_max_active_levels 
+!dec$ attributes alias:'omp_get_max_active_levels_'::omp_get_max_active_levels 
+!dec$ attributes alias:'omp_get_level_'::omp_get_level 
+!dec$ attributes alias:'omp_get_active_level_'::omp_get_active_level 
+!dec$ attributes alias:'omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num 
+!dec$ attributes alias:'omp_get_team_size_'::omp_get_team_size 
+!dec$ attributes alias:'omp_set_schedule_'::omp_set_schedule 
+!dec$ attributes alias:'omp_get_schedule_'::omp_get_schedule 
+!dec$ attributes alias:'omp_get_wtime_'::omp_get_wtime 
+!dec$ attributes alias:'omp_get_wtick_'::omp_get_wtick 
+ 
+!dec$ attributes alias:'omp_init_lock_'::omp_init_lock 
+!dec$ attributes alias:'omp_destroy_lock_'::omp_destroy_lock 
+!dec$ attributes alias:'omp_set_lock_'::omp_set_lock 
+!dec$ attributes alias:'omp_unset_lock_'::omp_unset_lock 
+!dec$ attributes alias:'omp_test_lock_'::omp_test_lock 
+!dec$ attributes alias:'omp_init_nest_lock_'::omp_init_nest_lock 
+!dec$ attributes alias:'omp_destroy_nest_lock_'::omp_destroy_nest_lock 
+!dec$ attributes alias:'omp_set_nest_lock_'::omp_set_nest_lock 
+!dec$ attributes alias:'omp_unset_nest_lock_'::omp_unset_nest_lock 
+!dec$ attributes alias:'omp_test_nest_lock_'::omp_test_nest_lock 
+ 
+!dec$ attributes alias:'kmp_set_stacksize_'::kmp_set_stacksize 
+!dec$ attributes alias:'kmp_set_stacksize_s_'::kmp_set_stacksize_s 
+!dec$ attributes alias:'kmp_set_blocktime_'::kmp_set_blocktime 
+!dec$ attributes alias:'kmp_set_library_serial_'::kmp_set_library_serial 
+!dec$ attributes alias:'kmp_set_library_turnaround_'::kmp_set_library_turnaround 
+!dec$ attributes alias:'kmp_set_library_throughput_'::kmp_set_library_throughput 
+!dec$ attributes alias:'kmp_set_library_'::kmp_set_library 
+!dec$ attributes alias:'kmp_get_stacksize_'::kmp_get_stacksize 
+!dec$ attributes alias:'kmp_get_stacksize_s_'::kmp_get_stacksize_s 
+!dec$ attributes alias:'kmp_get_blocktime_'::kmp_get_blocktime 
+!dec$ attributes alias:'kmp_get_library_'::kmp_get_library 
+!dec$ attributes alias:'kmp_set_affinity_'::kmp_set_affinity 
+!dec$ attributes alias:'kmp_get_affinity_'::kmp_get_affinity 
+!dec$ attributes alias:'kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc 
+!dec$ attributes alias:'kmp_create_affinity_mask_'::kmp_create_affinity_mask 
+!dec$ attributes alias:'kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask 
+!dec$ attributes alias:'kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc 
+!dec$ attributes alias:'kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc 
+!dec$ attributes alias:'kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc 
+!dec$ attributes alias:'kmp_malloc_'::kmp_malloc 
+!dec$ attributes alias:'kmp_calloc_'::kmp_calloc 
+!dec$ attributes alias:'kmp_realloc_'::kmp_realloc 
+!dec$ attributes alias:'kmp_free_'::kmp_free 
+ 
+!dec$ attributes alias:'kmp_set_warnings_on_'::kmp_set_warnings_on 
+!dec$ attributes alias:'kmp_set_warnings_off_'::kmp_set_warnings_off 
+ 
+!dec$ endif 
+ 
+!dec$ if defined(__APPLE__) 
+ 
+!*** 
+!*** The Mac entry points are in lowercase, with an both an underscore 
+!*** appended and an underscore prepended. 
+!*** 
+ 
+!dec$ attributes alias:'_omp_set_num_threads_'::omp_set_num_threads 
+!dec$ attributes alias:'_omp_set_dynamic_'::omp_set_dynamic 
+!dec$ attributes alias:'_omp_set_nested_'::omp_set_nested 
+!dec$ attributes alias:'_omp_get_num_threads_'::omp_get_num_threads 
+!dec$ attributes alias:'_omp_get_max_threads_'::omp_get_max_threads 
+!dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num 
+!dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs 
+!dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel 
+!dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic 
+!dec$ attributes alias:'_omp_get_nested_'::omp_get_nested 
+!dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit 
+!dec$ attributes alias:'_omp_set_max_active_levels_'::omp_set_max_active_levels 
+!dec$ attributes alias:'_omp_get_max_active_levels_'::omp_get_max_active_levels 
+!dec$ attributes alias:'_omp_get_level_'::omp_get_level 
+!dec$ attributes alias:'_omp_get_active_level_'::omp_get_active_level 
+!dec$ attributes alias:'_omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num 
+!dec$ attributes alias:'_omp_get_team_size_'::omp_get_team_size 
+!dec$ attributes alias:'_omp_set_schedule_'::omp_set_schedule 
+!dec$ attributes alias:'_omp_get_schedule_'::omp_get_schedule 
+!dec$ attributes alias:'_omp_get_wtime_'::omp_get_wtime 
+!dec$ attributes alias:'_omp_get_wtick_'::omp_get_wtick 
+ 
+!dec$ attributes alias:'_omp_init_lock_'::omp_init_lock 
+!dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock 
+!dec$ attributes alias:'_omp_set_lock_'::omp_set_lock 
+!dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock 
+!dec$ attributes alias:'_omp_test_lock_'::omp_test_lock 
+!dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock 
+!dec$ attributes alias:'_omp_destroy_nest_lock_'::omp_destroy_nest_lock 
+!dec$ attributes alias:'_omp_set_nest_lock_'::omp_set_nest_lock 
+!dec$ attributes alias:'_omp_unset_nest_lock_'::omp_unset_nest_lock 
+!dec$ attributes alias:'_omp_test_nest_lock_'::omp_test_nest_lock 
+ 
+!dec$ attributes alias:'_kmp_set_stacksize_'::kmp_set_stacksize 
+!dec$ attributes alias:'_kmp_set_stacksize_s_'::kmp_set_stacksize_s 
+!dec$ attributes alias:'_kmp_set_blocktime_'::kmp_set_blocktime 
+!dec$ attributes alias:'_kmp_set_library_serial_'::kmp_set_library_serial 
+!dec$ attributes alias:'_kmp_set_library_turnaround_'::kmp_set_library_turnaround 
+!dec$ attributes alias:'_kmp_set_library_throughput_'::kmp_set_library_throughput 
+!dec$ attributes alias:'_kmp_set_library_'::kmp_set_library 
+!dec$ attributes alias:'_kmp_get_stacksize_'::kmp_get_stacksize 
+!dec$ attributes alias:'_kmp_get_stacksize_s_'::kmp_get_stacksize_s 
+!dec$ attributes alias:'_kmp_get_blocktime_'::kmp_get_blocktime 
+!dec$ attributes alias:'_kmp_get_library_'::kmp_get_library 
+!dec$ attributes alias:'_kmp_set_affinity_'::kmp_set_affinity 
+!dec$ attributes alias:'_kmp_get_affinity_'::kmp_get_affinity 
+!dec$ attributes alias:'_kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc 
+!dec$ attributes alias:'_kmp_create_affinity_mask_'::kmp_create_affinity_mask 
+!dec$ attributes alias:'_kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask 
+!dec$ attributes alias:'_kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc 
+!dec$ attributes alias:'_kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc 
+!dec$ attributes alias:'_kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc 
+!dec$ attributes alias:'_kmp_malloc_'::kmp_malloc 
+!dec$ attributes alias:'_kmp_calloc_'::kmp_calloc 
+!dec$ attributes alias:'_kmp_realloc_'::kmp_realloc 
+!dec$ attributes alias:'_kmp_free_'::kmp_free 
+ 
+!dec$ attributes alias:'_kmp_set_warnings_on_'::kmp_set_warnings_on 
+!dec$ attributes alias:'_kmp_set_warnings_off_'::kmp_set_warnings_off 
+ 
+!dec$ endif 
+ 
+      end module omp_lib 
+ 
diff --git a/contrib/libs/cxxsupp/openmp/include/30/omp_lib.f90.var b/contrib/libs/cxxsupp/openmp/include/30/omp_lib.f90.var
index 3325486d26..328e2cfa8d 100644
--- a/contrib/libs/cxxsupp/openmp/include/30/omp_lib.f90.var
+++ b/contrib/libs/cxxsupp/openmp/include/30/omp_lib.f90.var
@@ -1,358 +1,358 @@
-! include/30/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 :: kmp_pointer_kind       = c_intptr_t
-        integer, parameter :: kmp_size_t_kind        = c_size_t
-        integer, parameter :: kmp_affinity_mask_kind = c_intptr_t
-
-      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
-
-        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_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
-
-          subroutine omp_init_lock(lockvar) bind(c)
-            use omp_lib_kinds
-            integer (kind=omp_lock_kind) lockvar
-          end subroutine omp_init_lock
-
-          subroutine omp_destroy_lock(lockvar) bind(c)
-            use omp_lib_kinds
-            integer (kind=omp_lock_kind) lockvar
-          end subroutine omp_destroy_lock
-
-          subroutine omp_set_lock(lockvar) bind(c)
-            use omp_lib_kinds
-            integer (kind=omp_lock_kind) lockvar
-          end subroutine omp_set_lock
-
-          subroutine omp_unset_lock(lockvar) bind(c)
-            use omp_lib_kinds
-            integer (kind=omp_lock_kind) lockvar
-          end subroutine omp_unset_lock
-
-          function omp_test_lock(lockvar) bind(c)
-            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)
-            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)
-            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)
-            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)
-            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)
-            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
-
-        end interface
-
-      end module omp_lib
+! include/30/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 :: kmp_pointer_kind       = c_intptr_t 
+        integer, parameter :: kmp_size_t_kind        = c_size_t 
+        integer, parameter :: kmp_affinity_mask_kind = c_intptr_t 
+ 
+      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 
+ 
+        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_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 
+ 
+          subroutine omp_init_lock(lockvar) bind(c) 
+            use omp_lib_kinds 
+            integer (kind=omp_lock_kind) lockvar 
+          end subroutine omp_init_lock 
+ 
+          subroutine omp_destroy_lock(lockvar) bind(c) 
+            use omp_lib_kinds 
+            integer (kind=omp_lock_kind) lockvar 
+          end subroutine omp_destroy_lock 
+ 
+          subroutine omp_set_lock(lockvar) bind(c) 
+            use omp_lib_kinds 
+            integer (kind=omp_lock_kind) lockvar 
+          end subroutine omp_set_lock 
+ 
+          subroutine omp_unset_lock(lockvar) bind(c) 
+            use omp_lib_kinds 
+            integer (kind=omp_lock_kind) lockvar 
+          end subroutine omp_unset_lock 
+ 
+          function omp_test_lock(lockvar) bind(c) 
+            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) 
+            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) 
+            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) 
+            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) 
+            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) 
+            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 
+ 
+        end interface 
+ 
+      end module omp_lib 
diff --git a/contrib/libs/cxxsupp/openmp/include/30/omp_lib.h.var b/contrib/libs/cxxsupp/openmp/include/30/omp_lib.h.var
index 84ed39b321..c442f073b2 100644
--- a/contrib/libs/cxxsupp/openmp/include/30/omp_lib.h.var
+++ b/contrib/libs/cxxsupp/openmp/include/30/omp_lib.h.var
@@ -1,638 +1,638 @@
-! include/30/omp_lib.h.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.
-!//
-!//===----------------------------------------------------------------------===//
-!
-
-!***
-!*** Some of the directives for the following routine extend past column 72,
-!*** so process this file in 132-column mode.
-!***
-
-!dec$ fixedformlinesize:132
-
-      integer, parameter :: omp_integer_kind       = 4
-      integer, parameter :: omp_logical_kind       = 4
-      integer, parameter :: omp_real_kind          = 4
-      integer, parameter :: omp_lock_kind          = int_ptr_kind()
-      integer, parameter :: omp_nest_lock_kind     = int_ptr_kind()
-      integer, parameter :: omp_sched_kind         = omp_integer_kind
-      integer, parameter :: kmp_pointer_kind       = int_ptr_kind()
-      integer, parameter :: kmp_size_t_kind        = int_ptr_kind()
-      integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind()
-
-      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_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_integer_kind), parameter :: openmp_version    = @LIBOMP_OMP_YEAR_MONTH@
-
-      interface
-
-!       ***
-!       *** omp_* entry points
-!       ***
-
-        subroutine omp_set_num_threads(nthreads)
-          import
-          integer (kind=omp_integer_kind) nthreads
-        end subroutine omp_set_num_threads
-
-        subroutine omp_set_dynamic(enable)
-          import
-          logical (kind=omp_logical_kind) enable
-        end subroutine omp_set_dynamic
-
-        subroutine omp_set_nested(enable)
-          import
-          logical (kind=omp_logical_kind) enable
-        end subroutine omp_set_nested
-
-        function omp_get_num_threads()
-          import
-          integer (kind=omp_integer_kind) omp_get_num_threads
-        end function omp_get_num_threads
-
-        function omp_get_max_threads()
-          import
-          integer (kind=omp_integer_kind) omp_get_max_threads
-        end function omp_get_max_threads
-
-        function omp_get_thread_num()
-          import
-          integer (kind=omp_integer_kind) omp_get_thread_num
-        end function omp_get_thread_num
-
-        function omp_get_num_procs()
-          import
-          integer (kind=omp_integer_kind) omp_get_num_procs
-        end function omp_get_num_procs
-
-        function omp_in_parallel()
-          import
-          logical (kind=omp_logical_kind) omp_in_parallel
-        end function omp_in_parallel
-
-        function omp_in_final()
-          import
-          logical (kind=omp_logical_kind) omp_in_final
-        end function omp_in_final
-
-        function omp_get_dynamic()
-          import
-          logical (kind=omp_logical_kind) omp_get_dynamic
-        end function omp_get_dynamic
-
-        function omp_get_nested()
-          import
-          logical (kind=omp_logical_kind) omp_get_nested
-        end function omp_get_nested
-
-        function omp_get_thread_limit()
-          import
-          integer (kind=omp_integer_kind) omp_get_thread_limit
-        end function omp_get_thread_limit
-
-        subroutine omp_set_max_active_levels(max_levels)
-          import
-          integer (kind=omp_integer_kind) max_levels
-        end subroutine omp_set_max_active_levels
-
-        function omp_get_max_active_levels()
-          import
-          integer (kind=omp_integer_kind) omp_get_max_active_levels
-        end function omp_get_max_active_levels
-
-        function omp_get_level()
-          import
-          integer (kind=omp_integer_kind) omp_get_level
-        end function omp_get_level
-
-        function omp_get_active_level()
-          import
-          integer (kind=omp_integer_kind) omp_get_active_level
-        end function omp_get_active_level
-
-        function omp_get_ancestor_thread_num(level)
-          import
-          integer (kind=omp_integer_kind) level
-          integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
-        end function omp_get_ancestor_thread_num
-
-        function omp_get_team_size(level)
-          import
-          integer (kind=omp_integer_kind) level
-          integer (kind=omp_integer_kind) omp_get_team_size
-        end function omp_get_team_size
-
-        subroutine omp_set_schedule(kind, modifier)
-          import
-          integer (kind=omp_sched_kind) kind
-          integer (kind=omp_integer_kind) modifier
-        end subroutine omp_set_schedule
-
-        subroutine omp_get_schedule(kind, modifier)
-          import
-          integer (kind=omp_sched_kind) kind
-          integer (kind=omp_integer_kind) modifier
-        end subroutine omp_get_schedule
-
-        function omp_get_wtime()
-          double precision omp_get_wtime
-        end function omp_get_wtime
-
-        function omp_get_wtick ()
-          double precision omp_get_wtick
-        end function omp_get_wtick
-
-        subroutine omp_init_lock(lockvar)
-          import
-          integer (kind=omp_lock_kind) lockvar
-        end subroutine omp_init_lock
-
-        subroutine omp_destroy_lock(lockvar)
-          import
-          integer (kind=omp_lock_kind) lockvar
-        end subroutine omp_destroy_lock
-
-        subroutine omp_set_lock(lockvar)
-          import
-          integer (kind=omp_lock_kind) lockvar
-        end subroutine omp_set_lock
-
-        subroutine omp_unset_lock(lockvar)
-          import
-          integer (kind=omp_lock_kind) lockvar
-        end subroutine omp_unset_lock
-
-        function omp_test_lock(lockvar)
-          import
-          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)
-          import
-          integer (kind=omp_nest_lock_kind) lockvar
-        end subroutine omp_init_nest_lock
-
-        subroutine omp_destroy_nest_lock(lockvar)
-          import
-          integer (kind=omp_nest_lock_kind) lockvar
-        end subroutine omp_destroy_nest_lock
-
-        subroutine omp_set_nest_lock(lockvar)
-          import
-          integer (kind=omp_nest_lock_kind) lockvar
-        end subroutine omp_set_nest_lock
-
-        subroutine omp_unset_nest_lock(lockvar)
-          import
-          integer (kind=omp_nest_lock_kind) lockvar
-        end subroutine omp_unset_nest_lock
-
-        function omp_test_nest_lock(lockvar)
-          import
-          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)
-          import
-          integer (kind=omp_integer_kind) size
-        end subroutine kmp_set_stacksize
-
-        subroutine kmp_set_stacksize_s(size)
-          import
-          integer (kind=kmp_size_t_kind) size
-        end subroutine kmp_set_stacksize_s
-
-        subroutine kmp_set_blocktime(msec)
-          import
-          integer (kind=omp_integer_kind) msec
-        end subroutine kmp_set_blocktime
-
-        subroutine kmp_set_library_serial()
-        end subroutine kmp_set_library_serial
-
-        subroutine kmp_set_library_turnaround()
-        end subroutine kmp_set_library_turnaround
-
-        subroutine kmp_set_library_throughput()
-        end subroutine kmp_set_library_throughput
-
-        subroutine kmp_set_library(libnum)
-          import
-          integer (kind=omp_integer_kind) libnum
-        end subroutine kmp_set_library
-
-        subroutine kmp_set_defaults(string)
-          character*(*) string
-        end subroutine kmp_set_defaults
-
-        function kmp_get_stacksize()
-          import
-          integer (kind=omp_integer_kind) kmp_get_stacksize
-        end function kmp_get_stacksize
-
-        function kmp_get_stacksize_s()
-          import
-          integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
-        end function kmp_get_stacksize_s
-
-        function kmp_get_blocktime()
-          import
-          integer (kind=omp_integer_kind) kmp_get_blocktime
-        end function kmp_get_blocktime
-
-        function kmp_get_library()
-          import
-          integer (kind=omp_integer_kind) kmp_get_library
-        end function kmp_get_library
-
-        function kmp_set_affinity(mask)
-          import
-          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)
-          import
-          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()
-          import
-          integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
-        end function kmp_get_affinity_max_proc
-
-        subroutine kmp_create_affinity_mask(mask)
-          import
-          integer (kind=kmp_affinity_mask_kind) mask
-        end subroutine kmp_create_affinity_mask
-
-        subroutine kmp_destroy_affinity_mask(mask)
-          import
-          integer (kind=kmp_affinity_mask_kind) mask
-        end subroutine kmp_destroy_affinity_mask
-
-        function kmp_set_affinity_mask_proc(proc, mask)
-          import
-          integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
-          integer (kind=omp_integer_kind) proc
-          integer (kind=kmp_affinity_mask_kind) mask
-        end function kmp_set_affinity_mask_proc
-
-        function kmp_unset_affinity_mask_proc(proc, mask)
-          import
-          integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
-          integer (kind=omp_integer_kind) proc
-          integer (kind=kmp_affinity_mask_kind) mask
-        end function kmp_unset_affinity_mask_proc
-
-        function kmp_get_affinity_mask_proc(proc, mask)
-          import
-          integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
-          integer (kind=omp_integer_kind) proc
-          integer (kind=kmp_affinity_mask_kind) mask
-        end function kmp_get_affinity_mask_proc
-
-        function kmp_malloc(size)
-          import
-          integer (kind=kmp_pointer_kind) kmp_malloc
-          integer (kind=kmp_size_t_kind) size
-        end function kmp_malloc
-
-        function kmp_calloc(nelem, elsize)
-          import
-          integer (kind=kmp_pointer_kind) kmp_calloc
-          integer (kind=kmp_size_t_kind) nelem
-          integer (kind=kmp_size_t_kind) elsize
-        end function kmp_calloc
-
-        function kmp_realloc(ptr, size)
-          import
-          integer (kind=kmp_pointer_kind) kmp_realloc
-          integer (kind=kmp_pointer_kind) ptr
-          integer (kind=kmp_size_t_kind) size
-        end function kmp_realloc
-
-        subroutine kmp_free(ptr)
-          import
-          integer (kind=kmp_pointer_kind) ptr
-        end subroutine kmp_free
-
-        subroutine kmp_set_warnings_on()
-        end subroutine kmp_set_warnings_on
-
-        subroutine kmp_set_warnings_off()
-        end subroutine kmp_set_warnings_off
-
-      end interface
-
-!dec$ if defined(_WIN32)
-!dec$   if defined(_WIN64) .or. defined(_M_AMD64)
-
-!***
-!*** The Fortran entry points must be in uppercase, even if the /Qlowercase
-!*** option is specified.  The alias attribute ensures that the specified
-!*** string is used as the entry point.
-!***
-!*** On the Windows* OS IA-32 architecture, the Fortran entry points have an
-!*** underscore prepended.  On the Windows* OS Intel(R) 64
-!*** architecture, no underscore is prepended.
-!***
-
-!dec$ attributes alias:'OMP_SET_NUM_THREADS'::omp_set_num_threads
-!dec$ attributes alias:'OMP_SET_DYNAMIC'::omp_set_dynamic
-!dec$ attributes alias:'OMP_SET_NESTED'::omp_set_nested
-!dec$ attributes alias:'OMP_GET_NUM_THREADS'::omp_get_num_threads
-!dec$ attributes alias:'OMP_GET_MAX_THREADS'::omp_get_max_threads
-!dec$ attributes alias:'OMP_GET_THREAD_NUM'::omp_get_thread_num
-!dec$ attributes alias:'OMP_GET_NUM_PROCS'::omp_get_num_procs
-!dec$ attributes alias:'OMP_IN_PARALLEL'::omp_in_parallel
-!dec$ attributes alias:'OMP_IN_FINAL'::omp_in_final
-!dec$ attributes alias:'OMP_GET_DYNAMIC'::omp_get_dynamic
-!dec$ attributes alias:'OMP_GET_NESTED'::omp_get_nested
-!dec$ attributes alias:'OMP_GET_THREAD_LIMIT'::omp_get_thread_limit
-!dec$ attributes alias:'OMP_SET_MAX_ACTIVE_LEVELS'::omp_set_max_active_levels
-!dec$ attributes alias:'OMP_GET_MAX_ACTIVE_LEVELS'::omp_get_max_active_levels
-!dec$ attributes alias:'OMP_GET_LEVEL'::omp_get_level
-!dec$ attributes alias:'OMP_GET_ACTIVE_LEVEL'::omp_get_active_level
-!dec$ attributes alias:'OMP_GET_ANCESTOR_THREAD_NUM'::omp_get_ancestor_thread_num
-!dec$ attributes alias:'OMP_GET_TEAM_SIZE'::omp_get_team_size
-!dec$ attributes alias:'OMP_SET_SCHEDULE'::omp_set_schedule
-!dec$ attributes alias:'OMP_GET_SCHEDULE'::omp_get_schedule
-!dec$ attributes alias:'OMP_GET_WTIME'::omp_get_wtime
-!dec$ attributes alias:'OMP_GET_WTICK'::omp_get_wtick
-
-!dec$ attributes alias:'omp_init_lock'::omp_init_lock
-!dec$ attributes alias:'omp_destroy_lock'::omp_destroy_lock
-!dec$ attributes alias:'omp_set_lock'::omp_set_lock
-!dec$ attributes alias:'omp_unset_lock'::omp_unset_lock
-!dec$ attributes alias:'omp_test_lock'::omp_test_lock
-!dec$ attributes alias:'omp_init_nest_lock'::omp_init_nest_lock
-!dec$ attributes alias:'omp_destroy_nest_lock'::omp_destroy_nest_lock
-!dec$ attributes alias:'omp_set_nest_lock'::omp_set_nest_lock
-!dec$ attributes alias:'omp_unset_nest_lock'::omp_unset_nest_lock
-!dec$ attributes alias:'omp_test_nest_lock'::omp_test_nest_lock
-
-!dec$ attributes alias:'KMP_SET_STACKSIZE'::kmp_set_stacksize
-!dec$ attributes alias:'KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
-!dec$ attributes alias:'KMP_SET_BLOCKTIME'::kmp_set_blocktime
-!dec$ attributes alias:'KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
-!dec$ attributes alias:'KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
-!dec$ attributes alias:'KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
-!dec$ attributes alias:'KMP_SET_LIBRARY'::kmp_set_library
-!dec$ attributes alias:'KMP_SET_DEFAULTS'::kmp_set_defaults
-!dec$ attributes alias:'KMP_GET_STACKSIZE'::kmp_get_stacksize
-!dec$ attributes alias:'KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
-!dec$ attributes alias:'KMP_GET_BLOCKTIME'::kmp_get_blocktime
-!dec$ attributes alias:'KMP_GET_LIBRARY'::kmp_get_library
-!dec$ attributes alias:'KMP_SET_AFFINITY'::kmp_set_affinity
-!dec$ attributes alias:'KMP_GET_AFFINITY'::kmp_get_affinity
-!dec$ attributes alias:'KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
-!dec$ attributes alias:'KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
-!dec$ attributes alias:'KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
-!dec$ attributes alias:'KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
-!dec$ attributes alias:'KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
-!dec$ attributes alias:'KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
-!dec$ attributes alias:'KMP_MALLOC'::kmp_malloc
-!dec$ attributes alias:'KMP_CALLOC'::kmp_calloc
-!dec$ attributes alias:'KMP_REALLOC'::kmp_realloc
-!dec$ attributes alias:'KMP_FREE'::kmp_free
-
-!dec$ attributes alias:'KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
-!dec$ attributes alias:'KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
-
-!dec$   else
-
-!***
-!*** On Windows* OS IA-32 architecture, the Fortran entry points have an underscore prepended.
-!***
-
-!dec$ attributes alias:'_OMP_SET_NUM_THREADS'::omp_set_num_threads
-!dec$ attributes alias:'_OMP_SET_DYNAMIC'::omp_set_dynamic
-!dec$ attributes alias:'_OMP_SET_NESTED'::omp_set_nested
-!dec$ attributes alias:'_OMP_GET_NUM_THREADS'::omp_get_num_threads
-!dec$ attributes alias:'_OMP_GET_MAX_THREADS'::omp_get_max_threads
-!dec$ attributes alias:'_OMP_GET_THREAD_NUM'::omp_get_thread_num
-!dec$ attributes alias:'_OMP_GET_NUM_PROCS'::omp_get_num_procs
-!dec$ attributes alias:'_OMP_IN_PARALLEL'::omp_in_parallel
-!dec$ attributes alias:'_OMP_IN_FINAL'::omp_in_final
-!dec$ attributes alias:'_OMP_GET_DYNAMIC'::omp_get_dynamic
-!dec$ attributes alias:'_OMP_GET_NESTED'::omp_get_nested
-!dec$ attributes alias:'_OMP_GET_THREAD_LIMIT'::omp_get_thread_limit
-!dec$ attributes alias:'_OMP_SET_MAX_ACTIVE_LEVELS'::omp_set_max_active_levels
-!dec$ attributes alias:'_OMP_GET_MAX_ACTIVE_LEVELS'::omp_get_max_active_levels
-!dec$ attributes alias:'_OMP_GET_LEVEL'::omp_get_level
-!dec$ attributes alias:'_OMP_GET_ACTIVE_LEVEL'::omp_get_active_level
-!dec$ attributes alias:'_OMP_GET_ANCESTOR_THREAD_NUM'::omp_get_ancestor_thread_num
-!dec$ attributes alias:'_OMP_GET_TEAM_SIZE'::omp_get_team_size
-!dec$ attributes alias:'_OMP_SET_SCHEDULE'::omp_set_schedule
-!dec$ attributes alias:'_OMP_GET_SCHEDULE'::omp_get_schedule
-!dec$ attributes alias:'_OMP_GET_WTIME'::omp_get_wtime
-!dec$ attributes alias:'_OMP_GET_WTICK'::omp_get_wtick
-
-!dec$ attributes alias:'_omp_init_lock'::omp_init_lock
-!dec$ attributes alias:'_omp_destroy_lock'::omp_destroy_lock
-!dec$ attributes alias:'_omp_set_lock'::omp_set_lock
-!dec$ attributes alias:'_omp_unset_lock'::omp_unset_lock
-!dec$ attributes alias:'_omp_test_lock'::omp_test_lock
-!dec$ attributes alias:'_omp_init_nest_lock'::omp_init_nest_lock
-!dec$ attributes alias:'_omp_destroy_nest_lock'::omp_destroy_nest_lock
-!dec$ attributes alias:'_omp_set_nest_lock'::omp_set_nest_lock
-!dec$ attributes alias:'_omp_unset_nest_lock'::omp_unset_nest_lock
-!dec$ attributes alias:'_omp_test_nest_lock'::omp_test_nest_lock
-
-!dec$ attributes alias:'_KMP_SET_STACKSIZE'::kmp_set_stacksize
-!dec$ attributes alias:'_KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
-!dec$ attributes alias:'_KMP_SET_BLOCKTIME'::kmp_set_blocktime
-!dec$ attributes alias:'_KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
-!dec$ attributes alias:'_KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
-!dec$ attributes alias:'_KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
-!dec$ attributes alias:'_KMP_SET_LIBRARY'::kmp_set_library
-!dec$ attributes alias:'_KMP_SET_DEFAULTS'::kmp_set_defaults
-!dec$ attributes alias:'_KMP_GET_STACKSIZE'::kmp_get_stacksize
-!dec$ attributes alias:'_KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
-!dec$ attributes alias:'_KMP_GET_BLOCKTIME'::kmp_get_blocktime
-!dec$ attributes alias:'_KMP_GET_LIBRARY'::kmp_get_library
-!dec$ attributes alias:'_KMP_SET_AFFINITY'::kmp_set_affinity
-!dec$ attributes alias:'_KMP_GET_AFFINITY'::kmp_get_affinity
-!dec$ attributes alias:'_KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
-!dec$ attributes alias:'_KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
-!dec$ attributes alias:'_KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
-!dec$ attributes alias:'_KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
-!dec$ attributes alias:'_KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
-!dec$ attributes alias:'_KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
-!dec$ attributes alias:'_KMP_MALLOC'::kmp_malloc
-!dec$ attributes alias:'_KMP_CALLOC'::kmp_calloc
-!dec$ attributes alias:'_KMP_REALLOC'::kmp_realloc
-!dec$ attributes alias:'_KMP_FREE'::kmp_free
-
-!dec$ attributes alias:'_KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
-!dec$ attributes alias:'_KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
-
-!dec$   endif
-!dec$ endif
-
-!dec$ if defined(__linux)
-
-!***
-!*** The Linux* OS entry points are in lowercase, with an underscore appended.
-!***
-
-!dec$ attributes alias:'omp_set_num_threads_'::omp_set_num_threads
-!dec$ attributes alias:'omp_set_dynamic_'::omp_set_dynamic
-!dec$ attributes alias:'omp_set_nested_'::omp_set_nested
-!dec$ attributes alias:'omp_get_num_threads_'::omp_get_num_threads
-!dec$ attributes alias:'omp_get_max_threads_'::omp_get_max_threads
-!dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num
-!dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs
-!dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel
-!dec$ attributes alias:'omp_in_final_'::omp_in_final
-!dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic
-!dec$ attributes alias:'omp_get_nested_'::omp_get_nested
-!dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit
-!dec$ attributes alias:'omp_set_max_active_levels_'::omp_set_max_active_levels
-!dec$ attributes alias:'omp_get_max_active_levels_'::omp_get_max_active_levels
-!dec$ attributes alias:'omp_get_level_'::omp_get_level
-!dec$ attributes alias:'omp_get_active_level_'::omp_get_active_level
-!dec$ attributes alias:'omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
-!dec$ attributes alias:'omp_get_team_size_'::omp_get_team_size
-!dec$ attributes alias:'omp_set_schedule_'::omp_set_schedule
-!dec$ attributes alias:'omp_get_schedule_'::omp_get_schedule
-!dec$ attributes alias:'omp_get_wtime_'::omp_get_wtime
-!dec$ attributes alias:'omp_get_wtick_'::omp_get_wtick
-
-!dec$ attributes alias:'omp_init_lock_'::omp_init_lock
-!dec$ attributes alias:'omp_destroy_lock_'::omp_destroy_lock
-!dec$ attributes alias:'omp_set_lock_'::omp_set_lock
-!dec$ attributes alias:'omp_unset_lock_'::omp_unset_lock
-!dec$ attributes alias:'omp_test_lock_'::omp_test_lock
-!dec$ attributes alias:'omp_init_nest_lock_'::omp_init_nest_lock
-!dec$ attributes alias:'omp_destroy_nest_lock_'::omp_destroy_nest_lock
-!dec$ attributes alias:'omp_set_nest_lock_'::omp_set_nest_lock
-!dec$ attributes alias:'omp_unset_nest_lock_'::omp_unset_nest_lock
-!dec$ attributes alias:'omp_test_nest_lock_'::omp_test_nest_lock
-
-!dec$ attributes alias:'kmp_set_stacksize_'::kmp_set_stacksize
-!dec$ attributes alias:'kmp_set_stacksize_s_'::kmp_set_stacksize_s
-!dec$ attributes alias:'kmp_set_blocktime_'::kmp_set_blocktime
-!dec$ attributes alias:'kmp_set_library_serial_'::kmp_set_library_serial
-!dec$ attributes alias:'kmp_set_library_turnaround_'::kmp_set_library_turnaround
-!dec$ attributes alias:'kmp_set_library_throughput_'::kmp_set_library_throughput
-!dec$ attributes alias:'kmp_set_library_'::kmp_set_library
-!dec$ attributes alias:'kmp_set_defaults_'::kmp_set_defaults
-!dec$ attributes alias:'kmp_get_stacksize_'::kmp_get_stacksize
-!dec$ attributes alias:'kmp_get_stacksize_s_'::kmp_get_stacksize_s
-!dec$ attributes alias:'kmp_get_blocktime_'::kmp_get_blocktime
-!dec$ attributes alias:'kmp_get_library_'::kmp_get_library
-!dec$ attributes alias:'kmp_set_affinity_'::kmp_set_affinity
-!dec$ attributes alias:'kmp_get_affinity_'::kmp_get_affinity
-!dec$ attributes alias:'kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
-!dec$ attributes alias:'kmp_create_affinity_mask_'::kmp_create_affinity_mask
-!dec$ attributes alias:'kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
-!dec$ attributes alias:'kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
-!dec$ attributes alias:'kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
-!dec$ attributes alias:'kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
-!dec$ attributes alias:'kmp_malloc_'::kmp_malloc
-!dec$ attributes alias:'kmp_calloc_'::kmp_calloc
-!dec$ attributes alias:'kmp_realloc_'::kmp_realloc
-!dec$ attributes alias:'kmp_free_'::kmp_free
-
-!dec$ attributes alias:'kmp_set_warnings_on_'::kmp_set_warnings_on
-!dec$ attributes alias:'kmp_set_warnings_off_'::kmp_set_warnings_off
-
-!dec$ endif
-
-!dec$ if defined(__APPLE__)
-
-!***
-!*** The Mac entry points are in lowercase, with an both an underscore
-!*** appended and an underscore prepended.
-!***
-
-!dec$ attributes alias:'_omp_set_num_threads_'::omp_set_num_threads
-!dec$ attributes alias:'_omp_set_dynamic_'::omp_set_dynamic
-!dec$ attributes alias:'_omp_set_nested_'::omp_set_nested
-!dec$ attributes alias:'_omp_get_num_threads_'::omp_get_num_threads
-!dec$ attributes alias:'_omp_get_max_threads_'::omp_get_max_threads
-!dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num
-!dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs
-!dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel
-!dec$ attributes alias:'_omp_in_final_'::omp_in_final
-!dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic
-!dec$ attributes alias:'_omp_get_nested_'::omp_get_nested
-!dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit
-!dec$ attributes alias:'_omp_set_max_active_levels_'::omp_set_max_active_levels
-!dec$ attributes alias:'_omp_get_max_active_levels_'::omp_get_max_active_levels
-!dec$ attributes alias:'_omp_get_level_'::omp_get_level
-!dec$ attributes alias:'_omp_get_active_level_'::omp_get_active_level
-!dec$ attributes alias:'_omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
-!dec$ attributes alias:'_omp_get_team_size_'::omp_get_team_size
-!dec$ attributes alias:'_omp_set_schedule_'::omp_set_schedule
-!dec$ attributes alias:'_omp_get_schedule_'::omp_get_schedule
-!dec$ attributes alias:'_omp_get_wtime_'::omp_get_wtime
-!dec$ attributes alias:'_omp_get_wtick_'::omp_get_wtick
-
-!dec$ attributes alias:'_omp_init_lock_'::omp_init_lock
-!dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock
-!dec$ attributes alias:'_omp_set_lock_'::omp_set_lock
-!dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock
-!dec$ attributes alias:'_omp_test_lock_'::omp_test_lock
-!dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock
-!dec$ attributes alias:'_omp_destroy_nest_lock_'::omp_destroy_nest_lock
-!dec$ attributes alias:'_omp_set_nest_lock_'::omp_set_nest_lock
-!dec$ attributes alias:'_omp_unset_nest_lock_'::omp_unset_nest_lock
-!dec$ attributes alias:'_omp_test_nest_lock_'::omp_test_nest_lock
-
-!dec$ attributes alias:'_kmp_set_stacksize_'::kmp_set_stacksize
-!dec$ attributes alias:'_kmp_set_stacksize_s_'::kmp_set_stacksize_s
-!dec$ attributes alias:'_kmp_set_blocktime_'::kmp_set_blocktime
-!dec$ attributes alias:'_kmp_set_library_serial_'::kmp_set_library_serial
-!dec$ attributes alias:'_kmp_set_library_turnaround_'::kmp_set_library_turnaround
-!dec$ attributes alias:'_kmp_set_library_throughput_'::kmp_set_library_throughput
-!dec$ attributes alias:'_kmp_set_library_'::kmp_set_library
-!dec$ attributes alias:'_kmp_set_defaults_'::kmp_set_defaults
-!dec$ attributes alias:'_kmp_get_stacksize_'::kmp_get_stacksize
-!dec$ attributes alias:'_kmp_get_stacksize_s_'::kmp_get_stacksize_s
-!dec$ attributes alias:'_kmp_get_blocktime_'::kmp_get_blocktime
-!dec$ attributes alias:'_kmp_get_library_'::kmp_get_library
-!dec$ attributes alias:'_kmp_set_affinity_'::kmp_set_affinity
-!dec$ attributes alias:'_kmp_get_affinity_'::kmp_get_affinity
-!dec$ attributes alias:'_kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
-!dec$ attributes alias:'_kmp_create_affinity_mask_'::kmp_create_affinity_mask
-!dec$ attributes alias:'_kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
-!dec$ attributes alias:'_kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
-!dec$ attributes alias:'_kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
-!dec$ attributes alias:'_kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
-!dec$ attributes alias:'_kmp_malloc_'::kmp_malloc
-!dec$ attributes alias:'_kmp_calloc_'::kmp_calloc
-!dec$ attributes alias:'_kmp_realloc_'::kmp_realloc
-!dec$ attributes alias:'_kmp_free_'::kmp_free
-
-!dec$ attributes alias:'_kmp_set_warnings_on_'::kmp_set_warnings_on
-!dec$ attributes alias:'_kmp_set_warnings_off_'::kmp_set_warnings_off
-
-!dec$ endif
-
-
+! include/30/omp_lib.h.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. 
+!// 
+!//===----------------------------------------------------------------------===// 
+! 
+ 
+!*** 
+!*** Some of the directives for the following routine extend past column 72, 
+!*** so process this file in 132-column mode. 
+!*** 
+ 
+!dec$ fixedformlinesize:132 
+ 
+      integer, parameter :: omp_integer_kind       = 4 
+      integer, parameter :: omp_logical_kind       = 4 
+      integer, parameter :: omp_real_kind          = 4 
+      integer, parameter :: omp_lock_kind          = int_ptr_kind() 
+      integer, parameter :: omp_nest_lock_kind     = int_ptr_kind() 
+      integer, parameter :: omp_sched_kind         = omp_integer_kind 
+      integer, parameter :: kmp_pointer_kind       = int_ptr_kind() 
+      integer, parameter :: kmp_size_t_kind        = int_ptr_kind() 
+      integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind() 
+ 
+      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_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_integer_kind), parameter :: openmp_version    = @LIBOMP_OMP_YEAR_MONTH@ 
+ 
+      interface 
+ 
+!       *** 
+!       *** omp_* entry points 
+!       *** 
+ 
+        subroutine omp_set_num_threads(nthreads) 
+          import 
+          integer (kind=omp_integer_kind) nthreads 
+        end subroutine omp_set_num_threads 
+ 
+        subroutine omp_set_dynamic(enable) 
+          import 
+          logical (kind=omp_logical_kind) enable 
+        end subroutine omp_set_dynamic 
+ 
+        subroutine omp_set_nested(enable) 
+          import 
+          logical (kind=omp_logical_kind) enable 
+        end subroutine omp_set_nested 
+ 
+        function omp_get_num_threads() 
+          import 
+          integer (kind=omp_integer_kind) omp_get_num_threads 
+        end function omp_get_num_threads 
+ 
+        function omp_get_max_threads() 
+          import 
+          integer (kind=omp_integer_kind) omp_get_max_threads 
+        end function omp_get_max_threads 
+ 
+        function omp_get_thread_num() 
+          import 
+          integer (kind=omp_integer_kind) omp_get_thread_num 
+        end function omp_get_thread_num 
+ 
+        function omp_get_num_procs() 
+          import 
+          integer (kind=omp_integer_kind) omp_get_num_procs 
+        end function omp_get_num_procs 
+ 
+        function omp_in_parallel() 
+          import 
+          logical (kind=omp_logical_kind) omp_in_parallel 
+        end function omp_in_parallel 
+ 
+        function omp_in_final() 
+          import 
+          logical (kind=omp_logical_kind) omp_in_final 
+        end function omp_in_final 
+ 
+        function omp_get_dynamic() 
+          import 
+          logical (kind=omp_logical_kind) omp_get_dynamic 
+        end function omp_get_dynamic 
+ 
+        function omp_get_nested() 
+          import 
+          logical (kind=omp_logical_kind) omp_get_nested 
+        end function omp_get_nested 
+ 
+        function omp_get_thread_limit() 
+          import 
+          integer (kind=omp_integer_kind) omp_get_thread_limit 
+        end function omp_get_thread_limit 
+ 
+        subroutine omp_set_max_active_levels(max_levels) 
+          import 
+          integer (kind=omp_integer_kind) max_levels 
+        end subroutine omp_set_max_active_levels 
+ 
+        function omp_get_max_active_levels() 
+          import 
+          integer (kind=omp_integer_kind) omp_get_max_active_levels 
+        end function omp_get_max_active_levels 
+ 
+        function omp_get_level() 
+          import 
+          integer (kind=omp_integer_kind) omp_get_level 
+        end function omp_get_level 
+ 
+        function omp_get_active_level() 
+          import 
+          integer (kind=omp_integer_kind) omp_get_active_level 
+        end function omp_get_active_level 
+ 
+        function omp_get_ancestor_thread_num(level) 
+          import 
+          integer (kind=omp_integer_kind) level 
+          integer (kind=omp_integer_kind) omp_get_ancestor_thread_num 
+        end function omp_get_ancestor_thread_num 
+ 
+        function omp_get_team_size(level) 
+          import 
+          integer (kind=omp_integer_kind) level 
+          integer (kind=omp_integer_kind) omp_get_team_size 
+        end function omp_get_team_size 
+ 
+        subroutine omp_set_schedule(kind, modifier) 
+          import 
+          integer (kind=omp_sched_kind) kind 
+          integer (kind=omp_integer_kind) modifier 
+        end subroutine omp_set_schedule 
+ 
+        subroutine omp_get_schedule(kind, modifier) 
+          import 
+          integer (kind=omp_sched_kind) kind 
+          integer (kind=omp_integer_kind) modifier 
+        end subroutine omp_get_schedule 
+ 
+        function omp_get_wtime() 
+          double precision omp_get_wtime 
+        end function omp_get_wtime 
+ 
+        function omp_get_wtick () 
+          double precision omp_get_wtick 
+        end function omp_get_wtick 
+ 
+        subroutine omp_init_lock(lockvar) 
+          import 
+          integer (kind=omp_lock_kind) lockvar 
+        end subroutine omp_init_lock 
+ 
+        subroutine omp_destroy_lock(lockvar) 
+          import 
+          integer (kind=omp_lock_kind) lockvar 
+        end subroutine omp_destroy_lock 
+ 
+        subroutine omp_set_lock(lockvar) 
+          import 
+          integer (kind=omp_lock_kind) lockvar 
+        end subroutine omp_set_lock 
+ 
+        subroutine omp_unset_lock(lockvar) 
+          import 
+          integer (kind=omp_lock_kind) lockvar 
+        end subroutine omp_unset_lock 
+ 
+        function omp_test_lock(lockvar) 
+          import 
+          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) 
+          import 
+          integer (kind=omp_nest_lock_kind) lockvar 
+        end subroutine omp_init_nest_lock 
+ 
+        subroutine omp_destroy_nest_lock(lockvar) 
+          import 
+          integer (kind=omp_nest_lock_kind) lockvar 
+        end subroutine omp_destroy_nest_lock 
+ 
+        subroutine omp_set_nest_lock(lockvar) 
+          import 
+          integer (kind=omp_nest_lock_kind) lockvar 
+        end subroutine omp_set_nest_lock 
+ 
+        subroutine omp_unset_nest_lock(lockvar) 
+          import 
+          integer (kind=omp_nest_lock_kind) lockvar 
+        end subroutine omp_unset_nest_lock 
+ 
+        function omp_test_nest_lock(lockvar) 
+          import 
+          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) 
+          import 
+          integer (kind=omp_integer_kind) size 
+        end subroutine kmp_set_stacksize 
+ 
+        subroutine kmp_set_stacksize_s(size) 
+          import 
+          integer (kind=kmp_size_t_kind) size 
+        end subroutine kmp_set_stacksize_s 
+ 
+        subroutine kmp_set_blocktime(msec) 
+          import 
+          integer (kind=omp_integer_kind) msec 
+        end subroutine kmp_set_blocktime 
+ 
+        subroutine kmp_set_library_serial() 
+        end subroutine kmp_set_library_serial 
+ 
+        subroutine kmp_set_library_turnaround() 
+        end subroutine kmp_set_library_turnaround 
+ 
+        subroutine kmp_set_library_throughput() 
+        end subroutine kmp_set_library_throughput 
+ 
+        subroutine kmp_set_library(libnum) 
+          import 
+          integer (kind=omp_integer_kind) libnum 
+        end subroutine kmp_set_library 
+ 
+        subroutine kmp_set_defaults(string) 
+          character*(*) string 
+        end subroutine kmp_set_defaults 
+ 
+        function kmp_get_stacksize() 
+          import 
+          integer (kind=omp_integer_kind) kmp_get_stacksize 
+        end function kmp_get_stacksize 
+ 
+        function kmp_get_stacksize_s() 
+          import 
+          integer (kind=kmp_size_t_kind) kmp_get_stacksize_s 
+        end function kmp_get_stacksize_s 
+ 
+        function kmp_get_blocktime() 
+          import 
+          integer (kind=omp_integer_kind) kmp_get_blocktime 
+        end function kmp_get_blocktime 
+ 
+        function kmp_get_library() 
+          import 
+          integer (kind=omp_integer_kind) kmp_get_library 
+        end function kmp_get_library 
+ 
+        function kmp_set_affinity(mask) 
+          import 
+          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) 
+          import 
+          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() 
+          import 
+          integer (kind=omp_integer_kind) kmp_get_affinity_max_proc 
+        end function kmp_get_affinity_max_proc 
+ 
+        subroutine kmp_create_affinity_mask(mask) 
+          import 
+          integer (kind=kmp_affinity_mask_kind) mask 
+        end subroutine kmp_create_affinity_mask 
+ 
+        subroutine kmp_destroy_affinity_mask(mask) 
+          import 
+          integer (kind=kmp_affinity_mask_kind) mask 
+        end subroutine kmp_destroy_affinity_mask 
+ 
+        function kmp_set_affinity_mask_proc(proc, mask) 
+          import 
+          integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc 
+          integer (kind=omp_integer_kind) proc 
+          integer (kind=kmp_affinity_mask_kind) mask 
+        end function kmp_set_affinity_mask_proc 
+ 
+        function kmp_unset_affinity_mask_proc(proc, mask) 
+          import 
+          integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc 
+          integer (kind=omp_integer_kind) proc 
+          integer (kind=kmp_affinity_mask_kind) mask 
+        end function kmp_unset_affinity_mask_proc 
+ 
+        function kmp_get_affinity_mask_proc(proc, mask) 
+          import 
+          integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc 
+          integer (kind=omp_integer_kind) proc 
+          integer (kind=kmp_affinity_mask_kind) mask 
+        end function kmp_get_affinity_mask_proc 
+ 
+        function kmp_malloc(size) 
+          import 
+          integer (kind=kmp_pointer_kind) kmp_malloc 
+          integer (kind=kmp_size_t_kind) size 
+        end function kmp_malloc 
+ 
+        function kmp_calloc(nelem, elsize) 
+          import 
+          integer (kind=kmp_pointer_kind) kmp_calloc 
+          integer (kind=kmp_size_t_kind) nelem 
+          integer (kind=kmp_size_t_kind) elsize 
+        end function kmp_calloc 
+ 
+        function kmp_realloc(ptr, size) 
+          import 
+          integer (kind=kmp_pointer_kind) kmp_realloc 
+          integer (kind=kmp_pointer_kind) ptr 
+          integer (kind=kmp_size_t_kind) size 
+        end function kmp_realloc 
+ 
+        subroutine kmp_free(ptr) 
+          import 
+          integer (kind=kmp_pointer_kind) ptr 
+        end subroutine kmp_free 
+ 
+        subroutine kmp_set_warnings_on() 
+        end subroutine kmp_set_warnings_on 
+ 
+        subroutine kmp_set_warnings_off() 
+        end subroutine kmp_set_warnings_off 
+ 
+      end interface 
+ 
+!dec$ if defined(_WIN32) 
+!dec$   if defined(_WIN64) .or. defined(_M_AMD64) 
+ 
+!*** 
+!*** The Fortran entry points must be in uppercase, even if the /Qlowercase 
+!*** option is specified.  The alias attribute ensures that the specified 
+!*** string is used as the entry point. 
+!*** 
+!*** On the Windows* OS IA-32 architecture, the Fortran entry points have an 
+!*** underscore prepended.  On the Windows* OS Intel(R) 64 
+!*** architecture, no underscore is prepended. 
+!*** 
+ 
+!dec$ attributes alias:'OMP_SET_NUM_THREADS'::omp_set_num_threads 
+!dec$ attributes alias:'OMP_SET_DYNAMIC'::omp_set_dynamic 
+!dec$ attributes alias:'OMP_SET_NESTED'::omp_set_nested 
+!dec$ attributes alias:'OMP_GET_NUM_THREADS'::omp_get_num_threads 
+!dec$ attributes alias:'OMP_GET_MAX_THREADS'::omp_get_max_threads 
+!dec$ attributes alias:'OMP_GET_THREAD_NUM'::omp_get_thread_num 
+!dec$ attributes alias:'OMP_GET_NUM_PROCS'::omp_get_num_procs 
+!dec$ attributes alias:'OMP_IN_PARALLEL'::omp_in_parallel 
+!dec$ attributes alias:'OMP_IN_FINAL'::omp_in_final 
+!dec$ attributes alias:'OMP_GET_DYNAMIC'::omp_get_dynamic 
+!dec$ attributes alias:'OMP_GET_NESTED'::omp_get_nested 
+!dec$ attributes alias:'OMP_GET_THREAD_LIMIT'::omp_get_thread_limit 
+!dec$ attributes alias:'OMP_SET_MAX_ACTIVE_LEVELS'::omp_set_max_active_levels 
+!dec$ attributes alias:'OMP_GET_MAX_ACTIVE_LEVELS'::omp_get_max_active_levels 
+!dec$ attributes alias:'OMP_GET_LEVEL'::omp_get_level 
+!dec$ attributes alias:'OMP_GET_ACTIVE_LEVEL'::omp_get_active_level 
+!dec$ attributes alias:'OMP_GET_ANCESTOR_THREAD_NUM'::omp_get_ancestor_thread_num 
+!dec$ attributes alias:'OMP_GET_TEAM_SIZE'::omp_get_team_size 
+!dec$ attributes alias:'OMP_SET_SCHEDULE'::omp_set_schedule 
+!dec$ attributes alias:'OMP_GET_SCHEDULE'::omp_get_schedule 
+!dec$ attributes alias:'OMP_GET_WTIME'::omp_get_wtime 
+!dec$ attributes alias:'OMP_GET_WTICK'::omp_get_wtick 
+ 
+!dec$ attributes alias:'omp_init_lock'::omp_init_lock 
+!dec$ attributes alias:'omp_destroy_lock'::omp_destroy_lock 
+!dec$ attributes alias:'omp_set_lock'::omp_set_lock 
+!dec$ attributes alias:'omp_unset_lock'::omp_unset_lock 
+!dec$ attributes alias:'omp_test_lock'::omp_test_lock 
+!dec$ attributes alias:'omp_init_nest_lock'::omp_init_nest_lock 
+!dec$ attributes alias:'omp_destroy_nest_lock'::omp_destroy_nest_lock 
+!dec$ attributes alias:'omp_set_nest_lock'::omp_set_nest_lock 
+!dec$ attributes alias:'omp_unset_nest_lock'::omp_unset_nest_lock 
+!dec$ attributes alias:'omp_test_nest_lock'::omp_test_nest_lock 
+ 
+!dec$ attributes alias:'KMP_SET_STACKSIZE'::kmp_set_stacksize 
+!dec$ attributes alias:'KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s 
+!dec$ attributes alias:'KMP_SET_BLOCKTIME'::kmp_set_blocktime 
+!dec$ attributes alias:'KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial 
+!dec$ attributes alias:'KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround 
+!dec$ attributes alias:'KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput 
+!dec$ attributes alias:'KMP_SET_LIBRARY'::kmp_set_library 
+!dec$ attributes alias:'KMP_SET_DEFAULTS'::kmp_set_defaults 
+!dec$ attributes alias:'KMP_GET_STACKSIZE'::kmp_get_stacksize 
+!dec$ attributes alias:'KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s 
+!dec$ attributes alias:'KMP_GET_BLOCKTIME'::kmp_get_blocktime 
+!dec$ attributes alias:'KMP_GET_LIBRARY'::kmp_get_library 
+!dec$ attributes alias:'KMP_SET_AFFINITY'::kmp_set_affinity 
+!dec$ attributes alias:'KMP_GET_AFFINITY'::kmp_get_affinity 
+!dec$ attributes alias:'KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc 
+!dec$ attributes alias:'KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask 
+!dec$ attributes alias:'KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask 
+!dec$ attributes alias:'KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc 
+!dec$ attributes alias:'KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc 
+!dec$ attributes alias:'KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc 
+!dec$ attributes alias:'KMP_MALLOC'::kmp_malloc 
+!dec$ attributes alias:'KMP_CALLOC'::kmp_calloc 
+!dec$ attributes alias:'KMP_REALLOC'::kmp_realloc 
+!dec$ attributes alias:'KMP_FREE'::kmp_free 
+ 
+!dec$ attributes alias:'KMP_SET_WARNINGS_ON'::kmp_set_warnings_on 
+!dec$ attributes alias:'KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off 
+ 
+!dec$   else 
+ 
+!*** 
+!*** On Windows* OS IA-32 architecture, the Fortran entry points have an underscore prepended. 
+!*** 
+ 
+!dec$ attributes alias:'_OMP_SET_NUM_THREADS'::omp_set_num_threads 
+!dec$ attributes alias:'_OMP_SET_DYNAMIC'::omp_set_dynamic 
+!dec$ attributes alias:'_OMP_SET_NESTED'::omp_set_nested 
+!dec$ attributes alias:'_OMP_GET_NUM_THREADS'::omp_get_num_threads 
+!dec$ attributes alias:'_OMP_GET_MAX_THREADS'::omp_get_max_threads 
+!dec$ attributes alias:'_OMP_GET_THREAD_NUM'::omp_get_thread_num 
+!dec$ attributes alias:'_OMP_GET_NUM_PROCS'::omp_get_num_procs 
+!dec$ attributes alias:'_OMP_IN_PARALLEL'::omp_in_parallel 
+!dec$ attributes alias:'_OMP_IN_FINAL'::omp_in_final 
+!dec$ attributes alias:'_OMP_GET_DYNAMIC'::omp_get_dynamic 
+!dec$ attributes alias:'_OMP_GET_NESTED'::omp_get_nested 
+!dec$ attributes alias:'_OMP_GET_THREAD_LIMIT'::omp_get_thread_limit 
+!dec$ attributes alias:'_OMP_SET_MAX_ACTIVE_LEVELS'::omp_set_max_active_levels 
+!dec$ attributes alias:'_OMP_GET_MAX_ACTIVE_LEVELS'::omp_get_max_active_levels 
+!dec$ attributes alias:'_OMP_GET_LEVEL'::omp_get_level 
+!dec$ attributes alias:'_OMP_GET_ACTIVE_LEVEL'::omp_get_active_level 
+!dec$ attributes alias:'_OMP_GET_ANCESTOR_THREAD_NUM'::omp_get_ancestor_thread_num 
+!dec$ attributes alias:'_OMP_GET_TEAM_SIZE'::omp_get_team_size 
+!dec$ attributes alias:'_OMP_SET_SCHEDULE'::omp_set_schedule 
+!dec$ attributes alias:'_OMP_GET_SCHEDULE'::omp_get_schedule 
+!dec$ attributes alias:'_OMP_GET_WTIME'::omp_get_wtime 
+!dec$ attributes alias:'_OMP_GET_WTICK'::omp_get_wtick 
+ 
+!dec$ attributes alias:'_omp_init_lock'::omp_init_lock 
+!dec$ attributes alias:'_omp_destroy_lock'::omp_destroy_lock 
+!dec$ attributes alias:'_omp_set_lock'::omp_set_lock 
+!dec$ attributes alias:'_omp_unset_lock'::omp_unset_lock 
+!dec$ attributes alias:'_omp_test_lock'::omp_test_lock 
+!dec$ attributes alias:'_omp_init_nest_lock'::omp_init_nest_lock 
+!dec$ attributes alias:'_omp_destroy_nest_lock'::omp_destroy_nest_lock 
+!dec$ attributes alias:'_omp_set_nest_lock'::omp_set_nest_lock 
+!dec$ attributes alias:'_omp_unset_nest_lock'::omp_unset_nest_lock 
+!dec$ attributes alias:'_omp_test_nest_lock'::omp_test_nest_lock 
+ 
+!dec$ attributes alias:'_KMP_SET_STACKSIZE'::kmp_set_stacksize 
+!dec$ attributes alias:'_KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s 
+!dec$ attributes alias:'_KMP_SET_BLOCKTIME'::kmp_set_blocktime 
+!dec$ attributes alias:'_KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial 
+!dec$ attributes alias:'_KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround 
+!dec$ attributes alias:'_KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput 
+!dec$ attributes alias:'_KMP_SET_LIBRARY'::kmp_set_library 
+!dec$ attributes alias:'_KMP_SET_DEFAULTS'::kmp_set_defaults 
+!dec$ attributes alias:'_KMP_GET_STACKSIZE'::kmp_get_stacksize 
+!dec$ attributes alias:'_KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s 
+!dec$ attributes alias:'_KMP_GET_BLOCKTIME'::kmp_get_blocktime 
+!dec$ attributes alias:'_KMP_GET_LIBRARY'::kmp_get_library 
+!dec$ attributes alias:'_KMP_SET_AFFINITY'::kmp_set_affinity 
+!dec$ attributes alias:'_KMP_GET_AFFINITY'::kmp_get_affinity 
+!dec$ attributes alias:'_KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc 
+!dec$ attributes alias:'_KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask 
+!dec$ attributes alias:'_KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask 
+!dec$ attributes alias:'_KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc 
+!dec$ attributes alias:'_KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc 
+!dec$ attributes alias:'_KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc 
+!dec$ attributes alias:'_KMP_MALLOC'::kmp_malloc 
+!dec$ attributes alias:'_KMP_CALLOC'::kmp_calloc 
+!dec$ attributes alias:'_KMP_REALLOC'::kmp_realloc 
+!dec$ attributes alias:'_KMP_FREE'::kmp_free 
+ 
+!dec$ attributes alias:'_KMP_SET_WARNINGS_ON'::kmp_set_warnings_on 
+!dec$ attributes alias:'_KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off 
+ 
+!dec$   endif 
+!dec$ endif 
+ 
+!dec$ if defined(__linux) 
+ 
+!*** 
+!*** The Linux* OS entry points are in lowercase, with an underscore appended. 
+!*** 
+ 
+!dec$ attributes alias:'omp_set_num_threads_'::omp_set_num_threads 
+!dec$ attributes alias:'omp_set_dynamic_'::omp_set_dynamic 
+!dec$ attributes alias:'omp_set_nested_'::omp_set_nested 
+!dec$ attributes alias:'omp_get_num_threads_'::omp_get_num_threads 
+!dec$ attributes alias:'omp_get_max_threads_'::omp_get_max_threads 
+!dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num 
+!dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs 
+!dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel 
+!dec$ attributes alias:'omp_in_final_'::omp_in_final 
+!dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic 
+!dec$ attributes alias:'omp_get_nested_'::omp_get_nested 
+!dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit 
+!dec$ attributes alias:'omp_set_max_active_levels_'::omp_set_max_active_levels 
+!dec$ attributes alias:'omp_get_max_active_levels_'::omp_get_max_active_levels 
+!dec$ attributes alias:'omp_get_level_'::omp_get_level 
+!dec$ attributes alias:'omp_get_active_level_'::omp_get_active_level 
+!dec$ attributes alias:'omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num 
+!dec$ attributes alias:'omp_get_team_size_'::omp_get_team_size 
+!dec$ attributes alias:'omp_set_schedule_'::omp_set_schedule 
+!dec$ attributes alias:'omp_get_schedule_'::omp_get_schedule 
+!dec$ attributes alias:'omp_get_wtime_'::omp_get_wtime 
+!dec$ attributes alias:'omp_get_wtick_'::omp_get_wtick 
+ 
+!dec$ attributes alias:'omp_init_lock_'::omp_init_lock 
+!dec$ attributes alias:'omp_destroy_lock_'::omp_destroy_lock 
+!dec$ attributes alias:'omp_set_lock_'::omp_set_lock 
+!dec$ attributes alias:'omp_unset_lock_'::omp_unset_lock 
+!dec$ attributes alias:'omp_test_lock_'::omp_test_lock 
+!dec$ attributes alias:'omp_init_nest_lock_'::omp_init_nest_lock 
+!dec$ attributes alias:'omp_destroy_nest_lock_'::omp_destroy_nest_lock 
+!dec$ attributes alias:'omp_set_nest_lock_'::omp_set_nest_lock 
+!dec$ attributes alias:'omp_unset_nest_lock_'::omp_unset_nest_lock 
+!dec$ attributes alias:'omp_test_nest_lock_'::omp_test_nest_lock 
+ 
+!dec$ attributes alias:'kmp_set_stacksize_'::kmp_set_stacksize 
+!dec$ attributes alias:'kmp_set_stacksize_s_'::kmp_set_stacksize_s 
+!dec$ attributes alias:'kmp_set_blocktime_'::kmp_set_blocktime 
+!dec$ attributes alias:'kmp_set_library_serial_'::kmp_set_library_serial 
+!dec$ attributes alias:'kmp_set_library_turnaround_'::kmp_set_library_turnaround 
+!dec$ attributes alias:'kmp_set_library_throughput_'::kmp_set_library_throughput 
+!dec$ attributes alias:'kmp_set_library_'::kmp_set_library 
+!dec$ attributes alias:'kmp_set_defaults_'::kmp_set_defaults 
+!dec$ attributes alias:'kmp_get_stacksize_'::kmp_get_stacksize 
+!dec$ attributes alias:'kmp_get_stacksize_s_'::kmp_get_stacksize_s 
+!dec$ attributes alias:'kmp_get_blocktime_'::kmp_get_blocktime 
+!dec$ attributes alias:'kmp_get_library_'::kmp_get_library 
+!dec$ attributes alias:'kmp_set_affinity_'::kmp_set_affinity 
+!dec$ attributes alias:'kmp_get_affinity_'::kmp_get_affinity 
+!dec$ attributes alias:'kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc 
+!dec$ attributes alias:'kmp_create_affinity_mask_'::kmp_create_affinity_mask 
+!dec$ attributes alias:'kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask 
+!dec$ attributes alias:'kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc 
+!dec$ attributes alias:'kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc 
+!dec$ attributes alias:'kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc 
+!dec$ attributes alias:'kmp_malloc_'::kmp_malloc 
+!dec$ attributes alias:'kmp_calloc_'::kmp_calloc 
+!dec$ attributes alias:'kmp_realloc_'::kmp_realloc 
+!dec$ attributes alias:'kmp_free_'::kmp_free 
+ 
+!dec$ attributes alias:'kmp_set_warnings_on_'::kmp_set_warnings_on 
+!dec$ attributes alias:'kmp_set_warnings_off_'::kmp_set_warnings_off 
+ 
+!dec$ endif 
+ 
+!dec$ if defined(__APPLE__) 
+ 
+!*** 
+!*** The Mac entry points are in lowercase, with an both an underscore 
+!*** appended and an underscore prepended. 
+!*** 
+ 
+!dec$ attributes alias:'_omp_set_num_threads_'::omp_set_num_threads 
+!dec$ attributes alias:'_omp_set_dynamic_'::omp_set_dynamic 
+!dec$ attributes alias:'_omp_set_nested_'::omp_set_nested 
+!dec$ attributes alias:'_omp_get_num_threads_'::omp_get_num_threads 
+!dec$ attributes alias:'_omp_get_max_threads_'::omp_get_max_threads 
+!dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num 
+!dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs 
+!dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel 
+!dec$ attributes alias:'_omp_in_final_'::omp_in_final 
+!dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic 
+!dec$ attributes alias:'_omp_get_nested_'::omp_get_nested 
+!dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit 
+!dec$ attributes alias:'_omp_set_max_active_levels_'::omp_set_max_active_levels 
+!dec$ attributes alias:'_omp_get_max_active_levels_'::omp_get_max_active_levels 
+!dec$ attributes alias:'_omp_get_level_'::omp_get_level 
+!dec$ attributes alias:'_omp_get_active_level_'::omp_get_active_level 
+!dec$ attributes alias:'_omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num 
+!dec$ attributes alias:'_omp_get_team_size_'::omp_get_team_size 
+!dec$ attributes alias:'_omp_set_schedule_'::omp_set_schedule 
+!dec$ attributes alias:'_omp_get_schedule_'::omp_get_schedule 
+!dec$ attributes alias:'_omp_get_wtime_'::omp_get_wtime 
+!dec$ attributes alias:'_omp_get_wtick_'::omp_get_wtick 
+ 
+!dec$ attributes alias:'_omp_init_lock_'::omp_init_lock 
+!dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock 
+!dec$ attributes alias:'_omp_set_lock_'::omp_set_lock 
+!dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock 
+!dec$ attributes alias:'_omp_test_lock_'::omp_test_lock 
+!dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock 
+!dec$ attributes alias:'_omp_destroy_nest_lock_'::omp_destroy_nest_lock 
+!dec$ attributes alias:'_omp_set_nest_lock_'::omp_set_nest_lock 
+!dec$ attributes alias:'_omp_unset_nest_lock_'::omp_unset_nest_lock 
+!dec$ attributes alias:'_omp_test_nest_lock_'::omp_test_nest_lock 
+ 
+!dec$ attributes alias:'_kmp_set_stacksize_'::kmp_set_stacksize 
+!dec$ attributes alias:'_kmp_set_stacksize_s_'::kmp_set_stacksize_s 
+!dec$ attributes alias:'_kmp_set_blocktime_'::kmp_set_blocktime 
+!dec$ attributes alias:'_kmp_set_library_serial_'::kmp_set_library_serial 
+!dec$ attributes alias:'_kmp_set_library_turnaround_'::kmp_set_library_turnaround 
+!dec$ attributes alias:'_kmp_set_library_throughput_'::kmp_set_library_throughput 
+!dec$ attributes alias:'_kmp_set_library_'::kmp_set_library 
+!dec$ attributes alias:'_kmp_set_defaults_'::kmp_set_defaults 
+!dec$ attributes alias:'_kmp_get_stacksize_'::kmp_get_stacksize 
+!dec$ attributes alias:'_kmp_get_stacksize_s_'::kmp_get_stacksize_s 
+!dec$ attributes alias:'_kmp_get_blocktime_'::kmp_get_blocktime 
+!dec$ attributes alias:'_kmp_get_library_'::kmp_get_library 
+!dec$ attributes alias:'_kmp_set_affinity_'::kmp_set_affinity 
+!dec$ attributes alias:'_kmp_get_affinity_'::kmp_get_affinity 
+!dec$ attributes alias:'_kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc 
+!dec$ attributes alias:'_kmp_create_affinity_mask_'::kmp_create_affinity_mask 
+!dec$ attributes alias:'_kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask 
+!dec$ attributes alias:'_kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc 
+!dec$ attributes alias:'_kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc 
+!dec$ attributes alias:'_kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc 
+!dec$ attributes alias:'_kmp_malloc_'::kmp_malloc 
+!dec$ attributes alias:'_kmp_calloc_'::kmp_calloc 
+!dec$ attributes alias:'_kmp_realloc_'::kmp_realloc 
+!dec$ attributes alias:'_kmp_free_'::kmp_free 
+ 
+!dec$ attributes alias:'_kmp_set_warnings_on_'::kmp_set_warnings_on 
+!dec$ attributes alias:'_kmp_set_warnings_off_'::kmp_set_warnings_off 
+ 
+!dec$ endif 
+ 
+ 
diff --git a/contrib/libs/cxxsupp/openmp/include/30/ompt.h.var b/contrib/libs/cxxsupp/openmp/include/30/ompt.h.var
index 83b4f1e3df..773174a1f5 100644
--- a/contrib/libs/cxxsupp/openmp/include/30/ompt.h.var
+++ b/contrib/libs/cxxsupp/openmp/include/30/ompt.h.var
@@ -1,487 +1,487 @@
-/*
- * include/30/ompt.h.var
- */
-
-#ifndef __OMPT__
-#define __OMPT__
-
-/*****************************************************************************
- * system include files
- *****************************************************************************/
-
-#include <stdint.h>
-
-
-
-/*****************************************************************************
- * iteration macros
- *****************************************************************************/
-
-#define FOREACH_OMPT_INQUIRY_FN(macro)  \
-    macro (ompt_enumerate_state)        \
-                                        \
-    macro (ompt_set_callback)           \
-    macro (ompt_get_callback)           \
-                                        \
-    macro (ompt_get_idle_frame)         \
-    macro (ompt_get_task_frame)         \
-                                        \
-    macro (ompt_get_state)              \
-                                        \
-    macro (ompt_get_parallel_id)        \
-    macro (ompt_get_parallel_team_size) \
-    macro (ompt_get_task_id)            \
-    macro (ompt_get_thread_id)
-
-#define FOREACH_OMPT_PLACEHOLDER_FN(macro)  \
-    macro (ompt_idle)                       \
-    macro (ompt_overhead)                   \
-    macro (ompt_barrier_wait)               \
-    macro (ompt_task_wait)                  \
-    macro (ompt_mutex_wait)
-
-#define FOREACH_OMPT_STATE(macro)                                                               \
-                                                                                                \
-    /* first */                                                                                 \
-    macro (ompt_state_first, 0x71)          /* initial enumeration state */                     \
-                                                                                                \
-    /* work states (0..15) */                                                                   \
-    macro (ompt_state_work_serial, 0x00)    /* working outside parallel */                      \
-    macro (ompt_state_work_parallel, 0x01)  /* working within parallel */                       \
-    macro (ompt_state_work_reduction, 0x02) /* performing a reduction */                        \
-                                                                                                \
-    /* idle (16..31) */                                                                         \
-    macro (ompt_state_idle, 0x10)            /* waiting for work */                             \
-                                                                                                \
-    /* overhead states (32..63) */                                                              \
-    macro (ompt_state_overhead, 0x20)        /* overhead excluding wait states */               \
-                                                                                                \
-    /* barrier wait states (64..79) */                                                          \
-    macro (ompt_state_wait_barrier, 0x40)    /* waiting at a barrier */                         \
-    macro (ompt_state_wait_barrier_implicit, 0x41)    /* implicit barrier */                    \
-    macro (ompt_state_wait_barrier_explicit, 0x42)    /* explicit barrier */                    \
-                                                                                                \
-    /* task wait states (80..95) */                                                             \
-    macro (ompt_state_wait_taskwait, 0x50)   /* waiting at a taskwait */                        \
-    macro (ompt_state_wait_taskgroup, 0x51)  /* waiting at a taskgroup */                       \
-                                                                                                \
-    /* mutex wait states (96..111) */                                                           \
-    macro (ompt_state_wait_lock, 0x60)       /* waiting for lock */                             \
-    macro (ompt_state_wait_nest_lock, 0x61)  /* waiting for nest lock */                        \
-    macro (ompt_state_wait_critical, 0x62)   /* waiting for critical */                         \
-    macro (ompt_state_wait_atomic, 0x63)     /* waiting for atomic */                           \
-    macro (ompt_state_wait_ordered, 0x64)    /* waiting for ordered */                          \
-    macro (ompt_state_wait_single, 0x6F)     /* waiting for single region (non-standard!) */    \
-                                                                                                \
-    /* misc (112..127) */                                                                       \
-    macro (ompt_state_undefined, 0x70)       /* undefined thread state */
-
-
-#define FOREACH_OMPT_EVENT(macro)                                                                               \
-                                                                                                                \
-    /*--- Mandatory Events ---*/                                                                                \
-    macro (ompt_event_parallel_begin,           ompt_new_parallel_callback_t,   1) /* parallel begin */         \
-    macro (ompt_event_parallel_end,             ompt_end_parallel_callback_t,   2) /* parallel end */           \
-                                                                                                                \
-    macro (ompt_event_task_begin,               ompt_new_task_callback_t,       3) /* task begin */             \
-    macro (ompt_event_task_end,                 ompt_task_callback_t,           4) /* task destroy */           \
-                                                                                                                \
-    macro (ompt_event_thread_begin,             ompt_thread_type_callback_t,    5) /* thread begin */           \
-    macro (ompt_event_thread_end,               ompt_thread_type_callback_t,    6) /* thread end */             \
-                                                                                                                \
-    macro (ompt_event_control,                  ompt_control_callback_t,        7) /* support control calls */  \
-                                                                                                                \
-    macro (ompt_event_runtime_shutdown,         ompt_callback_t,                8) /* runtime shutdown */       \
-                                                                                                                \
-    /*--- Optional Events (blame shifting, ompt_event_unimplemented) ---*/                                      \
-    macro (ompt_event_idle_begin,               ompt_thread_callback_t,         9) /* begin idle state */       \
-    macro (ompt_event_idle_end,                 ompt_thread_callback_t,        10) /* end idle state */         \
-                                                                                                                \
-    macro (ompt_event_wait_barrier_begin,       ompt_parallel_callback_t,      11) /* begin wait at barrier */  \
-    macro (ompt_event_wait_barrier_end,         ompt_parallel_callback_t,      12) /* end wait at barrier */    \
-                                                                                                                \
-    macro (ompt_event_wait_taskwait_begin,      ompt_parallel_callback_t,      13) /* begin wait at taskwait */ \
-    macro (ompt_event_wait_taskwait_end,        ompt_parallel_callback_t,      14) /* end wait at taskwait */   \
-                                                                                                                \
-    macro (ompt_event_wait_taskgroup_begin,     ompt_parallel_callback_t,      15) /* begin wait at taskgroup */\
-    macro (ompt_event_wait_taskgroup_end,       ompt_parallel_callback_t,      16) /* end wait at taskgroup */  \
-                                                                                                                \
-    macro (ompt_event_release_lock,             ompt_wait_callback_t,          17) /* lock release */           \
-    macro (ompt_event_release_nest_lock_last,   ompt_wait_callback_t,          18) /* last nest lock release */ \
-    macro (ompt_event_release_critical,         ompt_wait_callback_t,          19) /* critical release */       \
-                                                                                                                \
-    macro (ompt_event_release_atomic,           ompt_wait_callback_t,          20) /* atomic release */         \
-                                                                                                                \
-    macro (ompt_event_release_ordered,          ompt_wait_callback_t,          21) /* ordered release */        \
-                                                                                                                \
-    /*--- Optional Events (synchronous events, ompt_event_unimplemented) --- */                                 \
-    macro (ompt_event_implicit_task_begin,      ompt_parallel_callback_t,      22) /* implicit task begin   */  \
-    macro (ompt_event_implicit_task_end,        ompt_parallel_callback_t,      23) /* implicit task end  */     \
-                                                                                                                \
-    macro (ompt_event_initial_task_begin,       ompt_parallel_callback_t,      24) /* initial task begin   */   \
-    macro (ompt_event_initial_task_end,         ompt_parallel_callback_t,      25) /* initial task end  */      \
-                                                                                                                \
-    macro (ompt_event_task_switch,              ompt_task_pair_callback_t,     26) /* task switch */            \
-                                                                                                                \
-    macro (ompt_event_loop_begin,               ompt_new_workshare_callback_t, 27) /* task at loop begin */     \
-    macro (ompt_event_loop_end,                 ompt_parallel_callback_t,      28) /* task at loop end */       \
-                                                                                                                \
-    macro (ompt_event_sections_begin,           ompt_new_workshare_callback_t, 29) /* task at sections begin  */\
-    macro (ompt_event_sections_end,             ompt_parallel_callback_t,      30) /* task at sections end */   \
-                                                                                                                \
-    macro (ompt_event_single_in_block_begin,    ompt_new_workshare_callback_t, 31) /* task at single begin*/    \
-    macro (ompt_event_single_in_block_end,      ompt_parallel_callback_t,      32) /* task at single end */     \
-                                                                                                                \
-    macro (ompt_event_single_others_begin,      ompt_parallel_callback_t,      33) /* task at single begin */   \
-    macro (ompt_event_single_others_end,        ompt_parallel_callback_t,      34) /* task at single end */     \
-                                                                                                                \
-    macro (ompt_event_workshare_begin,          ompt_new_workshare_callback_t, 35) /* task at workshare begin */\
-    macro (ompt_event_workshare_end,            ompt_parallel_callback_t,      36) /* task at workshare end */  \
-                                                                                                                \
-    macro (ompt_event_master_begin,             ompt_parallel_callback_t,      37) /* task at master begin */   \
-    macro (ompt_event_master_end,               ompt_parallel_callback_t,      38) /* task at master end */     \
-                                                                                                                \
-    macro (ompt_event_barrier_begin,            ompt_parallel_callback_t,      39) /* task at barrier begin  */ \
-    macro (ompt_event_barrier_end,              ompt_parallel_callback_t,      40) /* task at barrier end */    \
-                                                                                                                \
-    macro (ompt_event_taskwait_begin,           ompt_parallel_callback_t,      41) /* task at taskwait begin */ \
-    macro (ompt_event_taskwait_end,             ompt_parallel_callback_t,      42) /* task at task wait end */  \
-                                                                                                                \
-    macro (ompt_event_taskgroup_begin,          ompt_parallel_callback_t,      43) /* task at taskgroup begin */\
-    macro (ompt_event_taskgroup_end,            ompt_parallel_callback_t,      44) /* task at taskgroup end */  \
-                                                                                                                \
-    macro (ompt_event_release_nest_lock_prev,   ompt_wait_callback_t,          45) /* prev nest lock release */ \
-                                                                                                                \
-    macro (ompt_event_wait_lock,                ompt_wait_callback_t,          46) /* lock wait */              \
-    macro (ompt_event_wait_nest_lock,           ompt_wait_callback_t,          47) /* nest lock wait */         \
-    macro (ompt_event_wait_critical,            ompt_wait_callback_t,          48) /* critical wait */          \
-    macro (ompt_event_wait_atomic,              ompt_wait_callback_t,          49) /* atomic wait */            \
-    macro (ompt_event_wait_ordered,             ompt_wait_callback_t,          50) /* ordered wait */           \
-                                                                                                                \
-    macro (ompt_event_acquired_lock,            ompt_wait_callback_t,          51) /* lock acquired */          \
-    macro (ompt_event_acquired_nest_lock_first, ompt_wait_callback_t,          52) /* 1st nest lock acquired */ \
-    macro (ompt_event_acquired_nest_lock_next,  ompt_wait_callback_t,          53) /* next nest lock acquired*/ \
-    macro (ompt_event_acquired_critical,        ompt_wait_callback_t,          54) /* critical acquired */      \
-    macro (ompt_event_acquired_atomic,          ompt_wait_callback_t,          55) /* atomic acquired */        \
-    macro (ompt_event_acquired_ordered,         ompt_wait_callback_t,          56) /* ordered acquired */       \
-                                                                                                                \
-    macro (ompt_event_init_lock,                ompt_wait_callback_t,          57) /* lock init */              \
-    macro (ompt_event_init_nest_lock,           ompt_wait_callback_t,          58) /* nest lock init */         \
-                                                                                                                \
-    macro (ompt_event_destroy_lock,             ompt_wait_callback_t,          59) /* lock destruction */       \
-    macro (ompt_event_destroy_nest_lock,        ompt_wait_callback_t,          60) /* nest lock destruction */  \
-                                                                                                                \
-    macro (ompt_event_flush,                    ompt_callback_t,               61) /* after executing flush */
-
-
-
-/*****************************************************************************
- * data types
- *****************************************************************************/
-
-/*---------------------
- * identifiers
- *---------------------*/
-
-typedef uint64_t ompt_thread_id_t;
-#define ompt_thread_id_none ((ompt_thread_id_t) 0)     /* non-standard */
-
-typedef uint64_t ompt_task_id_t;
-#define ompt_task_id_none ((ompt_task_id_t) 0)         /* non-standard */
-
-typedef uint64_t ompt_parallel_id_t;
-#define ompt_parallel_id_none ((ompt_parallel_id_t) 0) /* non-standard */
-
-typedef uint64_t ompt_wait_id_t;
-#define ompt_wait_id_none ((ompt_wait_id_t) 0)         /* non-standard */
-
-
-/*---------------------
- * ompt_frame_t
- *---------------------*/
-
-typedef struct ompt_frame_s {
-    void *exit_runtime_frame;    /* next frame is user code     */
-    void *reenter_runtime_frame; /* previous frame is user code */
-} ompt_frame_t;
-
-
-/*****************************************************************************
- * enumerations for thread states and runtime events
- *****************************************************************************/
-
-/*---------------------
- * runtime states
- *---------------------*/
-
-typedef enum {
-#define ompt_state_macro(state, code) state = code,
-    FOREACH_OMPT_STATE(ompt_state_macro)
-#undef ompt_state_macro
-} ompt_state_t;
-
-
-/*---------------------
- * runtime events
- *---------------------*/
-
-typedef enum {
-#define ompt_event_macro(event, callback, eventid) event = eventid,
-    FOREACH_OMPT_EVENT(ompt_event_macro)
-#undef ompt_event_macro
-} ompt_event_t;
-
-
-/*---------------------
- * set callback results
- *---------------------*/
-typedef enum {
-    ompt_set_result_registration_error              = 0,
-    ompt_set_result_event_may_occur_no_callback     = 1,
-    ompt_set_result_event_never_occurs              = 2,
-    ompt_set_result_event_may_occur_callback_some   = 3,
-    ompt_set_result_event_may_occur_callback_always = 4,
-} ompt_set_result_t;
-
-
-
-/*****************************************************************************
- * callback signatures
- *****************************************************************************/
-
-/* initialization */
-typedef void (*ompt_interface_fn_t)(void);
-
-typedef ompt_interface_fn_t (*ompt_function_lookup_t)(
-    const char *                      /* entry point to look up       */
-);
-
-/* threads */
-typedef void (*ompt_thread_callback_t) (
-    ompt_thread_id_t thread_id        /* ID of thread                 */
-);
-
-typedef enum {
-    ompt_thread_initial = 1, // start the enumeration at 1
-    ompt_thread_worker  = 2,
-    ompt_thread_other   = 3
-} ompt_thread_type_t;
-
-typedef enum {
-    ompt_invoker_program = 0,         /* program invokes master task  */
-    ompt_invoker_runtime = 1          /* runtime invokes master task  */
-} ompt_invoker_t;
-
-typedef void (*ompt_thread_type_callback_t) (
-    ompt_thread_type_t thread_type,   /* type of thread               */
-    ompt_thread_id_t thread_id        /* ID of thread                 */
-);
-
-typedef void (*ompt_wait_callback_t) (
-    ompt_wait_id_t wait_id            /* wait id                      */
-);
-
-/* parallel and workshares */
-typedef void (*ompt_parallel_callback_t) (
-    ompt_parallel_id_t parallel_id,    /* id of parallel region       */
-    ompt_task_id_t task_id             /* id of task                  */
-);
-
-typedef void (*ompt_new_workshare_callback_t) (
-    ompt_parallel_id_t parallel_id,   /* id of parallel region        */
-    ompt_task_id_t parent_task_id,    /* id of parent task            */
-    void *workshare_function          /* pointer to outlined function */
-);
-
-typedef void (*ompt_new_parallel_callback_t) (
-    ompt_task_id_t parent_task_id,    /* id of parent task            */
-    ompt_frame_t *parent_task_frame,  /* frame data of parent task    */
-    ompt_parallel_id_t parallel_id,   /* id of parallel region        */
-    uint32_t requested_team_size,     /* number of threads in team    */
-    void *parallel_function,          /* pointer to outlined function */
-    ompt_invoker_t invoker            /* who invokes master task?     */
-);
-
-typedef void (*ompt_end_parallel_callback_t) (
-    ompt_parallel_id_t parallel_id,   /* id of parallel region       */
-    ompt_task_id_t task_id,           /* id of task                  */
-    ompt_invoker_t invoker            /* who invokes master task?    */ 
-);
-
-/* tasks */
-typedef void (*ompt_task_callback_t) (
-    ompt_task_id_t task_id            /* id of task                   */
-);
-
-typedef void (*ompt_task_pair_callback_t) (
-    ompt_task_id_t first_task_id,
-    ompt_task_id_t second_task_id
-);
-
-typedef void (*ompt_new_task_callback_t) (
-    ompt_task_id_t parent_task_id,    /* id of parent task            */
-    ompt_frame_t *parent_task_frame,  /* frame data for parent task   */
-    ompt_task_id_t  new_task_id,      /* id of created task           */
-    void *task_function               /* pointer to outlined function */
-);
-
-/* program */
-typedef void (*ompt_control_callback_t) (
-    uint64_t command,                 /* command of control call      */
-    uint64_t modifier                 /* modifier of control call     */
-);
-
-typedef void (*ompt_callback_t)(void);
-
-
-/****************************************************************************
- * ompt API
- ***************************************************************************/
-
-#ifdef  __cplusplus
-extern "C" {
-#endif
-
-#define OMPT_API_FNTYPE(fn) fn##_t
-
-#define OMPT_API_FUNCTION(return_type, fn, args)  \
-    typedef return_type (*OMPT_API_FNTYPE(fn)) args
-
-
-
-/****************************************************************************
- * INQUIRY FUNCTIONS
- ***************************************************************************/
-
-/* state */
-OMPT_API_FUNCTION(ompt_state_t, ompt_get_state, (
-    ompt_wait_id_t *ompt_wait_id
-));
-
-/* thread */
-OMPT_API_FUNCTION(ompt_thread_id_t, ompt_get_thread_id, (void));
-
-OMPT_API_FUNCTION(void *, ompt_get_idle_frame, (void));
-
-/* parallel region */
-OMPT_API_FUNCTION(ompt_parallel_id_t, ompt_get_parallel_id, (
-    int ancestor_level
-));
-
-OMPT_API_FUNCTION(int, ompt_get_parallel_team_size, (
-    int ancestor_level
-));
-
-/* task */
-OMPT_API_FUNCTION(ompt_task_id_t, ompt_get_task_id, (
-    int depth
-));
-
-OMPT_API_FUNCTION(ompt_frame_t *, ompt_get_task_frame, (
-    int depth
-));
-
-
-
-/****************************************************************************
- * PLACEHOLDERS FOR PERFORMANCE REPORTING
- ***************************************************************************/
-
-/* idle */
-OMPT_API_FUNCTION(void, ompt_idle, (
-    void
-));
-
-/* overhead */
-OMPT_API_FUNCTION(void, ompt_overhead, (
-    void
-));
-
-/* barrier wait */
-OMPT_API_FUNCTION(void, ompt_barrier_wait, (
-    void
-));
-
-/* task wait */
-OMPT_API_FUNCTION(void, ompt_task_wait, (
-    void
-));
-
-/* mutex wait */
-OMPT_API_FUNCTION(void, ompt_mutex_wait, (
-    void
-));
-
-
-
-/****************************************************************************
- * INITIALIZATION FUNCTIONS
- ***************************************************************************/
-
-OMPT_API_FUNCTION(void, ompt_initialize, (
-    ompt_function_lookup_t ompt_fn_lookup,
-    const char *runtime_version,
-    unsigned int ompt_version
-));
-
-
-/* initialization interface to be defined by tool */
-ompt_initialize_t ompt_tool(void);
-
-typedef enum opt_init_mode_e {
-    ompt_init_mode_never  = 0,
-    ompt_init_mode_false  = 1,
-    ompt_init_mode_true   = 2,
-    ompt_init_mode_always = 3
-} ompt_init_mode_t;
-
-OMPT_API_FUNCTION(int, ompt_set_callback, (
-    ompt_event_t event,
-    ompt_callback_t callback
-));
-
-typedef enum ompt_set_callback_rc_e {  /* non-standard */
-    ompt_set_callback_error      = 0,
-    ompt_has_event_no_callback   = 1,
-    ompt_no_event_no_callback    = 2,
-    ompt_has_event_may_callback  = 3,
-    ompt_has_event_must_callback = 4,
-} ompt_set_callback_rc_t;
-
-
-OMPT_API_FUNCTION(int, ompt_get_callback, (
-    ompt_event_t event,
-    ompt_callback_t *callback
-));
-
-
-
-/****************************************************************************
- * MISCELLANEOUS FUNCTIONS
- ***************************************************************************/
-
-/* control */
-#if defined(_OPENMP) && (_OPENMP >= 201307)
-#pragma omp declare target
-#endif
-void ompt_control(
-    uint64_t command,
-    uint64_t modifier
-);
-#if defined(_OPENMP) && (_OPENMP >= 201307)
-#pragma omp end declare target
-#endif
-
-/* state enumeration */
-OMPT_API_FUNCTION(int, ompt_enumerate_state, (
-    int current_state,
-    int *next_state,
-    const char **next_state_name
-));
-
-#ifdef  __cplusplus
-};
-#endif
-
-#endif
-
+/* 
+ * include/30/ompt.h.var 
+ */ 
+ 
+#ifndef __OMPT__ 
+#define __OMPT__ 
+ 
+/***************************************************************************** 
+ * system include files 
+ *****************************************************************************/ 
+ 
+#include <stdint.h> 
+ 
+ 
+ 
+/***************************************************************************** 
+ * iteration macros 
+ *****************************************************************************/ 
+ 
+#define FOREACH_OMPT_INQUIRY_FN(macro)  \ 
+    macro (ompt_enumerate_state)        \ 
+                                        \ 
+    macro (ompt_set_callback)           \ 
+    macro (ompt_get_callback)           \ 
+                                        \ 
+    macro (ompt_get_idle_frame)         \ 
+    macro (ompt_get_task_frame)         \ 
+                                        \ 
+    macro (ompt_get_state)              \ 
+                                        \ 
+    macro (ompt_get_parallel_id)        \ 
+    macro (ompt_get_parallel_team_size) \ 
+    macro (ompt_get_task_id)            \ 
+    macro (ompt_get_thread_id) 
+ 
+#define FOREACH_OMPT_PLACEHOLDER_FN(macro)  \ 
+    macro (ompt_idle)                       \ 
+    macro (ompt_overhead)                   \ 
+    macro (ompt_barrier_wait)               \ 
+    macro (ompt_task_wait)                  \ 
+    macro (ompt_mutex_wait) 
+ 
+#define FOREACH_OMPT_STATE(macro)                                                               \ 
+                                                                                                \ 
+    /* first */                                                                                 \ 
+    macro (ompt_state_first, 0x71)          /* initial enumeration state */                     \ 
+                                                                                                \ 
+    /* work states (0..15) */                                                                   \ 
+    macro (ompt_state_work_serial, 0x00)    /* working outside parallel */                      \ 
+    macro (ompt_state_work_parallel, 0x01)  /* working within parallel */                       \ 
+    macro (ompt_state_work_reduction, 0x02) /* performing a reduction */                        \ 
+                                                                                                \ 
+    /* idle (16..31) */                                                                         \ 
+    macro (ompt_state_idle, 0x10)            /* waiting for work */                             \ 
+                                                                                                \ 
+    /* overhead states (32..63) */                                                              \ 
+    macro (ompt_state_overhead, 0x20)        /* overhead excluding wait states */               \ 
+                                                                                                \ 
+    /* barrier wait states (64..79) */                                                          \ 
+    macro (ompt_state_wait_barrier, 0x40)    /* waiting at a barrier */                         \ 
+    macro (ompt_state_wait_barrier_implicit, 0x41)    /* implicit barrier */                    \ 
+    macro (ompt_state_wait_barrier_explicit, 0x42)    /* explicit barrier */                    \ 
+                                                                                                \ 
+    /* task wait states (80..95) */                                                             \ 
+    macro (ompt_state_wait_taskwait, 0x50)   /* waiting at a taskwait */                        \ 
+    macro (ompt_state_wait_taskgroup, 0x51)  /* waiting at a taskgroup */                       \ 
+                                                                                                \ 
+    /* mutex wait states (96..111) */                                                           \ 
+    macro (ompt_state_wait_lock, 0x60)       /* waiting for lock */                             \ 
+    macro (ompt_state_wait_nest_lock, 0x61)  /* waiting for nest lock */                        \ 
+    macro (ompt_state_wait_critical, 0x62)   /* waiting for critical */                         \ 
+    macro (ompt_state_wait_atomic, 0x63)     /* waiting for atomic */                           \ 
+    macro (ompt_state_wait_ordered, 0x64)    /* waiting for ordered */                          \ 
+    macro (ompt_state_wait_single, 0x6F)     /* waiting for single region (non-standard!) */    \ 
+                                                                                                \ 
+    /* misc (112..127) */                                                                       \ 
+    macro (ompt_state_undefined, 0x70)       /* undefined thread state */ 
+ 
+ 
+#define FOREACH_OMPT_EVENT(macro)                                                                               \ 
+                                                                                                                \ 
+    /*--- Mandatory Events ---*/                                                                                \ 
+    macro (ompt_event_parallel_begin,           ompt_new_parallel_callback_t,   1) /* parallel begin */         \ 
+    macro (ompt_event_parallel_end,             ompt_end_parallel_callback_t,   2) /* parallel end */           \ 
+                                                                                                                \ 
+    macro (ompt_event_task_begin,               ompt_new_task_callback_t,       3) /* task begin */             \ 
+    macro (ompt_event_task_end,                 ompt_task_callback_t,           4) /* task destroy */           \ 
+                                                                                                                \ 
+    macro (ompt_event_thread_begin,             ompt_thread_type_callback_t,    5) /* thread begin */           \ 
+    macro (ompt_event_thread_end,               ompt_thread_type_callback_t,    6) /* thread end */             \ 
+                                                                                                                \ 
+    macro (ompt_event_control,                  ompt_control_callback_t,        7) /* support control calls */  \ 
+                                                                                                                \ 
+    macro (ompt_event_runtime_shutdown,         ompt_callback_t,                8) /* runtime shutdown */       \ 
+                                                                                                                \ 
+    /*--- Optional Events (blame shifting, ompt_event_unimplemented) ---*/                                      \ 
+    macro (ompt_event_idle_begin,               ompt_thread_callback_t,         9) /* begin idle state */       \ 
+    macro (ompt_event_idle_end,                 ompt_thread_callback_t,        10) /* end idle state */         \ 
+                                                                                                                \ 
+    macro (ompt_event_wait_barrier_begin,       ompt_parallel_callback_t,      11) /* begin wait at barrier */  \ 
+    macro (ompt_event_wait_barrier_end,         ompt_parallel_callback_t,      12) /* end wait at barrier */    \ 
+                                                                                                                \ 
+    macro (ompt_event_wait_taskwait_begin,      ompt_parallel_callback_t,      13) /* begin wait at taskwait */ \ 
+    macro (ompt_event_wait_taskwait_end,        ompt_parallel_callback_t,      14) /* end wait at taskwait */   \ 
+                                                                                                                \ 
+    macro (ompt_event_wait_taskgroup_begin,     ompt_parallel_callback_t,      15) /* begin wait at taskgroup */\ 
+    macro (ompt_event_wait_taskgroup_end,       ompt_parallel_callback_t,      16) /* end wait at taskgroup */  \ 
+                                                                                                                \ 
+    macro (ompt_event_release_lock,             ompt_wait_callback_t,          17) /* lock release */           \ 
+    macro (ompt_event_release_nest_lock_last,   ompt_wait_callback_t,          18) /* last nest lock release */ \ 
+    macro (ompt_event_release_critical,         ompt_wait_callback_t,          19) /* critical release */       \ 
+                                                                                                                \ 
+    macro (ompt_event_release_atomic,           ompt_wait_callback_t,          20) /* atomic release */         \ 
+                                                                                                                \ 
+    macro (ompt_event_release_ordered,          ompt_wait_callback_t,          21) /* ordered release */        \ 
+                                                                                                                \ 
+    /*--- Optional Events (synchronous events, ompt_event_unimplemented) --- */                                 \ 
+    macro (ompt_event_implicit_task_begin,      ompt_parallel_callback_t,      22) /* implicit task begin   */  \ 
+    macro (ompt_event_implicit_task_end,        ompt_parallel_callback_t,      23) /* implicit task end  */     \ 
+                                                                                                                \ 
+    macro (ompt_event_initial_task_begin,       ompt_parallel_callback_t,      24) /* initial task begin   */   \ 
+    macro (ompt_event_initial_task_end,         ompt_parallel_callback_t,      25) /* initial task end  */      \ 
+                                                                                                                \ 
+    macro (ompt_event_task_switch,              ompt_task_pair_callback_t,     26) /* task switch */            \ 
+                                                                                                                \ 
+    macro (ompt_event_loop_begin,               ompt_new_workshare_callback_t, 27) /* task at loop begin */     \ 
+    macro (ompt_event_loop_end,                 ompt_parallel_callback_t,      28) /* task at loop end */       \ 
+                                                                                                                \ 
+    macro (ompt_event_sections_begin,           ompt_new_workshare_callback_t, 29) /* task at sections begin  */\ 
+    macro (ompt_event_sections_end,             ompt_parallel_callback_t,      30) /* task at sections end */   \ 
+                                                                                                                \ 
+    macro (ompt_event_single_in_block_begin,    ompt_new_workshare_callback_t, 31) /* task at single begin*/    \ 
+    macro (ompt_event_single_in_block_end,      ompt_parallel_callback_t,      32) /* task at single end */     \ 
+                                                                                                                \ 
+    macro (ompt_event_single_others_begin,      ompt_parallel_callback_t,      33) /* task at single begin */   \ 
+    macro (ompt_event_single_others_end,        ompt_parallel_callback_t,      34) /* task at single end */     \ 
+                                                                                                                \ 
+    macro (ompt_event_workshare_begin,          ompt_new_workshare_callback_t, 35) /* task at workshare begin */\ 
+    macro (ompt_event_workshare_end,            ompt_parallel_callback_t,      36) /* task at workshare end */  \ 
+                                                                                                                \ 
+    macro (ompt_event_master_begin,             ompt_parallel_callback_t,      37) /* task at master begin */   \ 
+    macro (ompt_event_master_end,               ompt_parallel_callback_t,      38) /* task at master end */     \ 
+                                                                                                                \ 
+    macro (ompt_event_barrier_begin,            ompt_parallel_callback_t,      39) /* task at barrier begin  */ \ 
+    macro (ompt_event_barrier_end,              ompt_parallel_callback_t,      40) /* task at barrier end */    \ 
+                                                                                                                \ 
+    macro (ompt_event_taskwait_begin,           ompt_parallel_callback_t,      41) /* task at taskwait begin */ \ 
+    macro (ompt_event_taskwait_end,             ompt_parallel_callback_t,      42) /* task at task wait end */  \ 
+                                                                                                                \ 
+    macro (ompt_event_taskgroup_begin,          ompt_parallel_callback_t,      43) /* task at taskgroup begin */\ 
+    macro (ompt_event_taskgroup_end,            ompt_parallel_callback_t,      44) /* task at taskgroup end */  \ 
+                                                                                                                \ 
+    macro (ompt_event_release_nest_lock_prev,   ompt_wait_callback_t,          45) /* prev nest lock release */ \ 
+                                                                                                                \ 
+    macro (ompt_event_wait_lock,                ompt_wait_callback_t,          46) /* lock wait */              \ 
+    macro (ompt_event_wait_nest_lock,           ompt_wait_callback_t,          47) /* nest lock wait */         \ 
+    macro (ompt_event_wait_critical,            ompt_wait_callback_t,          48) /* critical wait */          \ 
+    macro (ompt_event_wait_atomic,              ompt_wait_callback_t,          49) /* atomic wait */            \ 
+    macro (ompt_event_wait_ordered,             ompt_wait_callback_t,          50) /* ordered wait */           \ 
+                                                                                                                \ 
+    macro (ompt_event_acquired_lock,            ompt_wait_callback_t,          51) /* lock acquired */          \ 
+    macro (ompt_event_acquired_nest_lock_first, ompt_wait_callback_t,          52) /* 1st nest lock acquired */ \ 
+    macro (ompt_event_acquired_nest_lock_next,  ompt_wait_callback_t,          53) /* next nest lock acquired*/ \ 
+    macro (ompt_event_acquired_critical,        ompt_wait_callback_t,          54) /* critical acquired */      \ 
+    macro (ompt_event_acquired_atomic,          ompt_wait_callback_t,          55) /* atomic acquired */        \ 
+    macro (ompt_event_acquired_ordered,         ompt_wait_callback_t,          56) /* ordered acquired */       \ 
+                                                                                                                \ 
+    macro (ompt_event_init_lock,                ompt_wait_callback_t,          57) /* lock init */              \ 
+    macro (ompt_event_init_nest_lock,           ompt_wait_callback_t,          58) /* nest lock init */         \ 
+                                                                                                                \ 
+    macro (ompt_event_destroy_lock,             ompt_wait_callback_t,          59) /* lock destruction */       \ 
+    macro (ompt_event_destroy_nest_lock,        ompt_wait_callback_t,          60) /* nest lock destruction */  \ 
+                                                                                                                \ 
+    macro (ompt_event_flush,                    ompt_callback_t,               61) /* after executing flush */ 
+ 
+ 
+ 
+/***************************************************************************** 
+ * data types 
+ *****************************************************************************/ 
+ 
+/*--------------------- 
+ * identifiers 
+ *---------------------*/ 
+ 
+typedef uint64_t ompt_thread_id_t; 
+#define ompt_thread_id_none ((ompt_thread_id_t) 0)     /* non-standard */ 
+ 
+typedef uint64_t ompt_task_id_t; 
+#define ompt_task_id_none ((ompt_task_id_t) 0)         /* non-standard */ 
+ 
+typedef uint64_t ompt_parallel_id_t; 
+#define ompt_parallel_id_none ((ompt_parallel_id_t) 0) /* non-standard */ 
+ 
+typedef uint64_t ompt_wait_id_t; 
+#define ompt_wait_id_none ((ompt_wait_id_t) 0)         /* non-standard */ 
+ 
+ 
+/*--------------------- 
+ * ompt_frame_t 
+ *---------------------*/ 
+ 
+typedef struct ompt_frame_s { 
+    void *exit_runtime_frame;    /* next frame is user code     */ 
+    void *reenter_runtime_frame; /* previous frame is user code */ 
+} ompt_frame_t; 
+ 
+ 
+/***************************************************************************** 
+ * enumerations for thread states and runtime events 
+ *****************************************************************************/ 
+ 
+/*--------------------- 
+ * runtime states 
+ *---------------------*/ 
+ 
+typedef enum { 
+#define ompt_state_macro(state, code) state = code, 
+    FOREACH_OMPT_STATE(ompt_state_macro) 
+#undef ompt_state_macro 
+} ompt_state_t; 
+ 
+ 
+/*--------------------- 
+ * runtime events 
+ *---------------------*/ 
+ 
+typedef enum { 
+#define ompt_event_macro(event, callback, eventid) event = eventid, 
+    FOREACH_OMPT_EVENT(ompt_event_macro) 
+#undef ompt_event_macro 
+} ompt_event_t; 
+ 
+ 
+/*--------------------- 
+ * set callback results 
+ *---------------------*/ 
+typedef enum { 
+    ompt_set_result_registration_error              = 0, 
+    ompt_set_result_event_may_occur_no_callback     = 1, 
+    ompt_set_result_event_never_occurs              = 2, 
+    ompt_set_result_event_may_occur_callback_some   = 3, 
+    ompt_set_result_event_may_occur_callback_always = 4, 
+} ompt_set_result_t; 
+ 
+ 
+ 
+/***************************************************************************** 
+ * callback signatures 
+ *****************************************************************************/ 
+ 
+/* initialization */ 
+typedef void (*ompt_interface_fn_t)(void); 
+ 
+typedef ompt_interface_fn_t (*ompt_function_lookup_t)( 
+    const char *                      /* entry point to look up       */ 
+); 
+ 
+/* threads */ 
+typedef void (*ompt_thread_callback_t) ( 
+    ompt_thread_id_t thread_id        /* ID of thread                 */ 
+); 
+ 
+typedef enum { 
+    ompt_thread_initial = 1, // start the enumeration at 1 
+    ompt_thread_worker  = 2, 
+    ompt_thread_other   = 3 
+} ompt_thread_type_t; 
+ 
+typedef enum { 
+    ompt_invoker_program = 0,         /* program invokes master task  */ 
+    ompt_invoker_runtime = 1          /* runtime invokes master task  */ 
+} ompt_invoker_t; 
+ 
+typedef void (*ompt_thread_type_callback_t) ( 
+    ompt_thread_type_t thread_type,   /* type of thread               */ 
+    ompt_thread_id_t thread_id        /* ID of thread                 */ 
+); 
+ 
+typedef void (*ompt_wait_callback_t) ( 
+    ompt_wait_id_t wait_id            /* wait id                      */ 
+); 
+ 
+/* parallel and workshares */ 
+typedef void (*ompt_parallel_callback_t) ( 
+    ompt_parallel_id_t parallel_id,    /* id of parallel region       */ 
+    ompt_task_id_t task_id             /* id of task                  */ 
+); 
+ 
+typedef void (*ompt_new_workshare_callback_t) ( 
+    ompt_parallel_id_t parallel_id,   /* id of parallel region        */ 
+    ompt_task_id_t parent_task_id,    /* id of parent task            */ 
+    void *workshare_function          /* pointer to outlined function */ 
+); 
+ 
+typedef void (*ompt_new_parallel_callback_t) ( 
+    ompt_task_id_t parent_task_id,    /* id of parent task            */ 
+    ompt_frame_t *parent_task_frame,  /* frame data of parent task    */ 
+    ompt_parallel_id_t parallel_id,   /* id of parallel region        */ 
+    uint32_t requested_team_size,     /* number of threads in team    */ 
+    void *parallel_function,          /* pointer to outlined function */ 
+    ompt_invoker_t invoker            /* who invokes master task?     */ 
+); 
+ 
+typedef void (*ompt_end_parallel_callback_t) ( 
+    ompt_parallel_id_t parallel_id,   /* id of parallel region       */ 
+    ompt_task_id_t task_id,           /* id of task                  */ 
+    ompt_invoker_t invoker            /* who invokes master task?    */  
+); 
+ 
+/* tasks */ 
+typedef void (*ompt_task_callback_t) ( 
+    ompt_task_id_t task_id            /* id of task                   */ 
+); 
+ 
+typedef void (*ompt_task_pair_callback_t) ( 
+    ompt_task_id_t first_task_id, 
+    ompt_task_id_t second_task_id 
+); 
+ 
+typedef void (*ompt_new_task_callback_t) ( 
+    ompt_task_id_t parent_task_id,    /* id of parent task            */ 
+    ompt_frame_t *parent_task_frame,  /* frame data for parent task   */ 
+    ompt_task_id_t  new_task_id,      /* id of created task           */ 
+    void *task_function               /* pointer to outlined function */ 
+); 
+ 
+/* program */ 
+typedef void (*ompt_control_callback_t) ( 
+    uint64_t command,                 /* command of control call      */ 
+    uint64_t modifier                 /* modifier of control call     */ 
+); 
+ 
+typedef void (*ompt_callback_t)(void); 
+ 
+ 
+/**************************************************************************** 
+ * ompt API 
+ ***************************************************************************/ 
+ 
+#ifdef  __cplusplus 
+extern "C" { 
+#endif 
+ 
+#define OMPT_API_FNTYPE(fn) fn##_t 
+ 
+#define OMPT_API_FUNCTION(return_type, fn, args)  \ 
+    typedef return_type (*OMPT_API_FNTYPE(fn)) args 
+ 
+ 
+ 
+/**************************************************************************** 
+ * INQUIRY FUNCTIONS 
+ ***************************************************************************/ 
+ 
+/* state */ 
+OMPT_API_FUNCTION(ompt_state_t, ompt_get_state, ( 
+    ompt_wait_id_t *ompt_wait_id 
+)); 
+ 
+/* thread */ 
+OMPT_API_FUNCTION(ompt_thread_id_t, ompt_get_thread_id, (void)); 
+ 
+OMPT_API_FUNCTION(void *, ompt_get_idle_frame, (void)); 
+ 
+/* parallel region */ 
+OMPT_API_FUNCTION(ompt_parallel_id_t, ompt_get_parallel_id, ( 
+    int ancestor_level 
+)); 
+ 
+OMPT_API_FUNCTION(int, ompt_get_parallel_team_size, ( 
+    int ancestor_level 
+)); 
+ 
+/* task */ 
+OMPT_API_FUNCTION(ompt_task_id_t, ompt_get_task_id, ( 
+    int depth 
+)); 
+ 
+OMPT_API_FUNCTION(ompt_frame_t *, ompt_get_task_frame, ( 
+    int depth 
+)); 
+ 
+ 
+ 
+/**************************************************************************** 
+ * PLACEHOLDERS FOR PERFORMANCE REPORTING 
+ ***************************************************************************/ 
+ 
+/* idle */ 
+OMPT_API_FUNCTION(void, ompt_idle, ( 
+    void 
+)); 
+ 
+/* overhead */ 
+OMPT_API_FUNCTION(void, ompt_overhead, ( 
+    void 
+)); 
+ 
+/* barrier wait */ 
+OMPT_API_FUNCTION(void, ompt_barrier_wait, ( 
+    void 
+)); 
+ 
+/* task wait */ 
+OMPT_API_FUNCTION(void, ompt_task_wait, ( 
+    void 
+)); 
+ 
+/* mutex wait */ 
+OMPT_API_FUNCTION(void, ompt_mutex_wait, ( 
+    void 
+)); 
+ 
+ 
+ 
+/**************************************************************************** 
+ * INITIALIZATION FUNCTIONS 
+ ***************************************************************************/ 
+ 
+OMPT_API_FUNCTION(void, ompt_initialize, ( 
+    ompt_function_lookup_t ompt_fn_lookup, 
+    const char *runtime_version, 
+    unsigned int ompt_version 
+)); 
+ 
+ 
+/* initialization interface to be defined by tool */ 
+ompt_initialize_t ompt_tool(void); 
+ 
+typedef enum opt_init_mode_e { 
+    ompt_init_mode_never  = 0, 
+    ompt_init_mode_false  = 1, 
+    ompt_init_mode_true   = 2, 
+    ompt_init_mode_always = 3 
+} ompt_init_mode_t; 
+ 
+OMPT_API_FUNCTION(int, ompt_set_callback, ( 
+    ompt_event_t event, 
+    ompt_callback_t callback 
+)); 
+ 
+typedef enum ompt_set_callback_rc_e {  /* non-standard */ 
+    ompt_set_callback_error      = 0, 
+    ompt_has_event_no_callback   = 1, 
+    ompt_no_event_no_callback    = 2, 
+    ompt_has_event_may_callback  = 3, 
+    ompt_has_event_must_callback = 4, 
+} ompt_set_callback_rc_t; 
+ 
+ 
+OMPT_API_FUNCTION(int, ompt_get_callback, ( 
+    ompt_event_t event, 
+    ompt_callback_t *callback 
+)); 
+ 
+ 
+ 
+/**************************************************************************** 
+ * MISCELLANEOUS FUNCTIONS 
+ ***************************************************************************/ 
+ 
+/* control */ 
+#if defined(_OPENMP) && (_OPENMP >= 201307) 
+#pragma omp declare target 
+#endif 
+void ompt_control( 
+    uint64_t command, 
+    uint64_t modifier 
+); 
+#if defined(_OPENMP) && (_OPENMP >= 201307) 
+#pragma omp end declare target 
+#endif 
+ 
+/* state enumeration */ 
+OMPT_API_FUNCTION(int, ompt_enumerate_state, ( 
+    int current_state, 
+    int *next_state, 
+    const char **next_state_name 
+)); 
+ 
+#ifdef  __cplusplus 
+}; 
+#endif 
+ 
+#endif 
+ 
diff --git a/contrib/libs/cxxsupp/openmp/include/40/omp.h.var b/contrib/libs/cxxsupp/openmp/include/40/omp.h.var
index 4c518e77bc..99083072bf 100644
--- a/contrib/libs/cxxsupp/openmp/include/40/omp.h.var
+++ b/contrib/libs/cxxsupp/openmp/include/40/omp.h.var
@@ -1,160 +1,160 @@
-/*
- * include/40/omp.h.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.
-//
-//===----------------------------------------------------------------------===//
-
-
-#ifndef __OMP_H
-#   define __OMP_H
-
-#   define KMP_VERSION_MAJOR    @LIBOMP_VERSION_MAJOR@
-#   define KMP_VERSION_MINOR    @LIBOMP_VERSION_MINOR@
-#   define KMP_VERSION_BUILD    @LIBOMP_VERSION_BUILD@
-#   define KMP_BUILD_DATE       "@LIBOMP_BUILD_DATE@"
-
-#   ifdef __cplusplus
-    extern "C" {
-#   endif
-
-#   if defined(_WIN32)
-#       define __KAI_KMPC_CONVENTION __cdecl
-#   else
-#       define __KAI_KMPC_CONVENTION
-#   endif
-
-    /* schedule kind constants */
-    typedef enum omp_sched_t {
-	omp_sched_static  = 1,
-	omp_sched_dynamic = 2,
-	omp_sched_guided  = 3,
-	omp_sched_auto    = 4
-    } omp_sched_t;
-
-    /* set API functions */
-    extern void   __KAI_KMPC_CONVENTION  omp_set_num_threads (int);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_dynamic     (int);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_nested      (int);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_max_active_levels (int);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_schedule          (omp_sched_t, int);
-
-    /* query API functions */
-    extern int    __KAI_KMPC_CONVENTION  omp_get_num_threads  (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_dynamic      (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_nested       (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_max_threads  (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_thread_num   (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_num_procs    (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_in_parallel      (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_in_final         (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_active_level        (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_level               (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_ancestor_thread_num (int);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_team_size           (int);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_thread_limit        (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_max_active_levels   (void);
-    extern void   __KAI_KMPC_CONVENTION  omp_get_schedule            (omp_sched_t *, int *);
-
-    /* lock API functions */
-    typedef struct omp_lock_t {
-        void * _lk;
-    } omp_lock_t;
-
-    extern void   __KAI_KMPC_CONVENTION  omp_init_lock    (omp_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_lock     (omp_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_unset_lock   (omp_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_destroy_lock (omp_lock_t *);
-    extern int    __KAI_KMPC_CONVENTION  omp_test_lock    (omp_lock_t *);
-
-    /* nested lock API functions */
-    typedef struct omp_nest_lock_t {
-        void * _lk;
-    } omp_nest_lock_t;
-
-    extern void   __KAI_KMPC_CONVENTION  omp_init_nest_lock    (omp_nest_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_nest_lock     (omp_nest_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_unset_nest_lock   (omp_nest_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_destroy_nest_lock (omp_nest_lock_t *);
-    extern int    __KAI_KMPC_CONVENTION  omp_test_nest_lock    (omp_nest_lock_t *);
-
-    /* time API functions */
-    extern double __KAI_KMPC_CONVENTION  omp_get_wtime (void);
-    extern double __KAI_KMPC_CONVENTION  omp_get_wtick (void);
-
-    /* OpenMP 4.0 */
-    extern int  __KAI_KMPC_CONVENTION  omp_get_default_device (void);
-    extern void __KAI_KMPC_CONVENTION  omp_set_default_device (int);
-    extern int  __KAI_KMPC_CONVENTION  omp_is_initial_device (void);
-    extern int  __KAI_KMPC_CONVENTION  omp_get_num_devices (void);
-    extern int  __KAI_KMPC_CONVENTION  omp_get_num_teams (void);
-    extern int  __KAI_KMPC_CONVENTION  omp_get_team_num (void);
-    extern int  __KAI_KMPC_CONVENTION  omp_get_cancellation (void);
-
-#   include <stdlib.h>
-    /* kmp API functions */
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_stacksize          (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_stacksize          (int);
-    extern size_t __KAI_KMPC_CONVENTION  kmp_get_stacksize_s        (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_stacksize_s        (size_t);
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_blocktime          (void);
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_library            (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_blocktime          (int);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_library            (int);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_serial     (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_turnaround (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_throughput (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_defaults           (char const *);
-
-    /* Intel affinity API */
-    typedef void * kmp_affinity_mask_t;
-
-    extern int    __KAI_KMPC_CONVENTION  kmp_set_affinity             (kmp_affinity_mask_t *);
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity             (kmp_affinity_mask_t *);
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity_max_proc    (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_create_affinity_mask     (kmp_affinity_mask_t *);
-    extern void   __KAI_KMPC_CONVENTION  kmp_destroy_affinity_mask    (kmp_affinity_mask_t *);
-    extern int    __KAI_KMPC_CONVENTION  kmp_set_affinity_mask_proc   (int, kmp_affinity_mask_t *);
-    extern int    __KAI_KMPC_CONVENTION  kmp_unset_affinity_mask_proc (int, kmp_affinity_mask_t *);
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity_mask_proc   (int, kmp_affinity_mask_t *);
-
-    /* OpenMP 4.0 affinity API */
-    typedef enum omp_proc_bind_t {
-        omp_proc_bind_false = 0,
-        omp_proc_bind_true = 1,
-        omp_proc_bind_master = 2,
-        omp_proc_bind_close = 3,
-        omp_proc_bind_spread = 4
-    } omp_proc_bind_t;
-
-    extern omp_proc_bind_t __KAI_KMPC_CONVENTION omp_get_proc_bind (void);
-
-    extern void * __KAI_KMPC_CONVENTION  kmp_malloc  (size_t);
-    extern void * __KAI_KMPC_CONVENTION  kmp_calloc  (size_t, size_t);
-    extern void * __KAI_KMPC_CONVENTION  kmp_realloc (void *, size_t);
-    extern void   __KAI_KMPC_CONVENTION  kmp_free    (void *);
-
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_warnings_on(void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_warnings_off(void);
-
-#   undef __KAI_KMPC_CONVENTION
-
-    /* Warning:
-       The following typedefs are not standard, deprecated and will be removed in a future release.
-    */
-    typedef int     omp_int_t;
-    typedef double  omp_wtime_t;
-
-#   ifdef __cplusplus
-    }
-#   endif
-
-#endif /* __OMP_H */
-
+/* 
+ * include/40/omp.h.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. 
+// 
+//===----------------------------------------------------------------------===// 
+ 
+ 
+#ifndef __OMP_H 
+#   define __OMP_H 
+ 
+#   define KMP_VERSION_MAJOR    @LIBOMP_VERSION_MAJOR@ 
+#   define KMP_VERSION_MINOR    @LIBOMP_VERSION_MINOR@ 
+#   define KMP_VERSION_BUILD    @LIBOMP_VERSION_BUILD@ 
+#   define KMP_BUILD_DATE       "@LIBOMP_BUILD_DATE@" 
+ 
+#   ifdef __cplusplus 
+    extern "C" { 
+#   endif 
+ 
+#   if defined(_WIN32) 
+#       define __KAI_KMPC_CONVENTION __cdecl 
+#   else 
+#       define __KAI_KMPC_CONVENTION 
+#   endif 
+ 
+    /* schedule kind constants */ 
+    typedef enum omp_sched_t { 
+	omp_sched_static  = 1, 
+	omp_sched_dynamic = 2, 
+	omp_sched_guided  = 3, 
+	omp_sched_auto    = 4 
+    } omp_sched_t; 
+ 
+    /* set API functions */ 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_num_threads (int); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_dynamic     (int); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_nested      (int); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_max_active_levels (int); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_schedule          (omp_sched_t, int); 
+ 
+    /* query API functions */ 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_num_threads  (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_dynamic      (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_nested       (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_max_threads  (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_thread_num   (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_num_procs    (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_in_parallel      (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_in_final         (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_active_level        (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_level               (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_ancestor_thread_num (int); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_team_size           (int); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_thread_limit        (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_max_active_levels   (void); 
+    extern void   __KAI_KMPC_CONVENTION  omp_get_schedule            (omp_sched_t *, int *); 
+ 
+    /* lock API functions */ 
+    typedef struct omp_lock_t { 
+        void * _lk; 
+    } omp_lock_t; 
+ 
+    extern void   __KAI_KMPC_CONVENTION  omp_init_lock    (omp_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_lock     (omp_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_unset_lock   (omp_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_destroy_lock (omp_lock_t *); 
+    extern int    __KAI_KMPC_CONVENTION  omp_test_lock    (omp_lock_t *); 
+ 
+    /* nested lock API functions */ 
+    typedef struct omp_nest_lock_t { 
+        void * _lk; 
+    } omp_nest_lock_t; 
+ 
+    extern void   __KAI_KMPC_CONVENTION  omp_init_nest_lock    (omp_nest_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_nest_lock     (omp_nest_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_unset_nest_lock   (omp_nest_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_destroy_nest_lock (omp_nest_lock_t *); 
+    extern int    __KAI_KMPC_CONVENTION  omp_test_nest_lock    (omp_nest_lock_t *); 
+ 
+    /* time API functions */ 
+    extern double __KAI_KMPC_CONVENTION  omp_get_wtime (void); 
+    extern double __KAI_KMPC_CONVENTION  omp_get_wtick (void); 
+ 
+    /* OpenMP 4.0 */ 
+    extern int  __KAI_KMPC_CONVENTION  omp_get_default_device (void); 
+    extern void __KAI_KMPC_CONVENTION  omp_set_default_device (int); 
+    extern int  __KAI_KMPC_CONVENTION  omp_is_initial_device (void); 
+    extern int  __KAI_KMPC_CONVENTION  omp_get_num_devices (void); 
+    extern int  __KAI_KMPC_CONVENTION  omp_get_num_teams (void); 
+    extern int  __KAI_KMPC_CONVENTION  omp_get_team_num (void); 
+    extern int  __KAI_KMPC_CONVENTION  omp_get_cancellation (void); 
+ 
+#   include <stdlib.h> 
+    /* kmp API functions */ 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_stacksize          (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_stacksize          (int); 
+    extern size_t __KAI_KMPC_CONVENTION  kmp_get_stacksize_s        (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_stacksize_s        (size_t); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_blocktime          (void); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_library            (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_blocktime          (int); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_library            (int); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_serial     (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_turnaround (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_throughput (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_defaults           (char const *); 
+ 
+    /* Intel affinity API */ 
+    typedef void * kmp_affinity_mask_t; 
+ 
+    extern int    __KAI_KMPC_CONVENTION  kmp_set_affinity             (kmp_affinity_mask_t *); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity             (kmp_affinity_mask_t *); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity_max_proc    (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_create_affinity_mask     (kmp_affinity_mask_t *); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_destroy_affinity_mask    (kmp_affinity_mask_t *); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_set_affinity_mask_proc   (int, kmp_affinity_mask_t *); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_unset_affinity_mask_proc (int, kmp_affinity_mask_t *); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity_mask_proc   (int, kmp_affinity_mask_t *); 
+ 
+    /* OpenMP 4.0 affinity API */ 
+    typedef enum omp_proc_bind_t { 
+        omp_proc_bind_false = 0, 
+        omp_proc_bind_true = 1, 
+        omp_proc_bind_master = 2, 
+        omp_proc_bind_close = 3, 
+        omp_proc_bind_spread = 4 
+    } omp_proc_bind_t; 
+ 
+    extern omp_proc_bind_t __KAI_KMPC_CONVENTION omp_get_proc_bind (void); 
+ 
+    extern void * __KAI_KMPC_CONVENTION  kmp_malloc  (size_t); 
+    extern void * __KAI_KMPC_CONVENTION  kmp_calloc  (size_t, size_t); 
+    extern void * __KAI_KMPC_CONVENTION  kmp_realloc (void *, size_t); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_free    (void *); 
+ 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_warnings_on(void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_warnings_off(void); 
+ 
+#   undef __KAI_KMPC_CONVENTION 
+ 
+    /* Warning: 
+       The following typedefs are not standard, deprecated and will be removed in a future release. 
+    */ 
+    typedef int     omp_int_t; 
+    typedef double  omp_wtime_t; 
+ 
+#   ifdef __cplusplus 
+    } 
+#   endif 
+ 
+#endif /* __OMP_H */ 
+ 
diff --git a/contrib/libs/cxxsupp/openmp/include/40/omp_lib.f.var b/contrib/libs/cxxsupp/openmp/include/40/omp_lib.f.var
index 3a59162b4b..7f0276de9b 100644
--- a/contrib/libs/cxxsupp/openmp/include/40/omp_lib.f.var
+++ b/contrib/libs/cxxsupp/openmp/include/40/omp_lib.f.var
@@ -1,758 +1,758 @@
-! include/40/omp_lib.f.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.
-!//
-!//===----------------------------------------------------------------------===//
-!
-
-!***
-!*** Some of the directives for the following routine extend past column 72,
-!*** so process this file in 132-column mode.
-!***
-
-!dec$ fixedformlinesize:132
-
-      module omp_lib_kinds
-
-        integer, parameter :: omp_integer_kind       = 4
-        integer, parameter :: omp_logical_kind       = 4
-        integer, parameter :: omp_real_kind          = 4
-        integer, parameter :: omp_lock_kind          = int_ptr_kind()
-        integer, parameter :: omp_nest_lock_kind     = int_ptr_kind()
-        integer, parameter :: omp_sched_kind         = omp_integer_kind
-        integer, parameter :: omp_proc_bind_kind     = omp_integer_kind
-        integer, parameter :: kmp_pointer_kind       = int_ptr_kind()
-        integer, parameter :: kmp_size_t_kind        = int_ptr_kind()
-        integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind()
-        integer, parameter :: kmp_cancel_kind        = omp_integer_kind
-
-      end module omp_lib_kinds
-
-      module omp_lib
-
-        use omp_lib_kinds
-
-        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(*), parameter :: kmp_build_date    = '@LIBOMP_BUILD_DATE@'
-        integer (kind=omp_integer_kind), parameter :: openmp_version    = @LIBOMP_OMP_YEAR_MONTH@
-
-        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
-
-        interface
-
-!         ***
-!         *** omp_* entry points
-!         ***
-
-          subroutine omp_set_num_threads(nthreads)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) nthreads
-          end subroutine omp_set_num_threads
-
-          subroutine omp_set_dynamic(enable)
-            use omp_lib_kinds
-            logical (kind=omp_logical_kind) enable
-          end subroutine omp_set_dynamic
-
-          subroutine omp_set_nested(enable)
-            use omp_lib_kinds
-            logical (kind=omp_logical_kind) enable
-          end subroutine omp_set_nested
-
-          function omp_get_num_threads()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_num_threads
-          end function omp_get_num_threads
-
-          function omp_get_max_threads()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_max_threads
-          end function omp_get_max_threads
-
-          function omp_get_thread_num()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_thread_num
-          end function omp_get_thread_num
-
-          function omp_get_num_procs()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_num_procs
-          end function omp_get_num_procs
-
-          function omp_in_parallel()
-            use omp_lib_kinds
-            logical (kind=omp_logical_kind) omp_in_parallel
-          end function omp_in_parallel
-
-          function omp_get_dynamic()
-            use omp_lib_kinds
-            logical (kind=omp_logical_kind) omp_get_dynamic
-          end function omp_get_dynamic
-
-          function omp_get_nested()
-            use omp_lib_kinds
-            logical (kind=omp_logical_kind) omp_get_nested
-          end function omp_get_nested
-
-          function omp_get_thread_limit()
-            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)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) max_levels
-          end subroutine omp_set_max_active_levels
-
-          function omp_get_max_active_levels()
-            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()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_level
-          end function omp_get_level
-
-          function omp_get_active_level()
-            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)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) level
-            integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
-          end function omp_get_ancestor_thread_num
-
-          function omp_get_team_size(level)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) level
-            integer (kind=omp_integer_kind) omp_get_team_size
-          end function omp_get_team_size
-
-          subroutine omp_set_schedule(kind, modifier)
-            use omp_lib_kinds
-            integer (kind=omp_sched_kind) kind
-            integer (kind=omp_integer_kind) modifier
-          end subroutine omp_set_schedule
-
-          subroutine omp_get_schedule(kind, modifier)
-            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()
-            use omp_lib_kinds
-            integer (kind=omp_proc_bind_kind) omp_get_proc_bind
-          end function omp_get_proc_bind
-
-          function omp_get_wtime()
-            double precision omp_get_wtime
-          end function omp_get_wtime
-
-          function omp_get_wtick ()
-            double precision omp_get_wtick
-          end function omp_get_wtick
-
-          function omp_get_default_device()
-            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)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) dflt_device
-          end subroutine omp_set_default_device
-
-          function omp_get_num_devices()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_num_devices
-          end function omp_get_num_devices
-
-          function omp_get_num_teams()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_num_teams
-          end function omp_get_num_teams
-
-          function omp_get_team_num()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_team_num
-          end function omp_get_team_num
-
-          function omp_get_cancellation()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_cancellation
-          end function omp_get_cancellation
-
-          function omp_is_initial_device()
-            use omp_lib_kinds
-            logical (kind=omp_logical_kind) omp_is_initial_device
-          end function omp_is_initial_device
-
-          subroutine omp_init_lock(lockvar)
-!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)
-!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)
-!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)
-!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)
-!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)
-!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)
-!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)
-!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)
-!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)
-!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)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) size
-          end subroutine kmp_set_stacksize
-
-          subroutine kmp_set_stacksize_s(size)
-            use omp_lib_kinds
-            integer (kind=kmp_size_t_kind) size
-          end subroutine kmp_set_stacksize_s
-
-          subroutine kmp_set_blocktime(msec)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) msec
-          end subroutine kmp_set_blocktime
-
-          subroutine kmp_set_library_serial()
-          end subroutine kmp_set_library_serial
-
-          subroutine kmp_set_library_turnaround()
-          end subroutine kmp_set_library_turnaround
-
-          subroutine kmp_set_library_throughput()
-          end subroutine kmp_set_library_throughput
-
-          subroutine kmp_set_library(libnum)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) libnum
-          end subroutine kmp_set_library
-
-          subroutine kmp_set_defaults(string)
-            character*(*) string
-          end subroutine kmp_set_defaults
-
-          function kmp_get_stacksize()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_get_stacksize
-          end function kmp_get_stacksize
-
-          function kmp_get_stacksize_s()
-            use omp_lib_kinds
-            integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
-          end function kmp_get_stacksize_s
-
-          function kmp_get_blocktime()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_get_blocktime
-          end function kmp_get_blocktime
-
-          function kmp_get_library()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_get_library
-          end function kmp_get_library
-
-          function kmp_set_affinity(mask)
-            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)
-            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()
-            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)
-            use omp_lib_kinds
-            integer (kind=kmp_affinity_mask_kind) mask
-          end subroutine kmp_create_affinity_mask
-
-          subroutine kmp_destroy_affinity_mask(mask)
-            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)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
-            integer (kind=omp_integer_kind) proc
-            integer (kind=kmp_affinity_mask_kind) mask
-          end function kmp_set_affinity_mask_proc
-
-          function kmp_unset_affinity_mask_proc(proc, mask)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
-            integer (kind=omp_integer_kind) proc
-            integer (kind=kmp_affinity_mask_kind) mask
-          end function kmp_unset_affinity_mask_proc
-
-          function kmp_get_affinity_mask_proc(proc, mask)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
-            integer (kind=omp_integer_kind) proc
-            integer (kind=kmp_affinity_mask_kind) mask
-          end function kmp_get_affinity_mask_proc
-
-          function kmp_malloc(size)
-            use omp_lib_kinds
-            integer (kind=kmp_pointer_kind) kmp_malloc
-            integer (kind=kmp_size_t_kind) size
-          end function kmp_malloc
-
-          function kmp_calloc(nelem, elsize)
-            use omp_lib_kinds
-            integer (kind=kmp_pointer_kind) kmp_calloc
-            integer (kind=kmp_size_t_kind) nelem
-            integer (kind=kmp_size_t_kind) elsize
-          end function kmp_calloc
-
-          function kmp_realloc(ptr, size)
-            use omp_lib_kinds
-            integer (kind=kmp_pointer_kind) kmp_realloc
-            integer (kind=kmp_pointer_kind) ptr
-            integer (kind=kmp_size_t_kind) size
-          end function kmp_realloc
-
-          subroutine kmp_free(ptr)
-            use omp_lib_kinds
-            integer (kind=kmp_pointer_kind) ptr
-          end subroutine kmp_free
-
-          subroutine kmp_set_warnings_on()
-          end subroutine kmp_set_warnings_on
-
-          subroutine kmp_set_warnings_off()
-          end subroutine kmp_set_warnings_off
-
-          function kmp_get_cancellation_status(cancelkind)
-            use omp_lib_kinds
-            integer (kind=kmp_cancel_kind) cancelkind
-            logical (kind=omp_logical_kind) kmp_get_cancellation_status
-          end function kmp_get_cancellation_status
-
-        end interface
-
-!dec$ if defined(_WIN32)
-!dec$   if defined(_WIN64) .or. defined(_M_AMD64)
-
-!***
-!*** The Fortran entry points must be in uppercase, even if the /Qlowercase
-!*** option is specified.  The alias attribute ensures that the specified
-!*** string is used as the entry point.
-!***
-!*** On the Windows* OS IA-32 architecture, the Fortran entry points have an
-!*** underscore prepended.  On the Windows* OS Intel(R) 64
-!*** architecture, no underscore is prepended.
-!***
-
-!dec$ attributes alias:'OMP_SET_NUM_THREADS' :: omp_set_num_threads
-!dec$ attributes alias:'OMP_SET_DYNAMIC' :: omp_set_dynamic
-!dec$ attributes alias:'OMP_SET_NESTED' :: omp_set_nested
-!dec$ attributes alias:'OMP_GET_NUM_THREADS' :: omp_get_num_threads
-!dec$ attributes alias:'OMP_GET_MAX_THREADS' :: omp_get_max_threads
-!dec$ attributes alias:'OMP_GET_THREAD_NUM' :: omp_get_thread_num
-!dec$ attributes alias:'OMP_GET_NUM_PROCS' :: omp_get_num_procs
-!dec$ attributes alias:'OMP_IN_PARALLEL' :: omp_in_parallel
-!dec$ attributes alias:'OMP_GET_DYNAMIC' :: omp_get_dynamic
-!dec$ attributes alias:'OMP_GET_NESTED' :: omp_get_nested
-!dec$ attributes alias:'OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
-!dec$ attributes alias:'OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
-!dec$ attributes alias:'OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
-!dec$ attributes alias:'OMP_GET_LEVEL' :: omp_get_level
-!dec$ attributes alias:'OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
-!dec$ attributes alias:'OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
-!dec$ attributes alias:'OMP_GET_TEAM_SIZE' :: omp_get_team_size
-!dec$ attributes alias:'OMP_SET_SCHEDULE' :: omp_set_schedule
-!dec$ attributes alias:'OMP_GET_SCHEDULE' :: omp_get_schedule
-!dec$ attributes alias:'OMP_GET_PROC_BIND' :: omp_get_proc_bind
-!dec$ attributes alias:'OMP_GET_WTIME' :: omp_get_wtime
-!dec$ attributes alias:'OMP_GET_WTICK' :: omp_get_wtick
-!dec$ attributes alias:'OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device
-!dec$ attributes alias:'OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device
-!dec$ attributes alias:'OMP_GET_NUM_DEVICES' :: omp_get_num_devices
-!dec$ attributes alias:'OMP_GET_NUM_TEAMS' :: omp_get_num_teams
-!dec$ attributes alias:'OMP_GET_TEAM_NUM' :: omp_get_team_num
-!dec$ attributes alias:'OMP_GET_CANCELLATION' :: omp_get_cancellation
-!dec$ attributes alias:'OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device
-
-!dec$ attributes alias:'omp_init_lock' :: omp_init_lock
-!dec$ attributes alias:'omp_destroy_lock' :: omp_destroy_lock
-!dec$ attributes alias:'omp_set_lock' :: omp_set_lock
-!dec$ attributes alias:'omp_unset_lock' :: omp_unset_lock
-!dec$ attributes alias:'omp_test_lock' :: omp_test_lock
-!dec$ attributes alias:'omp_init_nest_lock' :: omp_init_nest_lock
-!dec$ attributes alias:'omp_destroy_nest_lock' :: omp_destroy_nest_lock
-!dec$ attributes alias:'omp_set_nest_lock' :: omp_set_nest_lock
-!dec$ attributes alias:'omp_unset_nest_lock' :: omp_unset_nest_lock
-!dec$ attributes alias:'omp_test_nest_lock' :: omp_test_nest_lock
-
-!dec$ attributes alias:'KMP_SET_STACKSIZE'::kmp_set_stacksize
-!dec$ attributes alias:'KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
-!dec$ attributes alias:'KMP_SET_BLOCKTIME'::kmp_set_blocktime
-!dec$ attributes alias:'KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
-!dec$ attributes alias:'KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
-!dec$ attributes alias:'KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
-!dec$ attributes alias:'KMP_SET_LIBRARY'::kmp_set_library
-!dec$ attributes alias:'KMP_GET_STACKSIZE'::kmp_get_stacksize
-!dec$ attributes alias:'KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
-!dec$ attributes alias:'KMP_GET_BLOCKTIME'::kmp_get_blocktime
-!dec$ attributes alias:'KMP_GET_LIBRARY'::kmp_get_library
-!dec$ attributes alias:'KMP_SET_AFFINITY'::kmp_set_affinity
-!dec$ attributes alias:'KMP_GET_AFFINITY'::kmp_get_affinity
-!dec$ attributes alias:'KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
-!dec$ attributes alias:'KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
-!dec$ attributes alias:'KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
-!dec$ attributes alias:'KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
-!dec$ attributes alias:'KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
-!dec$ attributes alias:'KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
-!dec$ attributes alias:'KMP_MALLOC'::kmp_malloc
-!dec$ attributes alias:'KMP_CALLOC'::kmp_calloc
-!dec$ attributes alias:'KMP_REALLOC'::kmp_realloc
-!dec$ attributes alias:'KMP_FREE'::kmp_free
-
-!dec$ attributes alias:'KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
-!dec$ attributes alias:'KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
-
-!dec$ attributes alias:'KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status
-
-!dec$   else
-
-!***
-!*** On Windows* OS IA-32 architecture, the Fortran entry points have an underscore prepended.
-!***
-
-!dec$ attributes alias:'_OMP_SET_NUM_THREADS' :: omp_set_num_threads
-!dec$ attributes alias:'_OMP_SET_DYNAMIC' :: omp_set_dynamic
-!dec$ attributes alias:'_OMP_SET_NESTED' :: omp_set_nested
-!dec$ attributes alias:'_OMP_GET_NUM_THREADS' :: omp_get_num_threads
-!dec$ attributes alias:'_OMP_GET_MAX_THREADS' :: omp_get_max_threads
-!dec$ attributes alias:'_OMP_GET_THREAD_NUM' :: omp_get_thread_num
-!dec$ attributes alias:'_OMP_GET_NUM_PROCS' :: omp_get_num_procs
-!dec$ attributes alias:'_OMP_IN_PARALLEL' :: omp_in_parallel
-!dec$ attributes alias:'_OMP_GET_DYNAMIC' :: omp_get_dynamic
-!dec$ attributes alias:'_OMP_GET_NESTED' :: omp_get_nested
-!dec$ attributes alias:'_OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
-!dec$ attributes alias:'_OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
-!dec$ attributes alias:'_OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
-!dec$ attributes alias:'_OMP_GET_LEVEL' :: omp_get_level
-!dec$ attributes alias:'_OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
-!dec$ attributes alias:'_OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
-!dec$ attributes alias:'_OMP_GET_TEAM_SIZE' :: omp_get_team_size
-!dec$ attributes alias:'_OMP_SET_SCHEDULE' :: omp_set_schedule
-!dec$ attributes alias:'_OMP_GET_SCHEDULE' :: omp_get_schedule
-!dec$ attributes alias:'_OMP_GET_PROC_BIND' :: omp_get_proc_bind
-!dec$ attributes alias:'_OMP_GET_WTIME' :: omp_get_wtime
-!dec$ attributes alias:'_OMP_GET_WTICK' :: omp_get_wtick
-!dec$ attributes alias:'_OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device
-!dec$ attributes alias:'_OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device
-!dec$ attributes alias:'_OMP_GET_NUM_DEVICES' :: omp_get_num_devices
-!dec$ attributes alias:'_OMP_GET_NUM_TEAMS' :: omp_get_num_teams
-!dec$ attributes alias:'_OMP_GET_TEAM_NUM' :: omp_get_team_num
-!dec$ attributes alias:'_OMP_GET_CANCELLATION' :: omp_get_cancellation
-!dec$ attributes alias:'_OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device
-
-!dec$ attributes alias:'_omp_init_lock' :: omp_init_lock
-!dec$ attributes alias:'_omp_destroy_lock' :: omp_destroy_lock
-!dec$ attributes alias:'_omp_set_lock' :: omp_set_lock
-!dec$ attributes alias:'_omp_unset_lock' :: omp_unset_lock
-!dec$ attributes alias:'_omp_test_lock' :: omp_test_lock
-!dec$ attributes alias:'_omp_init_nest_lock' :: omp_init_nest_lock
-!dec$ attributes alias:'_omp_destroy_nest_lock' :: omp_destroy_nest_lock
-!dec$ attributes alias:'_omp_set_nest_lock' :: omp_set_nest_lock
-!dec$ attributes alias:'_omp_unset_nest_lock' :: omp_unset_nest_lock
-!dec$ attributes alias:'_omp_test_nest_lock' :: omp_test_nest_lock
-
-!dec$ attributes alias:'_KMP_SET_STACKSIZE'::kmp_set_stacksize
-!dec$ attributes alias:'_KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
-!dec$ attributes alias:'_KMP_SET_BLOCKTIME'::kmp_set_blocktime
-!dec$ attributes alias:'_KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
-!dec$ attributes alias:'_KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
-!dec$ attributes alias:'_KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
-!dec$ attributes alias:'_KMP_SET_LIBRARY'::kmp_set_library
-!dec$ attributes alias:'_KMP_GET_STACKSIZE'::kmp_get_stacksize
-!dec$ attributes alias:'_KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
-!dec$ attributes alias:'_KMP_GET_BLOCKTIME'::kmp_get_blocktime
-!dec$ attributes alias:'_KMP_GET_LIBRARY'::kmp_get_library
-!dec$ attributes alias:'_KMP_SET_AFFINITY'::kmp_set_affinity
-!dec$ attributes alias:'_KMP_GET_AFFINITY'::kmp_get_affinity
-!dec$ attributes alias:'_KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
-!dec$ attributes alias:'_KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
-!dec$ attributes alias:'_KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
-!dec$ attributes alias:'_KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
-!dec$ attributes alias:'_KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
-!dec$ attributes alias:'_KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
-!dec$ attributes alias:'_KMP_MALLOC'::kmp_malloc
-!dec$ attributes alias:'_KMP_CALLOC'::kmp_calloc
-!dec$ attributes alias:'_KMP_REALLOC'::kmp_realloc
-!dec$ attributes alias:'_KMP_FREE'::kmp_free
-
-!dec$ attributes alias:'_KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
-!dec$ attributes alias:'_KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
-
-!dec$ attributes alias:'_KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status
-
-!dec$   endif
-!dec$ endif
-
-!dec$ if defined(__linux)
-
-!***
-!*** The Linux* OS entry points are in lowercase, with an underscore appended.
-!***
-
-!dec$ attributes alias:'omp_set_num_threads_'::omp_set_num_threads
-!dec$ attributes alias:'omp_set_dynamic_'::omp_set_dynamic
-!dec$ attributes alias:'omp_set_nested_'::omp_set_nested
-!dec$ attributes alias:'omp_get_num_threads_'::omp_get_num_threads
-!dec$ attributes alias:'omp_get_max_threads_'::omp_get_max_threads
-!dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num
-!dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs
-!dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel
-!dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic
-!dec$ attributes alias:'omp_get_nested_'::omp_get_nested
-!dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit
-!dec$ attributes alias:'omp_set_max_active_levels_'::omp_set_max_active_levels
-!dec$ attributes alias:'omp_get_max_active_levels_'::omp_get_max_active_levels
-!dec$ attributes alias:'omp_get_level_'::omp_get_level
-!dec$ attributes alias:'omp_get_active_level_'::omp_get_active_level
-!dec$ attributes alias:'omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
-!dec$ attributes alias:'omp_get_team_size_'::omp_get_team_size
-!dec$ attributes alias:'omp_set_schedule_'::omp_set_schedule
-!dec$ attributes alias:'omp_get_schedule_'::omp_get_schedule
-!dec$ attributes alias:'omp_get_proc_bind_' :: omp_get_proc_bind
-!dec$ attributes alias:'omp_get_wtime_'::omp_get_wtime
-!dec$ attributes alias:'omp_get_wtick_'::omp_get_wtick
-!dec$ attributes alias:'omp_get_default_device_'::omp_get_default_device
-!dec$ attributes alias:'omp_set_default_device_'::omp_set_default_device
-!dec$ attributes alias:'omp_get_num_devices_'::omp_get_num_devices
-!dec$ attributes alias:'omp_get_num_teams_'::omp_get_num_teams
-!dec$ attributes alias:'omp_get_team_num_'::omp_get_team_num
-!dec$ attributes alias:'omp_get_cancellation_'::omp_get_cancellation
-!dec$ attributes alias:'omp_is_initial_device_'::omp_is_initial_device
-
-!dec$ attributes alias:'omp_init_lock_'::omp_init_lock
-!dec$ attributes alias:'omp_destroy_lock_'::omp_destroy_lock
-!dec$ attributes alias:'omp_set_lock_'::omp_set_lock
-!dec$ attributes alias:'omp_unset_lock_'::omp_unset_lock
-!dec$ attributes alias:'omp_test_lock_'::omp_test_lock
-!dec$ attributes alias:'omp_init_nest_lock_'::omp_init_nest_lock
-!dec$ attributes alias:'omp_destroy_nest_lock_'::omp_destroy_nest_lock
-!dec$ attributes alias:'omp_set_nest_lock_'::omp_set_nest_lock
-!dec$ attributes alias:'omp_unset_nest_lock_'::omp_unset_nest_lock
-!dec$ attributes alias:'omp_test_nest_lock_'::omp_test_nest_lock
-
-!dec$ attributes alias:'kmp_set_stacksize_'::kmp_set_stacksize
-!dec$ attributes alias:'kmp_set_stacksize_s_'::kmp_set_stacksize_s
-!dec$ attributes alias:'kmp_set_blocktime_'::kmp_set_blocktime
-!dec$ attributes alias:'kmp_set_library_serial_'::kmp_set_library_serial
-!dec$ attributes alias:'kmp_set_library_turnaround_'::kmp_set_library_turnaround
-!dec$ attributes alias:'kmp_set_library_throughput_'::kmp_set_library_throughput
-!dec$ attributes alias:'kmp_set_library_'::kmp_set_library
-!dec$ attributes alias:'kmp_get_stacksize_'::kmp_get_stacksize
-!dec$ attributes alias:'kmp_get_stacksize_s_'::kmp_get_stacksize_s
-!dec$ attributes alias:'kmp_get_blocktime_'::kmp_get_blocktime
-!dec$ attributes alias:'kmp_get_library_'::kmp_get_library
-!dec$ attributes alias:'kmp_set_affinity_'::kmp_set_affinity
-!dec$ attributes alias:'kmp_get_affinity_'::kmp_get_affinity
-!dec$ attributes alias:'kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
-!dec$ attributes alias:'kmp_create_affinity_mask_'::kmp_create_affinity_mask
-!dec$ attributes alias:'kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
-!dec$ attributes alias:'kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
-!dec$ attributes alias:'kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
-!dec$ attributes alias:'kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
-!dec$ attributes alias:'kmp_malloc_'::kmp_malloc
-!dec$ attributes alias:'kmp_calloc_'::kmp_calloc
-!dec$ attributes alias:'kmp_realloc_'::kmp_realloc
-!dec$ attributes alias:'kmp_free_'::kmp_free
-
-!dec$ attributes alias:'kmp_set_warnings_on_'::kmp_set_warnings_on
-!dec$ attributes alias:'kmp_set_warnings_off_'::kmp_set_warnings_off
-!dec$ attributes alias:'kmp_get_cancellation_status_'::kmp_get_cancellation_status
-
-!dec$ endif
-
-!dec$ if defined(__APPLE__)
-
-!***
-!*** The Mac entry points are in lowercase, with an both an underscore
-!*** appended and an underscore prepended.
-!***
-
-!dec$ attributes alias:'_omp_set_num_threads_'::omp_set_num_threads
-!dec$ attributes alias:'_omp_set_dynamic_'::omp_set_dynamic
-!dec$ attributes alias:'_omp_set_nested_'::omp_set_nested
-!dec$ attributes alias:'_omp_get_num_threads_'::omp_get_num_threads
-!dec$ attributes alias:'_omp_get_max_threads_'::omp_get_max_threads
-!dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num
-!dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs
-!dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel
-!dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic
-!dec$ attributes alias:'_omp_get_nested_'::omp_get_nested
-!dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit
-!dec$ attributes alias:'_omp_set_max_active_levels_'::omp_set_max_active_levels
-!dec$ attributes alias:'_omp_get_max_active_levels_'::omp_get_max_active_levels
-!dec$ attributes alias:'_omp_get_level_'::omp_get_level
-!dec$ attributes alias:'_omp_get_active_level_'::omp_get_active_level
-!dec$ attributes alias:'_omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
-!dec$ attributes alias:'_omp_get_team_size_'::omp_get_team_size
-!dec$ attributes alias:'_omp_set_schedule_'::omp_set_schedule
-!dec$ attributes alias:'_omp_get_schedule_'::omp_get_schedule
-!dec$ attributes alias:'_omp_get_proc_bind_' :: omp_get_proc_bind
-!dec$ attributes alias:'_omp_get_wtime_'::omp_get_wtime
-!dec$ attributes alias:'_omp_get_wtick_'::omp_get_wtick
-!dec$ attributes alias:'_omp_get_num_teams_'::omp_get_num_teams
-!dec$ attributes alias:'_omp_get_team_num_'::omp_get_team_num
-!dec$ attributes alias:'_omp_get_cancellation_'::omp_get_cancellation
-!dec$ attributes alias:'_omp_is_initial_device_'::omp_is_initial_device
-
-!dec$ attributes alias:'_omp_init_lock_'::omp_init_lock
-!dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock
-!dec$ attributes alias:'_omp_set_lock_'::omp_set_lock
-!dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock
-!dec$ attributes alias:'_omp_test_lock_'::omp_test_lock
-!dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock
-!dec$ attributes alias:'_omp_destroy_nest_lock_'::omp_destroy_nest_lock
-!dec$ attributes alias:'_omp_set_nest_lock_'::omp_set_nest_lock
-!dec$ attributes alias:'_omp_unset_nest_lock_'::omp_unset_nest_lock
-!dec$ attributes alias:'_omp_test_nest_lock_'::omp_test_nest_lock
-
-!dec$ attributes alias:'_kmp_set_stacksize_'::kmp_set_stacksize
-!dec$ attributes alias:'_kmp_set_stacksize_s_'::kmp_set_stacksize_s
-!dec$ attributes alias:'_kmp_set_blocktime_'::kmp_set_blocktime
-!dec$ attributes alias:'_kmp_set_library_serial_'::kmp_set_library_serial
-!dec$ attributes alias:'_kmp_set_library_turnaround_'::kmp_set_library_turnaround
-!dec$ attributes alias:'_kmp_set_library_throughput_'::kmp_set_library_throughput
-!dec$ attributes alias:'_kmp_set_library_'::kmp_set_library
-!dec$ attributes alias:'_kmp_get_stacksize_'::kmp_get_stacksize
-!dec$ attributes alias:'_kmp_get_stacksize_s_'::kmp_get_stacksize_s
-!dec$ attributes alias:'_kmp_get_blocktime_'::kmp_get_blocktime
-!dec$ attributes alias:'_kmp_get_library_'::kmp_get_library
-!dec$ attributes alias:'_kmp_set_affinity_'::kmp_set_affinity
-!dec$ attributes alias:'_kmp_get_affinity_'::kmp_get_affinity
-!dec$ attributes alias:'_kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
-!dec$ attributes alias:'_kmp_create_affinity_mask_'::kmp_create_affinity_mask
-!dec$ attributes alias:'_kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
-!dec$ attributes alias:'_kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
-!dec$ attributes alias:'_kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
-!dec$ attributes alias:'_kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
-!dec$ attributes alias:'_kmp_malloc_'::kmp_malloc
-!dec$ attributes alias:'_kmp_calloc_'::kmp_calloc
-!dec$ attributes alias:'_kmp_realloc_'::kmp_realloc
-!dec$ attributes alias:'_kmp_free_'::kmp_free
-
-!dec$ attributes alias:'_kmp_set_warnings_on_'::kmp_set_warnings_on
-!dec$ attributes alias:'_kmp_set_warnings_off_'::kmp_set_warnings_off
-
-!dec$ attributes alias:'_kmp_get_cancellation_status_'::kmp_get_cancellation_status
-
-!dec$ endif
-
-      end module omp_lib
-
+! include/40/omp_lib.f.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. 
+!// 
+!//===----------------------------------------------------------------------===// 
+! 
+ 
+!*** 
+!*** Some of the directives for the following routine extend past column 72, 
+!*** so process this file in 132-column mode. 
+!*** 
+ 
+!dec$ fixedformlinesize:132 
+ 
+      module omp_lib_kinds 
+ 
+        integer, parameter :: omp_integer_kind       = 4 
+        integer, parameter :: omp_logical_kind       = 4 
+        integer, parameter :: omp_real_kind          = 4 
+        integer, parameter :: omp_lock_kind          = int_ptr_kind() 
+        integer, parameter :: omp_nest_lock_kind     = int_ptr_kind() 
+        integer, parameter :: omp_sched_kind         = omp_integer_kind 
+        integer, parameter :: omp_proc_bind_kind     = omp_integer_kind 
+        integer, parameter :: kmp_pointer_kind       = int_ptr_kind() 
+        integer, parameter :: kmp_size_t_kind        = int_ptr_kind() 
+        integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind() 
+        integer, parameter :: kmp_cancel_kind        = omp_integer_kind 
+ 
+      end module omp_lib_kinds 
+ 
+      module omp_lib 
+ 
+        use omp_lib_kinds 
+ 
+        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(*), parameter :: kmp_build_date    = '@LIBOMP_BUILD_DATE@' 
+        integer (kind=omp_integer_kind), parameter :: openmp_version    = @LIBOMP_OMP_YEAR_MONTH@ 
+ 
+        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 
+ 
+        interface 
+ 
+!         *** 
+!         *** omp_* entry points 
+!         *** 
+ 
+          subroutine omp_set_num_threads(nthreads) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) nthreads 
+          end subroutine omp_set_num_threads 
+ 
+          subroutine omp_set_dynamic(enable) 
+            use omp_lib_kinds 
+            logical (kind=omp_logical_kind) enable 
+          end subroutine omp_set_dynamic 
+ 
+          subroutine omp_set_nested(enable) 
+            use omp_lib_kinds 
+            logical (kind=omp_logical_kind) enable 
+          end subroutine omp_set_nested 
+ 
+          function omp_get_num_threads() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_num_threads 
+          end function omp_get_num_threads 
+ 
+          function omp_get_max_threads() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_max_threads 
+          end function omp_get_max_threads 
+ 
+          function omp_get_thread_num() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_thread_num 
+          end function omp_get_thread_num 
+ 
+          function omp_get_num_procs() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_num_procs 
+          end function omp_get_num_procs 
+ 
+          function omp_in_parallel() 
+            use omp_lib_kinds 
+            logical (kind=omp_logical_kind) omp_in_parallel 
+          end function omp_in_parallel 
+ 
+          function omp_get_dynamic() 
+            use omp_lib_kinds 
+            logical (kind=omp_logical_kind) omp_get_dynamic 
+          end function omp_get_dynamic 
+ 
+          function omp_get_nested() 
+            use omp_lib_kinds 
+            logical (kind=omp_logical_kind) omp_get_nested 
+          end function omp_get_nested 
+ 
+          function omp_get_thread_limit() 
+            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) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) max_levels 
+          end subroutine omp_set_max_active_levels 
+ 
+          function omp_get_max_active_levels() 
+            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() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_level 
+          end function omp_get_level 
+ 
+          function omp_get_active_level() 
+            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) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) level 
+            integer (kind=omp_integer_kind) omp_get_ancestor_thread_num 
+          end function omp_get_ancestor_thread_num 
+ 
+          function omp_get_team_size(level) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) level 
+            integer (kind=omp_integer_kind) omp_get_team_size 
+          end function omp_get_team_size 
+ 
+          subroutine omp_set_schedule(kind, modifier) 
+            use omp_lib_kinds 
+            integer (kind=omp_sched_kind) kind 
+            integer (kind=omp_integer_kind) modifier 
+          end subroutine omp_set_schedule 
+ 
+          subroutine omp_get_schedule(kind, modifier) 
+            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() 
+            use omp_lib_kinds 
+            integer (kind=omp_proc_bind_kind) omp_get_proc_bind 
+          end function omp_get_proc_bind 
+ 
+          function omp_get_wtime() 
+            double precision omp_get_wtime 
+          end function omp_get_wtime 
+ 
+          function omp_get_wtick () 
+            double precision omp_get_wtick 
+          end function omp_get_wtick 
+ 
+          function omp_get_default_device() 
+            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) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) dflt_device 
+          end subroutine omp_set_default_device 
+ 
+          function omp_get_num_devices() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_num_devices 
+          end function omp_get_num_devices 
+ 
+          function omp_get_num_teams() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_num_teams 
+          end function omp_get_num_teams 
+ 
+          function omp_get_team_num() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_team_num 
+          end function omp_get_team_num 
+ 
+          function omp_get_cancellation() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_cancellation 
+          end function omp_get_cancellation 
+ 
+          function omp_is_initial_device() 
+            use omp_lib_kinds 
+            logical (kind=omp_logical_kind) omp_is_initial_device 
+          end function omp_is_initial_device 
+ 
+          subroutine omp_init_lock(lockvar) 
+!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) 
+!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) 
+!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) 
+!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) 
+!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) 
+!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) 
+!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) 
+!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) 
+!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) 
+!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) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) size 
+          end subroutine kmp_set_stacksize 
+ 
+          subroutine kmp_set_stacksize_s(size) 
+            use omp_lib_kinds 
+            integer (kind=kmp_size_t_kind) size 
+          end subroutine kmp_set_stacksize_s 
+ 
+          subroutine kmp_set_blocktime(msec) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) msec 
+          end subroutine kmp_set_blocktime 
+ 
+          subroutine kmp_set_library_serial() 
+          end subroutine kmp_set_library_serial 
+ 
+          subroutine kmp_set_library_turnaround() 
+          end subroutine kmp_set_library_turnaround 
+ 
+          subroutine kmp_set_library_throughput() 
+          end subroutine kmp_set_library_throughput 
+ 
+          subroutine kmp_set_library(libnum) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) libnum 
+          end subroutine kmp_set_library 
+ 
+          subroutine kmp_set_defaults(string) 
+            character*(*) string 
+          end subroutine kmp_set_defaults 
+ 
+          function kmp_get_stacksize() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_get_stacksize 
+          end function kmp_get_stacksize 
+ 
+          function kmp_get_stacksize_s() 
+            use omp_lib_kinds 
+            integer (kind=kmp_size_t_kind) kmp_get_stacksize_s 
+          end function kmp_get_stacksize_s 
+ 
+          function kmp_get_blocktime() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_get_blocktime 
+          end function kmp_get_blocktime 
+ 
+          function kmp_get_library() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_get_library 
+          end function kmp_get_library 
+ 
+          function kmp_set_affinity(mask) 
+            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) 
+            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() 
+            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) 
+            use omp_lib_kinds 
+            integer (kind=kmp_affinity_mask_kind) mask 
+          end subroutine kmp_create_affinity_mask 
+ 
+          subroutine kmp_destroy_affinity_mask(mask) 
+            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) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc 
+            integer (kind=omp_integer_kind) proc 
+            integer (kind=kmp_affinity_mask_kind) mask 
+          end function kmp_set_affinity_mask_proc 
+ 
+          function kmp_unset_affinity_mask_proc(proc, mask) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc 
+            integer (kind=omp_integer_kind) proc 
+            integer (kind=kmp_affinity_mask_kind) mask 
+          end function kmp_unset_affinity_mask_proc 
+ 
+          function kmp_get_affinity_mask_proc(proc, mask) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc 
+            integer (kind=omp_integer_kind) proc 
+            integer (kind=kmp_affinity_mask_kind) mask 
+          end function kmp_get_affinity_mask_proc 
+ 
+          function kmp_malloc(size) 
+            use omp_lib_kinds 
+            integer (kind=kmp_pointer_kind) kmp_malloc 
+            integer (kind=kmp_size_t_kind) size 
+          end function kmp_malloc 
+ 
+          function kmp_calloc(nelem, elsize) 
+            use omp_lib_kinds 
+            integer (kind=kmp_pointer_kind) kmp_calloc 
+            integer (kind=kmp_size_t_kind) nelem 
+            integer (kind=kmp_size_t_kind) elsize 
+          end function kmp_calloc 
+ 
+          function kmp_realloc(ptr, size) 
+            use omp_lib_kinds 
+            integer (kind=kmp_pointer_kind) kmp_realloc 
+            integer (kind=kmp_pointer_kind) ptr 
+            integer (kind=kmp_size_t_kind) size 
+          end function kmp_realloc 
+ 
+          subroutine kmp_free(ptr) 
+            use omp_lib_kinds 
+            integer (kind=kmp_pointer_kind) ptr 
+          end subroutine kmp_free 
+ 
+          subroutine kmp_set_warnings_on() 
+          end subroutine kmp_set_warnings_on 
+ 
+          subroutine kmp_set_warnings_off() 
+          end subroutine kmp_set_warnings_off 
+ 
+          function kmp_get_cancellation_status(cancelkind) 
+            use omp_lib_kinds 
+            integer (kind=kmp_cancel_kind) cancelkind 
+            logical (kind=omp_logical_kind) kmp_get_cancellation_status 
+          end function kmp_get_cancellation_status 
+ 
+        end interface 
+ 
+!dec$ if defined(_WIN32) 
+!dec$   if defined(_WIN64) .or. defined(_M_AMD64) 
+ 
+!*** 
+!*** The Fortran entry points must be in uppercase, even if the /Qlowercase 
+!*** option is specified.  The alias attribute ensures that the specified 
+!*** string is used as the entry point. 
+!*** 
+!*** On the Windows* OS IA-32 architecture, the Fortran entry points have an 
+!*** underscore prepended.  On the Windows* OS Intel(R) 64 
+!*** architecture, no underscore is prepended. 
+!*** 
+ 
+!dec$ attributes alias:'OMP_SET_NUM_THREADS' :: omp_set_num_threads 
+!dec$ attributes alias:'OMP_SET_DYNAMIC' :: omp_set_dynamic 
+!dec$ attributes alias:'OMP_SET_NESTED' :: omp_set_nested 
+!dec$ attributes alias:'OMP_GET_NUM_THREADS' :: omp_get_num_threads 
+!dec$ attributes alias:'OMP_GET_MAX_THREADS' :: omp_get_max_threads 
+!dec$ attributes alias:'OMP_GET_THREAD_NUM' :: omp_get_thread_num 
+!dec$ attributes alias:'OMP_GET_NUM_PROCS' :: omp_get_num_procs 
+!dec$ attributes alias:'OMP_IN_PARALLEL' :: omp_in_parallel 
+!dec$ attributes alias:'OMP_GET_DYNAMIC' :: omp_get_dynamic 
+!dec$ attributes alias:'OMP_GET_NESTED' :: omp_get_nested 
+!dec$ attributes alias:'OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit 
+!dec$ attributes alias:'OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels 
+!dec$ attributes alias:'OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels 
+!dec$ attributes alias:'OMP_GET_LEVEL' :: omp_get_level 
+!dec$ attributes alias:'OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level 
+!dec$ attributes alias:'OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num 
+!dec$ attributes alias:'OMP_GET_TEAM_SIZE' :: omp_get_team_size 
+!dec$ attributes alias:'OMP_SET_SCHEDULE' :: omp_set_schedule 
+!dec$ attributes alias:'OMP_GET_SCHEDULE' :: omp_get_schedule 
+!dec$ attributes alias:'OMP_GET_PROC_BIND' :: omp_get_proc_bind 
+!dec$ attributes alias:'OMP_GET_WTIME' :: omp_get_wtime 
+!dec$ attributes alias:'OMP_GET_WTICK' :: omp_get_wtick 
+!dec$ attributes alias:'OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device 
+!dec$ attributes alias:'OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device 
+!dec$ attributes alias:'OMP_GET_NUM_DEVICES' :: omp_get_num_devices 
+!dec$ attributes alias:'OMP_GET_NUM_TEAMS' :: omp_get_num_teams 
+!dec$ attributes alias:'OMP_GET_TEAM_NUM' :: omp_get_team_num 
+!dec$ attributes alias:'OMP_GET_CANCELLATION' :: omp_get_cancellation 
+!dec$ attributes alias:'OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device 
+ 
+!dec$ attributes alias:'omp_init_lock' :: omp_init_lock 
+!dec$ attributes alias:'omp_destroy_lock' :: omp_destroy_lock 
+!dec$ attributes alias:'omp_set_lock' :: omp_set_lock 
+!dec$ attributes alias:'omp_unset_lock' :: omp_unset_lock 
+!dec$ attributes alias:'omp_test_lock' :: omp_test_lock 
+!dec$ attributes alias:'omp_init_nest_lock' :: omp_init_nest_lock 
+!dec$ attributes alias:'omp_destroy_nest_lock' :: omp_destroy_nest_lock 
+!dec$ attributes alias:'omp_set_nest_lock' :: omp_set_nest_lock 
+!dec$ attributes alias:'omp_unset_nest_lock' :: omp_unset_nest_lock 
+!dec$ attributes alias:'omp_test_nest_lock' :: omp_test_nest_lock 
+ 
+!dec$ attributes alias:'KMP_SET_STACKSIZE'::kmp_set_stacksize 
+!dec$ attributes alias:'KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s 
+!dec$ attributes alias:'KMP_SET_BLOCKTIME'::kmp_set_blocktime 
+!dec$ attributes alias:'KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial 
+!dec$ attributes alias:'KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround 
+!dec$ attributes alias:'KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput 
+!dec$ attributes alias:'KMP_SET_LIBRARY'::kmp_set_library 
+!dec$ attributes alias:'KMP_GET_STACKSIZE'::kmp_get_stacksize 
+!dec$ attributes alias:'KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s 
+!dec$ attributes alias:'KMP_GET_BLOCKTIME'::kmp_get_blocktime 
+!dec$ attributes alias:'KMP_GET_LIBRARY'::kmp_get_library 
+!dec$ attributes alias:'KMP_SET_AFFINITY'::kmp_set_affinity 
+!dec$ attributes alias:'KMP_GET_AFFINITY'::kmp_get_affinity 
+!dec$ attributes alias:'KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc 
+!dec$ attributes alias:'KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask 
+!dec$ attributes alias:'KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask 
+!dec$ attributes alias:'KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc 
+!dec$ attributes alias:'KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc 
+!dec$ attributes alias:'KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc 
+!dec$ attributes alias:'KMP_MALLOC'::kmp_malloc 
+!dec$ attributes alias:'KMP_CALLOC'::kmp_calloc 
+!dec$ attributes alias:'KMP_REALLOC'::kmp_realloc 
+!dec$ attributes alias:'KMP_FREE'::kmp_free 
+ 
+!dec$ attributes alias:'KMP_SET_WARNINGS_ON'::kmp_set_warnings_on 
+!dec$ attributes alias:'KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off 
+ 
+!dec$ attributes alias:'KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status 
+ 
+!dec$   else 
+ 
+!*** 
+!*** On Windows* OS IA-32 architecture, the Fortran entry points have an underscore prepended. 
+!*** 
+ 
+!dec$ attributes alias:'_OMP_SET_NUM_THREADS' :: omp_set_num_threads 
+!dec$ attributes alias:'_OMP_SET_DYNAMIC' :: omp_set_dynamic 
+!dec$ attributes alias:'_OMP_SET_NESTED' :: omp_set_nested 
+!dec$ attributes alias:'_OMP_GET_NUM_THREADS' :: omp_get_num_threads 
+!dec$ attributes alias:'_OMP_GET_MAX_THREADS' :: omp_get_max_threads 
+!dec$ attributes alias:'_OMP_GET_THREAD_NUM' :: omp_get_thread_num 
+!dec$ attributes alias:'_OMP_GET_NUM_PROCS' :: omp_get_num_procs 
+!dec$ attributes alias:'_OMP_IN_PARALLEL' :: omp_in_parallel 
+!dec$ attributes alias:'_OMP_GET_DYNAMIC' :: omp_get_dynamic 
+!dec$ attributes alias:'_OMP_GET_NESTED' :: omp_get_nested 
+!dec$ attributes alias:'_OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit 
+!dec$ attributes alias:'_OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels 
+!dec$ attributes alias:'_OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels 
+!dec$ attributes alias:'_OMP_GET_LEVEL' :: omp_get_level 
+!dec$ attributes alias:'_OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level 
+!dec$ attributes alias:'_OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num 
+!dec$ attributes alias:'_OMP_GET_TEAM_SIZE' :: omp_get_team_size 
+!dec$ attributes alias:'_OMP_SET_SCHEDULE' :: omp_set_schedule 
+!dec$ attributes alias:'_OMP_GET_SCHEDULE' :: omp_get_schedule 
+!dec$ attributes alias:'_OMP_GET_PROC_BIND' :: omp_get_proc_bind 
+!dec$ attributes alias:'_OMP_GET_WTIME' :: omp_get_wtime 
+!dec$ attributes alias:'_OMP_GET_WTICK' :: omp_get_wtick 
+!dec$ attributes alias:'_OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device 
+!dec$ attributes alias:'_OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device 
+!dec$ attributes alias:'_OMP_GET_NUM_DEVICES' :: omp_get_num_devices 
+!dec$ attributes alias:'_OMP_GET_NUM_TEAMS' :: omp_get_num_teams 
+!dec$ attributes alias:'_OMP_GET_TEAM_NUM' :: omp_get_team_num 
+!dec$ attributes alias:'_OMP_GET_CANCELLATION' :: omp_get_cancellation 
+!dec$ attributes alias:'_OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device 
+ 
+!dec$ attributes alias:'_omp_init_lock' :: omp_init_lock 
+!dec$ attributes alias:'_omp_destroy_lock' :: omp_destroy_lock 
+!dec$ attributes alias:'_omp_set_lock' :: omp_set_lock 
+!dec$ attributes alias:'_omp_unset_lock' :: omp_unset_lock 
+!dec$ attributes alias:'_omp_test_lock' :: omp_test_lock 
+!dec$ attributes alias:'_omp_init_nest_lock' :: omp_init_nest_lock 
+!dec$ attributes alias:'_omp_destroy_nest_lock' :: omp_destroy_nest_lock 
+!dec$ attributes alias:'_omp_set_nest_lock' :: omp_set_nest_lock 
+!dec$ attributes alias:'_omp_unset_nest_lock' :: omp_unset_nest_lock 
+!dec$ attributes alias:'_omp_test_nest_lock' :: omp_test_nest_lock 
+ 
+!dec$ attributes alias:'_KMP_SET_STACKSIZE'::kmp_set_stacksize 
+!dec$ attributes alias:'_KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s 
+!dec$ attributes alias:'_KMP_SET_BLOCKTIME'::kmp_set_blocktime 
+!dec$ attributes alias:'_KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial 
+!dec$ attributes alias:'_KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround 
+!dec$ attributes alias:'_KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput 
+!dec$ attributes alias:'_KMP_SET_LIBRARY'::kmp_set_library 
+!dec$ attributes alias:'_KMP_GET_STACKSIZE'::kmp_get_stacksize 
+!dec$ attributes alias:'_KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s 
+!dec$ attributes alias:'_KMP_GET_BLOCKTIME'::kmp_get_blocktime 
+!dec$ attributes alias:'_KMP_GET_LIBRARY'::kmp_get_library 
+!dec$ attributes alias:'_KMP_SET_AFFINITY'::kmp_set_affinity 
+!dec$ attributes alias:'_KMP_GET_AFFINITY'::kmp_get_affinity 
+!dec$ attributes alias:'_KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc 
+!dec$ attributes alias:'_KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask 
+!dec$ attributes alias:'_KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask 
+!dec$ attributes alias:'_KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc 
+!dec$ attributes alias:'_KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc 
+!dec$ attributes alias:'_KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc 
+!dec$ attributes alias:'_KMP_MALLOC'::kmp_malloc 
+!dec$ attributes alias:'_KMP_CALLOC'::kmp_calloc 
+!dec$ attributes alias:'_KMP_REALLOC'::kmp_realloc 
+!dec$ attributes alias:'_KMP_FREE'::kmp_free 
+ 
+!dec$ attributes alias:'_KMP_SET_WARNINGS_ON'::kmp_set_warnings_on 
+!dec$ attributes alias:'_KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off 
+ 
+!dec$ attributes alias:'_KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status 
+ 
+!dec$   endif 
+!dec$ endif 
+ 
+!dec$ if defined(__linux) 
+ 
+!*** 
+!*** The Linux* OS entry points are in lowercase, with an underscore appended. 
+!*** 
+ 
+!dec$ attributes alias:'omp_set_num_threads_'::omp_set_num_threads 
+!dec$ attributes alias:'omp_set_dynamic_'::omp_set_dynamic 
+!dec$ attributes alias:'omp_set_nested_'::omp_set_nested 
+!dec$ attributes alias:'omp_get_num_threads_'::omp_get_num_threads 
+!dec$ attributes alias:'omp_get_max_threads_'::omp_get_max_threads 
+!dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num 
+!dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs 
+!dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel 
+!dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic 
+!dec$ attributes alias:'omp_get_nested_'::omp_get_nested 
+!dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit 
+!dec$ attributes alias:'omp_set_max_active_levels_'::omp_set_max_active_levels 
+!dec$ attributes alias:'omp_get_max_active_levels_'::omp_get_max_active_levels 
+!dec$ attributes alias:'omp_get_level_'::omp_get_level 
+!dec$ attributes alias:'omp_get_active_level_'::omp_get_active_level 
+!dec$ attributes alias:'omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num 
+!dec$ attributes alias:'omp_get_team_size_'::omp_get_team_size 
+!dec$ attributes alias:'omp_set_schedule_'::omp_set_schedule 
+!dec$ attributes alias:'omp_get_schedule_'::omp_get_schedule 
+!dec$ attributes alias:'omp_get_proc_bind_' :: omp_get_proc_bind 
+!dec$ attributes alias:'omp_get_wtime_'::omp_get_wtime 
+!dec$ attributes alias:'omp_get_wtick_'::omp_get_wtick 
+!dec$ attributes alias:'omp_get_default_device_'::omp_get_default_device 
+!dec$ attributes alias:'omp_set_default_device_'::omp_set_default_device 
+!dec$ attributes alias:'omp_get_num_devices_'::omp_get_num_devices 
+!dec$ attributes alias:'omp_get_num_teams_'::omp_get_num_teams 
+!dec$ attributes alias:'omp_get_team_num_'::omp_get_team_num 
+!dec$ attributes alias:'omp_get_cancellation_'::omp_get_cancellation 
+!dec$ attributes alias:'omp_is_initial_device_'::omp_is_initial_device 
+ 
+!dec$ attributes alias:'omp_init_lock_'::omp_init_lock 
+!dec$ attributes alias:'omp_destroy_lock_'::omp_destroy_lock 
+!dec$ attributes alias:'omp_set_lock_'::omp_set_lock 
+!dec$ attributes alias:'omp_unset_lock_'::omp_unset_lock 
+!dec$ attributes alias:'omp_test_lock_'::omp_test_lock 
+!dec$ attributes alias:'omp_init_nest_lock_'::omp_init_nest_lock 
+!dec$ attributes alias:'omp_destroy_nest_lock_'::omp_destroy_nest_lock 
+!dec$ attributes alias:'omp_set_nest_lock_'::omp_set_nest_lock 
+!dec$ attributes alias:'omp_unset_nest_lock_'::omp_unset_nest_lock 
+!dec$ attributes alias:'omp_test_nest_lock_'::omp_test_nest_lock 
+ 
+!dec$ attributes alias:'kmp_set_stacksize_'::kmp_set_stacksize 
+!dec$ attributes alias:'kmp_set_stacksize_s_'::kmp_set_stacksize_s 
+!dec$ attributes alias:'kmp_set_blocktime_'::kmp_set_blocktime 
+!dec$ attributes alias:'kmp_set_library_serial_'::kmp_set_library_serial 
+!dec$ attributes alias:'kmp_set_library_turnaround_'::kmp_set_library_turnaround 
+!dec$ attributes alias:'kmp_set_library_throughput_'::kmp_set_library_throughput 
+!dec$ attributes alias:'kmp_set_library_'::kmp_set_library 
+!dec$ attributes alias:'kmp_get_stacksize_'::kmp_get_stacksize 
+!dec$ attributes alias:'kmp_get_stacksize_s_'::kmp_get_stacksize_s 
+!dec$ attributes alias:'kmp_get_blocktime_'::kmp_get_blocktime 
+!dec$ attributes alias:'kmp_get_library_'::kmp_get_library 
+!dec$ attributes alias:'kmp_set_affinity_'::kmp_set_affinity 
+!dec$ attributes alias:'kmp_get_affinity_'::kmp_get_affinity 
+!dec$ attributes alias:'kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc 
+!dec$ attributes alias:'kmp_create_affinity_mask_'::kmp_create_affinity_mask 
+!dec$ attributes alias:'kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask 
+!dec$ attributes alias:'kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc 
+!dec$ attributes alias:'kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc 
+!dec$ attributes alias:'kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc 
+!dec$ attributes alias:'kmp_malloc_'::kmp_malloc 
+!dec$ attributes alias:'kmp_calloc_'::kmp_calloc 
+!dec$ attributes alias:'kmp_realloc_'::kmp_realloc 
+!dec$ attributes alias:'kmp_free_'::kmp_free 
+ 
+!dec$ attributes alias:'kmp_set_warnings_on_'::kmp_set_warnings_on 
+!dec$ attributes alias:'kmp_set_warnings_off_'::kmp_set_warnings_off 
+!dec$ attributes alias:'kmp_get_cancellation_status_'::kmp_get_cancellation_status 
+ 
+!dec$ endif 
+ 
+!dec$ if defined(__APPLE__) 
+ 
+!*** 
+!*** The Mac entry points are in lowercase, with an both an underscore 
+!*** appended and an underscore prepended. 
+!*** 
+ 
+!dec$ attributes alias:'_omp_set_num_threads_'::omp_set_num_threads 
+!dec$ attributes alias:'_omp_set_dynamic_'::omp_set_dynamic 
+!dec$ attributes alias:'_omp_set_nested_'::omp_set_nested 
+!dec$ attributes alias:'_omp_get_num_threads_'::omp_get_num_threads 
+!dec$ attributes alias:'_omp_get_max_threads_'::omp_get_max_threads 
+!dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num 
+!dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs 
+!dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel 
+!dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic 
+!dec$ attributes alias:'_omp_get_nested_'::omp_get_nested 
+!dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit 
+!dec$ attributes alias:'_omp_set_max_active_levels_'::omp_set_max_active_levels 
+!dec$ attributes alias:'_omp_get_max_active_levels_'::omp_get_max_active_levels 
+!dec$ attributes alias:'_omp_get_level_'::omp_get_level 
+!dec$ attributes alias:'_omp_get_active_level_'::omp_get_active_level 
+!dec$ attributes alias:'_omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num 
+!dec$ attributes alias:'_omp_get_team_size_'::omp_get_team_size 
+!dec$ attributes alias:'_omp_set_schedule_'::omp_set_schedule 
+!dec$ attributes alias:'_omp_get_schedule_'::omp_get_schedule 
+!dec$ attributes alias:'_omp_get_proc_bind_' :: omp_get_proc_bind 
+!dec$ attributes alias:'_omp_get_wtime_'::omp_get_wtime 
+!dec$ attributes alias:'_omp_get_wtick_'::omp_get_wtick 
+!dec$ attributes alias:'_omp_get_num_teams_'::omp_get_num_teams 
+!dec$ attributes alias:'_omp_get_team_num_'::omp_get_team_num 
+!dec$ attributes alias:'_omp_get_cancellation_'::omp_get_cancellation 
+!dec$ attributes alias:'_omp_is_initial_device_'::omp_is_initial_device 
+ 
+!dec$ attributes alias:'_omp_init_lock_'::omp_init_lock 
+!dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock 
+!dec$ attributes alias:'_omp_set_lock_'::omp_set_lock 
+!dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock 
+!dec$ attributes alias:'_omp_test_lock_'::omp_test_lock 
+!dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock 
+!dec$ attributes alias:'_omp_destroy_nest_lock_'::omp_destroy_nest_lock 
+!dec$ attributes alias:'_omp_set_nest_lock_'::omp_set_nest_lock 
+!dec$ attributes alias:'_omp_unset_nest_lock_'::omp_unset_nest_lock 
+!dec$ attributes alias:'_omp_test_nest_lock_'::omp_test_nest_lock 
+ 
+!dec$ attributes alias:'_kmp_set_stacksize_'::kmp_set_stacksize 
+!dec$ attributes alias:'_kmp_set_stacksize_s_'::kmp_set_stacksize_s 
+!dec$ attributes alias:'_kmp_set_blocktime_'::kmp_set_blocktime 
+!dec$ attributes alias:'_kmp_set_library_serial_'::kmp_set_library_serial 
+!dec$ attributes alias:'_kmp_set_library_turnaround_'::kmp_set_library_turnaround 
+!dec$ attributes alias:'_kmp_set_library_throughput_'::kmp_set_library_throughput 
+!dec$ attributes alias:'_kmp_set_library_'::kmp_set_library 
+!dec$ attributes alias:'_kmp_get_stacksize_'::kmp_get_stacksize 
+!dec$ attributes alias:'_kmp_get_stacksize_s_'::kmp_get_stacksize_s 
+!dec$ attributes alias:'_kmp_get_blocktime_'::kmp_get_blocktime 
+!dec$ attributes alias:'_kmp_get_library_'::kmp_get_library 
+!dec$ attributes alias:'_kmp_set_affinity_'::kmp_set_affinity 
+!dec$ attributes alias:'_kmp_get_affinity_'::kmp_get_affinity 
+!dec$ attributes alias:'_kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc 
+!dec$ attributes alias:'_kmp_create_affinity_mask_'::kmp_create_affinity_mask 
+!dec$ attributes alias:'_kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask 
+!dec$ attributes alias:'_kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc 
+!dec$ attributes alias:'_kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc 
+!dec$ attributes alias:'_kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc 
+!dec$ attributes alias:'_kmp_malloc_'::kmp_malloc 
+!dec$ attributes alias:'_kmp_calloc_'::kmp_calloc 
+!dec$ attributes alias:'_kmp_realloc_'::kmp_realloc 
+!dec$ attributes alias:'_kmp_free_'::kmp_free 
+ 
+!dec$ attributes alias:'_kmp_set_warnings_on_'::kmp_set_warnings_on 
+!dec$ attributes alias:'_kmp_set_warnings_off_'::kmp_set_warnings_off 
+ 
+!dec$ attributes alias:'_kmp_get_cancellation_status_'::kmp_get_cancellation_status 
+ 
+!dec$ endif 
+ 
+      end module omp_lib 
+ 
diff --git a/contrib/libs/cxxsupp/openmp/include/40/omp_lib.f90.var b/contrib/libs/cxxsupp/openmp/include/40/omp_lib.f90.var
index 5be8026603..be4bcaf257 100644
--- a/contrib/libs/cxxsupp/openmp/include/40/omp_lib.f90.var
+++ b/contrib/libs/cxxsupp/openmp/include/40/omp_lib.f90.var
@@ -1,448 +1,448 @@
-! include/40/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
-
-      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
-
-        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
-
-        end interface
-
-      end module omp_lib
+! include/40/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 
+ 
+      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 
+ 
+        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 
+ 
+        end interface 
+ 
+      end module omp_lib 
diff --git a/contrib/libs/cxxsupp/openmp/include/40/omp_lib.h.var b/contrib/libs/cxxsupp/openmp/include/40/omp_lib.h.var
index cc134fd352..4c933cda00 100644
--- a/contrib/libs/cxxsupp/openmp/include/40/omp_lib.h.var
+++ b/contrib/libs/cxxsupp/openmp/include/40/omp_lib.h.var
@@ -1,558 +1,558 @@
-! include/40/omp_lib.h.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.
-!//
-!//===----------------------------------------------------------------------===//
-!
-
-!***
-!*** Some of the directives for the following routine extend past column 72,
-!*** so process this file in 132-column mode.
-!***
-
-!DIR$ fixedformlinesize:132
-
-      integer, parameter :: omp_integer_kind       = 4
-      integer, parameter :: omp_logical_kind       = 4
-      integer, parameter :: omp_real_kind          = 4
-      integer, parameter :: omp_lock_kind          = int_ptr_kind()
-      integer, parameter :: omp_nest_lock_kind     = int_ptr_kind()
-      integer, parameter :: omp_sched_kind         = omp_integer_kind
-      integer, parameter :: omp_proc_bind_kind     = omp_integer_kind
-      integer, parameter :: kmp_pointer_kind       = int_ptr_kind()
-      integer, parameter :: kmp_size_t_kind        = int_ptr_kind()
-      integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind()
-
-      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
-
-      interface
-
-!       ***
-!       *** omp_* entry points
-!       ***
-
-        subroutine omp_set_num_threads(nthreads) bind(c)
-          import
-          integer (kind=omp_integer_kind), value :: nthreads
-        end subroutine omp_set_num_threads
-
-        subroutine omp_set_dynamic(enable) bind(c)
-          import
-          logical (kind=omp_logical_kind), value :: enable
-        end subroutine omp_set_dynamic
-
-        subroutine omp_set_nested(enable) bind(c)
-          import
-          logical (kind=omp_logical_kind), value :: enable
-        end subroutine omp_set_nested
-
-        function omp_get_num_threads() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_num_threads
-        end function omp_get_num_threads
-
-        function omp_get_max_threads() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_max_threads
-        end function omp_get_max_threads
-
-        function omp_get_thread_num() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_thread_num
-        end function omp_get_thread_num
-
-        function omp_get_num_procs() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_num_procs
-        end function omp_get_num_procs
-
-        function omp_in_parallel() bind(c)
-          import
-          logical (kind=omp_logical_kind) omp_in_parallel
-        end function omp_in_parallel
-
-        function omp_in_final() bind(c)
-          import
-          logical (kind=omp_logical_kind) omp_in_final
-        end function omp_in_final
-
-        function omp_get_dynamic() bind(c)
-          import
-          logical (kind=omp_logical_kind) omp_get_dynamic
-        end function omp_get_dynamic
-
-        function omp_get_nested() bind(c)
-          import
-          logical (kind=omp_logical_kind) omp_get_nested
-        end function omp_get_nested
-
-        function omp_get_thread_limit() bind(c)
-          import
-          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)
-          import
-          integer (kind=omp_integer_kind), value :: max_levels
-        end subroutine omp_set_max_active_levels
-
-        function omp_get_max_active_levels() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_max_active_levels
-        end function omp_get_max_active_levels
-
-        function omp_get_level() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_level
-        end function omp_get_level
-
-        function omp_get_active_level() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_active_level
-        end function omp_get_active_level
-
-        function omp_get_ancestor_thread_num(level) bind(c)
-          import
-          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)
-          import
-          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)
-          import
-          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)
-          import
-          integer (kind=omp_sched_kind) kind
-          integer (kind=omp_integer_kind) modifier
-        end subroutine omp_get_schedule
-
-        function omp_get_proc_bind() bind(c)
-          import
-          integer (kind=omp_proc_bind_kind) omp_get_proc_bind
-        end function omp_get_proc_bind
-
-        function omp_get_wtime() bind(c)
-          double precision omp_get_wtime
-        end function omp_get_wtime
-
-        function omp_get_wtick() bind(c)
-          double precision omp_get_wtick
-        end function omp_get_wtick
-
-        function omp_get_default_device() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_default_device
-        end function omp_get_default_device
-
-        subroutine omp_set_default_device(dflt_device) bind(c)
-          import
-          integer (kind=omp_integer_kind), value :: dflt_device
-        end subroutine omp_set_default_device
-
-        function omp_get_num_devices() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_num_devices
-        end function omp_get_num_devices
-
-        function omp_get_num_teams() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_num_teams
-        end function omp_get_num_teams
-
-        function omp_get_team_num() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_team_num
-        end function omp_get_team_num
-
-        function omp_is_initial_device() bind(c)
-          import
-          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
-          import
-          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
-          import
-          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
-          import
-          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
-          import
-          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
-          import
-          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
-          import
-          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
-          import
-          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
-          import
-          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
-          import
-          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
-          import
-          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)
-          import
-          integer (kind=omp_integer_kind), value :: size
-        end subroutine kmp_set_stacksize
-
-        subroutine kmp_set_stacksize_s(size) bind(c)
-          import
-          integer (kind=kmp_size_t_kind), value :: size
-        end subroutine kmp_set_stacksize_s
-
-        subroutine kmp_set_blocktime(msec) bind(c)
-          import
-          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)
-          import
-          integer (kind=omp_integer_kind), value :: libnum
-        end subroutine kmp_set_library
-
-        subroutine kmp_set_defaults(string) bind(c)
-          character string(*)
-        end subroutine kmp_set_defaults
-
-        function kmp_get_stacksize() bind(c)
-          import
-          integer (kind=omp_integer_kind) kmp_get_stacksize
-        end function kmp_get_stacksize
-
-        function kmp_get_stacksize_s() bind(c)
-          import
-          integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
-        end function kmp_get_stacksize_s
-
-        function kmp_get_blocktime() bind(c)
-          import
-          integer (kind=omp_integer_kind) kmp_get_blocktime
-        end function kmp_get_blocktime
-
-        function kmp_get_library() bind(c)
-          import
-          integer (kind=omp_integer_kind) kmp_get_library
-        end function kmp_get_library
-
-        function kmp_set_affinity(mask) bind(c)
-          import
-          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)
-          import
-          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)
-          import
-          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)
-          import
-          integer (kind=kmp_affinity_mask_kind) mask
-        end subroutine kmp_create_affinity_mask
-
-        subroutine kmp_destroy_affinity_mask(mask) bind(c)
-          import
-          integer (kind=kmp_affinity_mask_kind) mask
-        end subroutine kmp_destroy_affinity_mask
-
-        function kmp_set_affinity_mask_proc(proc, mask) bind(c)
-          import
-          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)
-          import
-          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)
-          import
-          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)
-          import
-          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)
-          import
-          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)
-          import
-          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)
-          import
-          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
-
-      end interface
-
-!DIR$ IF DEFINED (__INTEL_OFFLOAD)
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_num_threads
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_dynamic
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nested
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_threads
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_threads
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_num
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_procs
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_parallel
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_final
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_dynamic
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_nested
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_limit
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_max_active_levels
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_active_levels
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_level
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_active_level
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_ancestor_thread_num
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_size
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_schedule
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_schedule
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_proc_bind
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtime
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtick
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_default_device
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_default_device
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_is_initial_device
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_devices
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_teams
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_num
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_nest_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nest_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_nest_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_nest_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize_s
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_blocktime
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_serial
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_turnaround
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_throughput
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_defaults
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize_s
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_blocktime
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_library
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_max_proc
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_create_affinity_mask
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_destroy_affinity_mask
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity_mask_proc
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_unset_affinity_mask_proc
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_mask_proc
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_malloc
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_calloc
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_realloc
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_free
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_on
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_off
-
-!DIR$ IF(__INTEL_COMPILER.GE.1400)
-!$omp declare target(omp_set_num_threads )
-!$omp declare target(omp_set_dynamic )
-!$omp declare target(omp_set_nested )
-!$omp declare target(omp_get_num_threads )
-!$omp declare target(omp_get_max_threads )
-!$omp declare target(omp_get_thread_num )
-!$omp declare target(omp_get_num_procs )
-!$omp declare target(omp_in_parallel )
-!$omp declare target(omp_in_final )
-!$omp declare target(omp_get_dynamic )
-!$omp declare target(omp_get_nested )
-!$omp declare target(omp_get_thread_limit )
-!$omp declare target(omp_set_max_active_levels )
-!$omp declare target(omp_get_max_active_levels )
-!$omp declare target(omp_get_level )
-!$omp declare target(omp_get_active_level )
-!$omp declare target(omp_get_ancestor_thread_num )
-!$omp declare target(omp_get_team_size )
-!$omp declare target(omp_set_schedule )
-!$omp declare target(omp_get_schedule )
-!$omp declare target(omp_get_proc_bind )
-!$omp declare target(omp_get_wtime )
-!$omp declare target(omp_get_wtick )
-!$omp declare target(omp_get_default_device )
-!$omp declare target(omp_set_default_device )
-!$omp declare target(omp_is_initial_device )
-!$omp declare target(omp_get_num_devices )
-!$omp declare target(omp_get_num_teams )
-!$omp declare target(omp_get_team_num )
-!$omp declare target(omp_init_lock )
-!$omp declare target(omp_destroy_lock )
-!$omp declare target(omp_set_lock )
-!$omp declare target(omp_unset_lock )
-!$omp declare target(omp_test_lock )
-!$omp declare target(omp_init_nest_lock )
-!$omp declare target(omp_destroy_nest_lock )
-!$omp declare target(omp_set_nest_lock )
-!$omp declare target(omp_unset_nest_lock )
-!$omp declare target(omp_test_nest_lock )
-!$omp declare target(kmp_set_stacksize )
-!$omp declare target(kmp_set_stacksize_s )
-!$omp declare target(kmp_set_blocktime )
-!$omp declare target(kmp_set_library_serial )
-!$omp declare target(kmp_set_library_turnaround )
-!$omp declare target(kmp_set_library_throughput )
-!$omp declare target(kmp_set_library )
-!$omp declare target(kmp_set_defaults )
-!$omp declare target(kmp_get_stacksize )
-!$omp declare target(kmp_get_stacksize_s )
-!$omp declare target(kmp_get_blocktime )
-!$omp declare target(kmp_get_library )
-!$omp declare target(kmp_set_affinity )
-!$omp declare target(kmp_get_affinity )
-!$omp declare target(kmp_get_affinity_max_proc )
-!$omp declare target(kmp_create_affinity_mask )
-!$omp declare target(kmp_destroy_affinity_mask )
-!$omp declare target(kmp_set_affinity_mask_proc )
-!$omp declare target(kmp_unset_affinity_mask_proc )
-!$omp declare target(kmp_get_affinity_mask_proc )
-!$omp declare target(kmp_malloc )
-!$omp declare target(kmp_calloc )
-!$omp declare target(kmp_realloc )
-!$omp declare target(kmp_free )
-!$omp declare target(kmp_set_warnings_on )
-!$omp declare target(kmp_set_warnings_off )
-!DIR$ ENDIF
-!DIR$ ENDIF
-
+! include/40/omp_lib.h.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. 
+!// 
+!//===----------------------------------------------------------------------===// 
+! 
+ 
+!*** 
+!*** Some of the directives for the following routine extend past column 72, 
+!*** so process this file in 132-column mode. 
+!*** 
+ 
+!DIR$ fixedformlinesize:132 
+ 
+      integer, parameter :: omp_integer_kind       = 4 
+      integer, parameter :: omp_logical_kind       = 4 
+      integer, parameter :: omp_real_kind          = 4 
+      integer, parameter :: omp_lock_kind          = int_ptr_kind() 
+      integer, parameter :: omp_nest_lock_kind     = int_ptr_kind() 
+      integer, parameter :: omp_sched_kind         = omp_integer_kind 
+      integer, parameter :: omp_proc_bind_kind     = omp_integer_kind 
+      integer, parameter :: kmp_pointer_kind       = int_ptr_kind() 
+      integer, parameter :: kmp_size_t_kind        = int_ptr_kind() 
+      integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind() 
+ 
+      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 
+ 
+      interface 
+ 
+!       *** 
+!       *** omp_* entry points 
+!       *** 
+ 
+        subroutine omp_set_num_threads(nthreads) bind(c) 
+          import 
+          integer (kind=omp_integer_kind), value :: nthreads 
+        end subroutine omp_set_num_threads 
+ 
+        subroutine omp_set_dynamic(enable) bind(c) 
+          import 
+          logical (kind=omp_logical_kind), value :: enable 
+        end subroutine omp_set_dynamic 
+ 
+        subroutine omp_set_nested(enable) bind(c) 
+          import 
+          logical (kind=omp_logical_kind), value :: enable 
+        end subroutine omp_set_nested 
+ 
+        function omp_get_num_threads() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_num_threads 
+        end function omp_get_num_threads 
+ 
+        function omp_get_max_threads() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_max_threads 
+        end function omp_get_max_threads 
+ 
+        function omp_get_thread_num() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_thread_num 
+        end function omp_get_thread_num 
+ 
+        function omp_get_num_procs() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_num_procs 
+        end function omp_get_num_procs 
+ 
+        function omp_in_parallel() bind(c) 
+          import 
+          logical (kind=omp_logical_kind) omp_in_parallel 
+        end function omp_in_parallel 
+ 
+        function omp_in_final() bind(c) 
+          import 
+          logical (kind=omp_logical_kind) omp_in_final 
+        end function omp_in_final 
+ 
+        function omp_get_dynamic() bind(c) 
+          import 
+          logical (kind=omp_logical_kind) omp_get_dynamic 
+        end function omp_get_dynamic 
+ 
+        function omp_get_nested() bind(c) 
+          import 
+          logical (kind=omp_logical_kind) omp_get_nested 
+        end function omp_get_nested 
+ 
+        function omp_get_thread_limit() bind(c) 
+          import 
+          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) 
+          import 
+          integer (kind=omp_integer_kind), value :: max_levels 
+        end subroutine omp_set_max_active_levels 
+ 
+        function omp_get_max_active_levels() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_max_active_levels 
+        end function omp_get_max_active_levels 
+ 
+        function omp_get_level() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_level 
+        end function omp_get_level 
+ 
+        function omp_get_active_level() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_active_level 
+        end function omp_get_active_level 
+ 
+        function omp_get_ancestor_thread_num(level) bind(c) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          integer (kind=omp_sched_kind) kind 
+          integer (kind=omp_integer_kind) modifier 
+        end subroutine omp_get_schedule 
+ 
+        function omp_get_proc_bind() bind(c) 
+          import 
+          integer (kind=omp_proc_bind_kind) omp_get_proc_bind 
+        end function omp_get_proc_bind 
+ 
+        function omp_get_wtime() bind(c) 
+          double precision omp_get_wtime 
+        end function omp_get_wtime 
+ 
+        function omp_get_wtick() bind(c) 
+          double precision omp_get_wtick 
+        end function omp_get_wtick 
+ 
+        function omp_get_default_device() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_default_device 
+        end function omp_get_default_device 
+ 
+        subroutine omp_set_default_device(dflt_device) bind(c) 
+          import 
+          integer (kind=omp_integer_kind), value :: dflt_device 
+        end subroutine omp_set_default_device 
+ 
+        function omp_get_num_devices() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_num_devices 
+        end function omp_get_num_devices 
+ 
+        function omp_get_num_teams() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_num_teams 
+        end function omp_get_num_teams 
+ 
+        function omp_get_team_num() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_team_num 
+        end function omp_get_team_num 
+ 
+        function omp_is_initial_device() bind(c) 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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) 
+          import 
+          integer (kind=omp_integer_kind), value :: size 
+        end subroutine kmp_set_stacksize 
+ 
+        subroutine kmp_set_stacksize_s(size) bind(c) 
+          import 
+          integer (kind=kmp_size_t_kind), value :: size 
+        end subroutine kmp_set_stacksize_s 
+ 
+        subroutine kmp_set_blocktime(msec) bind(c) 
+          import 
+          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) 
+          import 
+          integer (kind=omp_integer_kind), value :: libnum 
+        end subroutine kmp_set_library 
+ 
+        subroutine kmp_set_defaults(string) bind(c) 
+          character string(*) 
+        end subroutine kmp_set_defaults 
+ 
+        function kmp_get_stacksize() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) kmp_get_stacksize 
+        end function kmp_get_stacksize 
+ 
+        function kmp_get_stacksize_s() bind(c) 
+          import 
+          integer (kind=kmp_size_t_kind) kmp_get_stacksize_s 
+        end function kmp_get_stacksize_s 
+ 
+        function kmp_get_blocktime() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) kmp_get_blocktime 
+        end function kmp_get_blocktime 
+ 
+        function kmp_get_library() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) kmp_get_library 
+        end function kmp_get_library 
+ 
+        function kmp_set_affinity(mask) bind(c) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          integer (kind=kmp_affinity_mask_kind) mask 
+        end subroutine kmp_create_affinity_mask 
+ 
+        subroutine kmp_destroy_affinity_mask(mask) bind(c) 
+          import 
+          integer (kind=kmp_affinity_mask_kind) mask 
+        end subroutine kmp_destroy_affinity_mask 
+ 
+        function kmp_set_affinity_mask_proc(proc, mask) bind(c) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          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 
+ 
+      end interface 
+ 
+!DIR$ IF DEFINED (__INTEL_OFFLOAD) 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_num_threads 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_dynamic 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nested 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_threads 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_threads 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_num 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_procs 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_parallel 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_final 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_dynamic 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_nested 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_limit 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_max_active_levels 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_active_levels 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_level 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_active_level 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_ancestor_thread_num 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_size 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_schedule 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_schedule 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_proc_bind 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtime 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtick 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_default_device 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_default_device 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_is_initial_device 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_devices 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_teams 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_num 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_nest_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nest_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_nest_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_nest_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize_s 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_blocktime 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_serial 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_turnaround 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_throughput 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_defaults 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize_s 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_blocktime 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_library 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_max_proc 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_create_affinity_mask 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_destroy_affinity_mask 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity_mask_proc 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_unset_affinity_mask_proc 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_mask_proc 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_malloc 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_calloc 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_realloc 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_free 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_on 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_off 
+ 
+!DIR$ IF(__INTEL_COMPILER.GE.1400) 
+!$omp declare target(omp_set_num_threads ) 
+!$omp declare target(omp_set_dynamic ) 
+!$omp declare target(omp_set_nested ) 
+!$omp declare target(omp_get_num_threads ) 
+!$omp declare target(omp_get_max_threads ) 
+!$omp declare target(omp_get_thread_num ) 
+!$omp declare target(omp_get_num_procs ) 
+!$omp declare target(omp_in_parallel ) 
+!$omp declare target(omp_in_final ) 
+!$omp declare target(omp_get_dynamic ) 
+!$omp declare target(omp_get_nested ) 
+!$omp declare target(omp_get_thread_limit ) 
+!$omp declare target(omp_set_max_active_levels ) 
+!$omp declare target(omp_get_max_active_levels ) 
+!$omp declare target(omp_get_level ) 
+!$omp declare target(omp_get_active_level ) 
+!$omp declare target(omp_get_ancestor_thread_num ) 
+!$omp declare target(omp_get_team_size ) 
+!$omp declare target(omp_set_schedule ) 
+!$omp declare target(omp_get_schedule ) 
+!$omp declare target(omp_get_proc_bind ) 
+!$omp declare target(omp_get_wtime ) 
+!$omp declare target(omp_get_wtick ) 
+!$omp declare target(omp_get_default_device ) 
+!$omp declare target(omp_set_default_device ) 
+!$omp declare target(omp_is_initial_device ) 
+!$omp declare target(omp_get_num_devices ) 
+!$omp declare target(omp_get_num_teams ) 
+!$omp declare target(omp_get_team_num ) 
+!$omp declare target(omp_init_lock ) 
+!$omp declare target(omp_destroy_lock ) 
+!$omp declare target(omp_set_lock ) 
+!$omp declare target(omp_unset_lock ) 
+!$omp declare target(omp_test_lock ) 
+!$omp declare target(omp_init_nest_lock ) 
+!$omp declare target(omp_destroy_nest_lock ) 
+!$omp declare target(omp_set_nest_lock ) 
+!$omp declare target(omp_unset_nest_lock ) 
+!$omp declare target(omp_test_nest_lock ) 
+!$omp declare target(kmp_set_stacksize ) 
+!$omp declare target(kmp_set_stacksize_s ) 
+!$omp declare target(kmp_set_blocktime ) 
+!$omp declare target(kmp_set_library_serial ) 
+!$omp declare target(kmp_set_library_turnaround ) 
+!$omp declare target(kmp_set_library_throughput ) 
+!$omp declare target(kmp_set_library ) 
+!$omp declare target(kmp_set_defaults ) 
+!$omp declare target(kmp_get_stacksize ) 
+!$omp declare target(kmp_get_stacksize_s ) 
+!$omp declare target(kmp_get_blocktime ) 
+!$omp declare target(kmp_get_library ) 
+!$omp declare target(kmp_set_affinity ) 
+!$omp declare target(kmp_get_affinity ) 
+!$omp declare target(kmp_get_affinity_max_proc ) 
+!$omp declare target(kmp_create_affinity_mask ) 
+!$omp declare target(kmp_destroy_affinity_mask ) 
+!$omp declare target(kmp_set_affinity_mask_proc ) 
+!$omp declare target(kmp_unset_affinity_mask_proc ) 
+!$omp declare target(kmp_get_affinity_mask_proc ) 
+!$omp declare target(kmp_malloc ) 
+!$omp declare target(kmp_calloc ) 
+!$omp declare target(kmp_realloc ) 
+!$omp declare target(kmp_free ) 
+!$omp declare target(kmp_set_warnings_on ) 
+!$omp declare target(kmp_set_warnings_off ) 
+!DIR$ ENDIF 
+!DIR$ ENDIF 
+ 
diff --git a/contrib/libs/cxxsupp/openmp/include/40/ompt.h.var b/contrib/libs/cxxsupp/openmp/include/40/ompt.h.var
index 3a8c30c165..c99ec8e677 100644
--- a/contrib/libs/cxxsupp/openmp/include/40/ompt.h.var
+++ b/contrib/libs/cxxsupp/openmp/include/40/ompt.h.var
@@ -1,487 +1,487 @@
-/*
- * include/40/ompt.h.var
- */
-
-#ifndef __OMPT__
-#define __OMPT__
-
-/*****************************************************************************
- * system include files
- *****************************************************************************/
-
-#include <stdint.h>
-
-
-
-/*****************************************************************************
- * iteration macros
- *****************************************************************************/
-
-#define FOREACH_OMPT_INQUIRY_FN(macro)  \
-    macro (ompt_enumerate_state)        \
-                                        \
-    macro (ompt_set_callback)           \
-    macro (ompt_get_callback)           \
-                                        \
-    macro (ompt_get_idle_frame)         \
-    macro (ompt_get_task_frame)         \
-                                        \
-    macro (ompt_get_state)              \
-                                        \
-    macro (ompt_get_parallel_id)        \
-    macro (ompt_get_parallel_team_size) \
-    macro (ompt_get_task_id)            \
-    macro (ompt_get_thread_id)
-
-#define FOREACH_OMPT_PLACEHOLDER_FN(macro)  \
-    macro (ompt_idle)                       \
-    macro (ompt_overhead)                   \
-    macro (ompt_barrier_wait)               \
-    macro (ompt_task_wait)                  \
-    macro (ompt_mutex_wait)
-
-#define FOREACH_OMPT_STATE(macro)                                                               \
-                                                                                                \
-    /* first */                                                                                 \
-    macro (ompt_state_first, 0x71)          /* initial enumeration state */                     \
-                                                                                                \
-    /* work states (0..15) */                                                                   \
-    macro (ompt_state_work_serial, 0x00)    /* working outside parallel */                      \
-    macro (ompt_state_work_parallel, 0x01)  /* working within parallel */                       \
-    macro (ompt_state_work_reduction, 0x02) /* performing a reduction */                        \
-                                                                                                \
-    /* idle (16..31) */                                                                         \
-    macro (ompt_state_idle, 0x10)            /* waiting for work */                             \
-                                                                                                \
-    /* overhead states (32..63) */                                                              \
-    macro (ompt_state_overhead, 0x20)        /* overhead excluding wait states */               \
-                                                                                                \
-    /* barrier wait states (64..79) */                                                          \
-    macro (ompt_state_wait_barrier, 0x40)    /* waiting at a barrier */                         \
-    macro (ompt_state_wait_barrier_implicit, 0x41)    /* implicit barrier */                    \
-    macro (ompt_state_wait_barrier_explicit, 0x42)    /* explicit barrier */                    \
-                                                                                                \
-    /* task wait states (80..95) */                                                             \
-    macro (ompt_state_wait_taskwait, 0x50)   /* waiting at a taskwait */                        \
-    macro (ompt_state_wait_taskgroup, 0x51)  /* waiting at a taskgroup */                       \
-                                                                                                \
-    /* mutex wait states (96..111) */                                                           \
-    macro (ompt_state_wait_lock, 0x60)       /* waiting for lock */                             \
-    macro (ompt_state_wait_nest_lock, 0x61)  /* waiting for nest lock */                        \
-    macro (ompt_state_wait_critical, 0x62)   /* waiting for critical */                         \
-    macro (ompt_state_wait_atomic, 0x63)     /* waiting for atomic */                           \
-    macro (ompt_state_wait_ordered, 0x64)    /* waiting for ordered */                          \
-    macro (ompt_state_wait_single, 0x6F)     /* waiting for single region (non-standard!) */    \
-                                                                                                \
-    /* misc (112..127) */                                                                       \
-    macro (ompt_state_undefined, 0x70)       /* undefined thread state */
-
-
-#define FOREACH_OMPT_EVENT(macro)                                                                               \
-                                                                                                                \
-    /*--- Mandatory Events ---*/                                                                                \
-    macro (ompt_event_parallel_begin,           ompt_new_parallel_callback_t,   1) /* parallel begin */         \
-    macro (ompt_event_parallel_end,             ompt_end_parallel_callback_t,   2) /* parallel end */           \
-                                                                                                                \
-    macro (ompt_event_task_begin,               ompt_new_task_callback_t,       3) /* task begin */             \
-    macro (ompt_event_task_end,                 ompt_task_callback_t,           4) /* task destroy */           \
-                                                                                                                \
-    macro (ompt_event_thread_begin,             ompt_thread_type_callback_t,    5) /* thread begin */           \
-    macro (ompt_event_thread_end,               ompt_thread_type_callback_t,    6) /* thread end */             \
-                                                                                                                \
-    macro (ompt_event_control,                  ompt_control_callback_t,        7) /* support control calls */  \
-                                                                                                                \
-    macro (ompt_event_runtime_shutdown,         ompt_callback_t,                8) /* runtime shutdown */       \
-                                                                                                                \
-    /*--- Optional Events (blame shifting, ompt_event_unimplemented) ---*/                                      \
-    macro (ompt_event_idle_begin,               ompt_thread_callback_t,         9) /* begin idle state */       \
-    macro (ompt_event_idle_end,                 ompt_thread_callback_t,        10) /* end idle state */         \
-                                                                                                                \
-    macro (ompt_event_wait_barrier_begin,       ompt_parallel_callback_t,      11) /* begin wait at barrier */  \
-    macro (ompt_event_wait_barrier_end,         ompt_parallel_callback_t,      12) /* end wait at barrier */    \
-                                                                                                                \
-    macro (ompt_event_wait_taskwait_begin,      ompt_parallel_callback_t,      13) /* begin wait at taskwait */ \
-    macro (ompt_event_wait_taskwait_end,        ompt_parallel_callback_t,      14) /* end wait at taskwait */   \
-                                                                                                                \
-    macro (ompt_event_wait_taskgroup_begin,     ompt_parallel_callback_t,      15) /* begin wait at taskgroup */\
-    macro (ompt_event_wait_taskgroup_end,       ompt_parallel_callback_t,      16) /* end wait at taskgroup */  \
-                                                                                                                \
-    macro (ompt_event_release_lock,             ompt_wait_callback_t,          17) /* lock release */           \
-    macro (ompt_event_release_nest_lock_last,   ompt_wait_callback_t,          18) /* last nest lock release */ \
-    macro (ompt_event_release_critical,         ompt_wait_callback_t,          19) /* critical release */       \
-                                                                                                                \
-    macro (ompt_event_release_atomic,           ompt_wait_callback_t,          20) /* atomic release */         \
-                                                                                                                \
-    macro (ompt_event_release_ordered,          ompt_wait_callback_t,          21) /* ordered release */        \
-                                                                                                                \
-    /*--- Optional Events (synchronous events, ompt_event_unimplemented) --- */                                 \
-    macro (ompt_event_implicit_task_begin,      ompt_parallel_callback_t,      22) /* implicit task begin   */  \
-    macro (ompt_event_implicit_task_end,        ompt_parallel_callback_t,      23) /* implicit task end  */     \
-                                                                                                                \
-    macro (ompt_event_initial_task_begin,       ompt_parallel_callback_t,      24) /* initial task begin   */   \
-    macro (ompt_event_initial_task_end,         ompt_parallel_callback_t,      25) /* initial task end  */      \
-                                                                                                                \
-    macro (ompt_event_task_switch,              ompt_task_pair_callback_t,     26) /* task switch */            \
-                                                                                                                \
-    macro (ompt_event_loop_begin,               ompt_new_workshare_callback_t, 27) /* task at loop begin */     \
-    macro (ompt_event_loop_end,                 ompt_parallel_callback_t,      28) /* task at loop end */       \
-                                                                                                                \
-    macro (ompt_event_sections_begin,           ompt_new_workshare_callback_t, 29) /* task at sections begin  */\
-    macro (ompt_event_sections_end,             ompt_parallel_callback_t,      30) /* task at sections end */   \
-                                                                                                                \
-    macro (ompt_event_single_in_block_begin,    ompt_new_workshare_callback_t, 31) /* task at single begin*/    \
-    macro (ompt_event_single_in_block_end,      ompt_parallel_callback_t,      32) /* task at single end */     \
-                                                                                                                \
-    macro (ompt_event_single_others_begin,      ompt_parallel_callback_t,      33) /* task at single begin */   \
-    macro (ompt_event_single_others_end,        ompt_parallel_callback_t,      34) /* task at single end */     \
-                                                                                                                \
-    macro (ompt_event_workshare_begin,          ompt_new_workshare_callback_t, 35) /* task at workshare begin */\
-    macro (ompt_event_workshare_end,            ompt_parallel_callback_t,      36) /* task at workshare end */  \
-                                                                                                                \
-    macro (ompt_event_master_begin,             ompt_parallel_callback_t,      37) /* task at master begin */   \
-    macro (ompt_event_master_end,               ompt_parallel_callback_t,      38) /* task at master end */     \
-                                                                                                                \
-    macro (ompt_event_barrier_begin,            ompt_parallel_callback_t,      39) /* task at barrier begin  */ \
-    macro (ompt_event_barrier_end,              ompt_parallel_callback_t,      40) /* task at barrier end */    \
-                                                                                                                \
-    macro (ompt_event_taskwait_begin,           ompt_parallel_callback_t,      41) /* task at taskwait begin */ \
-    macro (ompt_event_taskwait_end,             ompt_parallel_callback_t,      42) /* task at task wait end */  \
-                                                                                                                \
-    macro (ompt_event_taskgroup_begin,          ompt_parallel_callback_t,      43) /* task at taskgroup begin */\
-    macro (ompt_event_taskgroup_end,            ompt_parallel_callback_t,      44) /* task at taskgroup end */  \
-                                                                                                                \
-    macro (ompt_event_release_nest_lock_prev,   ompt_wait_callback_t,          45) /* prev nest lock release */ \
-                                                                                                                \
-    macro (ompt_event_wait_lock,                ompt_wait_callback_t,          46) /* lock wait */              \
-    macro (ompt_event_wait_nest_lock,           ompt_wait_callback_t,          47) /* nest lock wait */         \
-    macro (ompt_event_wait_critical,            ompt_wait_callback_t,          48) /* critical wait */          \
-    macro (ompt_event_wait_atomic,              ompt_wait_callback_t,          49) /* atomic wait */            \
-    macro (ompt_event_wait_ordered,             ompt_wait_callback_t,          50) /* ordered wait */           \
-                                                                                                                \
-    macro (ompt_event_acquired_lock,            ompt_wait_callback_t,          51) /* lock acquired */          \
-    macro (ompt_event_acquired_nest_lock_first, ompt_wait_callback_t,          52) /* 1st nest lock acquired */ \
-    macro (ompt_event_acquired_nest_lock_next,  ompt_wait_callback_t,          53) /* next nest lock acquired*/ \
-    macro (ompt_event_acquired_critical,        ompt_wait_callback_t,          54) /* critical acquired */      \
-    macro (ompt_event_acquired_atomic,          ompt_wait_callback_t,          55) /* atomic acquired */        \
-    macro (ompt_event_acquired_ordered,         ompt_wait_callback_t,          56) /* ordered acquired */       \
-                                                                                                                \
-    macro (ompt_event_init_lock,                ompt_wait_callback_t,          57) /* lock init */              \
-    macro (ompt_event_init_nest_lock,           ompt_wait_callback_t,          58) /* nest lock init */         \
-                                                                                                                \
-    macro (ompt_event_destroy_lock,             ompt_wait_callback_t,          59) /* lock destruction */       \
-    macro (ompt_event_destroy_nest_lock,        ompt_wait_callback_t,          60) /* nest lock destruction */  \
-                                                                                                                \
-    macro (ompt_event_flush,                    ompt_callback_t,               61) /* after executing flush */
-
-
-
-/*****************************************************************************
- * data types
- *****************************************************************************/
-
-/*---------------------
- * identifiers
- *---------------------*/
-
-typedef uint64_t ompt_thread_id_t;
-#define ompt_thread_id_none ((ompt_thread_id_t) 0)     /* non-standard */
-
-typedef uint64_t ompt_task_id_t;
-#define ompt_task_id_none ((ompt_task_id_t) 0)         /* non-standard */
-
-typedef uint64_t ompt_parallel_id_t;
-#define ompt_parallel_id_none ((ompt_parallel_id_t) 0) /* non-standard */
-
-typedef uint64_t ompt_wait_id_t;
-#define ompt_wait_id_none ((ompt_wait_id_t) 0)         /* non-standard */
-
-
-/*---------------------
- * ompt_frame_t
- *---------------------*/
-
-typedef struct ompt_frame_s {
-    void *exit_runtime_frame;    /* next frame is user code     */
-    void *reenter_runtime_frame; /* previous frame is user code */
-} ompt_frame_t;
-
-
-/*****************************************************************************
- * enumerations for thread states and runtime events
- *****************************************************************************/
-
-/*---------------------
- * runtime states
- *---------------------*/
-
-typedef enum {
-#define ompt_state_macro(state, code) state = code,
-    FOREACH_OMPT_STATE(ompt_state_macro)
-#undef ompt_state_macro
-} ompt_state_t;
-
-
-/*---------------------
- * runtime events
- *---------------------*/
-
-typedef enum {
-#define ompt_event_macro(event, callback, eventid) event = eventid,
-    FOREACH_OMPT_EVENT(ompt_event_macro)
-#undef ompt_event_macro
-} ompt_event_t;
-
-
-/*---------------------
- * set callback results
- *---------------------*/
-typedef enum {
-    ompt_set_result_registration_error              = 0,
-    ompt_set_result_event_may_occur_no_callback     = 1,
-    ompt_set_result_event_never_occurs              = 2,
-    ompt_set_result_event_may_occur_callback_some   = 3,
-    ompt_set_result_event_may_occur_callback_always = 4,
-} ompt_set_result_t;
-
-
-
-/*****************************************************************************
- * callback signatures
- *****************************************************************************/
-
-/* initialization */
-typedef void (*ompt_interface_fn_t)(void);
-
-typedef ompt_interface_fn_t (*ompt_function_lookup_t)(
-    const char *                      /* entry point to look up       */
-);
-
-/* threads */
-typedef void (*ompt_thread_callback_t) (
-    ompt_thread_id_t thread_id        /* ID of thread                 */
-);
-
-typedef enum {
-    ompt_thread_initial = 1, // start the enumeration at 1
-    ompt_thread_worker  = 2,
-    ompt_thread_other   = 3
-} ompt_thread_type_t;
-
-typedef enum {
-    ompt_invoker_program = 0,         /* program invokes master task  */
-    ompt_invoker_runtime = 1          /* runtime invokes master task  */
-} ompt_invoker_t;
-
-typedef void (*ompt_thread_type_callback_t) (
-    ompt_thread_type_t thread_type,   /* type of thread               */
-    ompt_thread_id_t thread_id        /* ID of thread                 */
-);
-
-typedef void (*ompt_wait_callback_t) (
-    ompt_wait_id_t wait_id            /* wait id                      */
-);
-
-/* parallel and workshares */
-typedef void (*ompt_parallel_callback_t) (
-    ompt_parallel_id_t parallel_id,    /* id of parallel region       */
-    ompt_task_id_t task_id             /* id of task                  */
-);
-
-typedef void (*ompt_new_workshare_callback_t) (
-    ompt_parallel_id_t parallel_id,   /* id of parallel region        */
-    ompt_task_id_t parent_task_id,    /* id of parent task            */
-    void *workshare_function          /* pointer to outlined function */
-);
-
-typedef void (*ompt_new_parallel_callback_t) (
-    ompt_task_id_t parent_task_id,    /* id of parent task            */
-    ompt_frame_t *parent_task_frame,  /* frame data of parent task    */
-    ompt_parallel_id_t parallel_id,   /* id of parallel region        */
-    uint32_t requested_team_size,     /* number of threads in team    */
-    void *parallel_function,          /* pointer to outlined function */
-    ompt_invoker_t invoker            /* who invokes master task?     */
-);
-
-typedef void (*ompt_end_parallel_callback_t) (
-    ompt_parallel_id_t parallel_id,   /* id of parallel region       */
-    ompt_task_id_t task_id,           /* id of task                  */
-    ompt_invoker_t invoker            /* who invokes master task?    */ 
-);
-
-/* tasks */
-typedef void (*ompt_task_callback_t) (
-    ompt_task_id_t task_id            /* id of task                   */
-);
-
-typedef void (*ompt_task_pair_callback_t) (
-    ompt_task_id_t first_task_id,
-    ompt_task_id_t second_task_id
-);
-
-typedef void (*ompt_new_task_callback_t) (
-    ompt_task_id_t parent_task_id,    /* id of parent task            */
-    ompt_frame_t *parent_task_frame,  /* frame data for parent task   */
-    ompt_task_id_t  new_task_id,      /* id of created task           */
-    void *task_function               /* pointer to outlined function */
-);
-
-/* program */
-typedef void (*ompt_control_callback_t) (
-    uint64_t command,                 /* command of control call      */
-    uint64_t modifier                 /* modifier of control call     */
-);
-
-typedef void (*ompt_callback_t)(void);
-
-
-/****************************************************************************
- * ompt API
- ***************************************************************************/
-
-#ifdef  __cplusplus
-extern "C" {
-#endif
-
-#define OMPT_API_FNTYPE(fn) fn##_t
-
-#define OMPT_API_FUNCTION(return_type, fn, args)  \
-    typedef return_type (*OMPT_API_FNTYPE(fn)) args
-
-
-
-/****************************************************************************
- * INQUIRY FUNCTIONS
- ***************************************************************************/
-
-/* state */
-OMPT_API_FUNCTION(ompt_state_t, ompt_get_state, (
-    ompt_wait_id_t *ompt_wait_id
-));
-
-/* thread */
-OMPT_API_FUNCTION(ompt_thread_id_t, ompt_get_thread_id, (void));
-
-OMPT_API_FUNCTION(void *, ompt_get_idle_frame, (void));
-
-/* parallel region */
-OMPT_API_FUNCTION(ompt_parallel_id_t, ompt_get_parallel_id, (
-    int ancestor_level
-));
-
-OMPT_API_FUNCTION(int, ompt_get_parallel_team_size, (
-    int ancestor_level
-));
-
-/* task */
-OMPT_API_FUNCTION(ompt_task_id_t, ompt_get_task_id, (
-    int depth
-));
-
-OMPT_API_FUNCTION(ompt_frame_t *, ompt_get_task_frame, (
-    int depth
-));
-
-
-
-/****************************************************************************
- * PLACEHOLDERS FOR PERFORMANCE REPORTING
- ***************************************************************************/
-
-/* idle */
-OMPT_API_FUNCTION(void, ompt_idle, (
-    void
-));
-
-/* overhead */
-OMPT_API_FUNCTION(void, ompt_overhead, (
-    void
-));
-
-/* barrier wait */
-OMPT_API_FUNCTION(void, ompt_barrier_wait, (
-    void
-));
-
-/* task wait */
-OMPT_API_FUNCTION(void, ompt_task_wait, (
-    void
-));
-
-/* mutex wait */
-OMPT_API_FUNCTION(void, ompt_mutex_wait, (
-    void
-));
-
-
-
-/****************************************************************************
- * INITIALIZATION FUNCTIONS
- ***************************************************************************/
-
-OMPT_API_FUNCTION(void, ompt_initialize, (
-    ompt_function_lookup_t ompt_fn_lookup,
-    const char *runtime_version,
-    unsigned int ompt_version
-));
-
-
-/* initialization interface to be defined by tool */
-ompt_initialize_t ompt_tool(void);
-
-typedef enum opt_init_mode_e {
-    ompt_init_mode_never  = 0,
-    ompt_init_mode_false  = 1,
-    ompt_init_mode_true   = 2,
-    ompt_init_mode_always = 3
-} ompt_init_mode_t;
-
-OMPT_API_FUNCTION(int, ompt_set_callback, (
-    ompt_event_t event,
-    ompt_callback_t callback
-));
-
-typedef enum ompt_set_callback_rc_e {  /* non-standard */
-    ompt_set_callback_error      = 0,
-    ompt_has_event_no_callback   = 1,
-    ompt_no_event_no_callback    = 2,
-    ompt_has_event_may_callback  = 3,
-    ompt_has_event_must_callback = 4,
-} ompt_set_callback_rc_t;
-
-
-OMPT_API_FUNCTION(int, ompt_get_callback, (
-    ompt_event_t event,
-    ompt_callback_t *callback
-));
-
-
-
-/****************************************************************************
- * MISCELLANEOUS FUNCTIONS
- ***************************************************************************/
-
-/* control */
-#if defined(_OPENMP) && (_OPENMP >= 201307)
-#pragma omp declare target
-#endif
-void ompt_control(
-    uint64_t command,
-    uint64_t modifier
-);
-#if defined(_OPENMP) && (_OPENMP >= 201307)
-#pragma omp end declare target
-#endif
-
-/* state enumeration */
-OMPT_API_FUNCTION(int, ompt_enumerate_state, (
-    int current_state,
-    int *next_state,
-    const char **next_state_name
-));
-
-#ifdef  __cplusplus
-};
-#endif
-
-#endif
-
+/* 
+ * include/40/ompt.h.var 
+ */ 
+ 
+#ifndef __OMPT__ 
+#define __OMPT__ 
+ 
+/***************************************************************************** 
+ * system include files 
+ *****************************************************************************/ 
+ 
+#include <stdint.h> 
+ 
+ 
+ 
+/***************************************************************************** 
+ * iteration macros 
+ *****************************************************************************/ 
+ 
+#define FOREACH_OMPT_INQUIRY_FN(macro)  \ 
+    macro (ompt_enumerate_state)        \ 
+                                        \ 
+    macro (ompt_set_callback)           \ 
+    macro (ompt_get_callback)           \ 
+                                        \ 
+    macro (ompt_get_idle_frame)         \ 
+    macro (ompt_get_task_frame)         \ 
+                                        \ 
+    macro (ompt_get_state)              \ 
+                                        \ 
+    macro (ompt_get_parallel_id)        \ 
+    macro (ompt_get_parallel_team_size) \ 
+    macro (ompt_get_task_id)            \ 
+    macro (ompt_get_thread_id) 
+ 
+#define FOREACH_OMPT_PLACEHOLDER_FN(macro)  \ 
+    macro (ompt_idle)                       \ 
+    macro (ompt_overhead)                   \ 
+    macro (ompt_barrier_wait)               \ 
+    macro (ompt_task_wait)                  \ 
+    macro (ompt_mutex_wait) 
+ 
+#define FOREACH_OMPT_STATE(macro)                                                               \ 
+                                                                                                \ 
+    /* first */                                                                                 \ 
+    macro (ompt_state_first, 0x71)          /* initial enumeration state */                     \ 
+                                                                                                \ 
+    /* work states (0..15) */                                                                   \ 
+    macro (ompt_state_work_serial, 0x00)    /* working outside parallel */                      \ 
+    macro (ompt_state_work_parallel, 0x01)  /* working within parallel */                       \ 
+    macro (ompt_state_work_reduction, 0x02) /* performing a reduction */                        \ 
+                                                                                                \ 
+    /* idle (16..31) */                                                                         \ 
+    macro (ompt_state_idle, 0x10)            /* waiting for work */                             \ 
+                                                                                                \ 
+    /* overhead states (32..63) */                                                              \ 
+    macro (ompt_state_overhead, 0x20)        /* overhead excluding wait states */               \ 
+                                                                                                \ 
+    /* barrier wait states (64..79) */                                                          \ 
+    macro (ompt_state_wait_barrier, 0x40)    /* waiting at a barrier */                         \ 
+    macro (ompt_state_wait_barrier_implicit, 0x41)    /* implicit barrier */                    \ 
+    macro (ompt_state_wait_barrier_explicit, 0x42)    /* explicit barrier */                    \ 
+                                                                                                \ 
+    /* task wait states (80..95) */                                                             \ 
+    macro (ompt_state_wait_taskwait, 0x50)   /* waiting at a taskwait */                        \ 
+    macro (ompt_state_wait_taskgroup, 0x51)  /* waiting at a taskgroup */                       \ 
+                                                                                                \ 
+    /* mutex wait states (96..111) */                                                           \ 
+    macro (ompt_state_wait_lock, 0x60)       /* waiting for lock */                             \ 
+    macro (ompt_state_wait_nest_lock, 0x61)  /* waiting for nest lock */                        \ 
+    macro (ompt_state_wait_critical, 0x62)   /* waiting for critical */                         \ 
+    macro (ompt_state_wait_atomic, 0x63)     /* waiting for atomic */                           \ 
+    macro (ompt_state_wait_ordered, 0x64)    /* waiting for ordered */                          \ 
+    macro (ompt_state_wait_single, 0x6F)     /* waiting for single region (non-standard!) */    \ 
+                                                                                                \ 
+    /* misc (112..127) */                                                                       \ 
+    macro (ompt_state_undefined, 0x70)       /* undefined thread state */ 
+ 
+ 
+#define FOREACH_OMPT_EVENT(macro)                                                                               \ 
+                                                                                                                \ 
+    /*--- Mandatory Events ---*/                                                                                \ 
+    macro (ompt_event_parallel_begin,           ompt_new_parallel_callback_t,   1) /* parallel begin */         \ 
+    macro (ompt_event_parallel_end,             ompt_end_parallel_callback_t,   2) /* parallel end */           \ 
+                                                                                                                \ 
+    macro (ompt_event_task_begin,               ompt_new_task_callback_t,       3) /* task begin */             \ 
+    macro (ompt_event_task_end,                 ompt_task_callback_t,           4) /* task destroy */           \ 
+                                                                                                                \ 
+    macro (ompt_event_thread_begin,             ompt_thread_type_callback_t,    5) /* thread begin */           \ 
+    macro (ompt_event_thread_end,               ompt_thread_type_callback_t,    6) /* thread end */             \ 
+                                                                                                                \ 
+    macro (ompt_event_control,                  ompt_control_callback_t,        7) /* support control calls */  \ 
+                                                                                                                \ 
+    macro (ompt_event_runtime_shutdown,         ompt_callback_t,                8) /* runtime shutdown */       \ 
+                                                                                                                \ 
+    /*--- Optional Events (blame shifting, ompt_event_unimplemented) ---*/                                      \ 
+    macro (ompt_event_idle_begin,               ompt_thread_callback_t,         9) /* begin idle state */       \ 
+    macro (ompt_event_idle_end,                 ompt_thread_callback_t,        10) /* end idle state */         \ 
+                                                                                                                \ 
+    macro (ompt_event_wait_barrier_begin,       ompt_parallel_callback_t,      11) /* begin wait at barrier */  \ 
+    macro (ompt_event_wait_barrier_end,         ompt_parallel_callback_t,      12) /* end wait at barrier */    \ 
+                                                                                                                \ 
+    macro (ompt_event_wait_taskwait_begin,      ompt_parallel_callback_t,      13) /* begin wait at taskwait */ \ 
+    macro (ompt_event_wait_taskwait_end,        ompt_parallel_callback_t,      14) /* end wait at taskwait */   \ 
+                                                                                                                \ 
+    macro (ompt_event_wait_taskgroup_begin,     ompt_parallel_callback_t,      15) /* begin wait at taskgroup */\ 
+    macro (ompt_event_wait_taskgroup_end,       ompt_parallel_callback_t,      16) /* end wait at taskgroup */  \ 
+                                                                                                                \ 
+    macro (ompt_event_release_lock,             ompt_wait_callback_t,          17) /* lock release */           \ 
+    macro (ompt_event_release_nest_lock_last,   ompt_wait_callback_t,          18) /* last nest lock release */ \ 
+    macro (ompt_event_release_critical,         ompt_wait_callback_t,          19) /* critical release */       \ 
+                                                                                                                \ 
+    macro (ompt_event_release_atomic,           ompt_wait_callback_t,          20) /* atomic release */         \ 
+                                                                                                                \ 
+    macro (ompt_event_release_ordered,          ompt_wait_callback_t,          21) /* ordered release */        \ 
+                                                                                                                \ 
+    /*--- Optional Events (synchronous events, ompt_event_unimplemented) --- */                                 \ 
+    macro (ompt_event_implicit_task_begin,      ompt_parallel_callback_t,      22) /* implicit task begin   */  \ 
+    macro (ompt_event_implicit_task_end,        ompt_parallel_callback_t,      23) /* implicit task end  */     \ 
+                                                                                                                \ 
+    macro (ompt_event_initial_task_begin,       ompt_parallel_callback_t,      24) /* initial task begin   */   \ 
+    macro (ompt_event_initial_task_end,         ompt_parallel_callback_t,      25) /* initial task end  */      \ 
+                                                                                                                \ 
+    macro (ompt_event_task_switch,              ompt_task_pair_callback_t,     26) /* task switch */            \ 
+                                                                                                                \ 
+    macro (ompt_event_loop_begin,               ompt_new_workshare_callback_t, 27) /* task at loop begin */     \ 
+    macro (ompt_event_loop_end,                 ompt_parallel_callback_t,      28) /* task at loop end */       \ 
+                                                                                                                \ 
+    macro (ompt_event_sections_begin,           ompt_new_workshare_callback_t, 29) /* task at sections begin  */\ 
+    macro (ompt_event_sections_end,             ompt_parallel_callback_t,      30) /* task at sections end */   \ 
+                                                                                                                \ 
+    macro (ompt_event_single_in_block_begin,    ompt_new_workshare_callback_t, 31) /* task at single begin*/    \ 
+    macro (ompt_event_single_in_block_end,      ompt_parallel_callback_t,      32) /* task at single end */     \ 
+                                                                                                                \ 
+    macro (ompt_event_single_others_begin,      ompt_parallel_callback_t,      33) /* task at single begin */   \ 
+    macro (ompt_event_single_others_end,        ompt_parallel_callback_t,      34) /* task at single end */     \ 
+                                                                                                                \ 
+    macro (ompt_event_workshare_begin,          ompt_new_workshare_callback_t, 35) /* task at workshare begin */\ 
+    macro (ompt_event_workshare_end,            ompt_parallel_callback_t,      36) /* task at workshare end */  \ 
+                                                                                                                \ 
+    macro (ompt_event_master_begin,             ompt_parallel_callback_t,      37) /* task at master begin */   \ 
+    macro (ompt_event_master_end,               ompt_parallel_callback_t,      38) /* task at master end */     \ 
+                                                                                                                \ 
+    macro (ompt_event_barrier_begin,            ompt_parallel_callback_t,      39) /* task at barrier begin  */ \ 
+    macro (ompt_event_barrier_end,              ompt_parallel_callback_t,      40) /* task at barrier end */    \ 
+                                                                                                                \ 
+    macro (ompt_event_taskwait_begin,           ompt_parallel_callback_t,      41) /* task at taskwait begin */ \ 
+    macro (ompt_event_taskwait_end,             ompt_parallel_callback_t,      42) /* task at task wait end */  \ 
+                                                                                                                \ 
+    macro (ompt_event_taskgroup_begin,          ompt_parallel_callback_t,      43) /* task at taskgroup begin */\ 
+    macro (ompt_event_taskgroup_end,            ompt_parallel_callback_t,      44) /* task at taskgroup end */  \ 
+                                                                                                                \ 
+    macro (ompt_event_release_nest_lock_prev,   ompt_wait_callback_t,          45) /* prev nest lock release */ \ 
+                                                                                                                \ 
+    macro (ompt_event_wait_lock,                ompt_wait_callback_t,          46) /* lock wait */              \ 
+    macro (ompt_event_wait_nest_lock,           ompt_wait_callback_t,          47) /* nest lock wait */         \ 
+    macro (ompt_event_wait_critical,            ompt_wait_callback_t,          48) /* critical wait */          \ 
+    macro (ompt_event_wait_atomic,              ompt_wait_callback_t,          49) /* atomic wait */            \ 
+    macro (ompt_event_wait_ordered,             ompt_wait_callback_t,          50) /* ordered wait */           \ 
+                                                                                                                \ 
+    macro (ompt_event_acquired_lock,            ompt_wait_callback_t,          51) /* lock acquired */          \ 
+    macro (ompt_event_acquired_nest_lock_first, ompt_wait_callback_t,          52) /* 1st nest lock acquired */ \ 
+    macro (ompt_event_acquired_nest_lock_next,  ompt_wait_callback_t,          53) /* next nest lock acquired*/ \ 
+    macro (ompt_event_acquired_critical,        ompt_wait_callback_t,          54) /* critical acquired */      \ 
+    macro (ompt_event_acquired_atomic,          ompt_wait_callback_t,          55) /* atomic acquired */        \ 
+    macro (ompt_event_acquired_ordered,         ompt_wait_callback_t,          56) /* ordered acquired */       \ 
+                                                                                                                \ 
+    macro (ompt_event_init_lock,                ompt_wait_callback_t,          57) /* lock init */              \ 
+    macro (ompt_event_init_nest_lock,           ompt_wait_callback_t,          58) /* nest lock init */         \ 
+                                                                                                                \ 
+    macro (ompt_event_destroy_lock,             ompt_wait_callback_t,          59) /* lock destruction */       \ 
+    macro (ompt_event_destroy_nest_lock,        ompt_wait_callback_t,          60) /* nest lock destruction */  \ 
+                                                                                                                \ 
+    macro (ompt_event_flush,                    ompt_callback_t,               61) /* after executing flush */ 
+ 
+ 
+ 
+/***************************************************************************** 
+ * data types 
+ *****************************************************************************/ 
+ 
+/*--------------------- 
+ * identifiers 
+ *---------------------*/ 
+ 
+typedef uint64_t ompt_thread_id_t; 
+#define ompt_thread_id_none ((ompt_thread_id_t) 0)     /* non-standard */ 
+ 
+typedef uint64_t ompt_task_id_t; 
+#define ompt_task_id_none ((ompt_task_id_t) 0)         /* non-standard */ 
+ 
+typedef uint64_t ompt_parallel_id_t; 
+#define ompt_parallel_id_none ((ompt_parallel_id_t) 0) /* non-standard */ 
+ 
+typedef uint64_t ompt_wait_id_t; 
+#define ompt_wait_id_none ((ompt_wait_id_t) 0)         /* non-standard */ 
+ 
+ 
+/*--------------------- 
+ * ompt_frame_t 
+ *---------------------*/ 
+ 
+typedef struct ompt_frame_s { 
+    void *exit_runtime_frame;    /* next frame is user code     */ 
+    void *reenter_runtime_frame; /* previous frame is user code */ 
+} ompt_frame_t; 
+ 
+ 
+/***************************************************************************** 
+ * enumerations for thread states and runtime events 
+ *****************************************************************************/ 
+ 
+/*--------------------- 
+ * runtime states 
+ *---------------------*/ 
+ 
+typedef enum { 
+#define ompt_state_macro(state, code) state = code, 
+    FOREACH_OMPT_STATE(ompt_state_macro) 
+#undef ompt_state_macro 
+} ompt_state_t; 
+ 
+ 
+/*--------------------- 
+ * runtime events 
+ *---------------------*/ 
+ 
+typedef enum { 
+#define ompt_event_macro(event, callback, eventid) event = eventid, 
+    FOREACH_OMPT_EVENT(ompt_event_macro) 
+#undef ompt_event_macro 
+} ompt_event_t; 
+ 
+ 
+/*--------------------- 
+ * set callback results 
+ *---------------------*/ 
+typedef enum { 
+    ompt_set_result_registration_error              = 0, 
+    ompt_set_result_event_may_occur_no_callback     = 1, 
+    ompt_set_result_event_never_occurs              = 2, 
+    ompt_set_result_event_may_occur_callback_some   = 3, 
+    ompt_set_result_event_may_occur_callback_always = 4, 
+} ompt_set_result_t; 
+ 
+ 
+ 
+/***************************************************************************** 
+ * callback signatures 
+ *****************************************************************************/ 
+ 
+/* initialization */ 
+typedef void (*ompt_interface_fn_t)(void); 
+ 
+typedef ompt_interface_fn_t (*ompt_function_lookup_t)( 
+    const char *                      /* entry point to look up       */ 
+); 
+ 
+/* threads */ 
+typedef void (*ompt_thread_callback_t) ( 
+    ompt_thread_id_t thread_id        /* ID of thread                 */ 
+); 
+ 
+typedef enum { 
+    ompt_thread_initial = 1, // start the enumeration at 1 
+    ompt_thread_worker  = 2, 
+    ompt_thread_other   = 3 
+} ompt_thread_type_t; 
+ 
+typedef enum { 
+    ompt_invoker_program = 0,         /* program invokes master task  */ 
+    ompt_invoker_runtime = 1          /* runtime invokes master task  */ 
+} ompt_invoker_t; 
+ 
+typedef void (*ompt_thread_type_callback_t) ( 
+    ompt_thread_type_t thread_type,   /* type of thread               */ 
+    ompt_thread_id_t thread_id        /* ID of thread                 */ 
+); 
+ 
+typedef void (*ompt_wait_callback_t) ( 
+    ompt_wait_id_t wait_id            /* wait id                      */ 
+); 
+ 
+/* parallel and workshares */ 
+typedef void (*ompt_parallel_callback_t) ( 
+    ompt_parallel_id_t parallel_id,    /* id of parallel region       */ 
+    ompt_task_id_t task_id             /* id of task                  */ 
+); 
+ 
+typedef void (*ompt_new_workshare_callback_t) ( 
+    ompt_parallel_id_t parallel_id,   /* id of parallel region        */ 
+    ompt_task_id_t parent_task_id,    /* id of parent task            */ 
+    void *workshare_function          /* pointer to outlined function */ 
+); 
+ 
+typedef void (*ompt_new_parallel_callback_t) ( 
+    ompt_task_id_t parent_task_id,    /* id of parent task            */ 
+    ompt_frame_t *parent_task_frame,  /* frame data of parent task    */ 
+    ompt_parallel_id_t parallel_id,   /* id of parallel region        */ 
+    uint32_t requested_team_size,     /* number of threads in team    */ 
+    void *parallel_function,          /* pointer to outlined function */ 
+    ompt_invoker_t invoker            /* who invokes master task?     */ 
+); 
+ 
+typedef void (*ompt_end_parallel_callback_t) ( 
+    ompt_parallel_id_t parallel_id,   /* id of parallel region       */ 
+    ompt_task_id_t task_id,           /* id of task                  */ 
+    ompt_invoker_t invoker            /* who invokes master task?    */  
+); 
+ 
+/* tasks */ 
+typedef void (*ompt_task_callback_t) ( 
+    ompt_task_id_t task_id            /* id of task                   */ 
+); 
+ 
+typedef void (*ompt_task_pair_callback_t) ( 
+    ompt_task_id_t first_task_id, 
+    ompt_task_id_t second_task_id 
+); 
+ 
+typedef void (*ompt_new_task_callback_t) ( 
+    ompt_task_id_t parent_task_id,    /* id of parent task            */ 
+    ompt_frame_t *parent_task_frame,  /* frame data for parent task   */ 
+    ompt_task_id_t  new_task_id,      /* id of created task           */ 
+    void *task_function               /* pointer to outlined function */ 
+); 
+ 
+/* program */ 
+typedef void (*ompt_control_callback_t) ( 
+    uint64_t command,                 /* command of control call      */ 
+    uint64_t modifier                 /* modifier of control call     */ 
+); 
+ 
+typedef void (*ompt_callback_t)(void); 
+ 
+ 
+/**************************************************************************** 
+ * ompt API 
+ ***************************************************************************/ 
+ 
+#ifdef  __cplusplus 
+extern "C" { 
+#endif 
+ 
+#define OMPT_API_FNTYPE(fn) fn##_t 
+ 
+#define OMPT_API_FUNCTION(return_type, fn, args)  \ 
+    typedef return_type (*OMPT_API_FNTYPE(fn)) args 
+ 
+ 
+ 
+/**************************************************************************** 
+ * INQUIRY FUNCTIONS 
+ ***************************************************************************/ 
+ 
+/* state */ 
+OMPT_API_FUNCTION(ompt_state_t, ompt_get_state, ( 
+    ompt_wait_id_t *ompt_wait_id 
+)); 
+ 
+/* thread */ 
+OMPT_API_FUNCTION(ompt_thread_id_t, ompt_get_thread_id, (void)); 
+ 
+OMPT_API_FUNCTION(void *, ompt_get_idle_frame, (void)); 
+ 
+/* parallel region */ 
+OMPT_API_FUNCTION(ompt_parallel_id_t, ompt_get_parallel_id, ( 
+    int ancestor_level 
+)); 
+ 
+OMPT_API_FUNCTION(int, ompt_get_parallel_team_size, ( 
+    int ancestor_level 
+)); 
+ 
+/* task */ 
+OMPT_API_FUNCTION(ompt_task_id_t, ompt_get_task_id, ( 
+    int depth 
+)); 
+ 
+OMPT_API_FUNCTION(ompt_frame_t *, ompt_get_task_frame, ( 
+    int depth 
+)); 
+ 
+ 
+ 
+/**************************************************************************** 
+ * PLACEHOLDERS FOR PERFORMANCE REPORTING 
+ ***************************************************************************/ 
+ 
+/* idle */ 
+OMPT_API_FUNCTION(void, ompt_idle, ( 
+    void 
+)); 
+ 
+/* overhead */ 
+OMPT_API_FUNCTION(void, ompt_overhead, ( 
+    void 
+)); 
+ 
+/* barrier wait */ 
+OMPT_API_FUNCTION(void, ompt_barrier_wait, ( 
+    void 
+)); 
+ 
+/* task wait */ 
+OMPT_API_FUNCTION(void, ompt_task_wait, ( 
+    void 
+)); 
+ 
+/* mutex wait */ 
+OMPT_API_FUNCTION(void, ompt_mutex_wait, ( 
+    void 
+)); 
+ 
+ 
+ 
+/**************************************************************************** 
+ * INITIALIZATION FUNCTIONS 
+ ***************************************************************************/ 
+ 
+OMPT_API_FUNCTION(void, ompt_initialize, ( 
+    ompt_function_lookup_t ompt_fn_lookup, 
+    const char *runtime_version, 
+    unsigned int ompt_version 
+)); 
+ 
+ 
+/* initialization interface to be defined by tool */ 
+ompt_initialize_t ompt_tool(void); 
+ 
+typedef enum opt_init_mode_e { 
+    ompt_init_mode_never  = 0, 
+    ompt_init_mode_false  = 1, 
+    ompt_init_mode_true   = 2, 
+    ompt_init_mode_always = 3 
+} ompt_init_mode_t; 
+ 
+OMPT_API_FUNCTION(int, ompt_set_callback, ( 
+    ompt_event_t event, 
+    ompt_callback_t callback 
+)); 
+ 
+typedef enum ompt_set_callback_rc_e {  /* non-standard */ 
+    ompt_set_callback_error      = 0, 
+    ompt_has_event_no_callback   = 1, 
+    ompt_no_event_no_callback    = 2, 
+    ompt_has_event_may_callback  = 3, 
+    ompt_has_event_must_callback = 4, 
+} ompt_set_callback_rc_t; 
+ 
+ 
+OMPT_API_FUNCTION(int, ompt_get_callback, ( 
+    ompt_event_t event, 
+    ompt_callback_t *callback 
+)); 
+ 
+ 
+ 
+/**************************************************************************** 
+ * MISCELLANEOUS FUNCTIONS 
+ ***************************************************************************/ 
+ 
+/* control */ 
+#if defined(_OPENMP) && (_OPENMP >= 201307) 
+#pragma omp declare target 
+#endif 
+void ompt_control( 
+    uint64_t command, 
+    uint64_t modifier 
+); 
+#if defined(_OPENMP) && (_OPENMP >= 201307) 
+#pragma omp end declare target 
+#endif 
+ 
+/* state enumeration */ 
+OMPT_API_FUNCTION(int, ompt_enumerate_state, ( 
+    int current_state, 
+    int *next_state, 
+    const char **next_state_name 
+)); 
+ 
+#ifdef  __cplusplus 
+}; 
+#endif 
+ 
+#endif 
+ 
diff --git a/contrib/libs/cxxsupp/openmp/include/41/omp.h.var b/contrib/libs/cxxsupp/openmp/include/41/omp.h.var
index 6d9fa43810..9e7c871a78 100644
--- a/contrib/libs/cxxsupp/openmp/include/41/omp.h.var
+++ b/contrib/libs/cxxsupp/openmp/include/41/omp.h.var
@@ -1,176 +1,176 @@
-/*
- * include/41/omp.h.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.
-//
-//===----------------------------------------------------------------------===//
-
-
-#ifndef __OMP_H
-#   define __OMP_H
-
-#   define KMP_VERSION_MAJOR    @LIBOMP_VERSION_MAJOR@
-#   define KMP_VERSION_MINOR    @LIBOMP_VERSION_MINOR@
-#   define KMP_VERSION_BUILD    @LIBOMP_VERSION_BUILD@
-#   define KMP_BUILD_DATE       "@LIBOMP_BUILD_DATE@"
-
-#   ifdef __cplusplus
-    extern "C" {
-#   endif
-
-#   if defined(_WIN32)
-#       define __KAI_KMPC_CONVENTION __cdecl
-#   else
-#       define __KAI_KMPC_CONVENTION
-#   endif
-
-    /* schedule kind constants */
-    typedef enum omp_sched_t {
-	omp_sched_static  = 1,
-	omp_sched_dynamic = 2,
-	omp_sched_guided  = 3,
-	omp_sched_auto    = 4
-    } omp_sched_t;
-
-    /* set API functions */
-    extern void   __KAI_KMPC_CONVENTION  omp_set_num_threads (int);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_dynamic     (int);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_nested      (int);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_max_active_levels (int);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_schedule          (omp_sched_t, int);
-
-    /* query API functions */
-    extern int    __KAI_KMPC_CONVENTION  omp_get_num_threads  (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_dynamic      (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_nested       (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_max_threads  (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_thread_num   (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_num_procs    (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_in_parallel      (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_in_final         (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_active_level        (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_level               (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_ancestor_thread_num (int);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_team_size           (int);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_thread_limit        (void);
-    extern int    __KAI_KMPC_CONVENTION  omp_get_max_active_levels   (void);
-    extern void   __KAI_KMPC_CONVENTION  omp_get_schedule            (omp_sched_t *, int *);
-
-    /* lock API functions */
-    typedef struct omp_lock_t {
-        void * _lk;
-    } omp_lock_t;
-
-    extern void   __KAI_KMPC_CONVENTION  omp_init_lock    (omp_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_lock     (omp_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_unset_lock   (omp_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_destroy_lock (omp_lock_t *);
-    extern int    __KAI_KMPC_CONVENTION  omp_test_lock    (omp_lock_t *);
-
-    /* nested lock API functions */
-    typedef struct omp_nest_lock_t {
-        void * _lk;
-    } omp_nest_lock_t;
-
-    extern void   __KAI_KMPC_CONVENTION  omp_init_nest_lock    (omp_nest_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_set_nest_lock     (omp_nest_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_unset_nest_lock   (omp_nest_lock_t *);
-    extern void   __KAI_KMPC_CONVENTION  omp_destroy_nest_lock (omp_nest_lock_t *);
-    extern int    __KAI_KMPC_CONVENTION  omp_test_nest_lock    (omp_nest_lock_t *);
-
-    /* lock hint type for dynamic user lock */
-    typedef enum omp_lock_hint_t {
-        omp_lock_hint_none           = 0,
-        omp_lock_hint_uncontended    = 1,
-        omp_lock_hint_contended      = (1<<1 ),
-        omp_lock_hint_nonspeculative = (1<<2 ),
-        omp_lock_hint_speculative    = (1<<3 ),
-        kmp_lock_hint_hle            = (1<<16),
-        kmp_lock_hint_rtm            = (1<<17),
-        kmp_lock_hint_adaptive       = (1<<18)
-    } omp_lock_hint_t;
-
-    /* hinted lock initializers */
-    extern void __KAI_KMPC_CONVENTION omp_init_lock_with_hint(omp_lock_t *, omp_lock_hint_t);
-    extern void __KAI_KMPC_CONVENTION omp_init_nest_lock_with_hint(omp_nest_lock_t *, omp_lock_hint_t);
-
-    /* time API functions */
-    extern double __KAI_KMPC_CONVENTION  omp_get_wtime (void);
-    extern double __KAI_KMPC_CONVENTION  omp_get_wtick (void);
-
-    /* OpenMP 4.0 */
-    extern int  __KAI_KMPC_CONVENTION  omp_get_default_device (void);
-    extern void __KAI_KMPC_CONVENTION  omp_set_default_device (int);
-    extern int  __KAI_KMPC_CONVENTION  omp_is_initial_device (void);
-    extern int  __KAI_KMPC_CONVENTION  omp_get_num_devices (void);
-    extern int  __KAI_KMPC_CONVENTION  omp_get_num_teams (void);
-    extern int  __KAI_KMPC_CONVENTION  omp_get_team_num (void);
-    extern int  __KAI_KMPC_CONVENTION  omp_get_cancellation (void);
-
-#   include <stdlib.h>
-    /* kmp API functions */
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_stacksize          (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_stacksize          (int);
-    extern size_t __KAI_KMPC_CONVENTION  kmp_get_stacksize_s        (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_stacksize_s        (size_t);
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_blocktime          (void);
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_library            (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_blocktime          (int);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_library            (int);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_serial     (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_turnaround (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_throughput (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_defaults           (char const *);
-
-    /* Intel affinity API */
-    typedef void * kmp_affinity_mask_t;
-
-    extern int    __KAI_KMPC_CONVENTION  kmp_set_affinity             (kmp_affinity_mask_t *);
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity             (kmp_affinity_mask_t *);
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity_max_proc    (void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_create_affinity_mask     (kmp_affinity_mask_t *);
-    extern void   __KAI_KMPC_CONVENTION  kmp_destroy_affinity_mask    (kmp_affinity_mask_t *);
-    extern int    __KAI_KMPC_CONVENTION  kmp_set_affinity_mask_proc   (int, kmp_affinity_mask_t *);
-    extern int    __KAI_KMPC_CONVENTION  kmp_unset_affinity_mask_proc (int, kmp_affinity_mask_t *);
-    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity_mask_proc   (int, kmp_affinity_mask_t *);
-
-    /* OpenMP 4.0 affinity API */
-    typedef enum omp_proc_bind_t {
-        omp_proc_bind_false = 0,
-        omp_proc_bind_true = 1,
-        omp_proc_bind_master = 2,
-        omp_proc_bind_close = 3,
-        omp_proc_bind_spread = 4
-    } omp_proc_bind_t;
-
-    extern omp_proc_bind_t __KAI_KMPC_CONVENTION omp_get_proc_bind (void);
-
-    extern void * __KAI_KMPC_CONVENTION  kmp_malloc  (size_t);
-    extern void * __KAI_KMPC_CONVENTION  kmp_calloc  (size_t, size_t);
-    extern void * __KAI_KMPC_CONVENTION  kmp_realloc (void *, size_t);
-    extern void   __KAI_KMPC_CONVENTION  kmp_free    (void *);
-
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_warnings_on(void);
-    extern void   __KAI_KMPC_CONVENTION  kmp_set_warnings_off(void);
-
-#   undef __KAI_KMPC_CONVENTION
-
-    /* Warning:
-       The following typedefs are not standard, deprecated and will be removed in a future release.
-    */
-    typedef int     omp_int_t;
-    typedef double  omp_wtime_t;
-
-#   ifdef __cplusplus
-    }
-#   endif
-
-#endif /* __OMP_H */
-
+/* 
+ * include/41/omp.h.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. 
+// 
+//===----------------------------------------------------------------------===// 
+ 
+ 
+#ifndef __OMP_H 
+#   define __OMP_H 
+ 
+#   define KMP_VERSION_MAJOR    @LIBOMP_VERSION_MAJOR@ 
+#   define KMP_VERSION_MINOR    @LIBOMP_VERSION_MINOR@ 
+#   define KMP_VERSION_BUILD    @LIBOMP_VERSION_BUILD@ 
+#   define KMP_BUILD_DATE       "@LIBOMP_BUILD_DATE@" 
+ 
+#   ifdef __cplusplus 
+    extern "C" { 
+#   endif 
+ 
+#   if defined(_WIN32) 
+#       define __KAI_KMPC_CONVENTION __cdecl 
+#   else 
+#       define __KAI_KMPC_CONVENTION 
+#   endif 
+ 
+    /* schedule kind constants */ 
+    typedef enum omp_sched_t { 
+	omp_sched_static  = 1, 
+	omp_sched_dynamic = 2, 
+	omp_sched_guided  = 3, 
+	omp_sched_auto    = 4 
+    } omp_sched_t; 
+ 
+    /* set API functions */ 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_num_threads (int); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_dynamic     (int); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_nested      (int); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_max_active_levels (int); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_schedule          (omp_sched_t, int); 
+ 
+    /* query API functions */ 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_num_threads  (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_dynamic      (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_nested       (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_max_threads  (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_thread_num   (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_num_procs    (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_in_parallel      (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_in_final         (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_active_level        (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_level               (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_ancestor_thread_num (int); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_team_size           (int); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_thread_limit        (void); 
+    extern int    __KAI_KMPC_CONVENTION  omp_get_max_active_levels   (void); 
+    extern void   __KAI_KMPC_CONVENTION  omp_get_schedule            (omp_sched_t *, int *); 
+ 
+    /* lock API functions */ 
+    typedef struct omp_lock_t { 
+        void * _lk; 
+    } omp_lock_t; 
+ 
+    extern void   __KAI_KMPC_CONVENTION  omp_init_lock    (omp_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_lock     (omp_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_unset_lock   (omp_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_destroy_lock (omp_lock_t *); 
+    extern int    __KAI_KMPC_CONVENTION  omp_test_lock    (omp_lock_t *); 
+ 
+    /* nested lock API functions */ 
+    typedef struct omp_nest_lock_t { 
+        void * _lk; 
+    } omp_nest_lock_t; 
+ 
+    extern void   __KAI_KMPC_CONVENTION  omp_init_nest_lock    (omp_nest_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_set_nest_lock     (omp_nest_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_unset_nest_lock   (omp_nest_lock_t *); 
+    extern void   __KAI_KMPC_CONVENTION  omp_destroy_nest_lock (omp_nest_lock_t *); 
+    extern int    __KAI_KMPC_CONVENTION  omp_test_nest_lock    (omp_nest_lock_t *); 
+ 
+    /* lock hint type for dynamic user lock */ 
+    typedef enum omp_lock_hint_t { 
+        omp_lock_hint_none           = 0, 
+        omp_lock_hint_uncontended    = 1, 
+        omp_lock_hint_contended      = (1<<1 ), 
+        omp_lock_hint_nonspeculative = (1<<2 ), 
+        omp_lock_hint_speculative    = (1<<3 ), 
+        kmp_lock_hint_hle            = (1<<16), 
+        kmp_lock_hint_rtm            = (1<<17), 
+        kmp_lock_hint_adaptive       = (1<<18) 
+    } omp_lock_hint_t; 
+ 
+    /* hinted lock initializers */ 
+    extern void __KAI_KMPC_CONVENTION omp_init_lock_with_hint(omp_lock_t *, omp_lock_hint_t); 
+    extern void __KAI_KMPC_CONVENTION omp_init_nest_lock_with_hint(omp_nest_lock_t *, omp_lock_hint_t); 
+ 
+    /* time API functions */ 
+    extern double __KAI_KMPC_CONVENTION  omp_get_wtime (void); 
+    extern double __KAI_KMPC_CONVENTION  omp_get_wtick (void); 
+ 
+    /* OpenMP 4.0 */ 
+    extern int  __KAI_KMPC_CONVENTION  omp_get_default_device (void); 
+    extern void __KAI_KMPC_CONVENTION  omp_set_default_device (int); 
+    extern int  __KAI_KMPC_CONVENTION  omp_is_initial_device (void); 
+    extern int  __KAI_KMPC_CONVENTION  omp_get_num_devices (void); 
+    extern int  __KAI_KMPC_CONVENTION  omp_get_num_teams (void); 
+    extern int  __KAI_KMPC_CONVENTION  omp_get_team_num (void); 
+    extern int  __KAI_KMPC_CONVENTION  omp_get_cancellation (void); 
+ 
+#   include <stdlib.h> 
+    /* kmp API functions */ 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_stacksize          (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_stacksize          (int); 
+    extern size_t __KAI_KMPC_CONVENTION  kmp_get_stacksize_s        (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_stacksize_s        (size_t); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_blocktime          (void); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_library            (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_blocktime          (int); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_library            (int); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_serial     (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_turnaround (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_library_throughput (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_defaults           (char const *); 
+ 
+    /* Intel affinity API */ 
+    typedef void * kmp_affinity_mask_t; 
+ 
+    extern int    __KAI_KMPC_CONVENTION  kmp_set_affinity             (kmp_affinity_mask_t *); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity             (kmp_affinity_mask_t *); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity_max_proc    (void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_create_affinity_mask     (kmp_affinity_mask_t *); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_destroy_affinity_mask    (kmp_affinity_mask_t *); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_set_affinity_mask_proc   (int, kmp_affinity_mask_t *); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_unset_affinity_mask_proc (int, kmp_affinity_mask_t *); 
+    extern int    __KAI_KMPC_CONVENTION  kmp_get_affinity_mask_proc   (int, kmp_affinity_mask_t *); 
+ 
+    /* OpenMP 4.0 affinity API */ 
+    typedef enum omp_proc_bind_t { 
+        omp_proc_bind_false = 0, 
+        omp_proc_bind_true = 1, 
+        omp_proc_bind_master = 2, 
+        omp_proc_bind_close = 3, 
+        omp_proc_bind_spread = 4 
+    } omp_proc_bind_t; 
+ 
+    extern omp_proc_bind_t __KAI_KMPC_CONVENTION omp_get_proc_bind (void); 
+ 
+    extern void * __KAI_KMPC_CONVENTION  kmp_malloc  (size_t); 
+    extern void * __KAI_KMPC_CONVENTION  kmp_calloc  (size_t, size_t); 
+    extern void * __KAI_KMPC_CONVENTION  kmp_realloc (void *, size_t); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_free    (void *); 
+ 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_warnings_on(void); 
+    extern void   __KAI_KMPC_CONVENTION  kmp_set_warnings_off(void); 
+ 
+#   undef __KAI_KMPC_CONVENTION 
+ 
+    /* Warning: 
+       The following typedefs are not standard, deprecated and will be removed in a future release. 
+    */ 
+    typedef int     omp_int_t; 
+    typedef double  omp_wtime_t; 
+ 
+#   ifdef __cplusplus 
+    } 
+#   endif 
+ 
+#endif /* __OMP_H */ 
+ 
diff --git a/contrib/libs/cxxsupp/openmp/include/41/omp_lib.f.var b/contrib/libs/cxxsupp/openmp/include/41/omp_lib.f.var
index c801908cd4..49eb401df4 100644
--- a/contrib/libs/cxxsupp/openmp/include/41/omp_lib.f.var
+++ b/contrib/libs/cxxsupp/openmp/include/41/omp_lib.f.var
@@ -1,788 +1,788 @@
-! include/41/omp_lib.f.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.
-!//
-!//===----------------------------------------------------------------------===//
-!
-
-!***
-!*** Some of the directives for the following routine extend past column 72,
-!*** so process this file in 132-column mode.
-!***
-
-!dec$ fixedformlinesize:132
-
-      module omp_lib_kinds
-
-        integer, parameter :: omp_integer_kind       = 4
-        integer, parameter :: omp_logical_kind       = 4
-        integer, parameter :: omp_real_kind          = 4
-        integer, parameter :: omp_lock_kind          = int_ptr_kind()
-        integer, parameter :: omp_nest_lock_kind     = int_ptr_kind()
-        integer, parameter :: omp_sched_kind         = omp_integer_kind
-        integer, parameter :: omp_proc_bind_kind     = omp_integer_kind
-        integer, parameter :: kmp_pointer_kind       = int_ptr_kind()
-        integer, parameter :: kmp_size_t_kind        = int_ptr_kind()
-        integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind()
-        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 :: 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(*), parameter :: kmp_build_date    = '@LIBOMP_BUILD_DATE@'
-        integer (kind=omp_integer_kind), parameter :: openmp_version    = @LIBOMP_OMP_YEAR_MONTH@
-
-        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)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) nthreads
-          end subroutine omp_set_num_threads
-
-          subroutine omp_set_dynamic(enable)
-            use omp_lib_kinds
-            logical (kind=omp_logical_kind) enable
-          end subroutine omp_set_dynamic
-
-          subroutine omp_set_nested(enable)
-            use omp_lib_kinds
-            logical (kind=omp_logical_kind) enable
-          end subroutine omp_set_nested
-
-          function omp_get_num_threads()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_num_threads
-          end function omp_get_num_threads
-
-          function omp_get_max_threads()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_max_threads
-          end function omp_get_max_threads
-
-          function omp_get_thread_num()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_thread_num
-          end function omp_get_thread_num
-
-          function omp_get_num_procs()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_num_procs
-          end function omp_get_num_procs
-
-          function omp_in_parallel()
-            use omp_lib_kinds
-            logical (kind=omp_logical_kind) omp_in_parallel
-          end function omp_in_parallel
-
-          function omp_get_dynamic()
-            use omp_lib_kinds
-            logical (kind=omp_logical_kind) omp_get_dynamic
-          end function omp_get_dynamic
-
-          function omp_get_nested()
-            use omp_lib_kinds
-            logical (kind=omp_logical_kind) omp_get_nested
-          end function omp_get_nested
-
-          function omp_get_thread_limit()
-            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)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) max_levels
-          end subroutine omp_set_max_active_levels
-
-          function omp_get_max_active_levels()
-            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()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_level
-          end function omp_get_level
-
-          function omp_get_active_level()
-            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)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) level
-            integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
-          end function omp_get_ancestor_thread_num
-
-          function omp_get_team_size(level)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) level
-            integer (kind=omp_integer_kind) omp_get_team_size
-          end function omp_get_team_size
-
-          subroutine omp_set_schedule(kind, modifier)
-            use omp_lib_kinds
-            integer (kind=omp_sched_kind) kind
-            integer (kind=omp_integer_kind) modifier
-          end subroutine omp_set_schedule
-
-          subroutine omp_get_schedule(kind, modifier)
-            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()
-            use omp_lib_kinds
-            integer (kind=omp_proc_bind_kind) omp_get_proc_bind
-          end function omp_get_proc_bind
-
-          function omp_get_wtime()
-            double precision omp_get_wtime
-          end function omp_get_wtime
-
-          function omp_get_wtick ()
-            double precision omp_get_wtick
-          end function omp_get_wtick
-
-          function omp_get_default_device()
-            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)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) dflt_device
-          end subroutine omp_set_default_device
-
-          function omp_get_num_devices()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_num_devices
-          end function omp_get_num_devices
-
-          function omp_get_num_teams()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_num_teams
-          end function omp_get_num_teams
-
-          function omp_get_team_num()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_team_num
-          end function omp_get_team_num
-
-          function omp_get_cancellation()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) omp_get_cancellation
-          end function omp_get_cancellation
-
-          function omp_is_initial_device()
-            use omp_lib_kinds
-            logical (kind=omp_logical_kind) omp_is_initial_device
-          end function omp_is_initial_device
-
-          subroutine omp_init_lock(lockvar)
-!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)
-!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)
-!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)
-!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)
-!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)
-!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)
-!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)
-!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)
-!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)
-!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)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) size
-          end subroutine kmp_set_stacksize
-
-          subroutine kmp_set_stacksize_s(size)
-            use omp_lib_kinds
-            integer (kind=kmp_size_t_kind) size
-          end subroutine kmp_set_stacksize_s
-
-          subroutine kmp_set_blocktime(msec)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) msec
-          end subroutine kmp_set_blocktime
-
-          subroutine kmp_set_library_serial()
-          end subroutine kmp_set_library_serial
-
-          subroutine kmp_set_library_turnaround()
-          end subroutine kmp_set_library_turnaround
-
-          subroutine kmp_set_library_throughput()
-          end subroutine kmp_set_library_throughput
-
-          subroutine kmp_set_library(libnum)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) libnum
-          end subroutine kmp_set_library
-
-          subroutine kmp_set_defaults(string)
-            character*(*) string
-          end subroutine kmp_set_defaults
-
-          function kmp_get_stacksize()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_get_stacksize
-          end function kmp_get_stacksize
-
-          function kmp_get_stacksize_s()
-            use omp_lib_kinds
-            integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
-          end function kmp_get_stacksize_s
-
-          function kmp_get_blocktime()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_get_blocktime
-          end function kmp_get_blocktime
-
-          function kmp_get_library()
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_get_library
-          end function kmp_get_library
-
-          function kmp_set_affinity(mask)
-            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)
-            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()
-            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)
-            use omp_lib_kinds
-            integer (kind=kmp_affinity_mask_kind) mask
-          end subroutine kmp_create_affinity_mask
-
-          subroutine kmp_destroy_affinity_mask(mask)
-            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)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
-            integer (kind=omp_integer_kind) proc
-            integer (kind=kmp_affinity_mask_kind) mask
-          end function kmp_set_affinity_mask_proc
-
-          function kmp_unset_affinity_mask_proc(proc, mask)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
-            integer (kind=omp_integer_kind) proc
-            integer (kind=kmp_affinity_mask_kind) mask
-          end function kmp_unset_affinity_mask_proc
-
-          function kmp_get_affinity_mask_proc(proc, mask)
-            use omp_lib_kinds
-            integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
-            integer (kind=omp_integer_kind) proc
-            integer (kind=kmp_affinity_mask_kind) mask
-          end function kmp_get_affinity_mask_proc
-
-          function kmp_malloc(size)
-            use omp_lib_kinds
-            integer (kind=kmp_pointer_kind) kmp_malloc
-            integer (kind=kmp_size_t_kind) size
-          end function kmp_malloc
-
-          function kmp_calloc(nelem, elsize)
-            use omp_lib_kinds
-            integer (kind=kmp_pointer_kind) kmp_calloc
-            integer (kind=kmp_size_t_kind) nelem
-            integer (kind=kmp_size_t_kind) elsize
-          end function kmp_calloc
-
-          function kmp_realloc(ptr, size)
-            use omp_lib_kinds
-            integer (kind=kmp_pointer_kind) kmp_realloc
-            integer (kind=kmp_pointer_kind) ptr
-            integer (kind=kmp_size_t_kind) size
-          end function kmp_realloc
-
-          subroutine kmp_free(ptr)
-            use omp_lib_kinds
-            integer (kind=kmp_pointer_kind) ptr
-          end subroutine kmp_free
-
-          subroutine kmp_set_warnings_on()
-          end subroutine kmp_set_warnings_on
-
-          subroutine kmp_set_warnings_off()
-          end subroutine kmp_set_warnings_off
-
-          function kmp_get_cancellation_status(cancelkind)
-            use omp_lib_kinds
-            integer (kind=kmp_cancel_kind) cancelkind
-            logical (kind=omp_logical_kind) kmp_get_cancellation_status
-          end function kmp_get_cancellation_status
-
-          subroutine kmp_init_lock_with_hint(lockvar, lockhint)
-            use omp_lib_kinds
-            integer (kind=omp_lock_kind) lockvar
-            integer (kind=omp_lock_hint_kind) lockhint
-          end subroutine kmp_init_lock_with_hint
-
-          subroutine kmp_init_nest_lock_with_hint(lockvar, lockhint)
-            use omp_lib_kinds
-            integer (kind=omp_nest_lock_kind) lockvar
-            integer (kind=omp_lock_hint_kind) lockhint
-          end subroutine kmp_init_nest_lock_with_hint
-
-        end interface
-
-!dec$ if defined(_WIN32)
-!dec$   if defined(_WIN64) .or. defined(_M_AMD64)
-
-!***
-!*** The Fortran entry points must be in uppercase, even if the /Qlowercase
-!*** option is specified.  The alias attribute ensures that the specified
-!*** string is used as the entry point.
-!***
-!*** On the Windows* OS IA-32 architecture, the Fortran entry points have an
-!*** underscore prepended.  On the Windows* OS Intel(R) 64
-!*** architecture, no underscore is prepended.
-!***
-
-!dec$ attributes alias:'OMP_SET_NUM_THREADS' :: omp_set_num_threads
-!dec$ attributes alias:'OMP_SET_DYNAMIC' :: omp_set_dynamic
-!dec$ attributes alias:'OMP_SET_NESTED' :: omp_set_nested
-!dec$ attributes alias:'OMP_GET_NUM_THREADS' :: omp_get_num_threads
-!dec$ attributes alias:'OMP_GET_MAX_THREADS' :: omp_get_max_threads
-!dec$ attributes alias:'OMP_GET_THREAD_NUM' :: omp_get_thread_num
-!dec$ attributes alias:'OMP_GET_NUM_PROCS' :: omp_get_num_procs
-!dec$ attributes alias:'OMP_IN_PARALLEL' :: omp_in_parallel
-!dec$ attributes alias:'OMP_GET_DYNAMIC' :: omp_get_dynamic
-!dec$ attributes alias:'OMP_GET_NESTED' :: omp_get_nested
-!dec$ attributes alias:'OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
-!dec$ attributes alias:'OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
-!dec$ attributes alias:'OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
-!dec$ attributes alias:'OMP_GET_LEVEL' :: omp_get_level
-!dec$ attributes alias:'OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
-!dec$ attributes alias:'OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
-!dec$ attributes alias:'OMP_GET_TEAM_SIZE' :: omp_get_team_size
-!dec$ attributes alias:'OMP_SET_SCHEDULE' :: omp_set_schedule
-!dec$ attributes alias:'OMP_GET_SCHEDULE' :: omp_get_schedule
-!dec$ attributes alias:'OMP_GET_PROC_BIND' :: omp_get_proc_bind
-!dec$ attributes alias:'OMP_GET_WTIME' :: omp_get_wtime
-!dec$ attributes alias:'OMP_GET_WTICK' :: omp_get_wtick
-!dec$ attributes alias:'OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device
-!dec$ attributes alias:'OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device
-!dec$ attributes alias:'OMP_GET_NUM_DEVICES' :: omp_get_num_devices
-!dec$ attributes alias:'OMP_GET_NUM_TEAMS' :: omp_get_num_teams
-!dec$ attributes alias:'OMP_GET_TEAM_NUM' :: omp_get_team_num
-!dec$ attributes alias:'OMP_GET_CANCELLATION' :: omp_get_cancellation
-!dec$ attributes alias:'OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device
-
-!dec$ attributes alias:'omp_init_lock' :: omp_init_lock
-!dec$ attributes alias:'omp_init_lock_with_hint' :: omp_init_lock_with_hint
-!dec$ attributes alias:'omp_destroy_lock' :: omp_destroy_lock
-!dec$ attributes alias:'omp_set_lock' :: omp_set_lock
-!dec$ attributes alias:'omp_unset_lock' :: omp_unset_lock
-!dec$ attributes alias:'omp_test_lock' :: omp_test_lock
-!dec$ attributes alias:'omp_init_nest_lock' :: omp_init_nest_lock
-!dec$ attributes alias:'omp_init_nest_lock_with_hint' :: omp_init_nest_lock_with_hint
-!dec$ attributes alias:'omp_destroy_nest_lock' :: omp_destroy_nest_lock
-!dec$ attributes alias:'omp_set_nest_lock' :: omp_set_nest_lock
-!dec$ attributes alias:'omp_unset_nest_lock' :: omp_unset_nest_lock
-!dec$ attributes alias:'omp_test_nest_lock' :: omp_test_nest_lock
-
-!dec$ attributes alias:'KMP_SET_STACKSIZE'::kmp_set_stacksize
-!dec$ attributes alias:'KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
-!dec$ attributes alias:'KMP_SET_BLOCKTIME'::kmp_set_blocktime
-!dec$ attributes alias:'KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
-!dec$ attributes alias:'KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
-!dec$ attributes alias:'KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
-!dec$ attributes alias:'KMP_SET_LIBRARY'::kmp_set_library
-!dec$ attributes alias:'KMP_GET_STACKSIZE'::kmp_get_stacksize
-!dec$ attributes alias:'KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
-!dec$ attributes alias:'KMP_GET_BLOCKTIME'::kmp_get_blocktime
-!dec$ attributes alias:'KMP_GET_LIBRARY'::kmp_get_library
-!dec$ attributes alias:'KMP_SET_AFFINITY'::kmp_set_affinity
-!dec$ attributes alias:'KMP_GET_AFFINITY'::kmp_get_affinity
-!dec$ attributes alias:'KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
-!dec$ attributes alias:'KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
-!dec$ attributes alias:'KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
-!dec$ attributes alias:'KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
-!dec$ attributes alias:'KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
-!dec$ attributes alias:'KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
-!dec$ attributes alias:'KMP_MALLOC'::kmp_malloc
-!dec$ attributes alias:'KMP_CALLOC'::kmp_calloc
-!dec$ attributes alias:'KMP_REALLOC'::kmp_realloc
-!dec$ attributes alias:'KMP_FREE'::kmp_free
-
-!dec$ attributes alias:'KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
-!dec$ attributes alias:'KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
-
-!dec$ attributes alias:'KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status
-
-!dec$   else
-
-!***
-!*** On Windows* OS IA-32 architecture, the Fortran entry points have an underscore prepended.
-!***
-
-!dec$ attributes alias:'_OMP_SET_NUM_THREADS' :: omp_set_num_threads
-!dec$ attributes alias:'_OMP_SET_DYNAMIC' :: omp_set_dynamic
-!dec$ attributes alias:'_OMP_SET_NESTED' :: omp_set_nested
-!dec$ attributes alias:'_OMP_GET_NUM_THREADS' :: omp_get_num_threads
-!dec$ attributes alias:'_OMP_GET_MAX_THREADS' :: omp_get_max_threads
-!dec$ attributes alias:'_OMP_GET_THREAD_NUM' :: omp_get_thread_num
-!dec$ attributes alias:'_OMP_GET_NUM_PROCS' :: omp_get_num_procs
-!dec$ attributes alias:'_OMP_IN_PARALLEL' :: omp_in_parallel
-!dec$ attributes alias:'_OMP_GET_DYNAMIC' :: omp_get_dynamic
-!dec$ attributes alias:'_OMP_GET_NESTED' :: omp_get_nested
-!dec$ attributes alias:'_OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
-!dec$ attributes alias:'_OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
-!dec$ attributes alias:'_OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
-!dec$ attributes alias:'_OMP_GET_LEVEL' :: omp_get_level
-!dec$ attributes alias:'_OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
-!dec$ attributes alias:'_OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
-!dec$ attributes alias:'_OMP_GET_TEAM_SIZE' :: omp_get_team_size
-!dec$ attributes alias:'_OMP_SET_SCHEDULE' :: omp_set_schedule
-!dec$ attributes alias:'_OMP_GET_SCHEDULE' :: omp_get_schedule
-!dec$ attributes alias:'_OMP_GET_PROC_BIND' :: omp_get_proc_bind
-!dec$ attributes alias:'_OMP_GET_WTIME' :: omp_get_wtime
-!dec$ attributes alias:'_OMP_GET_WTICK' :: omp_get_wtick
-!dec$ attributes alias:'_OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device
-!dec$ attributes alias:'_OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device
-!dec$ attributes alias:'_OMP_GET_NUM_DEVICES' :: omp_get_num_devices
-!dec$ attributes alias:'_OMP_GET_NUM_TEAMS' :: omp_get_num_teams
-!dec$ attributes alias:'_OMP_GET_TEAM_NUM' :: omp_get_team_num
-!dec$ attributes alias:'_OMP_GET_CANCELLATION' :: omp_get_cancellation
-!dec$ attributes alias:'_OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device
-
-!dec$ attributes alias:'_omp_init_lock' :: omp_init_lock
-!dec$ attributes alias:'_omp_init_lock_with_hint' :: omp_init_lock_with_hint
-!dec$ attributes alias:'_omp_destroy_lock' :: omp_destroy_lock
-!dec$ attributes alias:'_omp_set_lock' :: omp_set_lock
-!dec$ attributes alias:'_omp_unset_lock' :: omp_unset_lock
-!dec$ attributes alias:'_omp_test_lock' :: omp_test_lock
-!dec$ attributes alias:'_omp_init_nest_lock' :: omp_init_nest_lock
-!dec$ attributes alias:'_omp_init_nest_lock_with_hint' :: omp_init_nest_lock_with_hint
-!dec$ attributes alias:'_omp_destroy_nest_lock' :: omp_destroy_nest_lock
-!dec$ attributes alias:'_omp_set_nest_lock' :: omp_set_nest_lock
-!dec$ attributes alias:'_omp_unset_nest_lock' :: omp_unset_nest_lock
-!dec$ attributes alias:'_omp_test_nest_lock' :: omp_test_nest_lock
-
-!dec$ attributes alias:'_KMP_SET_STACKSIZE'::kmp_set_stacksize
-!dec$ attributes alias:'_KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
-!dec$ attributes alias:'_KMP_SET_BLOCKTIME'::kmp_set_blocktime
-!dec$ attributes alias:'_KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
-!dec$ attributes alias:'_KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
-!dec$ attributes alias:'_KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
-!dec$ attributes alias:'_KMP_SET_LIBRARY'::kmp_set_library
-!dec$ attributes alias:'_KMP_GET_STACKSIZE'::kmp_get_stacksize
-!dec$ attributes alias:'_KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
-!dec$ attributes alias:'_KMP_GET_BLOCKTIME'::kmp_get_blocktime
-!dec$ attributes alias:'_KMP_GET_LIBRARY'::kmp_get_library
-!dec$ attributes alias:'_KMP_SET_AFFINITY'::kmp_set_affinity
-!dec$ attributes alias:'_KMP_GET_AFFINITY'::kmp_get_affinity
-!dec$ attributes alias:'_KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
-!dec$ attributes alias:'_KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
-!dec$ attributes alias:'_KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
-!dec$ attributes alias:'_KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
-!dec$ attributes alias:'_KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
-!dec$ attributes alias:'_KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
-!dec$ attributes alias:'_KMP_MALLOC'::kmp_malloc
-!dec$ attributes alias:'_KMP_CALLOC'::kmp_calloc
-!dec$ attributes alias:'_KMP_REALLOC'::kmp_realloc
-!dec$ attributes alias:'_KMP_FREE'::kmp_free
-
-!dec$ attributes alias:'_KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
-!dec$ attributes alias:'_KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
-
-!dec$ attributes alias:'_KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status
-
-!dec$   endif
-!dec$ endif
-
-!dec$ if defined(__linux)
-
-!***
-!*** The Linux* OS entry points are in lowercase, with an underscore appended.
-!***
-
-!dec$ attributes alias:'omp_set_num_threads_'::omp_set_num_threads
-!dec$ attributes alias:'omp_set_dynamic_'::omp_set_dynamic
-!dec$ attributes alias:'omp_set_nested_'::omp_set_nested
-!dec$ attributes alias:'omp_get_num_threads_'::omp_get_num_threads
-!dec$ attributes alias:'omp_get_max_threads_'::omp_get_max_threads
-!dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num
-!dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs
-!dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel
-!dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic
-!dec$ attributes alias:'omp_get_nested_'::omp_get_nested
-!dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit
-!dec$ attributes alias:'omp_set_max_active_levels_'::omp_set_max_active_levels
-!dec$ attributes alias:'omp_get_max_active_levels_'::omp_get_max_active_levels
-!dec$ attributes alias:'omp_get_level_'::omp_get_level
-!dec$ attributes alias:'omp_get_active_level_'::omp_get_active_level
-!dec$ attributes alias:'omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
-!dec$ attributes alias:'omp_get_team_size_'::omp_get_team_size
-!dec$ attributes alias:'omp_set_schedule_'::omp_set_schedule
-!dec$ attributes alias:'omp_get_schedule_'::omp_get_schedule
-!dec$ attributes alias:'omp_get_proc_bind_' :: omp_get_proc_bind
-!dec$ attributes alias:'omp_get_wtime_'::omp_get_wtime
-!dec$ attributes alias:'omp_get_wtick_'::omp_get_wtick
-!dec$ attributes alias:'omp_get_default_device_'::omp_get_default_device
-!dec$ attributes alias:'omp_set_default_device_'::omp_set_default_device
-!dec$ attributes alias:'omp_get_num_devices_'::omp_get_num_devices
-!dec$ attributes alias:'omp_get_num_teams_'::omp_get_num_teams
-!dec$ attributes alias:'omp_get_team_num_'::omp_get_team_num
-!dec$ attributes alias:'omp_get_cancellation_'::omp_get_cancellation
-!dec$ attributes alias:'omp_is_initial_device_'::omp_is_initial_device
-
-!dec$ attributes alias:'omp_init_lock_'::omp_init_lock
-!dec$ attributes alias:'omp_init_lock_with_hint_'::omp_init_lock_with_hint
-!dec$ attributes alias:'omp_destroy_lock_'::omp_destroy_lock
-!dec$ attributes alias:'omp_set_lock_'::omp_set_lock
-!dec$ attributes alias:'omp_unset_lock_'::omp_unset_lock
-!dec$ attributes alias:'omp_test_lock_'::omp_test_lock
-!dec$ attributes alias:'omp_init_nest_lock_'::omp_init_nest_lock
-!dec$ attributes alias:'omp_init_nest_lock_with_hint_'::omp_init_nest_lock_with_hint
-!dec$ attributes alias:'omp_destroy_nest_lock_'::omp_destroy_nest_lock
-!dec$ attributes alias:'omp_set_nest_lock_'::omp_set_nest_lock
-!dec$ attributes alias:'omp_unset_nest_lock_'::omp_unset_nest_lock
-!dec$ attributes alias:'omp_test_nest_lock_'::omp_test_nest_lock
-
-!dec$ attributes alias:'kmp_set_stacksize_'::kmp_set_stacksize
-!dec$ attributes alias:'kmp_set_stacksize_s_'::kmp_set_stacksize_s
-!dec$ attributes alias:'kmp_set_blocktime_'::kmp_set_blocktime
-!dec$ attributes alias:'kmp_set_library_serial_'::kmp_set_library_serial
-!dec$ attributes alias:'kmp_set_library_turnaround_'::kmp_set_library_turnaround
-!dec$ attributes alias:'kmp_set_library_throughput_'::kmp_set_library_throughput
-!dec$ attributes alias:'kmp_set_library_'::kmp_set_library
-!dec$ attributes alias:'kmp_get_stacksize_'::kmp_get_stacksize
-!dec$ attributes alias:'kmp_get_stacksize_s_'::kmp_get_stacksize_s
-!dec$ attributes alias:'kmp_get_blocktime_'::kmp_get_blocktime
-!dec$ attributes alias:'kmp_get_library_'::kmp_get_library
-!dec$ attributes alias:'kmp_set_affinity_'::kmp_set_affinity
-!dec$ attributes alias:'kmp_get_affinity_'::kmp_get_affinity
-!dec$ attributes alias:'kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
-!dec$ attributes alias:'kmp_create_affinity_mask_'::kmp_create_affinity_mask
-!dec$ attributes alias:'kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
-!dec$ attributes alias:'kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
-!dec$ attributes alias:'kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
-!dec$ attributes alias:'kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
-!dec$ attributes alias:'kmp_malloc_'::kmp_malloc
-!dec$ attributes alias:'kmp_calloc_'::kmp_calloc
-!dec$ attributes alias:'kmp_realloc_'::kmp_realloc
-!dec$ attributes alias:'kmp_free_'::kmp_free
-
-!dec$ attributes alias:'kmp_set_warnings_on_'::kmp_set_warnings_on
-!dec$ attributes alias:'kmp_set_warnings_off_'::kmp_set_warnings_off
-!dec$ attributes alias:'kmp_get_cancellation_status_'::kmp_get_cancellation_status
-
-!dec$ endif
-
-!dec$ if defined(__APPLE__)
-
-!***
-!*** The Mac entry points are in lowercase, with an both an underscore
-!*** appended and an underscore prepended.
-!***
-
-!dec$ attributes alias:'_omp_set_num_threads_'::omp_set_num_threads
-!dec$ attributes alias:'_omp_set_dynamic_'::omp_set_dynamic
-!dec$ attributes alias:'_omp_set_nested_'::omp_set_nested
-!dec$ attributes alias:'_omp_get_num_threads_'::omp_get_num_threads
-!dec$ attributes alias:'_omp_get_max_threads_'::omp_get_max_threads
-!dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num
-!dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs
-!dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel
-!dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic
-!dec$ attributes alias:'_omp_get_nested_'::omp_get_nested
-!dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit
-!dec$ attributes alias:'_omp_set_max_active_levels_'::omp_set_max_active_levels
-!dec$ attributes alias:'_omp_get_max_active_levels_'::omp_get_max_active_levels
-!dec$ attributes alias:'_omp_get_level_'::omp_get_level
-!dec$ attributes alias:'_omp_get_active_level_'::omp_get_active_level
-!dec$ attributes alias:'_omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
-!dec$ attributes alias:'_omp_get_team_size_'::omp_get_team_size
-!dec$ attributes alias:'_omp_set_schedule_'::omp_set_schedule
-!dec$ attributes alias:'_omp_get_schedule_'::omp_get_schedule
-!dec$ attributes alias:'_omp_get_proc_bind_' :: omp_get_proc_bind
-!dec$ attributes alias:'_omp_get_wtime_'::omp_get_wtime
-!dec$ attributes alias:'_omp_get_wtick_'::omp_get_wtick
-!dec$ attributes alias:'_omp_get_num_teams_'::omp_get_num_teams
-!dec$ attributes alias:'_omp_get_team_num_'::omp_get_team_num
-!dec$ attributes alias:'_omp_get_cancellation_'::omp_get_cancellation
-!dec$ attributes alias:'_omp_is_initial_device_'::omp_is_initial_device
-
-!dec$ attributes alias:'_omp_init_lock_'::omp_init_lock
-!dec$ attributes alias:'_omp_init_lock_with_hint_'::omp_init_lock_with_hint
-!dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock
-!dec$ attributes alias:'_omp_set_lock_'::omp_set_lock
-!dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock
-!dec$ attributes alias:'_omp_test_lock_'::omp_test_lock
-!dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock
-!dec$ attributes alias:'_omp_init_nest_lock_with_hint_'::omp_init_nest_lock_with_hint
-!dec$ attributes alias:'_omp_destroy_nest_lock_'::omp_destroy_nest_lock
-!dec$ attributes alias:'_omp_set_nest_lock_'::omp_set_nest_lock
-!dec$ attributes alias:'_omp_unset_nest_lock_'::omp_unset_nest_lock
-!dec$ attributes alias:'_omp_test_nest_lock_'::omp_test_nest_lock
-
-!dec$ attributes alias:'_kmp_set_stacksize_'::kmp_set_stacksize
-!dec$ attributes alias:'_kmp_set_stacksize_s_'::kmp_set_stacksize_s
-!dec$ attributes alias:'_kmp_set_blocktime_'::kmp_set_blocktime
-!dec$ attributes alias:'_kmp_set_library_serial_'::kmp_set_library_serial
-!dec$ attributes alias:'_kmp_set_library_turnaround_'::kmp_set_library_turnaround
-!dec$ attributes alias:'_kmp_set_library_throughput_'::kmp_set_library_throughput
-!dec$ attributes alias:'_kmp_set_library_'::kmp_set_library
-!dec$ attributes alias:'_kmp_get_stacksize_'::kmp_get_stacksize
-!dec$ attributes alias:'_kmp_get_stacksize_s_'::kmp_get_stacksize_s
-!dec$ attributes alias:'_kmp_get_blocktime_'::kmp_get_blocktime
-!dec$ attributes alias:'_kmp_get_library_'::kmp_get_library
-!dec$ attributes alias:'_kmp_set_affinity_'::kmp_set_affinity
-!dec$ attributes alias:'_kmp_get_affinity_'::kmp_get_affinity
-!dec$ attributes alias:'_kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
-!dec$ attributes alias:'_kmp_create_affinity_mask_'::kmp_create_affinity_mask
-!dec$ attributes alias:'_kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
-!dec$ attributes alias:'_kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
-!dec$ attributes alias:'_kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
-!dec$ attributes alias:'_kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
-!dec$ attributes alias:'_kmp_malloc_'::kmp_malloc
-!dec$ attributes alias:'_kmp_calloc_'::kmp_calloc
-!dec$ attributes alias:'_kmp_realloc_'::kmp_realloc
-!dec$ attributes alias:'_kmp_free_'::kmp_free
-
-!dec$ attributes alias:'_kmp_set_warnings_on_'::kmp_set_warnings_on
-!dec$ attributes alias:'_kmp_set_warnings_off_'::kmp_set_warnings_off
-
-!dec$ attributes alias:'_kmp_get_cancellation_status_'::kmp_get_cancellation_status
-
-!dec$ endif
-
-      end module omp_lib
-
+! include/41/omp_lib.f.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. 
+!// 
+!//===----------------------------------------------------------------------===// 
+! 
+ 
+!*** 
+!*** Some of the directives for the following routine extend past column 72, 
+!*** so process this file in 132-column mode. 
+!*** 
+ 
+!dec$ fixedformlinesize:132 
+ 
+      module omp_lib_kinds 
+ 
+        integer, parameter :: omp_integer_kind       = 4 
+        integer, parameter :: omp_logical_kind       = 4 
+        integer, parameter :: omp_real_kind          = 4 
+        integer, parameter :: omp_lock_kind          = int_ptr_kind() 
+        integer, parameter :: omp_nest_lock_kind     = int_ptr_kind() 
+        integer, parameter :: omp_sched_kind         = omp_integer_kind 
+        integer, parameter :: omp_proc_bind_kind     = omp_integer_kind 
+        integer, parameter :: kmp_pointer_kind       = int_ptr_kind() 
+        integer, parameter :: kmp_size_t_kind        = int_ptr_kind() 
+        integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind() 
+        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 :: 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(*), parameter :: kmp_build_date    = '@LIBOMP_BUILD_DATE@' 
+        integer (kind=omp_integer_kind), parameter :: openmp_version    = @LIBOMP_OMP_YEAR_MONTH@ 
+ 
+        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) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) nthreads 
+          end subroutine omp_set_num_threads 
+ 
+          subroutine omp_set_dynamic(enable) 
+            use omp_lib_kinds 
+            logical (kind=omp_logical_kind) enable 
+          end subroutine omp_set_dynamic 
+ 
+          subroutine omp_set_nested(enable) 
+            use omp_lib_kinds 
+            logical (kind=omp_logical_kind) enable 
+          end subroutine omp_set_nested 
+ 
+          function omp_get_num_threads() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_num_threads 
+          end function omp_get_num_threads 
+ 
+          function omp_get_max_threads() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_max_threads 
+          end function omp_get_max_threads 
+ 
+          function omp_get_thread_num() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_thread_num 
+          end function omp_get_thread_num 
+ 
+          function omp_get_num_procs() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_num_procs 
+          end function omp_get_num_procs 
+ 
+          function omp_in_parallel() 
+            use omp_lib_kinds 
+            logical (kind=omp_logical_kind) omp_in_parallel 
+          end function omp_in_parallel 
+ 
+          function omp_get_dynamic() 
+            use omp_lib_kinds 
+            logical (kind=omp_logical_kind) omp_get_dynamic 
+          end function omp_get_dynamic 
+ 
+          function omp_get_nested() 
+            use omp_lib_kinds 
+            logical (kind=omp_logical_kind) omp_get_nested 
+          end function omp_get_nested 
+ 
+          function omp_get_thread_limit() 
+            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) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) max_levels 
+          end subroutine omp_set_max_active_levels 
+ 
+          function omp_get_max_active_levels() 
+            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() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_level 
+          end function omp_get_level 
+ 
+          function omp_get_active_level() 
+            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) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) level 
+            integer (kind=omp_integer_kind) omp_get_ancestor_thread_num 
+          end function omp_get_ancestor_thread_num 
+ 
+          function omp_get_team_size(level) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) level 
+            integer (kind=omp_integer_kind) omp_get_team_size 
+          end function omp_get_team_size 
+ 
+          subroutine omp_set_schedule(kind, modifier) 
+            use omp_lib_kinds 
+            integer (kind=omp_sched_kind) kind 
+            integer (kind=omp_integer_kind) modifier 
+          end subroutine omp_set_schedule 
+ 
+          subroutine omp_get_schedule(kind, modifier) 
+            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() 
+            use omp_lib_kinds 
+            integer (kind=omp_proc_bind_kind) omp_get_proc_bind 
+          end function omp_get_proc_bind 
+ 
+          function omp_get_wtime() 
+            double precision omp_get_wtime 
+          end function omp_get_wtime 
+ 
+          function omp_get_wtick () 
+            double precision omp_get_wtick 
+          end function omp_get_wtick 
+ 
+          function omp_get_default_device() 
+            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) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) dflt_device 
+          end subroutine omp_set_default_device 
+ 
+          function omp_get_num_devices() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_num_devices 
+          end function omp_get_num_devices 
+ 
+          function omp_get_num_teams() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_num_teams 
+          end function omp_get_num_teams 
+ 
+          function omp_get_team_num() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_team_num 
+          end function omp_get_team_num 
+ 
+          function omp_get_cancellation() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) omp_get_cancellation 
+          end function omp_get_cancellation 
+ 
+          function omp_is_initial_device() 
+            use omp_lib_kinds 
+            logical (kind=omp_logical_kind) omp_is_initial_device 
+          end function omp_is_initial_device 
+ 
+          subroutine omp_init_lock(lockvar) 
+!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) 
+!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) 
+!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) 
+!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) 
+!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) 
+!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) 
+!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) 
+!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) 
+!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) 
+!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) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) size 
+          end subroutine kmp_set_stacksize 
+ 
+          subroutine kmp_set_stacksize_s(size) 
+            use omp_lib_kinds 
+            integer (kind=kmp_size_t_kind) size 
+          end subroutine kmp_set_stacksize_s 
+ 
+          subroutine kmp_set_blocktime(msec) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) msec 
+          end subroutine kmp_set_blocktime 
+ 
+          subroutine kmp_set_library_serial() 
+          end subroutine kmp_set_library_serial 
+ 
+          subroutine kmp_set_library_turnaround() 
+          end subroutine kmp_set_library_turnaround 
+ 
+          subroutine kmp_set_library_throughput() 
+          end subroutine kmp_set_library_throughput 
+ 
+          subroutine kmp_set_library(libnum) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) libnum 
+          end subroutine kmp_set_library 
+ 
+          subroutine kmp_set_defaults(string) 
+            character*(*) string 
+          end subroutine kmp_set_defaults 
+ 
+          function kmp_get_stacksize() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_get_stacksize 
+          end function kmp_get_stacksize 
+ 
+          function kmp_get_stacksize_s() 
+            use omp_lib_kinds 
+            integer (kind=kmp_size_t_kind) kmp_get_stacksize_s 
+          end function kmp_get_stacksize_s 
+ 
+          function kmp_get_blocktime() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_get_blocktime 
+          end function kmp_get_blocktime 
+ 
+          function kmp_get_library() 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_get_library 
+          end function kmp_get_library 
+ 
+          function kmp_set_affinity(mask) 
+            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) 
+            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() 
+            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) 
+            use omp_lib_kinds 
+            integer (kind=kmp_affinity_mask_kind) mask 
+          end subroutine kmp_create_affinity_mask 
+ 
+          subroutine kmp_destroy_affinity_mask(mask) 
+            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) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc 
+            integer (kind=omp_integer_kind) proc 
+            integer (kind=kmp_affinity_mask_kind) mask 
+          end function kmp_set_affinity_mask_proc 
+ 
+          function kmp_unset_affinity_mask_proc(proc, mask) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc 
+            integer (kind=omp_integer_kind) proc 
+            integer (kind=kmp_affinity_mask_kind) mask 
+          end function kmp_unset_affinity_mask_proc 
+ 
+          function kmp_get_affinity_mask_proc(proc, mask) 
+            use omp_lib_kinds 
+            integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc 
+            integer (kind=omp_integer_kind) proc 
+            integer (kind=kmp_affinity_mask_kind) mask 
+          end function kmp_get_affinity_mask_proc 
+ 
+          function kmp_malloc(size) 
+            use omp_lib_kinds 
+            integer (kind=kmp_pointer_kind) kmp_malloc 
+            integer (kind=kmp_size_t_kind) size 
+          end function kmp_malloc 
+ 
+          function kmp_calloc(nelem, elsize) 
+            use omp_lib_kinds 
+            integer (kind=kmp_pointer_kind) kmp_calloc 
+            integer (kind=kmp_size_t_kind) nelem 
+            integer (kind=kmp_size_t_kind) elsize 
+          end function kmp_calloc 
+ 
+          function kmp_realloc(ptr, size) 
+            use omp_lib_kinds 
+            integer (kind=kmp_pointer_kind) kmp_realloc 
+            integer (kind=kmp_pointer_kind) ptr 
+            integer (kind=kmp_size_t_kind) size 
+          end function kmp_realloc 
+ 
+          subroutine kmp_free(ptr) 
+            use omp_lib_kinds 
+            integer (kind=kmp_pointer_kind) ptr 
+          end subroutine kmp_free 
+ 
+          subroutine kmp_set_warnings_on() 
+          end subroutine kmp_set_warnings_on 
+ 
+          subroutine kmp_set_warnings_off() 
+          end subroutine kmp_set_warnings_off 
+ 
+          function kmp_get_cancellation_status(cancelkind) 
+            use omp_lib_kinds 
+            integer (kind=kmp_cancel_kind) cancelkind 
+            logical (kind=omp_logical_kind) kmp_get_cancellation_status 
+          end function kmp_get_cancellation_status 
+ 
+          subroutine kmp_init_lock_with_hint(lockvar, lockhint) 
+            use omp_lib_kinds 
+            integer (kind=omp_lock_kind) lockvar 
+            integer (kind=omp_lock_hint_kind) lockhint 
+          end subroutine kmp_init_lock_with_hint 
+ 
+          subroutine kmp_init_nest_lock_with_hint(lockvar, lockhint) 
+            use omp_lib_kinds 
+            integer (kind=omp_nest_lock_kind) lockvar 
+            integer (kind=omp_lock_hint_kind) lockhint 
+          end subroutine kmp_init_nest_lock_with_hint 
+ 
+        end interface 
+ 
+!dec$ if defined(_WIN32) 
+!dec$   if defined(_WIN64) .or. defined(_M_AMD64) 
+ 
+!*** 
+!*** The Fortran entry points must be in uppercase, even if the /Qlowercase 
+!*** option is specified.  The alias attribute ensures that the specified 
+!*** string is used as the entry point. 
+!*** 
+!*** On the Windows* OS IA-32 architecture, the Fortran entry points have an 
+!*** underscore prepended.  On the Windows* OS Intel(R) 64 
+!*** architecture, no underscore is prepended. 
+!*** 
+ 
+!dec$ attributes alias:'OMP_SET_NUM_THREADS' :: omp_set_num_threads 
+!dec$ attributes alias:'OMP_SET_DYNAMIC' :: omp_set_dynamic 
+!dec$ attributes alias:'OMP_SET_NESTED' :: omp_set_nested 
+!dec$ attributes alias:'OMP_GET_NUM_THREADS' :: omp_get_num_threads 
+!dec$ attributes alias:'OMP_GET_MAX_THREADS' :: omp_get_max_threads 
+!dec$ attributes alias:'OMP_GET_THREAD_NUM' :: omp_get_thread_num 
+!dec$ attributes alias:'OMP_GET_NUM_PROCS' :: omp_get_num_procs 
+!dec$ attributes alias:'OMP_IN_PARALLEL' :: omp_in_parallel 
+!dec$ attributes alias:'OMP_GET_DYNAMIC' :: omp_get_dynamic 
+!dec$ attributes alias:'OMP_GET_NESTED' :: omp_get_nested 
+!dec$ attributes alias:'OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit 
+!dec$ attributes alias:'OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels 
+!dec$ attributes alias:'OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels 
+!dec$ attributes alias:'OMP_GET_LEVEL' :: omp_get_level 
+!dec$ attributes alias:'OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level 
+!dec$ attributes alias:'OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num 
+!dec$ attributes alias:'OMP_GET_TEAM_SIZE' :: omp_get_team_size 
+!dec$ attributes alias:'OMP_SET_SCHEDULE' :: omp_set_schedule 
+!dec$ attributes alias:'OMP_GET_SCHEDULE' :: omp_get_schedule 
+!dec$ attributes alias:'OMP_GET_PROC_BIND' :: omp_get_proc_bind 
+!dec$ attributes alias:'OMP_GET_WTIME' :: omp_get_wtime 
+!dec$ attributes alias:'OMP_GET_WTICK' :: omp_get_wtick 
+!dec$ attributes alias:'OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device 
+!dec$ attributes alias:'OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device 
+!dec$ attributes alias:'OMP_GET_NUM_DEVICES' :: omp_get_num_devices 
+!dec$ attributes alias:'OMP_GET_NUM_TEAMS' :: omp_get_num_teams 
+!dec$ attributes alias:'OMP_GET_TEAM_NUM' :: omp_get_team_num 
+!dec$ attributes alias:'OMP_GET_CANCELLATION' :: omp_get_cancellation 
+!dec$ attributes alias:'OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device 
+ 
+!dec$ attributes alias:'omp_init_lock' :: omp_init_lock 
+!dec$ attributes alias:'omp_init_lock_with_hint' :: omp_init_lock_with_hint 
+!dec$ attributes alias:'omp_destroy_lock' :: omp_destroy_lock 
+!dec$ attributes alias:'omp_set_lock' :: omp_set_lock 
+!dec$ attributes alias:'omp_unset_lock' :: omp_unset_lock 
+!dec$ attributes alias:'omp_test_lock' :: omp_test_lock 
+!dec$ attributes alias:'omp_init_nest_lock' :: omp_init_nest_lock 
+!dec$ attributes alias:'omp_init_nest_lock_with_hint' :: omp_init_nest_lock_with_hint 
+!dec$ attributes alias:'omp_destroy_nest_lock' :: omp_destroy_nest_lock 
+!dec$ attributes alias:'omp_set_nest_lock' :: omp_set_nest_lock 
+!dec$ attributes alias:'omp_unset_nest_lock' :: omp_unset_nest_lock 
+!dec$ attributes alias:'omp_test_nest_lock' :: omp_test_nest_lock 
+ 
+!dec$ attributes alias:'KMP_SET_STACKSIZE'::kmp_set_stacksize 
+!dec$ attributes alias:'KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s 
+!dec$ attributes alias:'KMP_SET_BLOCKTIME'::kmp_set_blocktime 
+!dec$ attributes alias:'KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial 
+!dec$ attributes alias:'KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround 
+!dec$ attributes alias:'KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput 
+!dec$ attributes alias:'KMP_SET_LIBRARY'::kmp_set_library 
+!dec$ attributes alias:'KMP_GET_STACKSIZE'::kmp_get_stacksize 
+!dec$ attributes alias:'KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s 
+!dec$ attributes alias:'KMP_GET_BLOCKTIME'::kmp_get_blocktime 
+!dec$ attributes alias:'KMP_GET_LIBRARY'::kmp_get_library 
+!dec$ attributes alias:'KMP_SET_AFFINITY'::kmp_set_affinity 
+!dec$ attributes alias:'KMP_GET_AFFINITY'::kmp_get_affinity 
+!dec$ attributes alias:'KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc 
+!dec$ attributes alias:'KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask 
+!dec$ attributes alias:'KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask 
+!dec$ attributes alias:'KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc 
+!dec$ attributes alias:'KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc 
+!dec$ attributes alias:'KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc 
+!dec$ attributes alias:'KMP_MALLOC'::kmp_malloc 
+!dec$ attributes alias:'KMP_CALLOC'::kmp_calloc 
+!dec$ attributes alias:'KMP_REALLOC'::kmp_realloc 
+!dec$ attributes alias:'KMP_FREE'::kmp_free 
+ 
+!dec$ attributes alias:'KMP_SET_WARNINGS_ON'::kmp_set_warnings_on 
+!dec$ attributes alias:'KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off 
+ 
+!dec$ attributes alias:'KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status 
+ 
+!dec$   else 
+ 
+!*** 
+!*** On Windows* OS IA-32 architecture, the Fortran entry points have an underscore prepended. 
+!*** 
+ 
+!dec$ attributes alias:'_OMP_SET_NUM_THREADS' :: omp_set_num_threads 
+!dec$ attributes alias:'_OMP_SET_DYNAMIC' :: omp_set_dynamic 
+!dec$ attributes alias:'_OMP_SET_NESTED' :: omp_set_nested 
+!dec$ attributes alias:'_OMP_GET_NUM_THREADS' :: omp_get_num_threads 
+!dec$ attributes alias:'_OMP_GET_MAX_THREADS' :: omp_get_max_threads 
+!dec$ attributes alias:'_OMP_GET_THREAD_NUM' :: omp_get_thread_num 
+!dec$ attributes alias:'_OMP_GET_NUM_PROCS' :: omp_get_num_procs 
+!dec$ attributes alias:'_OMP_IN_PARALLEL' :: omp_in_parallel 
+!dec$ attributes alias:'_OMP_GET_DYNAMIC' :: omp_get_dynamic 
+!dec$ attributes alias:'_OMP_GET_NESTED' :: omp_get_nested 
+!dec$ attributes alias:'_OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit 
+!dec$ attributes alias:'_OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels 
+!dec$ attributes alias:'_OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels 
+!dec$ attributes alias:'_OMP_GET_LEVEL' :: omp_get_level 
+!dec$ attributes alias:'_OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level 
+!dec$ attributes alias:'_OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num 
+!dec$ attributes alias:'_OMP_GET_TEAM_SIZE' :: omp_get_team_size 
+!dec$ attributes alias:'_OMP_SET_SCHEDULE' :: omp_set_schedule 
+!dec$ attributes alias:'_OMP_GET_SCHEDULE' :: omp_get_schedule 
+!dec$ attributes alias:'_OMP_GET_PROC_BIND' :: omp_get_proc_bind 
+!dec$ attributes alias:'_OMP_GET_WTIME' :: omp_get_wtime 
+!dec$ attributes alias:'_OMP_GET_WTICK' :: omp_get_wtick 
+!dec$ attributes alias:'_OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device 
+!dec$ attributes alias:'_OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device 
+!dec$ attributes alias:'_OMP_GET_NUM_DEVICES' :: omp_get_num_devices 
+!dec$ attributes alias:'_OMP_GET_NUM_TEAMS' :: omp_get_num_teams 
+!dec$ attributes alias:'_OMP_GET_TEAM_NUM' :: omp_get_team_num 
+!dec$ attributes alias:'_OMP_GET_CANCELLATION' :: omp_get_cancellation 
+!dec$ attributes alias:'_OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device 
+ 
+!dec$ attributes alias:'_omp_init_lock' :: omp_init_lock 
+!dec$ attributes alias:'_omp_init_lock_with_hint' :: omp_init_lock_with_hint 
+!dec$ attributes alias:'_omp_destroy_lock' :: omp_destroy_lock 
+!dec$ attributes alias:'_omp_set_lock' :: omp_set_lock 
+!dec$ attributes alias:'_omp_unset_lock' :: omp_unset_lock 
+!dec$ attributes alias:'_omp_test_lock' :: omp_test_lock 
+!dec$ attributes alias:'_omp_init_nest_lock' :: omp_init_nest_lock 
+!dec$ attributes alias:'_omp_init_nest_lock_with_hint' :: omp_init_nest_lock_with_hint 
+!dec$ attributes alias:'_omp_destroy_nest_lock' :: omp_destroy_nest_lock 
+!dec$ attributes alias:'_omp_set_nest_lock' :: omp_set_nest_lock 
+!dec$ attributes alias:'_omp_unset_nest_lock' :: omp_unset_nest_lock 
+!dec$ attributes alias:'_omp_test_nest_lock' :: omp_test_nest_lock 
+ 
+!dec$ attributes alias:'_KMP_SET_STACKSIZE'::kmp_set_stacksize 
+!dec$ attributes alias:'_KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s 
+!dec$ attributes alias:'_KMP_SET_BLOCKTIME'::kmp_set_blocktime 
+!dec$ attributes alias:'_KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial 
+!dec$ attributes alias:'_KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround 
+!dec$ attributes alias:'_KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput 
+!dec$ attributes alias:'_KMP_SET_LIBRARY'::kmp_set_library 
+!dec$ attributes alias:'_KMP_GET_STACKSIZE'::kmp_get_stacksize 
+!dec$ attributes alias:'_KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s 
+!dec$ attributes alias:'_KMP_GET_BLOCKTIME'::kmp_get_blocktime 
+!dec$ attributes alias:'_KMP_GET_LIBRARY'::kmp_get_library 
+!dec$ attributes alias:'_KMP_SET_AFFINITY'::kmp_set_affinity 
+!dec$ attributes alias:'_KMP_GET_AFFINITY'::kmp_get_affinity 
+!dec$ attributes alias:'_KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc 
+!dec$ attributes alias:'_KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask 
+!dec$ attributes alias:'_KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask 
+!dec$ attributes alias:'_KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc 
+!dec$ attributes alias:'_KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc 
+!dec$ attributes alias:'_KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc 
+!dec$ attributes alias:'_KMP_MALLOC'::kmp_malloc 
+!dec$ attributes alias:'_KMP_CALLOC'::kmp_calloc 
+!dec$ attributes alias:'_KMP_REALLOC'::kmp_realloc 
+!dec$ attributes alias:'_KMP_FREE'::kmp_free 
+ 
+!dec$ attributes alias:'_KMP_SET_WARNINGS_ON'::kmp_set_warnings_on 
+!dec$ attributes alias:'_KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off 
+ 
+!dec$ attributes alias:'_KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status 
+ 
+!dec$   endif 
+!dec$ endif 
+ 
+!dec$ if defined(__linux) 
+ 
+!*** 
+!*** The Linux* OS entry points are in lowercase, with an underscore appended. 
+!*** 
+ 
+!dec$ attributes alias:'omp_set_num_threads_'::omp_set_num_threads 
+!dec$ attributes alias:'omp_set_dynamic_'::omp_set_dynamic 
+!dec$ attributes alias:'omp_set_nested_'::omp_set_nested 
+!dec$ attributes alias:'omp_get_num_threads_'::omp_get_num_threads 
+!dec$ attributes alias:'omp_get_max_threads_'::omp_get_max_threads 
+!dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num 
+!dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs 
+!dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel 
+!dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic 
+!dec$ attributes alias:'omp_get_nested_'::omp_get_nested 
+!dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit 
+!dec$ attributes alias:'omp_set_max_active_levels_'::omp_set_max_active_levels 
+!dec$ attributes alias:'omp_get_max_active_levels_'::omp_get_max_active_levels 
+!dec$ attributes alias:'omp_get_level_'::omp_get_level 
+!dec$ attributes alias:'omp_get_active_level_'::omp_get_active_level 
+!dec$ attributes alias:'omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num 
+!dec$ attributes alias:'omp_get_team_size_'::omp_get_team_size 
+!dec$ attributes alias:'omp_set_schedule_'::omp_set_schedule 
+!dec$ attributes alias:'omp_get_schedule_'::omp_get_schedule 
+!dec$ attributes alias:'omp_get_proc_bind_' :: omp_get_proc_bind 
+!dec$ attributes alias:'omp_get_wtime_'::omp_get_wtime 
+!dec$ attributes alias:'omp_get_wtick_'::omp_get_wtick 
+!dec$ attributes alias:'omp_get_default_device_'::omp_get_default_device 
+!dec$ attributes alias:'omp_set_default_device_'::omp_set_default_device 
+!dec$ attributes alias:'omp_get_num_devices_'::omp_get_num_devices 
+!dec$ attributes alias:'omp_get_num_teams_'::omp_get_num_teams 
+!dec$ attributes alias:'omp_get_team_num_'::omp_get_team_num 
+!dec$ attributes alias:'omp_get_cancellation_'::omp_get_cancellation 
+!dec$ attributes alias:'omp_is_initial_device_'::omp_is_initial_device 
+ 
+!dec$ attributes alias:'omp_init_lock_'::omp_init_lock 
+!dec$ attributes alias:'omp_init_lock_with_hint_'::omp_init_lock_with_hint 
+!dec$ attributes alias:'omp_destroy_lock_'::omp_destroy_lock 
+!dec$ attributes alias:'omp_set_lock_'::omp_set_lock 
+!dec$ attributes alias:'omp_unset_lock_'::omp_unset_lock 
+!dec$ attributes alias:'omp_test_lock_'::omp_test_lock 
+!dec$ attributes alias:'omp_init_nest_lock_'::omp_init_nest_lock 
+!dec$ attributes alias:'omp_init_nest_lock_with_hint_'::omp_init_nest_lock_with_hint 
+!dec$ attributes alias:'omp_destroy_nest_lock_'::omp_destroy_nest_lock 
+!dec$ attributes alias:'omp_set_nest_lock_'::omp_set_nest_lock 
+!dec$ attributes alias:'omp_unset_nest_lock_'::omp_unset_nest_lock 
+!dec$ attributes alias:'omp_test_nest_lock_'::omp_test_nest_lock 
+ 
+!dec$ attributes alias:'kmp_set_stacksize_'::kmp_set_stacksize 
+!dec$ attributes alias:'kmp_set_stacksize_s_'::kmp_set_stacksize_s 
+!dec$ attributes alias:'kmp_set_blocktime_'::kmp_set_blocktime 
+!dec$ attributes alias:'kmp_set_library_serial_'::kmp_set_library_serial 
+!dec$ attributes alias:'kmp_set_library_turnaround_'::kmp_set_library_turnaround 
+!dec$ attributes alias:'kmp_set_library_throughput_'::kmp_set_library_throughput 
+!dec$ attributes alias:'kmp_set_library_'::kmp_set_library 
+!dec$ attributes alias:'kmp_get_stacksize_'::kmp_get_stacksize 
+!dec$ attributes alias:'kmp_get_stacksize_s_'::kmp_get_stacksize_s 
+!dec$ attributes alias:'kmp_get_blocktime_'::kmp_get_blocktime 
+!dec$ attributes alias:'kmp_get_library_'::kmp_get_library 
+!dec$ attributes alias:'kmp_set_affinity_'::kmp_set_affinity 
+!dec$ attributes alias:'kmp_get_affinity_'::kmp_get_affinity 
+!dec$ attributes alias:'kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc 
+!dec$ attributes alias:'kmp_create_affinity_mask_'::kmp_create_affinity_mask 
+!dec$ attributes alias:'kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask 
+!dec$ attributes alias:'kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc 
+!dec$ attributes alias:'kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc 
+!dec$ attributes alias:'kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc 
+!dec$ attributes alias:'kmp_malloc_'::kmp_malloc 
+!dec$ attributes alias:'kmp_calloc_'::kmp_calloc 
+!dec$ attributes alias:'kmp_realloc_'::kmp_realloc 
+!dec$ attributes alias:'kmp_free_'::kmp_free 
+ 
+!dec$ attributes alias:'kmp_set_warnings_on_'::kmp_set_warnings_on 
+!dec$ attributes alias:'kmp_set_warnings_off_'::kmp_set_warnings_off 
+!dec$ attributes alias:'kmp_get_cancellation_status_'::kmp_get_cancellation_status 
+ 
+!dec$ endif 
+ 
+!dec$ if defined(__APPLE__) 
+ 
+!*** 
+!*** The Mac entry points are in lowercase, with an both an underscore 
+!*** appended and an underscore prepended. 
+!*** 
+ 
+!dec$ attributes alias:'_omp_set_num_threads_'::omp_set_num_threads 
+!dec$ attributes alias:'_omp_set_dynamic_'::omp_set_dynamic 
+!dec$ attributes alias:'_omp_set_nested_'::omp_set_nested 
+!dec$ attributes alias:'_omp_get_num_threads_'::omp_get_num_threads 
+!dec$ attributes alias:'_omp_get_max_threads_'::omp_get_max_threads 
+!dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num 
+!dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs 
+!dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel 
+!dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic 
+!dec$ attributes alias:'_omp_get_nested_'::omp_get_nested 
+!dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit 
+!dec$ attributes alias:'_omp_set_max_active_levels_'::omp_set_max_active_levels 
+!dec$ attributes alias:'_omp_get_max_active_levels_'::omp_get_max_active_levels 
+!dec$ attributes alias:'_omp_get_level_'::omp_get_level 
+!dec$ attributes alias:'_omp_get_active_level_'::omp_get_active_level 
+!dec$ attributes alias:'_omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num 
+!dec$ attributes alias:'_omp_get_team_size_'::omp_get_team_size 
+!dec$ attributes alias:'_omp_set_schedule_'::omp_set_schedule 
+!dec$ attributes alias:'_omp_get_schedule_'::omp_get_schedule 
+!dec$ attributes alias:'_omp_get_proc_bind_' :: omp_get_proc_bind 
+!dec$ attributes alias:'_omp_get_wtime_'::omp_get_wtime 
+!dec$ attributes alias:'_omp_get_wtick_'::omp_get_wtick 
+!dec$ attributes alias:'_omp_get_num_teams_'::omp_get_num_teams 
+!dec$ attributes alias:'_omp_get_team_num_'::omp_get_team_num 
+!dec$ attributes alias:'_omp_get_cancellation_'::omp_get_cancellation 
+!dec$ attributes alias:'_omp_is_initial_device_'::omp_is_initial_device 
+ 
+!dec$ attributes alias:'_omp_init_lock_'::omp_init_lock 
+!dec$ attributes alias:'_omp_init_lock_with_hint_'::omp_init_lock_with_hint 
+!dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock 
+!dec$ attributes alias:'_omp_set_lock_'::omp_set_lock 
+!dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock 
+!dec$ attributes alias:'_omp_test_lock_'::omp_test_lock 
+!dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock 
+!dec$ attributes alias:'_omp_init_nest_lock_with_hint_'::omp_init_nest_lock_with_hint 
+!dec$ attributes alias:'_omp_destroy_nest_lock_'::omp_destroy_nest_lock 
+!dec$ attributes alias:'_omp_set_nest_lock_'::omp_set_nest_lock 
+!dec$ attributes alias:'_omp_unset_nest_lock_'::omp_unset_nest_lock 
+!dec$ attributes alias:'_omp_test_nest_lock_'::omp_test_nest_lock 
+ 
+!dec$ attributes alias:'_kmp_set_stacksize_'::kmp_set_stacksize 
+!dec$ attributes alias:'_kmp_set_stacksize_s_'::kmp_set_stacksize_s 
+!dec$ attributes alias:'_kmp_set_blocktime_'::kmp_set_blocktime 
+!dec$ attributes alias:'_kmp_set_library_serial_'::kmp_set_library_serial 
+!dec$ attributes alias:'_kmp_set_library_turnaround_'::kmp_set_library_turnaround 
+!dec$ attributes alias:'_kmp_set_library_throughput_'::kmp_set_library_throughput 
+!dec$ attributes alias:'_kmp_set_library_'::kmp_set_library 
+!dec$ attributes alias:'_kmp_get_stacksize_'::kmp_get_stacksize 
+!dec$ attributes alias:'_kmp_get_stacksize_s_'::kmp_get_stacksize_s 
+!dec$ attributes alias:'_kmp_get_blocktime_'::kmp_get_blocktime 
+!dec$ attributes alias:'_kmp_get_library_'::kmp_get_library 
+!dec$ attributes alias:'_kmp_set_affinity_'::kmp_set_affinity 
+!dec$ attributes alias:'_kmp_get_affinity_'::kmp_get_affinity 
+!dec$ attributes alias:'_kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc 
+!dec$ attributes alias:'_kmp_create_affinity_mask_'::kmp_create_affinity_mask 
+!dec$ attributes alias:'_kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask 
+!dec$ attributes alias:'_kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc 
+!dec$ attributes alias:'_kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc 
+!dec$ attributes alias:'_kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc 
+!dec$ attributes alias:'_kmp_malloc_'::kmp_malloc 
+!dec$ attributes alias:'_kmp_calloc_'::kmp_calloc 
+!dec$ attributes alias:'_kmp_realloc_'::kmp_realloc 
+!dec$ attributes alias:'_kmp_free_'::kmp_free 
+ 
+!dec$ attributes alias:'_kmp_set_warnings_on_'::kmp_set_warnings_on 
+!dec$ attributes alias:'_kmp_set_warnings_off_'::kmp_set_warnings_off 
+ 
+!dec$ attributes alias:'_kmp_get_cancellation_status_'::kmp_get_cancellation_status 
+ 
+!dec$ endif 
+ 
+      end module omp_lib 
+ 
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 2d23667b10..7066ee41c5 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 
diff --git a/contrib/libs/cxxsupp/openmp/include/41/omp_lib.h.var b/contrib/libs/cxxsupp/openmp/include/41/omp_lib.h.var
index 867bcd97b0..7d9a32db4c 100644
--- a/contrib/libs/cxxsupp/openmp/include/41/omp_lib.h.var
+++ b/contrib/libs/cxxsupp/openmp/include/41/omp_lib.h.var
@@ -1,584 +1,584 @@
-! include/41/omp_lib.h.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.
-!//
-!//===----------------------------------------------------------------------===//
-!
-
-!***
-!*** Some of the directives for the following routine extend past column 72,
-!*** so process this file in 132-column mode.
-!***
-
-!DIR$ fixedformlinesize:132
-
-      integer, parameter :: omp_integer_kind       = 4
-      integer, parameter :: omp_logical_kind       = 4
-      integer, parameter :: omp_real_kind          = 4
-      integer, parameter :: omp_lock_kind          = int_ptr_kind()
-      integer, parameter :: omp_nest_lock_kind     = int_ptr_kind()
-      integer, parameter :: omp_sched_kind         = omp_integer_kind
-      integer, parameter :: omp_proc_bind_kind     = omp_integer_kind
-      integer, parameter :: kmp_pointer_kind       = int_ptr_kind()
-      integer, parameter :: kmp_size_t_kind        = int_ptr_kind()
-      integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind()
-      integer, parameter :: omp_lock_hint_kind     = omp_integer_kind
-
-      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=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)
-          import
-          integer (kind=omp_integer_kind), value :: nthreads
-        end subroutine omp_set_num_threads
-
-        subroutine omp_set_dynamic(enable) bind(c)
-          import
-          logical (kind=omp_logical_kind), value :: enable
-        end subroutine omp_set_dynamic
-
-        subroutine omp_set_nested(enable) bind(c)
-          import
-          logical (kind=omp_logical_kind), value :: enable
-        end subroutine omp_set_nested
-
-        function omp_get_num_threads() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_num_threads
-        end function omp_get_num_threads
-
-        function omp_get_max_threads() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_max_threads
-        end function omp_get_max_threads
-
-        function omp_get_thread_num() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_thread_num
-        end function omp_get_thread_num
-
-        function omp_get_num_procs() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_num_procs
-        end function omp_get_num_procs
-
-        function omp_in_parallel() bind(c)
-          import
-          logical (kind=omp_logical_kind) omp_in_parallel
-        end function omp_in_parallel
-
-        function omp_in_final() bind(c)
-          import
-          logical (kind=omp_logical_kind) omp_in_final
-        end function omp_in_final
-
-        function omp_get_dynamic() bind(c)
-          import
-          logical (kind=omp_logical_kind) omp_get_dynamic
-        end function omp_get_dynamic
-
-        function omp_get_nested() bind(c)
-          import
-          logical (kind=omp_logical_kind) omp_get_nested
-        end function omp_get_nested
-
-        function omp_get_thread_limit() bind(c)
-          import
-          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)
-          import
-          integer (kind=omp_integer_kind), value :: max_levels
-        end subroutine omp_set_max_active_levels
-
-        function omp_get_max_active_levels() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_max_active_levels
-        end function omp_get_max_active_levels
-
-        function omp_get_level() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_level
-        end function omp_get_level
-
-        function omp_get_active_level() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_active_level
-        end function omp_get_active_level
-
-        function omp_get_ancestor_thread_num(level) bind(c)
-          import
-          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)
-          import
-          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)
-          import
-          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)
-          import
-          integer (kind=omp_sched_kind) kind
-          integer (kind=omp_integer_kind) modifier
-        end subroutine omp_get_schedule
-
-        function omp_get_proc_bind() bind(c)
-          import
-          integer (kind=omp_proc_bind_kind) omp_get_proc_bind
-        end function omp_get_proc_bind
-
-        function omp_get_wtime() bind(c)
-          double precision omp_get_wtime
-        end function omp_get_wtime
-
-        function omp_get_wtick() bind(c)
-          double precision omp_get_wtick
-        end function omp_get_wtick
-
-        function omp_get_default_device() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_default_device
-        end function omp_get_default_device
-
-        subroutine omp_set_default_device(dflt_device) bind(c)
-          import
-          integer (kind=omp_integer_kind), value :: dflt_device
-        end subroutine omp_set_default_device
-
-        function omp_get_num_devices() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_num_devices
-        end function omp_get_num_devices
-
-        function omp_get_num_teams() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_num_teams
-        end function omp_get_num_teams
-
-        function omp_get_team_num() bind(c)
-          import
-          integer (kind=omp_integer_kind) omp_get_team_num
-        end function omp_get_team_num
-
-        function omp_is_initial_device() bind(c)
-          import
-          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
-          import
-          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
-          import
-          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
-          import
-          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
-          import
-          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
-          import
-          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
-          import
-          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
-          import
-          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
-          import
-          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
-          import
-          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
-          import
-          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)
-          import
-          integer (kind=omp_integer_kind), value :: size
-        end subroutine kmp_set_stacksize
-
-        subroutine kmp_set_stacksize_s(size) bind(c)
-          import
-          integer (kind=kmp_size_t_kind), value :: size
-        end subroutine kmp_set_stacksize_s
-
-        subroutine kmp_set_blocktime(msec) bind(c)
-          import
-          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)
-          import
-          integer (kind=omp_integer_kind), value :: libnum
-        end subroutine kmp_set_library
-
-        subroutine kmp_set_defaults(string) bind(c)
-          character string(*)
-        end subroutine kmp_set_defaults
-
-        function kmp_get_stacksize() bind(c)
-          import
-          integer (kind=omp_integer_kind) kmp_get_stacksize
-        end function kmp_get_stacksize
-
-        function kmp_get_stacksize_s() bind(c)
-          import
-          integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
-        end function kmp_get_stacksize_s
-
-        function kmp_get_blocktime() bind(c)
-          import
-          integer (kind=omp_integer_kind) kmp_get_blocktime
-        end function kmp_get_blocktime
-
-        function kmp_get_library() bind(c)
-          import
-          integer (kind=omp_integer_kind) kmp_get_library
-        end function kmp_get_library
-
-        function kmp_set_affinity(mask) bind(c)
-          import
-          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)
-          import
-          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)
-          import
-          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)
-          import
-          integer (kind=kmp_affinity_mask_kind) mask
-        end subroutine kmp_create_affinity_mask
-
-        subroutine kmp_destroy_affinity_mask(mask) bind(c)
-          import
-          integer (kind=kmp_affinity_mask_kind) mask
-        end subroutine kmp_destroy_affinity_mask
-
-        function kmp_set_affinity_mask_proc(proc, mask) bind(c)
-          import
-          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)
-          import
-          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)
-          import
-          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)
-          import
-          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)
-          import
-          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)
-          import
-          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)
-          import
-          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
-
-        subroutine omp_init_lock_with_hint(lockvar, lockhint) bind(c)
-          import
-          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)
-          import
-          integer (kind=omp_lock_kind) lockvar
-          integer (kind=omp_lock_hint_kind), value :: lockhint
-        end subroutine omp_init_nest_lock_with_hint
-
-      end interface
-
-!DIR$ IF DEFINED (__INTEL_OFFLOAD)
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_num_threads
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_dynamic
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nested
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_threads
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_threads
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_num
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_procs
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_parallel
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_final
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_dynamic
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_nested
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_limit
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_max_active_levels
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_active_levels
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_level
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_active_level
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_ancestor_thread_num
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_size
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_schedule
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_schedule
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_proc_bind
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtime
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtick
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_default_device
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_default_device
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_is_initial_device
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_devices
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_teams
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_num
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_nest_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nest_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_nest_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_nest_lock
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize_s
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_blocktime
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_serial
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_turnaround
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_throughput
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_defaults
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize_s
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_blocktime
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_library
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_max_proc
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_create_affinity_mask
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_destroy_affinity_mask
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity_mask_proc
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_unset_affinity_mask_proc
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_mask_proc
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_malloc
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_calloc
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_realloc
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_free
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_on
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_off
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock_with_hint
-!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock_with_hint
-
-!DIR$ IF(__INTEL_COMPILER.GE.1400)
-!$omp declare target(omp_set_num_threads )
-!$omp declare target(omp_set_dynamic )
-!$omp declare target(omp_set_nested )
-!$omp declare target(omp_get_num_threads )
-!$omp declare target(omp_get_max_threads )
-!$omp declare target(omp_get_thread_num )
-!$omp declare target(omp_get_num_procs )
-!$omp declare target(omp_in_parallel )
-!$omp declare target(omp_in_final )
-!$omp declare target(omp_get_dynamic )
-!$omp declare target(omp_get_nested )
-!$omp declare target(omp_get_thread_limit )
-!$omp declare target(omp_set_max_active_levels )
-!$omp declare target(omp_get_max_active_levels )
-!$omp declare target(omp_get_level )
-!$omp declare target(omp_get_active_level )
-!$omp declare target(omp_get_ancestor_thread_num )
-!$omp declare target(omp_get_team_size )
-!$omp declare target(omp_set_schedule )
-!$omp declare target(omp_get_schedule )
-!$omp declare target(omp_get_proc_bind )
-!$omp declare target(omp_get_wtime )
-!$omp declare target(omp_get_wtick )
-!$omp declare target(omp_get_default_device )
-!$omp declare target(omp_set_default_device )
-!$omp declare target(omp_is_initial_device )
-!$omp declare target(omp_get_num_devices )
-!$omp declare target(omp_get_num_teams )
-!$omp declare target(omp_get_team_num )
-!$omp declare target(omp_init_lock )
-!$omp declare target(omp_destroy_lock )
-!$omp declare target(omp_set_lock )
-!$omp declare target(omp_unset_lock )
-!$omp declare target(omp_test_lock )
-!$omp declare target(omp_init_nest_lock )
-!$omp declare target(omp_destroy_nest_lock )
-!$omp declare target(omp_set_nest_lock )
-!$omp declare target(omp_unset_nest_lock )
-!$omp declare target(omp_test_nest_lock )
-!$omp declare target(kmp_set_stacksize )
-!$omp declare target(kmp_set_stacksize_s )
-!$omp declare target(kmp_set_blocktime )
-!$omp declare target(kmp_set_library_serial )
-!$omp declare target(kmp_set_library_turnaround )
-!$omp declare target(kmp_set_library_throughput )
-!$omp declare target(kmp_set_library )
-!$omp declare target(kmp_set_defaults )
-!$omp declare target(kmp_get_stacksize )
-!$omp declare target(kmp_get_stacksize_s )
-!$omp declare target(kmp_get_blocktime )
-!$omp declare target(kmp_get_library )
-!$omp declare target(kmp_set_affinity )
-!$omp declare target(kmp_get_affinity )
-!$omp declare target(kmp_get_affinity_max_proc )
-!$omp declare target(kmp_create_affinity_mask )
-!$omp declare target(kmp_destroy_affinity_mask )
-!$omp declare target(kmp_set_affinity_mask_proc )
-!$omp declare target(kmp_unset_affinity_mask_proc )
-!$omp declare target(kmp_get_affinity_mask_proc )
-!$omp declare target(kmp_malloc )
-!$omp declare target(kmp_calloc )
-!$omp declare target(kmp_realloc )
-!$omp declare target(kmp_free )
-!$omp declare target(kmp_set_warnings_on )
-!$omp declare target(kmp_set_warnings_off )
-!$omp declare target(omp_init_lock_with_hint )
-!$omp declare target(omp_init_nest_lock_with_hint )
-!DIR$ ENDIF
-!DIR$ ENDIF
-
+! include/41/omp_lib.h.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. 
+!// 
+!//===----------------------------------------------------------------------===// 
+! 
+ 
+!*** 
+!*** Some of the directives for the following routine extend past column 72, 
+!*** so process this file in 132-column mode. 
+!*** 
+ 
+!DIR$ fixedformlinesize:132 
+ 
+      integer, parameter :: omp_integer_kind       = 4 
+      integer, parameter :: omp_logical_kind       = 4 
+      integer, parameter :: omp_real_kind          = 4 
+      integer, parameter :: omp_lock_kind          = int_ptr_kind() 
+      integer, parameter :: omp_nest_lock_kind     = int_ptr_kind() 
+      integer, parameter :: omp_sched_kind         = omp_integer_kind 
+      integer, parameter :: omp_proc_bind_kind     = omp_integer_kind 
+      integer, parameter :: kmp_pointer_kind       = int_ptr_kind() 
+      integer, parameter :: kmp_size_t_kind        = int_ptr_kind() 
+      integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind() 
+      integer, parameter :: omp_lock_hint_kind     = omp_integer_kind 
+ 
+      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=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) 
+          import 
+          integer (kind=omp_integer_kind), value :: nthreads 
+        end subroutine omp_set_num_threads 
+ 
+        subroutine omp_set_dynamic(enable) bind(c) 
+          import 
+          logical (kind=omp_logical_kind), value :: enable 
+        end subroutine omp_set_dynamic 
+ 
+        subroutine omp_set_nested(enable) bind(c) 
+          import 
+          logical (kind=omp_logical_kind), value :: enable 
+        end subroutine omp_set_nested 
+ 
+        function omp_get_num_threads() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_num_threads 
+        end function omp_get_num_threads 
+ 
+        function omp_get_max_threads() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_max_threads 
+        end function omp_get_max_threads 
+ 
+        function omp_get_thread_num() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_thread_num 
+        end function omp_get_thread_num 
+ 
+        function omp_get_num_procs() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_num_procs 
+        end function omp_get_num_procs 
+ 
+        function omp_in_parallel() bind(c) 
+          import 
+          logical (kind=omp_logical_kind) omp_in_parallel 
+        end function omp_in_parallel 
+ 
+        function omp_in_final() bind(c) 
+          import 
+          logical (kind=omp_logical_kind) omp_in_final 
+        end function omp_in_final 
+ 
+        function omp_get_dynamic() bind(c) 
+          import 
+          logical (kind=omp_logical_kind) omp_get_dynamic 
+        end function omp_get_dynamic 
+ 
+        function omp_get_nested() bind(c) 
+          import 
+          logical (kind=omp_logical_kind) omp_get_nested 
+        end function omp_get_nested 
+ 
+        function omp_get_thread_limit() bind(c) 
+          import 
+          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) 
+          import 
+          integer (kind=omp_integer_kind), value :: max_levels 
+        end subroutine omp_set_max_active_levels 
+ 
+        function omp_get_max_active_levels() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_max_active_levels 
+        end function omp_get_max_active_levels 
+ 
+        function omp_get_level() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_level 
+        end function omp_get_level 
+ 
+        function omp_get_active_level() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_active_level 
+        end function omp_get_active_level 
+ 
+        function omp_get_ancestor_thread_num(level) bind(c) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          integer (kind=omp_sched_kind) kind 
+          integer (kind=omp_integer_kind) modifier 
+        end subroutine omp_get_schedule 
+ 
+        function omp_get_proc_bind() bind(c) 
+          import 
+          integer (kind=omp_proc_bind_kind) omp_get_proc_bind 
+        end function omp_get_proc_bind 
+ 
+        function omp_get_wtime() bind(c) 
+          double precision omp_get_wtime 
+        end function omp_get_wtime 
+ 
+        function omp_get_wtick() bind(c) 
+          double precision omp_get_wtick 
+        end function omp_get_wtick 
+ 
+        function omp_get_default_device() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_default_device 
+        end function omp_get_default_device 
+ 
+        subroutine omp_set_default_device(dflt_device) bind(c) 
+          import 
+          integer (kind=omp_integer_kind), value :: dflt_device 
+        end subroutine omp_set_default_device 
+ 
+        function omp_get_num_devices() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_num_devices 
+        end function omp_get_num_devices 
+ 
+        function omp_get_num_teams() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_num_teams 
+        end function omp_get_num_teams 
+ 
+        function omp_get_team_num() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) omp_get_team_num 
+        end function omp_get_team_num 
+ 
+        function omp_is_initial_device() bind(c) 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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 
+          import 
+          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) 
+          import 
+          integer (kind=omp_integer_kind), value :: size 
+        end subroutine kmp_set_stacksize 
+ 
+        subroutine kmp_set_stacksize_s(size) bind(c) 
+          import 
+          integer (kind=kmp_size_t_kind), value :: size 
+        end subroutine kmp_set_stacksize_s 
+ 
+        subroutine kmp_set_blocktime(msec) bind(c) 
+          import 
+          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) 
+          import 
+          integer (kind=omp_integer_kind), value :: libnum 
+        end subroutine kmp_set_library 
+ 
+        subroutine kmp_set_defaults(string) bind(c) 
+          character string(*) 
+        end subroutine kmp_set_defaults 
+ 
+        function kmp_get_stacksize() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) kmp_get_stacksize 
+        end function kmp_get_stacksize 
+ 
+        function kmp_get_stacksize_s() bind(c) 
+          import 
+          integer (kind=kmp_size_t_kind) kmp_get_stacksize_s 
+        end function kmp_get_stacksize_s 
+ 
+        function kmp_get_blocktime() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) kmp_get_blocktime 
+        end function kmp_get_blocktime 
+ 
+        function kmp_get_library() bind(c) 
+          import 
+          integer (kind=omp_integer_kind) kmp_get_library 
+        end function kmp_get_library 
+ 
+        function kmp_set_affinity(mask) bind(c) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          integer (kind=kmp_affinity_mask_kind) mask 
+        end subroutine kmp_create_affinity_mask 
+ 
+        subroutine kmp_destroy_affinity_mask(mask) bind(c) 
+          import 
+          integer (kind=kmp_affinity_mask_kind) mask 
+        end subroutine kmp_destroy_affinity_mask 
+ 
+        function kmp_set_affinity_mask_proc(proc, mask) bind(c) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          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) 
+          import 
+          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 
+ 
+        subroutine omp_init_lock_with_hint(lockvar, lockhint) bind(c) 
+          import 
+          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) 
+          import 
+          integer (kind=omp_lock_kind) lockvar 
+          integer (kind=omp_lock_hint_kind), value :: lockhint 
+        end subroutine omp_init_nest_lock_with_hint 
+ 
+      end interface 
+ 
+!DIR$ IF DEFINED (__INTEL_OFFLOAD) 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_num_threads 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_dynamic 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nested 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_threads 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_threads 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_num 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_procs 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_parallel 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_final 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_dynamic 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_nested 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_limit 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_max_active_levels 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_active_levels 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_level 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_active_level 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_ancestor_thread_num 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_size 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_schedule 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_schedule 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_proc_bind 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtime 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtick 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_default_device 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_default_device 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_is_initial_device 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_devices 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_teams 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_num 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_nest_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nest_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_nest_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_nest_lock 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize_s 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_blocktime 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_serial 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_turnaround 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_throughput 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_defaults 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize_s 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_blocktime 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_library 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_max_proc 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_create_affinity_mask 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_destroy_affinity_mask 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity_mask_proc 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_unset_affinity_mask_proc 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_mask_proc 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_malloc 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_calloc 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_realloc 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_free 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_on 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_off 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock_with_hint 
+!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock_with_hint 
+ 
+!DIR$ IF(__INTEL_COMPILER.GE.1400) 
+!$omp declare target(omp_set_num_threads ) 
+!$omp declare target(omp_set_dynamic ) 
+!$omp declare target(omp_set_nested ) 
+!$omp declare target(omp_get_num_threads ) 
+!$omp declare target(omp_get_max_threads ) 
+!$omp declare target(omp_get_thread_num ) 
+!$omp declare target(omp_get_num_procs ) 
+!$omp declare target(omp_in_parallel ) 
+!$omp declare target(omp_in_final ) 
+!$omp declare target(omp_get_dynamic ) 
+!$omp declare target(omp_get_nested ) 
+!$omp declare target(omp_get_thread_limit ) 
+!$omp declare target(omp_set_max_active_levels ) 
+!$omp declare target(omp_get_max_active_levels ) 
+!$omp declare target(omp_get_level ) 
+!$omp declare target(omp_get_active_level ) 
+!$omp declare target(omp_get_ancestor_thread_num ) 
+!$omp declare target(omp_get_team_size ) 
+!$omp declare target(omp_set_schedule ) 
+!$omp declare target(omp_get_schedule ) 
+!$omp declare target(omp_get_proc_bind ) 
+!$omp declare target(omp_get_wtime ) 
+!$omp declare target(omp_get_wtick ) 
+!$omp declare target(omp_get_default_device ) 
+!$omp declare target(omp_set_default_device ) 
+!$omp declare target(omp_is_initial_device ) 
+!$omp declare target(omp_get_num_devices ) 
+!$omp declare target(omp_get_num_teams ) 
+!$omp declare target(omp_get_team_num ) 
+!$omp declare target(omp_init_lock ) 
+!$omp declare target(omp_destroy_lock ) 
+!$omp declare target(omp_set_lock ) 
+!$omp declare target(omp_unset_lock ) 
+!$omp declare target(omp_test_lock ) 
+!$omp declare target(omp_init_nest_lock ) 
+!$omp declare target(omp_destroy_nest_lock ) 
+!$omp declare target(omp_set_nest_lock ) 
+!$omp declare target(omp_unset_nest_lock ) 
+!$omp declare target(omp_test_nest_lock ) 
+!$omp declare target(kmp_set_stacksize ) 
+!$omp declare target(kmp_set_stacksize_s ) 
+!$omp declare target(kmp_set_blocktime ) 
+!$omp declare target(kmp_set_library_serial ) 
+!$omp declare target(kmp_set_library_turnaround ) 
+!$omp declare target(kmp_set_library_throughput ) 
+!$omp declare target(kmp_set_library ) 
+!$omp declare target(kmp_set_defaults ) 
+!$omp declare target(kmp_get_stacksize ) 
+!$omp declare target(kmp_get_stacksize_s ) 
+!$omp declare target(kmp_get_blocktime ) 
+!$omp declare target(kmp_get_library ) 
+!$omp declare target(kmp_set_affinity ) 
+!$omp declare target(kmp_get_affinity ) 
+!$omp declare target(kmp_get_affinity_max_proc ) 
+!$omp declare target(kmp_create_affinity_mask ) 
+!$omp declare target(kmp_destroy_affinity_mask ) 
+!$omp declare target(kmp_set_affinity_mask_proc ) 
+!$omp declare target(kmp_unset_affinity_mask_proc ) 
+!$omp declare target(kmp_get_affinity_mask_proc ) 
+!$omp declare target(kmp_malloc ) 
+!$omp declare target(kmp_calloc ) 
+!$omp declare target(kmp_realloc ) 
+!$omp declare target(kmp_free ) 
+!$omp declare target(kmp_set_warnings_on ) 
+!$omp declare target(kmp_set_warnings_off ) 
+!$omp declare target(omp_init_lock_with_hint ) 
+!$omp declare target(omp_init_nest_lock_with_hint ) 
+!DIR$ ENDIF 
+!DIR$ ENDIF 
+ 
diff --git a/contrib/libs/cxxsupp/openmp/include/41/ompt.h.var b/contrib/libs/cxxsupp/openmp/include/41/ompt.h.var
index fbd95e858b..96818519c9 100644
--- a/contrib/libs/cxxsupp/openmp/include/41/ompt.h.var
+++ b/contrib/libs/cxxsupp/openmp/include/41/ompt.h.var
@@ -1,487 +1,487 @@
-/*
- * include/41/ompt.h.var
- */
-
-#ifndef __OMPT__
-#define __OMPT__
-
-/*****************************************************************************
- * system include files
- *****************************************************************************/
-
-#include <stdint.h>
-
-
-
-/*****************************************************************************
- * iteration macros
- *****************************************************************************/
-
-#define FOREACH_OMPT_INQUIRY_FN(macro)  \
-    macro (ompt_enumerate_state)        \
-                                        \
-    macro (ompt_set_callback)           \
-    macro (ompt_get_callback)           \
-                                        \
-    macro (ompt_get_idle_frame)         \
-    macro (ompt_get_task_frame)         \
-                                        \
-    macro (ompt_get_state)              \
-                                        \
-    macro (ompt_get_parallel_id)        \
-    macro (ompt_get_parallel_team_size) \
-    macro (ompt_get_task_id)            \
-    macro (ompt_get_thread_id)
-
-#define FOREACH_OMPT_PLACEHOLDER_FN(macro)  \
-    macro (ompt_idle)                       \
-    macro (ompt_overhead)                   \
-    macro (ompt_barrier_wait)               \
-    macro (ompt_task_wait)                  \
-    macro (ompt_mutex_wait)
-
-#define FOREACH_OMPT_STATE(macro)                                                               \
-                                                                                                \
-    /* first */                                                                                 \
-    macro (ompt_state_first, 0x71)          /* initial enumeration state */                     \
-                                                                                                \
-    /* work states (0..15) */                                                                   \
-    macro (ompt_state_work_serial, 0x00)    /* working outside parallel */                      \
-    macro (ompt_state_work_parallel, 0x01)  /* working within parallel */                       \
-    macro (ompt_state_work_reduction, 0x02) /* performing a reduction */                        \
-                                                                                                \
-    /* idle (16..31) */                                                                         \
-    macro (ompt_state_idle, 0x10)            /* waiting for work */                             \
-                                                                                                \
-    /* overhead states (32..63) */                                                              \
-    macro (ompt_state_overhead, 0x20)        /* overhead excluding wait states */               \
-                                                                                                \
-    /* barrier wait states (64..79) */                                                          \
-    macro (ompt_state_wait_barrier, 0x40)    /* waiting at a barrier */                         \
-    macro (ompt_state_wait_barrier_implicit, 0x41)    /* implicit barrier */                    \
-    macro (ompt_state_wait_barrier_explicit, 0x42)    /* explicit barrier */                    \
-                                                                                                \
-    /* task wait states (80..95) */                                                             \
-    macro (ompt_state_wait_taskwait, 0x50)   /* waiting at a taskwait */                        \
-    macro (ompt_state_wait_taskgroup, 0x51)  /* waiting at a taskgroup */                       \
-                                                                                                \
-    /* mutex wait states (96..111) */                                                           \
-    macro (ompt_state_wait_lock, 0x60)       /* waiting for lock */                             \
-    macro (ompt_state_wait_nest_lock, 0x61)  /* waiting for nest lock */                        \
-    macro (ompt_state_wait_critical, 0x62)   /* waiting for critical */                         \
-    macro (ompt_state_wait_atomic, 0x63)     /* waiting for atomic */                           \
-    macro (ompt_state_wait_ordered, 0x64)    /* waiting for ordered */                          \
-    macro (ompt_state_wait_single, 0x6F)     /* waiting for single region (non-standard!) */    \
-                                                                                                \
-    /* misc (112..127) */                                                                       \
-    macro (ompt_state_undefined, 0x70)       /* undefined thread state */
-
-
-#define FOREACH_OMPT_EVENT(macro)                                                                               \
-                                                                                                                \
-    /*--- Mandatory Events ---*/                                                                                \
-    macro (ompt_event_parallel_begin,           ompt_new_parallel_callback_t,   1) /* parallel begin */         \
-    macro (ompt_event_parallel_end,             ompt_end_parallel_callback_t,   2) /* parallel end */           \
-                                                                                                                \
-    macro (ompt_event_task_begin,               ompt_new_task_callback_t,       3) /* task begin */             \
-    macro (ompt_event_task_end,                 ompt_task_callback_t,           4) /* task destroy */           \
-                                                                                                                \
-    macro (ompt_event_thread_begin,             ompt_thread_type_callback_t,    5) /* thread begin */           \
-    macro (ompt_event_thread_end,               ompt_thread_type_callback_t,    6) /* thread end */             \
-                                                                                                                \
-    macro (ompt_event_control,                  ompt_control_callback_t,        7) /* support control calls */  \
-                                                                                                                \
-    macro (ompt_event_runtime_shutdown,         ompt_callback_t,                8) /* runtime shutdown */       \
-                                                                                                                \
-    /*--- Optional Events (blame shifting, ompt_event_unimplemented) ---*/                                      \
-    macro (ompt_event_idle_begin,               ompt_thread_callback_t,         9) /* begin idle state */       \
-    macro (ompt_event_idle_end,                 ompt_thread_callback_t,        10) /* end idle state */         \
-                                                                                                                \
-    macro (ompt_event_wait_barrier_begin,       ompt_parallel_callback_t,      11) /* begin wait at barrier */  \
-    macro (ompt_event_wait_barrier_end,         ompt_parallel_callback_t,      12) /* end wait at barrier */    \
-                                                                                                                \
-    macro (ompt_event_wait_taskwait_begin,      ompt_parallel_callback_t,      13) /* begin wait at taskwait */ \
-    macro (ompt_event_wait_taskwait_end,        ompt_parallel_callback_t,      14) /* end wait at taskwait */   \
-                                                                                                                \
-    macro (ompt_event_wait_taskgroup_begin,     ompt_parallel_callback_t,      15) /* begin wait at taskgroup */\
-    macro (ompt_event_wait_taskgroup_end,       ompt_parallel_callback_t,      16) /* end wait at taskgroup */  \
-                                                                                                                \
-    macro (ompt_event_release_lock,             ompt_wait_callback_t,          17) /* lock release */           \
-    macro (ompt_event_release_nest_lock_last,   ompt_wait_callback_t,          18) /* last nest lock release */ \
-    macro (ompt_event_release_critical,         ompt_wait_callback_t,          19) /* critical release */       \
-                                                                                                                \
-    macro (ompt_event_release_atomic,           ompt_wait_callback_t,          20) /* atomic release */         \
-                                                                                                                \
-    macro (ompt_event_release_ordered,          ompt_wait_callback_t,          21) /* ordered release */        \
-                                                                                                                \
-    /*--- Optional Events (synchronous events, ompt_event_unimplemented) --- */                                 \
-    macro (ompt_event_implicit_task_begin,      ompt_parallel_callback_t,      22) /* implicit task begin   */  \
-    macro (ompt_event_implicit_task_end,        ompt_parallel_callback_t,      23) /* implicit task end  */     \
-                                                                                                                \
-    macro (ompt_event_initial_task_begin,       ompt_parallel_callback_t,      24) /* initial task begin   */   \
-    macro (ompt_event_initial_task_end,         ompt_parallel_callback_t,      25) /* initial task end  */      \
-                                                                                                                \
-    macro (ompt_event_task_switch,              ompt_task_pair_callback_t,     26) /* task switch */            \
-                                                                                                                \
-    macro (ompt_event_loop_begin,               ompt_new_workshare_callback_t, 27) /* task at loop begin */     \
-    macro (ompt_event_loop_end,                 ompt_parallel_callback_t,      28) /* task at loop end */       \
-                                                                                                                \
-    macro (ompt_event_sections_begin,           ompt_new_workshare_callback_t, 29) /* task at sections begin  */\
-    macro (ompt_event_sections_end,             ompt_parallel_callback_t,      30) /* task at sections end */   \
-                                                                                                                \
-    macro (ompt_event_single_in_block_begin,    ompt_new_workshare_callback_t, 31) /* task at single begin*/    \
-    macro (ompt_event_single_in_block_end,      ompt_parallel_callback_t,      32) /* task at single end */     \
-                                                                                                                \
-    macro (ompt_event_single_others_begin,      ompt_parallel_callback_t,      33) /* task at single begin */   \
-    macro (ompt_event_single_others_end,        ompt_parallel_callback_t,      34) /* task at single end */     \
-                                                                                                                \
-    macro (ompt_event_workshare_begin,          ompt_new_workshare_callback_t, 35) /* task at workshare begin */\
-    macro (ompt_event_workshare_end,            ompt_parallel_callback_t,      36) /* task at workshare end */  \
-                                                                                                                \
-    macro (ompt_event_master_begin,             ompt_parallel_callback_t,      37) /* task at master begin */   \
-    macro (ompt_event_master_end,               ompt_parallel_callback_t,      38) /* task at master end */     \
-                                                                                                                \
-    macro (ompt_event_barrier_begin,            ompt_parallel_callback_t,      39) /* task at barrier begin  */ \
-    macro (ompt_event_barrier_end,              ompt_parallel_callback_t,      40) /* task at barrier end */    \
-                                                                                                                \
-    macro (ompt_event_taskwait_begin,           ompt_parallel_callback_t,      41) /* task at taskwait begin */ \
-    macro (ompt_event_taskwait_end,             ompt_parallel_callback_t,      42) /* task at task wait end */  \
-                                                                                                                \
-    macro (ompt_event_taskgroup_begin,          ompt_parallel_callback_t,      43) /* task at taskgroup begin */\
-    macro (ompt_event_taskgroup_end,            ompt_parallel_callback_t,      44) /* task at taskgroup end */  \
-                                                                                                                \
-    macro (ompt_event_release_nest_lock_prev,   ompt_wait_callback_t,          45) /* prev nest lock release */ \
-                                                                                                                \
-    macro (ompt_event_wait_lock,                ompt_wait_callback_t,          46) /* lock wait */              \
-    macro (ompt_event_wait_nest_lock,           ompt_wait_callback_t,          47) /* nest lock wait */         \
-    macro (ompt_event_wait_critical,            ompt_wait_callback_t,          48) /* critical wait */          \
-    macro (ompt_event_wait_atomic,              ompt_wait_callback_t,          49) /* atomic wait */            \
-    macro (ompt_event_wait_ordered,             ompt_wait_callback_t,          50) /* ordered wait */           \
-                                                                                                                \
-    macro (ompt_event_acquired_lock,            ompt_wait_callback_t,          51) /* lock acquired */          \
-    macro (ompt_event_acquired_nest_lock_first, ompt_wait_callback_t,          52) /* 1st nest lock acquired */ \
-    macro (ompt_event_acquired_nest_lock_next,  ompt_wait_callback_t,          53) /* next nest lock acquired*/ \
-    macro (ompt_event_acquired_critical,        ompt_wait_callback_t,          54) /* critical acquired */      \
-    macro (ompt_event_acquired_atomic,          ompt_wait_callback_t,          55) /* atomic acquired */        \
-    macro (ompt_event_acquired_ordered,         ompt_wait_callback_t,          56) /* ordered acquired */       \
-                                                                                                                \
-    macro (ompt_event_init_lock,                ompt_wait_callback_t,          57) /* lock init */              \
-    macro (ompt_event_init_nest_lock,           ompt_wait_callback_t,          58) /* nest lock init */         \
-                                                                                                                \
-    macro (ompt_event_destroy_lock,             ompt_wait_callback_t,          59) /* lock destruction */       \
-    macro (ompt_event_destroy_nest_lock,        ompt_wait_callback_t,          60) /* nest lock destruction */  \
-                                                                                                                \
-    macro (ompt_event_flush,                    ompt_callback_t,               61) /* after executing flush */
-
-
-
-/*****************************************************************************
- * data types
- *****************************************************************************/
-
-/*---------------------
- * identifiers
- *---------------------*/
-
-typedef uint64_t ompt_thread_id_t;
-#define ompt_thread_id_none ((ompt_thread_id_t) 0)     /* non-standard */
-
-typedef uint64_t ompt_task_id_t;
-#define ompt_task_id_none ((ompt_task_id_t) 0)         /* non-standard */
-
-typedef uint64_t ompt_parallel_id_t;
-#define ompt_parallel_id_none ((ompt_parallel_id_t) 0) /* non-standard */
-
-typedef uint64_t ompt_wait_id_t;
-#define ompt_wait_id_none ((ompt_wait_id_t) 0)         /* non-standard */
-
-
-/*---------------------
- * ompt_frame_t
- *---------------------*/
-
-typedef struct ompt_frame_s {
-    void *exit_runtime_frame;    /* next frame is user code     */
-    void *reenter_runtime_frame; /* previous frame is user code */
-} ompt_frame_t;
-
-
-/*****************************************************************************
- * enumerations for thread states and runtime events
- *****************************************************************************/
-
-/*---------------------
- * runtime states
- *---------------------*/
-
-typedef enum {
-#define ompt_state_macro(state, code) state = code,
-    FOREACH_OMPT_STATE(ompt_state_macro)
-#undef ompt_state_macro
-} ompt_state_t;
-
-
-/*---------------------
- * runtime events
- *---------------------*/
-
-typedef enum {
-#define ompt_event_macro(event, callback, eventid) event = eventid,
-    FOREACH_OMPT_EVENT(ompt_event_macro)
-#undef ompt_event_macro
-} ompt_event_t;
-
-
-/*---------------------
- * set callback results
- *---------------------*/
-typedef enum {
-    ompt_set_result_registration_error              = 0,
-    ompt_set_result_event_may_occur_no_callback     = 1,
-    ompt_set_result_event_never_occurs              = 2,
-    ompt_set_result_event_may_occur_callback_some   = 3,
-    ompt_set_result_event_may_occur_callback_always = 4,
-} ompt_set_result_t;
-
-
-
-/*****************************************************************************
- * callback signatures
- *****************************************************************************/
-
-/* initialization */
-typedef void (*ompt_interface_fn_t)(void);
-
-typedef ompt_interface_fn_t (*ompt_function_lookup_t)(
-    const char *                      /* entry point to look up       */
-);
-
-/* threads */
-typedef void (*ompt_thread_callback_t) (
-    ompt_thread_id_t thread_id        /* ID of thread                 */
-);
-
-typedef enum {
-    ompt_thread_initial = 1, // start the enumeration at 1
-    ompt_thread_worker  = 2,
-    ompt_thread_other   = 3
-} ompt_thread_type_t;
-
-typedef enum {
-    ompt_invoker_program = 0,         /* program invokes master task  */
-    ompt_invoker_runtime = 1          /* runtime invokes master task  */
-} ompt_invoker_t;
-
-typedef void (*ompt_thread_type_callback_t) (
-    ompt_thread_type_t thread_type,   /* type of thread               */
-    ompt_thread_id_t thread_id        /* ID of thread                 */
-);
-
-typedef void (*ompt_wait_callback_t) (
-    ompt_wait_id_t wait_id            /* wait id                      */
-);
-
-/* parallel and workshares */
-typedef void (*ompt_parallel_callback_t) (
-    ompt_parallel_id_t parallel_id,    /* id of parallel region       */
-    ompt_task_id_t task_id             /* id of task                  */
-);
-
-typedef void (*ompt_new_workshare_callback_t) (
-    ompt_parallel_id_t parallel_id,   /* id of parallel region        */
-    ompt_task_id_t parent_task_id,    /* id of parent task            */
-    void *workshare_function          /* pointer to outlined function */
-);
-
-typedef void (*ompt_new_parallel_callback_t) (
-    ompt_task_id_t parent_task_id,    /* id of parent task            */
-    ompt_frame_t *parent_task_frame,  /* frame data of parent task    */
-    ompt_parallel_id_t parallel_id,   /* id of parallel region        */
-    uint32_t requested_team_size,     /* number of threads in team    */
-    void *parallel_function,          /* pointer to outlined function */
-    ompt_invoker_t invoker            /* who invokes master task?    */ 
-);
-
-typedef void (*ompt_end_parallel_callback_t) (
-    ompt_parallel_id_t parallel_id,   /* id of parallel region       */
-    ompt_task_id_t task_id,           /* id of task                  */
-    ompt_invoker_t invoker            /* who invokes master task?    */ 
-);
-
-/* tasks */
-typedef void (*ompt_task_callback_t) (
-    ompt_task_id_t task_id            /* id of task                   */
-);
-
-typedef void (*ompt_task_pair_callback_t) (
-    ompt_task_id_t first_task_id,
-    ompt_task_id_t second_task_id
-);
-
-typedef void (*ompt_new_task_callback_t) (
-    ompt_task_id_t parent_task_id,    /* id of parent task            */
-    ompt_frame_t *parent_task_frame,  /* frame data for parent task   */
-    ompt_task_id_t  new_task_id,      /* id of created task           */
-    void *task_function               /* pointer to outlined function */
-);
-
-/* program */
-typedef void (*ompt_control_callback_t) (
-    uint64_t command,                 /* command of control call      */
-    uint64_t modifier                 /* modifier of control call     */
-);
-
-typedef void (*ompt_callback_t)(void);
-
-
-/****************************************************************************
- * ompt API
- ***************************************************************************/
-
-#ifdef  __cplusplus
-extern "C" {
-#endif
-
-#define OMPT_API_FNTYPE(fn) fn##_t
-
-#define OMPT_API_FUNCTION(return_type, fn, args)  \
-    typedef return_type (*OMPT_API_FNTYPE(fn)) args
-
-
-
-/****************************************************************************
- * INQUIRY FUNCTIONS
- ***************************************************************************/
-
-/* state */
-OMPT_API_FUNCTION(ompt_state_t, ompt_get_state, (
-    ompt_wait_id_t *ompt_wait_id
-));
-
-/* thread */
-OMPT_API_FUNCTION(ompt_thread_id_t, ompt_get_thread_id, (void));
-
-OMPT_API_FUNCTION(void *, ompt_get_idle_frame, (void));
-
-/* parallel region */
-OMPT_API_FUNCTION(ompt_parallel_id_t, ompt_get_parallel_id, (
-    int ancestor_level
-));
-
-OMPT_API_FUNCTION(int, ompt_get_parallel_team_size, (
-    int ancestor_level
-));
-
-/* task */
-OMPT_API_FUNCTION(ompt_task_id_t, ompt_get_task_id, (
-    int depth
-));
-
-OMPT_API_FUNCTION(ompt_frame_t *, ompt_get_task_frame, (
-    int depth
-));
-
-
-
-/****************************************************************************
- * PLACEHOLDERS FOR PERFORMANCE REPORTING
- ***************************************************************************/
-
-/* idle */
-OMPT_API_FUNCTION(void, ompt_idle, (
-    void
-));
-
-/* overhead */
-OMPT_API_FUNCTION(void, ompt_overhead, (
-    void
-));
-
-/* barrier wait */
-OMPT_API_FUNCTION(void, ompt_barrier_wait, (
-    void
-));
-
-/* task wait */
-OMPT_API_FUNCTION(void, ompt_task_wait, (
-    void
-));
-
-/* mutex wait */
-OMPT_API_FUNCTION(void, ompt_mutex_wait, (
-    void
-));
-
-
-
-/****************************************************************************
- * INITIALIZATION FUNCTIONS
- ***************************************************************************/
-
-OMPT_API_FUNCTION(void, ompt_initialize, (
-    ompt_function_lookup_t ompt_fn_lookup,
-    const char *runtime_version,
-    unsigned int ompt_version
-));
-
-
-/* initialization interface to be defined by tool */
-ompt_initialize_t ompt_tool(void);
-
-typedef enum opt_init_mode_e {
-    ompt_init_mode_never  = 0,
-    ompt_init_mode_false  = 1,
-    ompt_init_mode_true   = 2,
-    ompt_init_mode_always = 3
-} ompt_init_mode_t;
-
-OMPT_API_FUNCTION(int, ompt_set_callback, (
-    ompt_event_t event,
-    ompt_callback_t callback
-));
-
-typedef enum ompt_set_callback_rc_e {  /* non-standard */
-    ompt_set_callback_error      = 0,
-    ompt_has_event_no_callback   = 1,
-    ompt_no_event_no_callback    = 2,
-    ompt_has_event_may_callback  = 3,
-    ompt_has_event_must_callback = 4,
-} ompt_set_callback_rc_t;
-
-
-OMPT_API_FUNCTION(int, ompt_get_callback, (
-    ompt_event_t event,
-    ompt_callback_t *callback
-));
-
-
-
-/****************************************************************************
- * MISCELLANEOUS FUNCTIONS
- ***************************************************************************/
-
-/* control */
-#if defined(_OPENMP) && (_OPENMP >= 201307)
-#pragma omp declare target
-#endif
-void ompt_control(
-    uint64_t command,
-    uint64_t modifier
-);
-#if defined(_OPENMP) && (_OPENMP >= 201307)
-#pragma omp end declare target
-#endif
-
-/* state enumeration */
-OMPT_API_FUNCTION(int, ompt_enumerate_state, (
-    int current_state,
-    int *next_state,
-    const char **next_state_name
-));
-
-#ifdef  __cplusplus
-};
-#endif
-
-#endif
-
+/* 
+ * include/41/ompt.h.var 
+ */ 
+ 
+#ifndef __OMPT__ 
+#define __OMPT__ 
+ 
+/***************************************************************************** 
+ * system include files 
+ *****************************************************************************/ 
+ 
+#include <stdint.h> 
+ 
+ 
+ 
+/***************************************************************************** 
+ * iteration macros 
+ *****************************************************************************/ 
+ 
+#define FOREACH_OMPT_INQUIRY_FN(macro)  \ 
+    macro (ompt_enumerate_state)        \ 
+                                        \ 
+    macro (ompt_set_callback)           \ 
+    macro (ompt_get_callback)           \ 
+                                        \ 
+    macro (ompt_get_idle_frame)         \ 
+    macro (ompt_get_task_frame)         \ 
+                                        \ 
+    macro (ompt_get_state)              \ 
+                                        \ 
+    macro (ompt_get_parallel_id)        \ 
+    macro (ompt_get_parallel_team_size) \ 
+    macro (ompt_get_task_id)            \ 
+    macro (ompt_get_thread_id) 
+ 
+#define FOREACH_OMPT_PLACEHOLDER_FN(macro)  \ 
+    macro (ompt_idle)                       \ 
+    macro (ompt_overhead)                   \ 
+    macro (ompt_barrier_wait)               \ 
+    macro (ompt_task_wait)                  \ 
+    macro (ompt_mutex_wait) 
+ 
+#define FOREACH_OMPT_STATE(macro)                                                               \ 
+                                                                                                \ 
+    /* first */                                                                                 \ 
+    macro (ompt_state_first, 0x71)          /* initial enumeration state */                     \ 
+                                                                                                \ 
+    /* work states (0..15) */                                                                   \ 
+    macro (ompt_state_work_serial, 0x00)    /* working outside parallel */                      \ 
+    macro (ompt_state_work_parallel, 0x01)  /* working within parallel */                       \ 
+    macro (ompt_state_work_reduction, 0x02) /* performing a reduction */                        \ 
+                                                                                                \ 
+    /* idle (16..31) */                                                                         \ 
+    macro (ompt_state_idle, 0x10)            /* waiting for work */                             \ 
+                                                                                                \ 
+    /* overhead states (32..63) */                                                              \ 
+    macro (ompt_state_overhead, 0x20)        /* overhead excluding wait states */               \ 
+                                                                                                \ 
+    /* barrier wait states (64..79) */                                                          \ 
+    macro (ompt_state_wait_barrier, 0x40)    /* waiting at a barrier */                         \ 
+    macro (ompt_state_wait_barrier_implicit, 0x41)    /* implicit barrier */                    \ 
+    macro (ompt_state_wait_barrier_explicit, 0x42)    /* explicit barrier */                    \ 
+                                                                                                \ 
+    /* task wait states (80..95) */                                                             \ 
+    macro (ompt_state_wait_taskwait, 0x50)   /* waiting at a taskwait */                        \ 
+    macro (ompt_state_wait_taskgroup, 0x51)  /* waiting at a taskgroup */                       \ 
+                                                                                                \ 
+    /* mutex wait states (96..111) */                                                           \ 
+    macro (ompt_state_wait_lock, 0x60)       /* waiting for lock */                             \ 
+    macro (ompt_state_wait_nest_lock, 0x61)  /* waiting for nest lock */                        \ 
+    macro (ompt_state_wait_critical, 0x62)   /* waiting for critical */                         \ 
+    macro (ompt_state_wait_atomic, 0x63)     /* waiting for atomic */                           \ 
+    macro (ompt_state_wait_ordered, 0x64)    /* waiting for ordered */                          \ 
+    macro (ompt_state_wait_single, 0x6F)     /* waiting for single region (non-standard!) */    \ 
+                                                                                                \ 
+    /* misc (112..127) */                                                                       \ 
+    macro (ompt_state_undefined, 0x70)       /* undefined thread state */ 
+ 
+ 
+#define FOREACH_OMPT_EVENT(macro)                                                                               \ 
+                                                                                                                \ 
+    /*--- Mandatory Events ---*/                                                                                \ 
+    macro (ompt_event_parallel_begin,           ompt_new_parallel_callback_t,   1) /* parallel begin */         \ 
+    macro (ompt_event_parallel_end,             ompt_end_parallel_callback_t,   2) /* parallel end */           \ 
+                                                                                                                \ 
+    macro (ompt_event_task_begin,               ompt_new_task_callback_t,       3) /* task begin */             \ 
+    macro (ompt_event_task_end,                 ompt_task_callback_t,           4) /* task destroy */           \ 
+                                                                                                                \ 
+    macro (ompt_event_thread_begin,             ompt_thread_type_callback_t,    5) /* thread begin */           \ 
+    macro (ompt_event_thread_end,               ompt_thread_type_callback_t,    6) /* thread end */             \ 
+                                                                                                                \ 
+    macro (ompt_event_control,                  ompt_control_callback_t,        7) /* support control calls */  \ 
+                                                                                                                \ 
+    macro (ompt_event_runtime_shutdown,         ompt_callback_t,                8) /* runtime shutdown */       \ 
+                                                                                                                \ 
+    /*--- Optional Events (blame shifting, ompt_event_unimplemented) ---*/                                      \ 
+    macro (ompt_event_idle_begin,               ompt_thread_callback_t,         9) /* begin idle state */       \ 
+    macro (ompt_event_idle_end,                 ompt_thread_callback_t,        10) /* end idle state */         \ 
+                                                                                                                \ 
+    macro (ompt_event_wait_barrier_begin,       ompt_parallel_callback_t,      11) /* begin wait at barrier */  \ 
+    macro (ompt_event_wait_barrier_end,         ompt_parallel_callback_t,      12) /* end wait at barrier */    \ 
+                                                                                                                \ 
+    macro (ompt_event_wait_taskwait_begin,      ompt_parallel_callback_t,      13) /* begin wait at taskwait */ \ 
+    macro (ompt_event_wait_taskwait_end,        ompt_parallel_callback_t,      14) /* end wait at taskwait */   \ 
+                                                                                                                \ 
+    macro (ompt_event_wait_taskgroup_begin,     ompt_parallel_callback_t,      15) /* begin wait at taskgroup */\ 
+    macro (ompt_event_wait_taskgroup_end,       ompt_parallel_callback_t,      16) /* end wait at taskgroup */  \ 
+                                                                                                                \ 
+    macro (ompt_event_release_lock,             ompt_wait_callback_t,          17) /* lock release */           \ 
+    macro (ompt_event_release_nest_lock_last,   ompt_wait_callback_t,          18) /* last nest lock release */ \ 
+    macro (ompt_event_release_critical,         ompt_wait_callback_t,          19) /* critical release */       \ 
+                                                                                                                \ 
+    macro (ompt_event_release_atomic,           ompt_wait_callback_t,          20) /* atomic release */         \ 
+                                                                                                                \ 
+    macro (ompt_event_release_ordered,          ompt_wait_callback_t,          21) /* ordered release */        \ 
+                                                                                                                \ 
+    /*--- Optional Events (synchronous events, ompt_event_unimplemented) --- */                                 \ 
+    macro (ompt_event_implicit_task_begin,      ompt_parallel_callback_t,      22) /* implicit task begin   */  \ 
+    macro (ompt_event_implicit_task_end,        ompt_parallel_callback_t,      23) /* implicit task end  */     \ 
+                                                                                                                \ 
+    macro (ompt_event_initial_task_begin,       ompt_parallel_callback_t,      24) /* initial task begin   */   \ 
+    macro (ompt_event_initial_task_end,         ompt_parallel_callback_t,      25) /* initial task end  */      \ 
+                                                                                                                \ 
+    macro (ompt_event_task_switch,              ompt_task_pair_callback_t,     26) /* task switch */            \ 
+                                                                                                                \ 
+    macro (ompt_event_loop_begin,               ompt_new_workshare_callback_t, 27) /* task at loop begin */     \ 
+    macro (ompt_event_loop_end,                 ompt_parallel_callback_t,      28) /* task at loop end */       \ 
+                                                                                                                \ 
+    macro (ompt_event_sections_begin,           ompt_new_workshare_callback_t, 29) /* task at sections begin  */\ 
+    macro (ompt_event_sections_end,             ompt_parallel_callback_t,      30) /* task at sections end */   \ 
+                                                                                                                \ 
+    macro (ompt_event_single_in_block_begin,    ompt_new_workshare_callback_t, 31) /* task at single begin*/    \ 
+    macro (ompt_event_single_in_block_end,      ompt_parallel_callback_t,      32) /* task at single end */     \ 
+                                                                                                                \ 
+    macro (ompt_event_single_others_begin,      ompt_parallel_callback_t,      33) /* task at single begin */   \ 
+    macro (ompt_event_single_others_end,        ompt_parallel_callback_t,      34) /* task at single end */     \ 
+                                                                                                                \ 
+    macro (ompt_event_workshare_begin,          ompt_new_workshare_callback_t, 35) /* task at workshare begin */\ 
+    macro (ompt_event_workshare_end,            ompt_parallel_callback_t,      36) /* task at workshare end */  \ 
+                                                                                                                \ 
+    macro (ompt_event_master_begin,             ompt_parallel_callback_t,      37) /* task at master begin */   \ 
+    macro (ompt_event_master_end,               ompt_parallel_callback_t,      38) /* task at master end */     \ 
+                                                                                                                \ 
+    macro (ompt_event_barrier_begin,            ompt_parallel_callback_t,      39) /* task at barrier begin  */ \ 
+    macro (ompt_event_barrier_end,              ompt_parallel_callback_t,      40) /* task at barrier end */    \ 
+                                                                                                                \ 
+    macro (ompt_event_taskwait_begin,           ompt_parallel_callback_t,      41) /* task at taskwait begin */ \ 
+    macro (ompt_event_taskwait_end,             ompt_parallel_callback_t,      42) /* task at task wait end */  \ 
+                                                                                                                \ 
+    macro (ompt_event_taskgroup_begin,          ompt_parallel_callback_t,      43) /* task at taskgroup begin */\ 
+    macro (ompt_event_taskgroup_end,            ompt_parallel_callback_t,      44) /* task at taskgroup end */  \ 
+                                                                                                                \ 
+    macro (ompt_event_release_nest_lock_prev,   ompt_wait_callback_t,          45) /* prev nest lock release */ \ 
+                                                                                                                \ 
+    macro (ompt_event_wait_lock,                ompt_wait_callback_t,          46) /* lock wait */              \ 
+    macro (ompt_event_wait_nest_lock,           ompt_wait_callback_t,          47) /* nest lock wait */         \ 
+    macro (ompt_event_wait_critical,            ompt_wait_callback_t,          48) /* critical wait */          \ 
+    macro (ompt_event_wait_atomic,              ompt_wait_callback_t,          49) /* atomic wait */            \ 
+    macro (ompt_event_wait_ordered,             ompt_wait_callback_t,          50) /* ordered wait */           \ 
+                                                                                                                \ 
+    macro (ompt_event_acquired_lock,            ompt_wait_callback_t,          51) /* lock acquired */          \ 
+    macro (ompt_event_acquired_nest_lock_first, ompt_wait_callback_t,          52) /* 1st nest lock acquired */ \ 
+    macro (ompt_event_acquired_nest_lock_next,  ompt_wait_callback_t,          53) /* next nest lock acquired*/ \ 
+    macro (ompt_event_acquired_critical,        ompt_wait_callback_t,          54) /* critical acquired */      \ 
+    macro (ompt_event_acquired_atomic,          ompt_wait_callback_t,          55) /* atomic acquired */        \ 
+    macro (ompt_event_acquired_ordered,         ompt_wait_callback_t,          56) /* ordered acquired */       \ 
+                                                                                                                \ 
+    macro (ompt_event_init_lock,                ompt_wait_callback_t,          57) /* lock init */              \ 
+    macro (ompt_event_init_nest_lock,           ompt_wait_callback_t,          58) /* nest lock init */         \ 
+                                                                                                                \ 
+    macro (ompt_event_destroy_lock,             ompt_wait_callback_t,          59) /* lock destruction */       \ 
+    macro (ompt_event_destroy_nest_lock,        ompt_wait_callback_t,          60) /* nest lock destruction */  \ 
+                                                                                                                \ 
+    macro (ompt_event_flush,                    ompt_callback_t,               61) /* after executing flush */ 
+ 
+ 
+ 
+/***************************************************************************** 
+ * data types 
+ *****************************************************************************/ 
+ 
+/*--------------------- 
+ * identifiers 
+ *---------------------*/ 
+ 
+typedef uint64_t ompt_thread_id_t; 
+#define ompt_thread_id_none ((ompt_thread_id_t) 0)     /* non-standard */ 
+ 
+typedef uint64_t ompt_task_id_t; 
+#define ompt_task_id_none ((ompt_task_id_t) 0)         /* non-standard */ 
+ 
+typedef uint64_t ompt_parallel_id_t; 
+#define ompt_parallel_id_none ((ompt_parallel_id_t) 0) /* non-standard */ 
+ 
+typedef uint64_t ompt_wait_id_t; 
+#define ompt_wait_id_none ((ompt_wait_id_t) 0)         /* non-standard */ 
+ 
+ 
+/*--------------------- 
+ * ompt_frame_t 
+ *---------------------*/ 
+ 
+typedef struct ompt_frame_s { 
+    void *exit_runtime_frame;    /* next frame is user code     */ 
+    void *reenter_runtime_frame; /* previous frame is user code */ 
+} ompt_frame_t; 
+ 
+ 
+/***************************************************************************** 
+ * enumerations for thread states and runtime events 
+ *****************************************************************************/ 
+ 
+/*--------------------- 
+ * runtime states 
+ *---------------------*/ 
+ 
+typedef enum { 
+#define ompt_state_macro(state, code) state = code, 
+    FOREACH_OMPT_STATE(ompt_state_macro) 
+#undef ompt_state_macro 
+} ompt_state_t; 
+ 
+ 
+/*--------------------- 
+ * runtime events 
+ *---------------------*/ 
+ 
+typedef enum { 
+#define ompt_event_macro(event, callback, eventid) event = eventid, 
+    FOREACH_OMPT_EVENT(ompt_event_macro) 
+#undef ompt_event_macro 
+} ompt_event_t; 
+ 
+ 
+/*--------------------- 
+ * set callback results 
+ *---------------------*/ 
+typedef enum { 
+    ompt_set_result_registration_error              = 0, 
+    ompt_set_result_event_may_occur_no_callback     = 1, 
+    ompt_set_result_event_never_occurs              = 2, 
+    ompt_set_result_event_may_occur_callback_some   = 3, 
+    ompt_set_result_event_may_occur_callback_always = 4, 
+} ompt_set_result_t; 
+ 
+ 
+ 
+/***************************************************************************** 
+ * callback signatures 
+ *****************************************************************************/ 
+ 
+/* initialization */ 
+typedef void (*ompt_interface_fn_t)(void); 
+ 
+typedef ompt_interface_fn_t (*ompt_function_lookup_t)( 
+    const char *                      /* entry point to look up       */ 
+); 
+ 
+/* threads */ 
+typedef void (*ompt_thread_callback_t) ( 
+    ompt_thread_id_t thread_id        /* ID of thread                 */ 
+); 
+ 
+typedef enum { 
+    ompt_thread_initial = 1, // start the enumeration at 1 
+    ompt_thread_worker  = 2, 
+    ompt_thread_other   = 3 
+} ompt_thread_type_t; 
+ 
+typedef enum { 
+    ompt_invoker_program = 0,         /* program invokes master task  */ 
+    ompt_invoker_runtime = 1          /* runtime invokes master task  */ 
+} ompt_invoker_t; 
+ 
+typedef void (*ompt_thread_type_callback_t) ( 
+    ompt_thread_type_t thread_type,   /* type of thread               */ 
+    ompt_thread_id_t thread_id        /* ID of thread                 */ 
+); 
+ 
+typedef void (*ompt_wait_callback_t) ( 
+    ompt_wait_id_t wait_id            /* wait id                      */ 
+); 
+ 
+/* parallel and workshares */ 
+typedef void (*ompt_parallel_callback_t) ( 
+    ompt_parallel_id_t parallel_id,    /* id of parallel region       */ 
+    ompt_task_id_t task_id             /* id of task                  */ 
+); 
+ 
+typedef void (*ompt_new_workshare_callback_t) ( 
+    ompt_parallel_id_t parallel_id,   /* id of parallel region        */ 
+    ompt_task_id_t parent_task_id,    /* id of parent task            */ 
+    void *workshare_function          /* pointer to outlined function */ 
+); 
+ 
+typedef void (*ompt_new_parallel_callback_t) ( 
+    ompt_task_id_t parent_task_id,    /* id of parent task            */ 
+    ompt_frame_t *parent_task_frame,  /* frame data of parent task    */ 
+    ompt_parallel_id_t parallel_id,   /* id of parallel region        */ 
+    uint32_t requested_team_size,     /* number of threads in team    */ 
+    void *parallel_function,          /* pointer to outlined function */ 
+    ompt_invoker_t invoker            /* who invokes master task?    */  
+); 
+ 
+typedef void (*ompt_end_parallel_callback_t) ( 
+    ompt_parallel_id_t parallel_id,   /* id of parallel region       */ 
+    ompt_task_id_t task_id,           /* id of task                  */ 
+    ompt_invoker_t invoker            /* who invokes master task?    */  
+); 
+ 
+/* tasks */ 
+typedef void (*ompt_task_callback_t) ( 
+    ompt_task_id_t task_id            /* id of task                   */ 
+); 
+ 
+typedef void (*ompt_task_pair_callback_t) ( 
+    ompt_task_id_t first_task_id, 
+    ompt_task_id_t second_task_id 
+); 
+ 
+typedef void (*ompt_new_task_callback_t) ( 
+    ompt_task_id_t parent_task_id,    /* id of parent task            */ 
+    ompt_frame_t *parent_task_frame,  /* frame data for parent task   */ 
+    ompt_task_id_t  new_task_id,      /* id of created task           */ 
+    void *task_function               /* pointer to outlined function */ 
+); 
+ 
+/* program */ 
+typedef void (*ompt_control_callback_t) ( 
+    uint64_t command,                 /* command of control call      */ 
+    uint64_t modifier                 /* modifier of control call     */ 
+); 
+ 
+typedef void (*ompt_callback_t)(void); 
+ 
+ 
+/**************************************************************************** 
+ * ompt API 
+ ***************************************************************************/ 
+ 
+#ifdef  __cplusplus 
+extern "C" { 
+#endif 
+ 
+#define OMPT_API_FNTYPE(fn) fn##_t 
+ 
+#define OMPT_API_FUNCTION(return_type, fn, args)  \ 
+    typedef return_type (*OMPT_API_FNTYPE(fn)) args 
+ 
+ 
+ 
+/**************************************************************************** 
+ * INQUIRY FUNCTIONS 
+ ***************************************************************************/ 
+ 
+/* state */ 
+OMPT_API_FUNCTION(ompt_state_t, ompt_get_state, ( 
+    ompt_wait_id_t *ompt_wait_id 
+)); 
+ 
+/* thread */ 
+OMPT_API_FUNCTION(ompt_thread_id_t, ompt_get_thread_id, (void)); 
+ 
+OMPT_API_FUNCTION(void *, ompt_get_idle_frame, (void)); 
+ 
+/* parallel region */ 
+OMPT_API_FUNCTION(ompt_parallel_id_t, ompt_get_parallel_id, ( 
+    int ancestor_level 
+)); 
+ 
+OMPT_API_FUNCTION(int, ompt_get_parallel_team_size, ( 
+    int ancestor_level 
+)); 
+ 
+/* task */ 
+OMPT_API_FUNCTION(ompt_task_id_t, ompt_get_task_id, ( 
+    int depth 
+)); 
+ 
+OMPT_API_FUNCTION(ompt_frame_t *, ompt_get_task_frame, ( 
+    int depth 
+)); 
+ 
+ 
+ 
+/**************************************************************************** 
+ * PLACEHOLDERS FOR PERFORMANCE REPORTING 
+ ***************************************************************************/ 
+ 
+/* idle */ 
+OMPT_API_FUNCTION(void, ompt_idle, ( 
+    void 
+)); 
+ 
+/* overhead */ 
+OMPT_API_FUNCTION(void, ompt_overhead, ( 
+    void 
+)); 
+ 
+/* barrier wait */ 
+OMPT_API_FUNCTION(void, ompt_barrier_wait, ( 
+    void 
+)); 
+ 
+/* task wait */ 
+OMPT_API_FUNCTION(void, ompt_task_wait, ( 
+    void 
+)); 
+ 
+/* mutex wait */ 
+OMPT_API_FUNCTION(void, ompt_mutex_wait, ( 
+    void 
+)); 
+ 
+ 
+ 
+/**************************************************************************** 
+ * INITIALIZATION FUNCTIONS 
+ ***************************************************************************/ 
+ 
+OMPT_API_FUNCTION(void, ompt_initialize, ( 
+    ompt_function_lookup_t ompt_fn_lookup, 
+    const char *runtime_version, 
+    unsigned int ompt_version 
+)); 
+ 
+ 
+/* initialization interface to be defined by tool */ 
+ompt_initialize_t ompt_tool(void); 
+ 
+typedef enum opt_init_mode_e { 
+    ompt_init_mode_never  = 0, 
+    ompt_init_mode_false  = 1, 
+    ompt_init_mode_true   = 2, 
+    ompt_init_mode_always = 3 
+} ompt_init_mode_t; 
+ 
+OMPT_API_FUNCTION(int, ompt_set_callback, ( 
+    ompt_event_t event, 
+    ompt_callback_t callback 
+)); 
+ 
+typedef enum ompt_set_callback_rc_e {  /* non-standard */ 
+    ompt_set_callback_error      = 0, 
+    ompt_has_event_no_callback   = 1, 
+    ompt_no_event_no_callback    = 2, 
+    ompt_has_event_may_callback  = 3, 
+    ompt_has_event_must_callback = 4, 
+} ompt_set_callback_rc_t; 
+ 
+ 
+OMPT_API_FUNCTION(int, ompt_get_callback, ( 
+    ompt_event_t event, 
+    ompt_callback_t *callback 
+)); 
+ 
+ 
+ 
+/**************************************************************************** 
+ * MISCELLANEOUS FUNCTIONS 
+ ***************************************************************************/ 
+ 
+/* control */ 
+#if defined(_OPENMP) && (_OPENMP >= 201307) 
+#pragma omp declare target 
+#endif 
+void ompt_control( 
+    uint64_t command, 
+    uint64_t modifier 
+); 
+#if defined(_OPENMP) && (_OPENMP >= 201307) 
+#pragma omp end declare target 
+#endif 
+ 
+/* state enumeration */ 
+OMPT_API_FUNCTION(int, ompt_enumerate_state, ( 
+    int current_state, 
+    int *next_state, 
+    const char **next_state_name 
+)); 
+ 
+#ifdef  __cplusplus 
+}; 
+#endif 
+ 
+#endif 
+