OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [libgomp/] [omp_lib.f90.in] - Blame information for rev 826

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 273 jeremybenn
!  Copyright (C) 2005, 2007, 2008, 2009 Free Software Foundation, Inc.
2
!  Contributed by Jakub Jelinek .
3
 
4
!  This file is part of the GNU OpenMP Library (libgomp).
5
 
6
!  Libgomp is free software; you can redistribute it and/or modify it
7
!  under the terms of the GNU General Public License as published by
8
!  the Free Software Foundation; either version 3, or (at your option)
9
!  any later version.
10
 
11
!  Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY
12
!  WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
13
!  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
14
!  more details.
15
 
16
!  Under Section 7 of GPL version 3, you are granted additional
17
!  permissions described in the GCC Runtime Library Exception, version
18
!  3.1, as published by the Free Software Foundation.
19
 
20
!  You should have received a copy of the GNU General Public License and
21
!  a copy of the GCC Runtime Library Exception along with this program;
22
!  see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
23
!  .
24
 
25
      module omp_lib_kinds
26
        implicit none
27
        integer, parameter :: omp_integer_kind = 4
28
        integer, parameter :: omp_logical_kind = 4
29
        integer, parameter :: omp_lock_kind = @OMP_LOCK_KIND@
30
        integer, parameter :: omp_nest_lock_kind = @OMP_NEST_LOCK_KIND@
31
        integer, parameter :: omp_sched_kind = 4
32
      end module
33
 
34
      module omp_lib
35
        use omp_lib_kinds
36
        implicit none
37
        integer, parameter :: openmp_version = 200805
38
        integer (omp_sched_kind), parameter :: omp_sched_static = 1
39
        integer (omp_sched_kind), parameter :: omp_sched_dynamic = 2
40
        integer (omp_sched_kind), parameter :: omp_sched_guided = 3
41
        integer (omp_sched_kind), parameter :: omp_sched_auto = 4
42
 
43
        interface
44
          subroutine omp_init_lock (lock)
45
            use omp_lib_kinds
46
            integer (omp_lock_kind), intent (out) :: lock
47
          end subroutine omp_init_lock
48
        end interface
49
 
50
        interface
51
          subroutine omp_init_nest_lock (lock)
52
            use omp_lib_kinds
53
            integer (omp_nest_lock_kind), intent (out) :: lock
54
          end subroutine omp_init_nest_lock
55
        end interface
56
 
57
        interface
58
          subroutine omp_destroy_lock (lock)
59
            use omp_lib_kinds
60
            integer (omp_lock_kind), intent (inout) :: lock
61
          end subroutine omp_destroy_lock
62
        end interface
63
 
64
        interface
65
          subroutine omp_destroy_nest_lock (lock)
66
            use omp_lib_kinds
67
            integer (omp_nest_lock_kind), intent (inout) :: lock
68
          end subroutine omp_destroy_nest_lock
69
        end interface
70
 
71
        interface
72
          subroutine omp_set_lock (lock)
73
            use omp_lib_kinds
74
            integer (omp_lock_kind), intent (inout) :: lock
75
          end subroutine omp_set_lock
76
        end interface
77
 
78
        interface
79
          subroutine omp_set_nest_lock (lock)
80
            use omp_lib_kinds
81
            integer (omp_nest_lock_kind), intent (inout) :: lock
82
          end subroutine omp_set_nest_lock
83
        end interface
84
 
85
        interface
86
          subroutine omp_unset_lock (lock)
87
            use omp_lib_kinds
88
            integer (omp_lock_kind), intent (inout) :: lock
89
          end subroutine omp_unset_lock
90
        end interface
91
 
92
        interface
93
          subroutine omp_unset_nest_lock (lock)
94
            use omp_lib_kinds
95
            integer (omp_nest_lock_kind), intent (inout) :: lock
96
          end subroutine omp_unset_nest_lock
97
        end interface
98
 
99
        interface omp_set_dynamic
100
          subroutine omp_set_dynamic (set)
101
            logical (4), intent (in) :: set
102
          end subroutine omp_set_dynamic
103
          subroutine omp_set_dynamic_8 (set)
104
            logical (8), intent (in) :: set
105
          end subroutine omp_set_dynamic_8
106
        end interface
107
 
108
        interface omp_set_nested
109
          subroutine omp_set_nested (set)
110
            logical (4), intent (in) :: set
111
          end subroutine omp_set_nested
112
          subroutine omp_set_nested_8 (set)
113
            logical (8), intent (in) :: set
114
          end subroutine omp_set_nested_8
115
        end interface
116
 
117
        interface omp_set_num_threads
118
          subroutine omp_set_num_threads (set)
119
            integer (4), intent (in) :: set
120
          end subroutine omp_set_num_threads
121
          subroutine omp_set_num_threads_8 (set)
122
            integer (8), intent (in) :: set
123
          end subroutine omp_set_num_threads_8
124
        end interface
125
 
126
        interface
127
          function omp_get_dynamic ()
128
            use omp_lib_kinds
129
            logical (omp_logical_kind) :: omp_get_dynamic
130
          end function omp_get_dynamic
131
        end interface
132
 
133
        interface
134
          function omp_get_nested ()
135
            use omp_lib_kinds
136
            logical (omp_logical_kind) :: omp_get_nested
137
          end function omp_get_nested
138
        end interface
139
 
140
        interface
141
          function omp_in_parallel ()
142
            use omp_lib_kinds
143
            logical (omp_logical_kind) :: omp_in_parallel
144
          end function omp_in_parallel
