        integer omp_integer_kind
        integer omp_logical_kind
        integer omp_real_kind
        integer omp_lock_kind
        integer omp_nest_lock_kind
        integer kmp_pointer_kind
        integer kmp_size_t_kind
        parameter (omp_integer_kind = 4)
        parameter (omp_logical_kind = 4)
        parameter (omp_real_kind = 4)
        parameter (omp_lock_kind = 4)
        parameter (omp_nest_lock_kind = 4)
        parameter (kmp_pointer_kind = 4)
        parameter (kmp_size_t_kind = 4)
        external omp_set_num_threads
!ms$attributes c, reference :: omp_set_num_threads
        external omp_set_dynamic
!ms$attributes c, reference :: omp_set_dynamic
        external omp_set_nested
!ms$attributes c, reference :: omp_set_nested
        external omp_init_lock
!ms$attributes c, reference :: omp_init_lock
        external omp_destroy_lock
!ms$attributes c, reference :: omp_destroy_lock
        external omp_set_lock
!ms$attributes c, reference :: omp_set_lock
        external omp_unset_lock
!ms$attributes c, reference :: omp_unset_lock
        external omp_test_lock
        logical omp_test_lock
!ms$attributes c, reference :: omp_test_lock
        external omp_init_nest_lock
!ms$attributes c, reference :: omp_init_nest_lock
        external omp_destroy_nest_lock
!ms$attributes c, reference :: omp_destroy_nest_lock
        external omp_set_nest_lock
!ms$attributes c, reference :: omp_set_nest_lock
        external omp_unset_nest_lock
!ms$attributes c, reference :: omp_unset_nest_lock
        external omp_test_nest_lock
        logical omp_test_nest_lock
!ms$attributes c, reference :: omp_test_nest_lock
        external omp_get_num_threads
        integer omp_get_num_threads
!ms$attributes c, reference :: omp_get_num_threads
        external omp_get_max_threads
        integer omp_get_max_threads
!ms$attributes c, reference :: omp_get_max_threads
        external omp_get_thread_num
        integer omp_get_thread_num
!ms$attributes c, reference :: omp_get_thread_num
        external omp_get_num_procs
        integer omp_get_num_procs
!ms$attributes c, reference :: omp_get_num_procs
        external omp_in_parallel
        logical omp_in_parallel
!ms$attributes c, reference :: omp_in_parallel
        external omp_get_dynamic
        logical omp_get_dynamic
!ms$attributes c, reference :: omp_get_dynamic
        external omp_get_nested
        logical omp_get_nested
!ms$attributes c, reference :: omp_get_nested
        external omp_get_wtime
        double precision omp_get_wtime
!ms$attributes c, reference :: omp_get_wtime
        external omp_get_wtick
        double precision omp_get_wtick
!ms$attributes c, reference :: omp_get_wtick
        external kmp_set_parallel_name
!ms$attributes c, reference :: kmp_set_parallel_name
        external kmp_set_stacksize
!ms$attributes c, reference :: kmp_set_stacksize
        external kmp_set_stacksize_s
!ms$attributes c, reference :: kmp_set_stacksize_s
        external kmp_set_blocktime
!ms$attributes c, reference :: kmp_set_blocktime
        external kmp_set_library_serial
!ms$attributes c, reference :: kmp_set_library_serial
        external kmp_set_library_turnaround
!ms$attributes c, reference :: kmp_set_library_turnaround
        external kmp_set_library_throughput
!ms$attributes c, reference :: kmp_set_library_throughput
        external kmp_set_library
!ms$attributes c, reference :: kmp_set_library
        external kmp_set_stats
!ms$attributes c, reference :: kmp_set_stats
        external kmp_get_stacksize
        integer kmp_get_stacksize
!ms$attributes c, reference :: kmp_get_stacksize
        external kmp_get_stacksize_s
        integer kmp_get_stacksize_s
!ms$attributes c, reference :: kmp_get_stacksize_s
        external kmp_get_blocktime
        integer kmp_get_blocktime
!ms$attributes c, reference :: kmp_get_blocktime
        external kmp_get_library
        integer kmp_get_library
!ms$attributes c, reference :: kmp_get_library
        external kmp_malloc
        integer*4 kmp_malloc
!ms$attributes c, reference :: kmp_malloc
        external kmp_calloc
        integer*4 kmp_calloc
!ms$attributes c, reference :: kmp_calloc
        external kmp_realloc
        integer*4 kmp_realloc
!ms$attributes c, reference :: kmp_realloc
        external kmp_free
!ms$attributes c, reference :: kmp_free
