libgomp/fortran.c

   1 /* Copyright (C) 2005, 2007, 2008, 2009 Free Software Foundation, Inc.
   2    Contributed by Jakub Jelinek <jakub@redhat.com>.
   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    <http://www.gnu.org/licenses/>.  */
  24
  25 /* This file contains Fortran wrapper routines.  */
  26
  27 #include "libgomp.h"
  28 #include "libgomp_f.h"
  29 #include <stdlib.h>
  30
  31 #ifdef HAVE_ATTRIBUTE_ALIAS
  32 /* Use internal aliases if possible.  */
  33 # define ULP            STR1(__USER_LABEL_PREFIX__)
  34 # define STR1(x)        STR2(x)
  35 # define STR2(x)        #x
  36 # define ialias_redirect(fn) \
  37   extern __typeof (fn) fn __asm__ (ULP "gomp_ialias_" #fn) attribute_hidden;
  38 # ifndef LIBGOMP_GNU_SYMBOL_VERSIONING
  39 ialias_redirect (omp_init_lock)
  40 ialias_redirect (omp_init_nest_lock)
  41 ialias_redirect (omp_destroy_lock)
  42 ialias_redirect (omp_destroy_nest_lock)
  43 ialias_redirect (omp_set_lock)
  44 ialias_redirect (omp_set_nest_lock)
  45 ialias_redirect (omp_unset_lock)
  46 ialias_redirect (omp_unset_nest_lock)
  47 ialias_redirect (omp_test_lock)
  48 ialias_redirect (omp_test_nest_lock)
  49 # endif
  50 ialias_redirect (omp_set_dynamic)
  51 ialias_redirect (omp_set_nested)
  52 ialias_redirect (omp_set_num_threads)
  53 ialias_redirect (omp_get_dynamic)
  54 ialias_redirect (omp_get_nested)
  55 ialias_redirect (omp_in_parallel)
  56 ialias_redirect (omp_get_max_threads)
  57 ialias_redirect (omp_get_num_procs)
  58 ialias_redirect (omp_get_num_threads)
  59 ialias_redirect (omp_get_thread_num)
  60 ialias_redirect (omp_get_wtick)
  61 ialias_redirect (omp_get_wtime)
  62 ialias_redirect (omp_set_schedule)
  63 ialias_redirect (omp_get_schedule)
  64 ialias_redirect (omp_get_thread_limit)
  65 ialias_redirect (omp_set_max_active_levels)
  66 ialias_redirect (omp_get_max_active_levels)
  67 ialias_redirect (omp_get_level)
  68 ialias_redirect (omp_get_ancestor_thread_num)
  69 ialias_redirect (omp_get_team_size)
  70 ialias_redirect (omp_get_active_level)
  71 #endif
  72
  73 #ifndef LIBGOMP_GNU_SYMBOL_VERSIONING
  74 # define gomp_init_lock__30 omp_init_lock_
  75 # define gomp_destroy_lock__30 omp_destroy_lock_
  76 # define gomp_set_lock__30 omp_set_lock_
  77 # define gomp_unset_lock__30 omp_unset_lock_
  78 # define gomp_test_lock__30 omp_test_lock_
  79 # define gomp_init_nest_lock__30 omp_init_nest_lock_
  80 # define gomp_destroy_nest_lock__30 omp_destroy_nest_lock_
  81 # define gomp_set_nest_lock__30 omp_set_nest_lock_
  82 # define gomp_unset_nest_lock__30 omp_unset_nest_lock_
  83 # define gomp_test_nest_lock__30 omp_test_nest_lock_
  84 #endif
  85
  86 void
  87 gomp_init_lock__30 (omp_lock_arg_t lock)
  88 {
  89 #ifndef OMP_LOCK_DIRECT
  90   omp_lock_arg (lock) = malloc (sizeof (omp_lock_t));
  91 #endif
  92   gomp_init_lock_30 (omp_lock_arg (lock));
  93 }
  94
  95 void
  96 gomp_init_nest_lock__30 (omp_nest_lock_arg_t lock)
  97 {
  98 #ifndef OMP_NEST_LOCK_DIRECT
  99   omp_nest_lock_arg (lock) = malloc (sizeof (omp_nest_lock_t));
 100 #endif
 101   gomp_init_nest_lock_30 (omp_nest_lock_arg (lock));
 102 }
 103
 104 void
 105 gomp_destroy_lock__30 (omp_lock_arg_t lock)
 106 {
 107   gomp_destroy_lock_30 (omp_lock_arg (lock));
 108 #ifndef OMP_LOCK_DIRECT
 109   free (omp_lock_arg (lock));
 110   omp_lock_arg (lock) = NULL;
 111 #endif
 112 }
 113
 114 void
 115 gomp_destroy_nest_lock__30 (omp_nest_lock_arg_t lock)
 116 {
 117   gomp_destroy_nest_lock_30 (omp_nest_lock_arg (lock));
 118 #ifndef OMP_NEST_LOCK_DIRECT
 119   free (omp_nest_lock_arg (lock));
 120   omp_nest_lock_arg (lock) = NULL;
 121 #endif
 122 }
 123
 124 void
 125 gomp_set_lock__30 (omp_lock_arg_t lock)
 126 {
 127   gomp_set_lock_30 (omp_lock_arg (lock));
 128 }
 129
 130 void
 131 gomp_set_nest_lock__30 (omp_nest_lock_arg_t lock)
 132 {
 133   gomp_set_nest_lock_30 (omp_nest_lock_arg (lock));
 134 }
 135
 136 void
 137 gomp_unset_lock__30 (omp_lock_arg_t lock)
 138 {
 139   gomp_unset_lock_30 (omp_lock_arg (lock));
 140 }
 141
 142 void
 143 gomp_unset_nest_lock__30 (omp_nest_lock_arg_t lock)
 144 {
 145   gomp_unset_nest_lock_30 (omp_nest_lock_arg (lock));
 146 }
 147
 148 int32_t
 149 gomp_test_lock__30 (omp_lock_arg_t lock)
 150 {
 151   return gomp_test_lock_30 (omp_lock_arg (lock));
 152 }
 153
 154 int32_t
 155 gomp_test_nest_lock__30 (omp_nest_lock_arg_t lock)
 156 {
 157   return gomp_test_nest_lock_30 (omp_nest_lock_arg (lock));
 158 }
 159
 160 #ifdef LIBGOMP_GNU_SYMBOL_VERSIONING
 161 void
 162 gomp_init_lock__25 (omp_lock_25_arg_t lock)
 163 {
 164 #ifndef OMP_LOCK_25_DIRECT
 165   omp_lock_25_arg (lock) = malloc (sizeof (omp_lock_25_t));
 166 #endif
 167   gomp_init_lock_25 (omp_lock_25_arg (lock));
 168 }
 169
 170 void
 171 gomp_init_nest_lock__25 (omp_nest_lock_25_arg_t lock)
 172 {
 173 #ifndef OMP_NEST_LOCK_25_DIRECT
 174   omp_nest_lock_25_arg (lock) = malloc (sizeof (omp_nest_lock_25_t));
 175 #endif
 176   gomp_init_nest_lock_25 (omp_nest_lock_25_arg (lock));
 177 }
 178
 179 void
 180 gomp_destroy_lock__25 (omp_lock_25_arg_t lock)
 181 {
 182   gomp_destroy_lock_25 (omp_lock_25_arg (lock));
 183 #ifndef OMP_LOCK_25_DIRECT
 184   free (omp_lock_25_arg (lock));
 185   omp_lock_25_arg (lock) = NULL;
 186 #endif
 187 }
 188
 189 void
 190 gomp_destroy_nest_lock__25 (omp_nest_lock_25_arg_t lock)
 191 {
 192   gomp_destroy_nest_lock_25 (omp_nest_lock_25_arg (lock));
 193 #ifndef OMP_NEST_LOCK_25_DIRECT
 194   free (omp_nest_lock_25_arg (lock));
 195   omp_nest_lock_25_arg (lock) = NULL;
 196 #endif
 197 }
 198
 199 void
 200 gomp_set_lock__25 (omp_lock_25_arg_t lock)
 201 {
 202   gomp_set_lock_25 (omp_lock_25_arg (lock));
 203 }
 204
 205 void
 206 gomp_set_nest_lock__25 (omp_nest_lock_25_arg_t lock)
 207 {
 208   gomp_set_nest_lock_25 (omp_nest_lock_25_arg (lock));
 209 }
 210
 211 void
 212 gomp_unset_lock__25 (omp_lock_25_arg_t lock)
 213 {
 214   gomp_unset_lock_25 (omp_lock_25_arg (lock));
 215 }
 216
 217 void
 218 gomp_unset_nest_lock__25 (omp_nest_lock_25_arg_t lock)
 219 {
 220   gomp_unset_nest_lock_25 (omp_nest_lock_25_arg (lock));
 221 }
 222
 223 int32_t
 224 gomp_test_lock__25 (omp_lock_25_arg_t lock)
 225 {
 226   return gomp_test_lock_25 (omp_lock_25_arg (lock));
 227 }
 228
 229 int32_t
 230 gomp_test_nest_lock__25 (omp_nest_lock_25_arg_t lock)
 231 {
 232   return gomp_test_nest_lock_25 (omp_nest_lock_25_arg (lock));
 233 }
 234
 235 omp_lock_symver (omp_init_lock_)
 236 omp_lock_symver (omp_destroy_lock_)
 237 omp_lock_symver (omp_set_lock_)
 238 omp_lock_symver (omp_unset_lock_)
 239 omp_lock_symver (omp_test_lock_)
 240 omp_lock_symver (omp_init_nest_lock_)
 241 omp_lock_symver (omp_destroy_nest_lock_)
 242 omp_lock_symver (omp_set_nest_lock_)
 243 omp_lock_symver (omp_unset_nest_lock_)
 244 omp_lock_symver (omp_test_nest_lock_)
 245 #endif
 246
 247 void
 248 omp_set_dynamic_ (const int32_t *set)
 249 {
 250   omp_set_dynamic (*set);
 251 }
 252
 253 void
 254 omp_set_dynamic_8_ (const int64_t *set)
 255 {
 256   omp_set_dynamic (*set);
 257 }
 258
 259 void
 260 omp_set_nested_ (const int32_t *set)
 261 {
 262   omp_set_nested (*set);
 263 }
 264
 265 void
 266 omp_set_nested_8_ (const int64_t *set)
 267 {
 268   omp_set_nested (*set);
 269 }
 270
 271 void
 272 omp_set_num_threads_ (const int32_t *set)
 273 {
 274   omp_set_num_threads (*set);
 275 }
 276
 277 void
 278 omp_set_num_threads_8_ (const int64_t *set)
 279 {
 280   omp_set_num_threads (*set);
 281 }
 282
 283 int32_t
 284 omp_get_dynamic_ (void)
 285 {
 286   return omp_get_dynamic ();
 287 }
 288
 289 int32_t
 290 omp_get_nested_ (void)
 291 {
 292   return omp_get_nested ();
 293 }
 294
 295 int32_t
 296 omp_in_parallel_ (void)
 297 {
 298   return omp_in_parallel ();
 299 }
 300
 301 int32_t
 302 omp_get_max_threads_ (void)
 303 {
 304   return omp_get_max_threads ();
 305 }
 306
 307 int32_t
 308 omp_get_num_procs_ (void)
 309 {
 310   return omp_get_num_procs ();
 311 }
 312
 313 int32_t
 314 omp_get_num_threads_ (void)
 315 {
 316   return omp_get_num_threads ();
 317 }
 318
 319 int32_t
 320 omp_get_thread_num_ (void)
 321 {
 322   return omp_get_thread_num ();
 323 }
 324
 325 double
 326 omp_get_wtick_ (void)
 327 {
 328   return omp_get_wtick ();
 329 }
 330
 331 double
 332 omp_get_wtime_ (void)
 333 {
 334   return omp_get_wtime ();
 335 }
 336
 337 void
 338 omp_set_schedule_ (const int32_t *kind, const int32_t *modifier)
 339 {
 340   omp_set_schedule (*kind, *modifier);
 341 }
 342
 343 void
 344 omp_set_schedule_8_ (const int32_t *kind, const int64_t *modifier)
 345 {
 346   omp_set_schedule (*kind, *modifier);
 347 }
 348
 349 void
 350 omp_get_schedule_ (int32_t *kind, int32_t *modifier)
 351 {
 352   omp_sched_t k;
 353   int m;
 354   omp_get_schedule (&k, &m);
 355   *kind = k;
 356   *modifier = m;
 357 }
 358
 359 void
 360 omp_get_schedule_8_ (int32_t *kind, int64_t *modifier)
 361 {
 362   omp_sched_t k;
 363   int m;
 364   omp_get_schedule (&k, &m);
 365   *kind = k;
 366   *modifier = m;
 367 }
 368
 369 int32_t
 370 omp_get_thread_limit_ (void)
 371 {
 372   return omp_get_thread_limit ();
 373 }
 374
 375 void
 376 omp_set_max_active_levels_ (const int32_t *levels)
 377 {
 378   omp_set_max_active_levels (*levels);
 379 }
 380
 381 void
 382 omp_set_max_active_levels_8_ (const int64_t *levels)
 383 {
 384   omp_set_max_active_levels (*levels);
 385 }
 386
 387 int32_t
 388 omp_get_max_active_levels_ (void)
 389 {
 390   return omp_get_max_active_levels ();
 391 }
 392
 393 int32_t
 394 omp_get_level_ (void)
 395 {
 396   return omp_get_level ();
 397 }
 398
 399 int32_t
 400 omp_get_ancestor_thread_num_ (const int32_t *level)
 401 {
 402   return omp_get_ancestor_thread_num (*level);
 403 }
 404
 405 int32_t
 406 omp_get_ancestor_thread_num_8_ (const int64_t *level)
 407 {
 408   return omp_get_ancestor_thread_num (*level);
 409 }
 410
 411 int32_t
 412 omp_get_team_size_ (const int32_t *level)
 413 {
 414   return omp_get_team_size (*level);
 415 }
 416
 417 int32_t
 418 omp_get_team_size_8_ (const int64_t *level)
 419 {
 420   return omp_get_team_size (*level);
 421 }
 422
 423 int32_t
 424 omp_get_active_level_ (void)
 425 {
 426   return omp_get_active_level ();
 427 }