145
        end interface
146
 
147
        interface
148
          function omp_test_lock (lock)
149
            use omp_lib_kinds
150
            logical (omp_logical_kind) :: omp_test_lock
151
            integer (omp_lock_kind), intent (inout) :: lock
152
          end function omp_test_lock
153
        end interface
154
 
155
        interface
156
          function omp_get_max_threads ()
157
            use omp_lib_kinds
158
            integer (omp_integer_kind) :: omp_get_max_threads
159
          end function omp_get_max_threads
160
        end interface
161
 
162
        interface
163
          function omp_get_num_procs ()
164
            use omp_lib_kinds
165
            integer (omp_integer_kind) :: omp_get_num_procs
166
          end function omp_get_num_procs
167
        end interface
168
 
169
        interface
170
          function omp_get_num_threads ()
171
            use omp_lib_kinds
172
            integer (omp_integer_kind) :: omp_get_num_threads
173
          end function omp_get_num_threads
174
        end interface
175
 
176
        interface
177
          function omp_get_thread_num ()
178
            use omp_lib_kinds
179
            integer (omp_integer_kind) :: omp_get_thread_num
180
          end function omp_get_thread_num
181
        end interface
182
 
183
        interface
184
          function omp_test_nest_lock (lock)
185
            use omp_lib_kinds
186
            integer (omp_integer_kind) :: omp_test_nest_lock
187
            integer (omp_nest_lock_kind), intent (inout) :: lock
188
          end function omp_test_nest_lock
189
        end interface
190
 
191
        interface
192
          function omp_get_wtick ()
193
            double precision :: omp_get_wtick
194
          end function omp_get_wtick
195
        end interface
196
 
197
        interface
198
          function omp_get_wtime ()
199
            double precision :: omp_get_wtime
200
          end function omp_get_wtime
201
        end interface
202
 
203
        interface omp_set_schedule
204
          subroutine omp_set_schedule (kind, modifier)
205
            use omp_lib_kinds
206
            integer (omp_sched_kind), intent (in) :: kind
207
            integer (4), intent (in) :: modifier
208
          end subroutine omp_set_schedule
209
          subroutine omp_set_schedule_8 (kind, modifier)
210
            use omp_lib_kinds
211
            integer (omp_sched_kind), intent (in) :: kind
212
            integer (8), intent (in) :: modifier
213
          end subroutine omp_set_schedule_8
214
         end interface
215
 
216
        interface omp_get_schedule
217
          subroutine omp_get_schedule (kind, modifier)
218
            use omp_lib_kinds
219
            integer (omp_sched_kind), intent (out) :: kind
220
            integer (4), intent (out) :: modifier
221
          end subroutine omp_get_schedule
222
          subroutine omp_get_schedule_8 (kind, modifier)
223
            use omp_lib_kinds
224
            integer (omp_sched_kind), intent (out) :: kind
225
            integer (8), intent (out) :: modifier
226
          end subroutine omp_get_schedule_8
227
         end interface
228
 
229
        interface
230
          function omp_get_thread_limit ()
231
            use omp_lib_kinds
232
            integer (omp_integer_kind) :: omp_get_thread_limit
233
          end function omp_get_thread_limit
234
        end interface
235
 
236
        interface omp_set_max_active_levels
237
          subroutine omp_set_max_active_levels (max_levels)
238
            use omp_lib_kinds
239
            integer (4), intent (in) :: max_levels
240
          end subroutine omp_set_max_active_levels
241
          subroutine omp_set_max_active_levels_8 (max_levels)
242
            use omp_lib_kinds
243
            integer (8), intent (in) :: max_levels
244
          end subroutine omp_set_max_active_levels_8
245
        end interface
246
 
247
        interface
248
          function omp_get_max_active_levels ()
249
            use omp_lib_kinds
250
            integer (omp_integer_kind) :: omp_get_max_active_levels
251
          end function omp_get_max_active_levels
252
        end interface
253
 
254
        interface
255
          function omp_get_level ()
256
            use omp_lib_kinds
257
            integer (omp_integer_kind) :: omp_get_level
258
          end function omp_get_level
259
        end interface
260
 
261
        interface omp_get_ancestor_thread_num
262
          function omp_get_ancestor_thread_num (level)
263
            use omp_lib_kinds
264
            integer (4), intent (in) :: level
265
            integer (omp_integer_kind) :: omp_get_ancestor_thread_num
266
          end function omp_get_ancestor_thread_num
267
          function omp_get_ancestor_thread_num_8 (level)
268
            use omp_lib_kinds
269
            integer (8), intent (in) :: level
270
            integer (omp_integer_kind) :: omp_get_ancestor_thread_num_8
271
          end function omp_get_ancestor_thread_num_8
272
        end interface
273
 
274
        interface omp_get_team_size
275
          function omp_get_team_size (level)
276
            use omp_lib_kinds
277
            integer (4), intent (in) :: level
278
            integer (omp_integer_kind) :: omp_get_team_size
279
          end function omp_get_team_size
280
          function omp_get_team_size_8 (level)
281
            use omp_lib_kinds
282
            integer (8), intent (in) :: level
283
            integer (omp_integer_kind) :: omp_get_team_size_8
284
          end function omp_get_team_size_8
285
        end interface
286
 
287
        interface
288
          function omp_get_active_level ()
289
            use omp_lib_kinds
290
            integer (omp_integer_kind) :: omp_get_active_level
291
          end function omp_get_active_level
292
        end interface
293
 
294
      end module omp_lib

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.