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

Subversion Repositories openrisc_me

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

Go to most recent revision | 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.