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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [omp_lib.f90.in] - Blame information for rev 735

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 735 jeremybenn 
!  Copyright (C) 2005, 2007, 2008, 2009, 2011 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_lock_kind = @OMP_LOCK_KIND@
28 
        integer, parameter :: omp_nest_lock_kind = @OMP_NEST_LOCK_KIND@
29 
        integer, parameter :: omp_sched_kind = 4
30 
      end module
31 
 
32 
      module omp_lib
33 
        use omp_lib_kinds
34 
        implicit none
35 
        integer, parameter :: openmp_version = 201107
36 
        integer (omp_sched_kind), parameter :: omp_sched_static = 1
37 
        integer (omp_sched_kind), parameter :: omp_sched_dynamic = 2
38 
        integer (omp_sched_kind), parameter :: omp_sched_guided = 3
39 
        integer (omp_sched_kind), parameter :: omp_sched_auto = 4
40 
 
41 
        interface
42 
          subroutine omp_init_lock (lock)
43 
            use omp_lib_kinds
44 
            integer (omp_lock_kind), intent (out) :: lock
45 
          end subroutine omp_init_lock
46 
        end interface
47 
 
48 
        interface
49 
          subroutine omp_init_nest_lock (lock)
50 
            use omp_lib_kinds
51 
            integer (omp_nest_lock_kind), intent (out) :: lock
52 
          end subroutine omp_init_nest_lock
53 
        end interface
54 
 
55 
        interface
56 
          subroutine omp_destroy_lock (lock)
57 
            use omp_lib_kinds
58 
            integer (omp_lock_kind), intent (inout) :: lock
59 
          end subroutine omp_destroy_lock
60 
        end interface
61 
 
62 
        interface
63 
          subroutine omp_destroy_nest_lock (lock)
64 
            use omp_lib_kinds
65 
            integer (omp_nest_lock_kind), intent (inout) :: lock
66 
          end subroutine omp_destroy_nest_lock
67 
        end interface
68 
 
69 
        interface
70 
          subroutine omp_set_lock (lock)
71 
            use omp_lib_kinds
72 
            integer (omp_lock_kind), intent (inout) :: lock
73 
          end subroutine omp_set_lock
74 
        end interface
75 
 
76 
        interface
77 
          subroutine omp_set_nest_lock (lock)
78 
            use omp_lib_kinds
79 
            integer (omp_nest_lock_kind), intent (inout) :: lock
80 
          end subroutine omp_set_nest_lock
81 
        end interface
82 
 
83 
        interface
84 
          subroutine omp_unset_lock (lock)
85 
            use omp_lib_kinds
86 
            integer (omp_lock_kind), intent (inout) :: lock
87 
          end subroutine omp_unset_lock
88 
        end interface
89 
 
90 
        interface
91 
          subroutine omp_unset_nest_lock (lock)
92 
            use omp_lib_kinds
93 
            integer (omp_nest_lock_kind), intent (inout) :: lock
94 
          end subroutine omp_unset_nest_lock
95 
        end interface
96 
 
97 
        interface omp_set_dynamic
98 
          subroutine omp_set_dynamic (set)
99 
            logical (4), intent (in) :: set
100 
          end subroutine omp_set_dynamic
101 
          subroutine omp_set_dynamic_8 (set)
102 
            logical (8), intent (in) :: set
103 
          end subroutine omp_set_dynamic_8
104 
        end interface
105 
 
106 
        interface omp_set_nested
107 
          subroutine omp_set_nested (set)
108 
            logical (4), intent (in) :: set
109 
          end subroutine omp_set_nested
110 
          subroutine omp_set_nested_8 (set)
111 
            logical (8), intent (in) :: set
112 
          end subroutine omp_set_nested_8
113 
        end interface
114 
 
115 
        interface omp_set_num_threads
116 
          subroutine omp_set_num_threads (set)
117 
            integer (4), intent (in) :: set
118 
          end subroutine omp_set_num_threads
119 
          subroutine omp_set_num_threads_8 (set)
120 
            integer (8), intent (in) :: set
121 
          end subroutine omp_set_num_threads_8
122 
        end interface
123 
 
124 
        interface
125 
          function omp_get_dynamic ()
126 
            use omp_lib_kinds
127 
            logical (4) :: omp_get_dynamic
128 
          end function omp_get_dynamic
129 
        end interface
130 
 
131 
        interface
132 
          function omp_get_nested ()
133 
            use omp_lib_kinds
134 
            logical (4) :: omp_get_nested
135 
          end function omp_get_nested
136 
        end interface
137 
 
138 
        interface
139 
          function omp_in_parallel ()
140 
            use omp_lib_kinds
141 
            logical (4) :: omp_in_parallel
142 
          end function omp_in_parallel
143 
        end interface
144 
 
145 
        interface
146 
          function omp_test_lock (lock)
147 
            use omp_lib_kinds
148 
            logical (4) :: omp_test_lock
149 
            integer (omp_lock_kind), intent (inout) :: lock
150 
          end function omp_test_lock
151 
        end interface
152 
 
153 
        interface
154 
          function omp_get_max_threads ()
155 
            use omp_lib_kinds
156 
            integer (4) :: omp_get_max_threads
157 
          end function omp_get_max_threads
158 
        end interface
159 
 
160 
        interface
161 
          function omp_get_num_procs ()
162 
            use omp_lib_kinds
163 
            integer (4) :: omp_get_num_procs
164 
          end function omp_get_num_procs
165 
        end interface
166 
 
167 
        interface
168 
          function omp_get_num_threads ()
169 
            use omp_lib_kinds
170 
            integer (4) :: omp_get_num_threads
171 
          end function omp_get_num_threads
172 
        end interface
173 
 
174 
        interface
175 
          function omp_get_thread_num ()
176 
            use omp_lib_kinds
177 
            integer (4) :: omp_get_thread_num
178 
          end function omp_get_thread_num
179 
        end interface
180 
 
181 
        interface
182 
          function omp_test_nest_lock (lock)
183 
            use omp_lib_kinds
184 
            integer (4) :: omp_test_nest_lock
185 
            integer (omp_nest_lock_kind), intent (inout) :: lock
186 
          end function omp_test_nest_lock
187 
        end interface
188 
 
189 
        interface
190 
          function omp_get_wtick ()
191 
            double precision :: omp_get_wtick
192 
          end function omp_get_wtick
193 
        end interface
194 
 
195 
        interface
196 
          function omp_get_wtime ()
197 
            double precision :: omp_get_wtime
198 
          end function omp_get_wtime
199 
        end interface
200 
 
201 
        interface omp_set_schedule
202 
          subroutine omp_set_schedule (kind, modifier)
203 
            use omp_lib_kinds
204 
            integer (omp_sched_kind), intent (in) :: kind
205 
            integer (4), intent (in) :: modifier
206 
          end subroutine omp_set_schedule
207 
          subroutine omp_set_schedule_8 (kind, modifier)
208 
            use omp_lib_kinds
209 
            integer (omp_sched_kind), intent (in) :: kind
210 
            integer (8), intent (in) :: modifier
211 
          end subroutine omp_set_schedule_8
212 
         end interface
213 
 
214 
        interface omp_get_schedule
215 
          subroutine omp_get_schedule (kind, modifier)
216 
            use omp_lib_kinds
217 
            integer (omp_sched_kind), intent (out) :: kind
218 
            integer (4), intent (out) :: modifier
219 
          end subroutine omp_get_schedule
220 
          subroutine omp_get_schedule_8 (kind, modifier)
221 
            use omp_lib_kinds
222 
            integer (omp_sched_kind), intent (out) :: kind
223 
            integer (8), intent (out) :: modifier
224 
          end subroutine omp_get_schedule_8
225 
         end interface
226 
 
227 
        interface
228 
          function omp_get_thread_limit ()
229 
            use omp_lib_kinds
230 
            integer (4) :: omp_get_thread_limit
231 
          end function omp_get_thread_limit
232 
        end interface
233 
 
234 
        interface omp_set_max_active_levels
235 
          subroutine omp_set_max_active_levels (max_levels)
236 
            use omp_lib_kinds
237 
            integer (4), intent (in) :: max_levels
238 
          end subroutine omp_set_max_active_levels
239 
          subroutine omp_set_max_active_levels_8 (max_levels)
240 
            use omp_lib_kinds
241 
            integer (8), intent (in) :: max_levels
242 
          end subroutine omp_set_max_active_levels_8
243 
        end interface
244 
 
245 
        interface
246 
          function omp_get_max_active_levels ()
247 
            use omp_lib_kinds
248 
            integer (4) :: omp_get_max_active_levels
249 
          end function omp_get_max_active_levels
250 
        end interface
251 
 
252 
        interface
253 
          function omp_get_level ()
254 
            use omp_lib_kinds
255 
            integer (4) :: omp_get_level
256 
          end function omp_get_level
257 
        end interface
258 
 
259 
        interface omp_get_ancestor_thread_num
260 
          function omp_get_ancestor_thread_num (level)
261 
            use omp_lib_kinds
262 
            integer (4), intent (in) :: level
263 
            integer (4) :: omp_get_ancestor_thread_num
264 
          end function omp_get_ancestor_thread_num
265 
          function omp_get_ancestor_thread_num_8 (level)
266 
            use omp_lib_kinds
267 
            integer (8), intent (in) :: level
268 
            integer (4) :: omp_get_ancestor_thread_num_8
269 
          end function omp_get_ancestor_thread_num_8
270 
        end interface
271 
 
272 
        interface omp_get_team_size
273 
          function omp_get_team_size (level)
274 
            use omp_lib_kinds
275 
            integer (4), intent (in) :: level
276 
            integer (4) :: omp_get_team_size
277 
          end function omp_get_team_size
278 
          function omp_get_team_size_8 (level)
279 
            use omp_lib_kinds
280 
            integer (8), intent (in) :: level
281 
            integer (4) :: omp_get_team_size_8
282 
          end function omp_get_team_size_8
283 
        end interface
284 
 
285 
        interface
286 
          function omp_get_active_level ()
287 
            use omp_lib_kinds
288 
            integer (4) :: omp_get_active_level
289 
          end function omp_get_active_level
290 
        end interface
291 
 
292 
        interface
293 
          function omp_in_final ()
294 
            use omp_lib_kinds
295 
            logical (4) :: omp_in_final
296 
          end function omp_in_final
297 
        end interface
298 
 
299 
      end module omp_lib

powered by: WebSVN 2.1.0

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