Server IP : 85.214.239.14 / Your IP : 18.117.11.13 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/2/root/proc/self/root/lib/gcc/x86_64-linux-gnu/12/finclude/ |
Upload File : |
! OpenACC Runtime Library Definitions. ! Copyright (C) 2014-2022 Free Software Foundation, Inc. ! Contributed by Tobias Burnus <burnus@net-b.de> ! and Mentor Embedded. ! This file is part of the GNU Offloading and Multi Processing Library ! (libgomp). ! Libgomp is free software; you can redistribute it and/or modify it ! under the terms of the GNU General Public License as published by ! the Free Software Foundation; either version 3, or (at your option) ! any later version. ! Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY ! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS ! FOR A PARTICULAR PURPOSE. See the GNU General Public License for ! more details. ! Under Section 7 of GPL version 3, you are granted additional ! permissions described in the GCC Runtime Library Exception, version ! 3.1, as published by the Free Software Foundation. ! You should have received a copy of the GNU General Public License and ! a copy of the GCC Runtime Library Exception along with this program; ! see the files COPYING3 and COPYING.RUNTIME respectively. If not, see ! <http://www.gnu.org/licenses/>. ! Keep in sync with config/accel/openacc.f90 and openacc_lib.h. module openacc_kinds use iso_fortran_env, only: int32 implicit none public private :: int32 ! When adding items, also update 'public' setting in 'module openacc' below. integer, parameter :: acc_device_kind = int32 ! Keep in sync with include/gomp-constants.h. integer (acc_device_kind), parameter :: acc_device_current = -1 integer (acc_device_kind), parameter :: acc_device_none = 0 integer (acc_device_kind), parameter :: acc_device_default = 1 integer (acc_device_kind), parameter :: acc_device_host = 2 ! integer (acc_device_kind), parameter :: acc_device_host_nonshm = 3 removed. integer (acc_device_kind), parameter :: acc_device_not_host = 4 integer (acc_device_kind), parameter :: acc_device_nvidia = 5 integer (acc_device_kind), parameter :: acc_device_radeon = 8 integer, parameter :: acc_device_property_kind = int32 ! OpenACC 2.6/2.7/3.0 used acc_device_property; in a spec update the ! missing '_kind' was added for consistency. For backward compatibility, keep: integer, parameter :: acc_device_property = acc_device_property_kind ! Keep in sync with 'libgomp/libgomp-plugin.h:goacc_property'. integer (acc_device_property_kind), parameter :: acc_property_memory = 1 integer (acc_device_property_kind), parameter :: acc_property_free_memory = 2 integer (acc_device_property_kind), parameter :: acc_property_name = int(Z'10001') integer (acc_device_property_kind), parameter :: acc_property_vendor = int(Z'10002') integer (acc_device_property_kind), parameter :: acc_property_driver = int(Z'10003') integer, parameter :: acc_handle_kind = int32 ! Keep in sync with include/gomp-constants.h. integer (acc_handle_kind), parameter :: acc_async_noval = -1 integer (acc_handle_kind), parameter :: acc_async_sync = -2 end module openacc_kinds module openacc_internal use openacc_kinds implicit none interface function acc_get_num_devices_h (devicetype) import integer acc_get_num_devices_h integer (acc_device_kind) devicetype end function subroutine acc_set_device_type_h (devicetype) import integer (acc_device_kind) devicetype end subroutine function acc_get_device_type_h () import integer (acc_device_kind) acc_get_device_type_h end function subroutine acc_set_device_num_h (devicenum, devicetype) import integer devicenum integer (acc_device_kind) devicetype end subroutine function acc_get_device_num_h (devicetype) import integer acc_get_device_num_h integer (acc_device_kind) devicetype end function function acc_get_property_h (devicenum, devicetype, property) use iso_c_binding, only: c_size_t import implicit none (type, external) integer (c_size_t) :: acc_get_property_h integer, value :: devicenum integer (acc_device_kind), value :: devicetype integer (acc_device_property_kind), value :: property end function subroutine acc_get_property_string_h (devicenum, devicetype, property, string) import implicit none (type, external) integer, value :: devicenum integer (acc_device_kind), value :: devicetype integer (acc_device_property_kind), value :: property character (*) :: string end subroutine function acc_async_test_h (arg) logical acc_async_test_h integer arg end function function acc_async_test_all_h () logical acc_async_test_all_h end function subroutine acc_wait_h (arg) integer arg end subroutine subroutine acc_wait_async_h (arg, async) integer arg, async end subroutine subroutine acc_wait_all_h () end subroutine subroutine acc_wait_all_async_h (async) integer async end subroutine subroutine acc_init_h (devicetype) import integer (acc_device_kind) devicetype end subroutine subroutine acc_shutdown_h (devicetype) import integer (acc_device_kind) devicetype end subroutine function acc_on_device_h (devicetype) import integer (acc_device_kind) devicetype logical acc_on_device_h end function subroutine acc_copyin_32_h (a, len) use iso_c_binding, only: c_int32_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len end subroutine subroutine acc_copyin_64_h (a, len) use iso_c_binding, only: c_int64_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len end subroutine subroutine acc_copyin_array_h (a) type (*), dimension (..), contiguous :: a end subroutine subroutine acc_present_or_copyin_32_h (a, len) use iso_c_binding, only: c_int32_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len end subroutine subroutine acc_present_or_copyin_64_h (a, len) use iso_c_binding, only: c_int64_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len end subroutine subroutine acc_present_or_copyin_array_h (a) type (*), dimension (..), contiguous :: a end subroutine subroutine acc_create_32_h (a, len) use iso_c_binding, only: c_int32_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len end subroutine subroutine acc_create_64_h (a, len) use iso_c_binding, only: c_int64_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len end subroutine subroutine acc_create_array_h (a) type (*), dimension (..), contiguous :: a end subroutine subroutine acc_present_or_create_32_h (a, len) use iso_c_binding, only: c_int32_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len end subroutine subroutine acc_present_or_create_64_h (a, len) use iso_c_binding, only: c_int64_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len end subroutine subroutine acc_present_or_create_array_h (a) type (*), dimension (..), contiguous :: a end subroutine subroutine acc_copyout_32_h (a, len) use iso_c_binding, only: c_int32_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len end subroutine subroutine acc_copyout_64_h (a, len) use iso_c_binding, only: c_int64_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len end subroutine subroutine acc_copyout_array_h (a) type (*), dimension (..), contiguous :: a end subroutine subroutine acc_copyout_finalize_32_h (a, len) use iso_c_binding, only: c_int32_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len end subroutine subroutine acc_copyout_finalize_64_h (a, len) use iso_c_binding, only: c_int64_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len end subroutine subroutine acc_copyout_finalize_array_h (a) type (*), dimension (..), contiguous :: a end subroutine subroutine acc_delete_32_h (a, len) use iso_c_binding, only: c_int32_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len end subroutine subroutine acc_delete_64_h (a, len) use iso_c_binding, only: c_int64_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len end subroutine subroutine acc_delete_array_h (a) type (*), dimension (..), contiguous :: a end subroutine subroutine acc_delete_finalize_32_h (a, len) use iso_c_binding, only: c_int32_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len end subroutine subroutine acc_delete_finalize_64_h (a, len) use iso_c_binding, only: c_int64_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len end subroutine subroutine acc_delete_finalize_array_h (a) type (*), dimension (..), contiguous :: a end subroutine subroutine acc_update_device_32_h (a, len) use iso_c_binding, only: c_int32_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len end subroutine subroutine acc_update_device_64_h (a, len) use iso_c_binding, only: c_int64_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len end subroutine subroutine acc_update_device_array_h (a) type (*), dimension (..), contiguous :: a end subroutine subroutine acc_update_self_32_h (a, len) use iso_c_binding, only: c_int32_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len end subroutine subroutine acc_update_self_64_h (a, len) use iso_c_binding, only: c_int64_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len end subroutine subroutine acc_update_self_array_h (a) type (*), dimension (..), contiguous :: a end subroutine function acc_is_present_32_h (a, len) use iso_c_binding, only: c_int32_t logical acc_is_present_32_h !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len end function function acc_is_present_64_h (a, len) use iso_c_binding, only: c_int64_t logical acc_is_present_64_h !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len end function function acc_is_present_array_h (a) logical acc_is_present_array_h type (*), dimension (..), contiguous :: a end function subroutine acc_copyin_async_32_h (a, len, async) use iso_c_binding, only: c_int32_t use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len integer (acc_handle_kind) async end subroutine subroutine acc_copyin_async_64_h (a, len, async) use iso_c_binding, only: c_int64_t use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len integer (acc_handle_kind) async end subroutine subroutine acc_copyin_async_array_h (a, async) use openacc_kinds, only: acc_handle_kind type (*), dimension (..), contiguous :: a integer (acc_handle_kind) async end subroutine subroutine acc_create_async_32_h (a, len, async) use iso_c_binding, only: c_int32_t use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len integer (acc_handle_kind) async end subroutine subroutine acc_create_async_64_h (a, len, async) use iso_c_binding, only: c_int64_t use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len integer (acc_handle_kind) async end subroutine subroutine acc_create_async_array_h (a, async) use openacc_kinds, only: acc_handle_kind type (*), dimension (..), contiguous :: a integer (acc_handle_kind) async end subroutine subroutine acc_copyout_async_32_h (a, len, async) use iso_c_binding, only: c_int32_t use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len integer (acc_handle_kind) async end subroutine subroutine acc_copyout_async_64_h (a, len, async) use iso_c_binding, only: c_int64_t use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len integer (acc_handle_kind) async end subroutine subroutine acc_copyout_async_array_h (a, async) use openacc_kinds, only: acc_handle_kind type (*), dimension (..), contiguous :: a integer (acc_handle_kind) async end subroutine subroutine acc_delete_async_32_h (a, len, async) use iso_c_binding, only: c_int32_t use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len integer (acc_handle_kind) async end subroutine subroutine acc_delete_async_64_h (a, len, async) use iso_c_binding, only: c_int64_t use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len integer (acc_handle_kind) async end subroutine subroutine acc_delete_async_array_h (a, async) use openacc_kinds, only: acc_handle_kind type (*), dimension (..), contiguous :: a integer (acc_handle_kind) async end subroutine subroutine acc_update_device_async_32_h (a, len, async) use iso_c_binding, only: c_int32_t use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len integer (acc_handle_kind) async end subroutine subroutine acc_update_device_async_64_h (a, len, async) use iso_c_binding, only: c_int64_t use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len integer (acc_handle_kind) async end subroutine subroutine acc_update_device_async_array_h (a, async) use openacc_kinds, only: acc_handle_kind type (*), dimension (..), contiguous :: a integer (acc_handle_kind) async end subroutine subroutine acc_update_self_async_32_h (a, len, async) use iso_c_binding, only: c_int32_t use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len integer (acc_handle_kind) async end subroutine subroutine acc_update_self_async_64_h (a, len, async) use iso_c_binding, only: c_int64_t use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len integer (acc_handle_kind) async end subroutine subroutine acc_update_self_async_array_h (a, async) use openacc_kinds, only: acc_handle_kind type (*), dimension (..), contiguous :: a integer (acc_handle_kind) async end subroutine end interface interface function acc_get_num_devices_l (devicetype) & bind (C, name = "acc_get_num_devices") use iso_c_binding, only: c_int integer (c_int) :: acc_get_num_devices_l integer (c_int), value :: devicetype end function subroutine acc_set_device_type_l (devicetype) & bind (C, name = "acc_set_device_type") use iso_c_binding, only: c_int integer (c_int), value :: devicetype end subroutine function acc_get_device_type_l () & bind (C, name = "acc_get_device_type") use iso_c_binding, only: c_int integer (c_int) :: acc_get_device_type_l end function subroutine acc_set_device_num_l (devicenum, devicetype) & bind (C, name = "acc_set_device_num") use iso_c_binding, only: c_int integer (c_int), value :: devicenum, devicetype end subroutine function acc_get_device_num_l (devicetype) & bind (C, name = "acc_get_device_num") use iso_c_binding, only: c_int integer (c_int) :: acc_get_device_num_l integer (c_int), value :: devicetype end function function acc_get_property_l (devicenum, devicetype, property) & bind (C, name = "acc_get_property") use iso_c_binding, only: c_int, c_size_t implicit none (type, external) integer (c_size_t) :: acc_get_property_l integer (c_int), value :: devicenum integer (c_int), value :: devicetype integer (c_int), value :: property end function function acc_get_property_string_l (devicenum, devicetype, property) & bind (C, name = "acc_get_property_string") use iso_c_binding, only: c_int, c_ptr implicit none (type, external) type (c_ptr) :: acc_get_property_string_l integer (c_int), value :: devicenum integer (c_int), value :: devicetype integer (c_int), value :: property end function function acc_async_test_l (a) & bind (C, name = "acc_async_test") use iso_c_binding, only: c_int integer (c_int) :: acc_async_test_l integer (c_int), value :: a end function function acc_async_test_all_l () & bind (C, name = "acc_async_test_all") use iso_c_binding, only: c_int integer (c_int) :: acc_async_test_all_l end function subroutine acc_wait_l (a) & bind (C, name = "acc_wait") use iso_c_binding, only: c_int integer (c_int), value :: a end subroutine subroutine acc_wait_async_l (arg, async) & bind (C, name = "acc_wait_async") use iso_c_binding, only: c_int integer (c_int), value :: arg, async end subroutine subroutine acc_wait_all_l () & bind (C, name = "acc_wait_all") use iso_c_binding, only: c_int end subroutine subroutine acc_wait_all_async_l (async) & bind (C, name = "acc_wait_all_async") use iso_c_binding, only: c_int integer (c_int), value :: async end subroutine subroutine acc_init_l (devicetype) & bind (C, name = "acc_init") use iso_c_binding, only: c_int integer (c_int), value :: devicetype end subroutine subroutine acc_shutdown_l (devicetype) & bind (C, name = "acc_shutdown") use iso_c_binding, only: c_int integer (c_int), value :: devicetype end subroutine function acc_on_device_l (devicetype) & bind (C, name = "acc_on_device") use iso_c_binding, only: c_int integer (c_int) :: acc_on_device_l integer (c_int), value :: devicetype end function subroutine acc_copyin_l (a, len) & bind (C, name = "acc_copyin") use iso_c_binding, only: c_size_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_size_t), value :: len end subroutine subroutine acc_present_or_copyin_l (a, len) & bind (C, name = "acc_present_or_copyin") use iso_c_binding, only: c_size_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_size_t), value :: len end subroutine subroutine acc_create_l (a, len) & bind (C, name = "acc_create") use iso_c_binding, only: c_size_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_size_t), value :: len end subroutine subroutine acc_present_or_create_l (a, len) & bind (C, name = "acc_present_or_create") use iso_c_binding, only: c_size_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_size_t), value :: len end subroutine subroutine acc_copyout_l (a, len) & bind (C, name = "acc_copyout") use iso_c_binding, only: c_size_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_size_t), value :: len end subroutine subroutine acc_copyout_finalize_l (a, len) & bind (C, name = "acc_copyout_finalize") use iso_c_binding, only: c_size_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_size_t), value :: len end subroutine subroutine acc_delete_l (a, len) & bind (C, name = "acc_delete") use iso_c_binding, only: c_size_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_size_t), value :: len end subroutine subroutine acc_delete_finalize_l (a, len) & bind (C, name = "acc_delete_finalize") use iso_c_binding, only: c_size_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_size_t), value :: len end subroutine subroutine acc_update_device_l (a, len) & bind (C, name = "acc_update_device") use iso_c_binding, only: c_size_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_size_t), value :: len end subroutine subroutine acc_update_self_l (a, len) & bind (C, name = "acc_update_self") use iso_c_binding, only: c_size_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_size_t), value :: len end subroutine function acc_is_present_l (a, len) & bind (C, name = "acc_is_present") use iso_c_binding, only: c_int32_t, c_size_t !GCC$ ATTRIBUTES NO_ARG_CHECK :: a integer (c_int32_t) :: acc_is_present_l type (*), dimension (*) :: a integer (c_size_t), value :: len end function subroutine acc_copyin_async_l (a, len, async) & bind (C, name = "acc_copyin_async") use iso_c_binding, only: c_size_t, c_int !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_size_t), value :: len integer (c_int), value :: async end subroutine subroutine acc_create_async_l (a, len, async) & bind (C, name = "acc_create_async") use iso_c_binding, only: c_size_t, c_int !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_size_t), value :: len integer (c_int), value :: async end subroutine subroutine acc_copyout_async_l (a, len, async) & bind (C, name = "acc_copyout_async") use iso_c_binding, only: c_size_t, c_int !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_size_t), value :: len integer (c_int), value :: async end subroutine subroutine acc_delete_async_l (a, len, async) & bind (C, name = "acc_delete_async") use iso_c_binding, only: c_size_t, c_int !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_size_t), value :: len integer (c_int), value :: async end subroutine subroutine acc_update_device_async_l (a, len, async) & bind (C, name = "acc_update_device_async") use iso_c_binding, only: c_size_t, c_int !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_size_t), value :: len integer (c_int), value :: async end subroutine subroutine acc_update_self_async_l (a, len, async) & bind (C, name = "acc_update_self_async") use iso_c_binding, only: c_size_t, c_int !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_size_t), value :: len integer (c_int), value :: async end subroutine end interface end module openacc_internal module openacc use openacc_kinds use openacc_internal implicit none private ! From openacc_kinds public :: acc_device_kind public :: acc_device_none, acc_device_default, acc_device_host public :: acc_device_not_host, acc_device_nvidia, acc_device_radeon public :: acc_device_property_kind, acc_device_property public :: acc_property_memory, acc_property_free_memory public :: acc_property_name, acc_property_vendor, acc_property_driver public :: acc_handle_kind public :: acc_async_noval, acc_async_sync public :: openacc_version public :: acc_get_num_devices, acc_set_device_type, acc_get_device_type public :: acc_set_device_num, acc_get_device_num public :: acc_get_property, acc_get_property_string public :: acc_async_test, acc_async_test_all public :: acc_wait, acc_async_wait, acc_wait_async public :: acc_wait_all, acc_async_wait_all, acc_wait_all_async public :: acc_init, acc_shutdown, acc_on_device public :: acc_copyin, acc_present_or_copyin, acc_pcopyin, acc_create public :: acc_present_or_create, acc_pcreate, acc_copyout, acc_delete public :: acc_update_device, acc_update_self, acc_is_present public :: acc_copyin_async, acc_create_async, acc_copyout_async public :: acc_delete_async, acc_update_device_async, acc_update_self_async public :: acc_copyout_finalize, acc_delete_finalize integer, parameter :: openacc_version = 201711 interface acc_get_num_devices procedure :: acc_get_num_devices_h end interface interface acc_set_device_type procedure :: acc_set_device_type_h end interface interface acc_get_device_type procedure :: acc_get_device_type_h end interface interface acc_set_device_num procedure :: acc_set_device_num_h end interface interface acc_get_device_num procedure :: acc_get_device_num_h end interface interface acc_get_property procedure :: acc_get_property_h end interface interface acc_get_property_string procedure :: acc_get_property_string_h end interface interface acc_async_test procedure :: acc_async_test_h end interface interface acc_async_test_all procedure :: acc_async_test_all_h end interface interface acc_wait procedure :: acc_wait_h end interface ! acc_async_wait is an OpenACC 1.0 compatibility name for acc_wait. interface acc_async_wait procedure :: acc_wait_h end interface interface acc_wait_async procedure :: acc_wait_async_h end interface interface acc_wait_all procedure :: acc_wait_all_h end interface ! acc_async_wait_all is an OpenACC 1.0 compatibility name for acc_wait_all. interface acc_async_wait_all procedure :: acc_wait_all_h end interface interface acc_wait_all_async procedure :: acc_wait_all_async_h end interface interface acc_init procedure :: acc_init_h end interface interface acc_shutdown procedure :: acc_shutdown_h end interface interface acc_on_device procedure :: acc_on_device_h end interface ! acc_malloc: Only available in C/C++ ! acc_free: Only available in C/C++ ! As vendor extension, the following code supports both 32bit and 64bit ! arguments for "size"; the OpenACC standard only permits default-kind ! integers, which are of kind 4 (i.e. 32 bits). ! Additionally, the two-argument version also takes arrays as argument. ! and the one argument version also scalars. Note that the code assumes ! that the arrays are contiguous. interface acc_copyin procedure :: acc_copyin_32_h procedure :: acc_copyin_64_h procedure :: acc_copyin_array_h end interface interface acc_present_or_copyin procedure :: acc_present_or_copyin_32_h procedure :: acc_present_or_copyin_64_h procedure :: acc_present_or_copyin_array_h end interface interface acc_pcopyin procedure :: acc_present_or_copyin_32_h procedure :: acc_present_or_copyin_64_h procedure :: acc_present_or_copyin_array_h end interface interface acc_create procedure :: acc_create_32_h procedure :: acc_create_64_h procedure :: acc_create_array_h end interface interface acc_present_or_create procedure :: acc_present_or_create_32_h procedure :: acc_present_or_create_64_h procedure :: acc_present_or_create_array_h end interface interface acc_pcreate procedure :: acc_present_or_create_32_h procedure :: acc_present_or_create_64_h procedure :: acc_present_or_create_array_h end interface interface acc_copyout procedure :: acc_copyout_32_h procedure :: acc_copyout_64_h procedure :: acc_copyout_array_h end interface interface acc_copyout_finalize procedure :: acc_copyout_finalize_32_h procedure :: acc_copyout_finalize_64_h procedure :: acc_copyout_finalize_array_h end interface interface acc_delete procedure :: acc_delete_32_h procedure :: acc_delete_64_h procedure :: acc_delete_array_h end interface interface acc_delete_finalize procedure :: acc_delete_finalize_32_h procedure :: acc_delete_finalize_64_h procedure :: acc_delete_finalize_array_h end interface interface acc_update_device procedure :: acc_update_device_32_h procedure :: acc_update_device_64_h procedure :: acc_update_device_array_h end interface interface acc_update_self procedure :: acc_update_self_32_h procedure :: acc_update_self_64_h procedure :: acc_update_self_array_h end interface ! acc_map_data: Only available in C/C++ ! acc_unmap_data: Only available in C/C++ ! acc_deviceptr: Only available in C/C++ ! acc_hostptr: Only available in C/C++ interface acc_is_present procedure :: acc_is_present_32_h procedure :: acc_is_present_64_h procedure :: acc_is_present_array_h end interface ! acc_memcpy_to_device: Only available in C/C++ ! acc_memcpy_from_device: Only available in C/C++ interface acc_copyin_async procedure :: acc_copyin_async_32_h procedure :: acc_copyin_async_64_h procedure :: acc_copyin_async_array_h end interface interface acc_create_async procedure :: acc_create_async_32_h procedure :: acc_create_async_64_h procedure :: acc_create_async_array_h end interface interface acc_copyout_async procedure :: acc_copyout_async_32_h procedure :: acc_copyout_async_64_h procedure :: acc_copyout_async_array_h end interface interface acc_delete_async procedure :: acc_delete_async_32_h procedure :: acc_delete_async_64_h procedure :: acc_delete_async_array_h end interface interface acc_update_device_async procedure :: acc_update_device_async_32_h procedure :: acc_update_device_async_64_h procedure :: acc_update_device_async_array_h end interface interface acc_update_self_async procedure :: acc_update_self_async_32_h procedure :: acc_update_self_async_64_h procedure :: acc_update_self_async_array_h end interface end module openacc function acc_get_num_devices_h (devicetype) use openacc_internal, only: acc_get_num_devices_l use openacc_kinds integer acc_get_num_devices_h integer (acc_device_kind) devicetype acc_get_num_devices_h = acc_get_num_devices_l (devicetype) end function subroutine acc_set_device_type_h (devicetype) use openacc_internal, only: acc_set_device_type_l use openacc_kinds integer (acc_device_kind) devicetype call acc_set_device_type_l (devicetype) end subroutine function acc_get_device_type_h () use openacc_internal, only: acc_get_device_type_l use openacc_kinds integer (acc_device_kind) acc_get_device_type_h acc_get_device_type_h = acc_get_device_type_l () end function subroutine acc_set_device_num_h (devicenum, devicetype) use openacc_internal, only: acc_set_device_num_l use openacc_kinds integer devicenum integer (acc_device_kind) devicetype call acc_set_device_num_l (devicenum, devicetype) end subroutine function acc_get_device_num_h (devicetype) use openacc_internal, only: acc_get_device_num_l use openacc_kinds integer acc_get_device_num_h integer (acc_device_kind) devicetype acc_get_device_num_h = acc_get_device_num_l (devicetype) end function function acc_get_property_h (devicenum, devicetype, property) use iso_c_binding, only: c_size_t use openacc_internal, only: acc_get_property_l use openacc_kinds implicit none (type, external) integer (c_size_t) :: acc_get_property_h integer, value :: devicenum integer (acc_device_kind), value :: devicetype integer (acc_device_property_kind), value :: property acc_get_property_h = acc_get_property_l (devicenum, devicetype, property) end function subroutine acc_get_property_string_h (devicenum, devicetype, property, string) use iso_c_binding, only: c_char, c_size_t, c_ptr, c_f_pointer, c_associated use openacc_internal, only: acc_get_property_string_l use openacc_kinds implicit none (type, external) integer, value :: devicenum integer (acc_device_kind), value :: devicetype integer (acc_device_property_kind), value :: property character (*) :: string type (c_ptr) :: cptr integer(c_size_t) :: clen, slen, i character (kind=c_char, len=1), pointer, contiguous :: sptr (:) interface function strlen (s) bind (C, name = "strlen") use iso_c_binding, only: c_ptr, c_size_t type (c_ptr), intent(in), value :: s integer (c_size_t) :: strlen end function strlen end interface cptr = acc_get_property_string_l (devicenum, devicetype, property) string = "" if (.not. c_associated (cptr)) then return end if clen = strlen (cptr) call c_f_pointer (cptr, sptr, [clen]) slen = min (clen, len (string, kind=c_size_t)) do i = 1, slen string (i:i) = sptr (i) end do end subroutine function acc_async_test_h (arg) use openacc_internal, only: acc_async_test_l logical acc_async_test_h integer arg acc_async_test_h = acc_async_test_l (arg) /= 0 end function function acc_async_test_all_h () use openacc_internal, only: acc_async_test_all_l logical acc_async_test_all_h acc_async_test_all_h = acc_async_test_all_l () /= 0 end function subroutine acc_wait_h (arg) use openacc_internal, only: acc_wait_l integer arg call acc_wait_l (arg) end subroutine subroutine acc_wait_async_h (arg, async) use openacc_internal, only: acc_wait_async_l integer arg, async call acc_wait_async_l (arg, async) end subroutine subroutine acc_wait_all_h () use openacc_internal, only: acc_wait_all_l call acc_wait_all_l () end subroutine subroutine acc_wait_all_async_h (async) use openacc_internal, only: acc_wait_all_async_l integer async call acc_wait_all_async_l (async) end subroutine subroutine acc_init_h (devicetype) use openacc_internal, only: acc_init_l use openacc_kinds integer (acc_device_kind) devicetype call acc_init_l (devicetype) end subroutine subroutine acc_shutdown_h (devicetype) use openacc_internal, only: acc_shutdown_l use openacc_kinds integer (acc_device_kind) devicetype call acc_shutdown_l (devicetype) end subroutine function acc_on_device_h (devicetype) use openacc_internal, only: acc_on_device_l use openacc_kinds integer (acc_device_kind) devicetype logical acc_on_device_h acc_on_device_h = acc_on_device_l (devicetype) /= 0 end function subroutine acc_copyin_32_h (a, len) use iso_c_binding, only: c_int32_t, c_size_t use openacc_internal, only: acc_copyin_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len call acc_copyin_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_copyin_64_h (a, len) use iso_c_binding, only: c_int64_t, c_size_t use openacc_internal, only: acc_copyin_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len call acc_copyin_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_copyin_array_h (a) use openacc_internal, only: acc_copyin_l type (*), dimension (..), contiguous :: a call acc_copyin_l (a, sizeof (a)) end subroutine subroutine acc_present_or_copyin_32_h (a, len) use iso_c_binding, only: c_int32_t, c_size_t use openacc_internal, only: acc_present_or_copyin_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len call acc_present_or_copyin_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_present_or_copyin_64_h (a, len) use iso_c_binding, only: c_int64_t, c_size_t use openacc_internal, only: acc_present_or_copyin_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len call acc_present_or_copyin_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_present_or_copyin_array_h (a) use openacc_internal, only: acc_present_or_copyin_l type (*), dimension (..), contiguous :: a call acc_present_or_copyin_l (a, sizeof (a)) end subroutine subroutine acc_create_32_h (a, len) use iso_c_binding, only: c_int32_t, c_size_t use openacc_internal, only: acc_create_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len call acc_create_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_create_64_h (a, len) use iso_c_binding, only: c_int64_t, c_size_t use openacc_internal, only: acc_create_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len call acc_create_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_create_array_h (a) use openacc_internal, only: acc_create_l type (*), dimension (..), contiguous :: a call acc_create_l (a, sizeof (a)) end subroutine subroutine acc_present_or_create_32_h (a, len) use iso_c_binding, only: c_int32_t, c_size_t use openacc_internal, only: acc_present_or_create_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len call acc_present_or_create_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_present_or_create_64_h (a, len) use iso_c_binding, only: c_int64_t, c_size_t use openacc_internal, only: acc_present_or_create_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len call acc_present_or_create_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_present_or_create_array_h (a) use openacc_internal, only: acc_present_or_create_l type (*), dimension (..), contiguous :: a call acc_present_or_create_l (a, sizeof (a)) end subroutine subroutine acc_copyout_32_h (a, len) use iso_c_binding, only: c_int32_t, c_size_t use openacc_internal, only: acc_copyout_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len call acc_copyout_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_copyout_64_h (a, len) use iso_c_binding, only: c_int64_t, c_size_t use openacc_internal, only: acc_copyout_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len call acc_copyout_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_copyout_array_h (a) use openacc_internal, only: acc_copyout_l type (*), dimension (..), contiguous :: a call acc_copyout_l (a, sizeof (a)) end subroutine subroutine acc_copyout_finalize_32_h (a, len) use iso_c_binding, only: c_int32_t, c_size_t use openacc_internal, only: acc_copyout_finalize_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len call acc_copyout_finalize_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_copyout_finalize_64_h (a, len) use iso_c_binding, only: c_int64_t, c_size_t use openacc_internal, only: acc_copyout_finalize_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len call acc_copyout_finalize_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_copyout_finalize_array_h (a) use openacc_internal, only: acc_copyout_finalize_l type (*), dimension (..), contiguous :: a call acc_copyout_finalize_l (a, sizeof (a)) end subroutine subroutine acc_delete_32_h (a, len) use iso_c_binding, only: c_int32_t, c_size_t use openacc_internal, only: acc_delete_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len call acc_delete_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_delete_64_h (a, len) use iso_c_binding, only: c_int64_t, c_size_t use openacc_internal, only: acc_delete_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len call acc_delete_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_delete_array_h (a) use openacc_internal, only: acc_delete_l type (*), dimension (..), contiguous :: a call acc_delete_l (a, sizeof (a)) end subroutine subroutine acc_delete_finalize_32_h (a, len) use iso_c_binding, only: c_int32_t, c_size_t use openacc_internal, only: acc_delete_finalize_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len call acc_delete_finalize_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_delete_finalize_64_h (a, len) use iso_c_binding, only: c_int64_t, c_size_t use openacc_internal, only: acc_delete_finalize_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len call acc_delete_finalize_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_delete_finalize_array_h (a) use openacc_internal, only: acc_delete_finalize_l type (*), dimension (..), contiguous :: a call acc_delete_finalize_l (a, sizeof (a)) end subroutine subroutine acc_update_device_32_h (a, len) use iso_c_binding, only: c_int32_t, c_size_t use openacc_internal, only: acc_update_device_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len call acc_update_device_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_update_device_64_h (a, len) use iso_c_binding, only: c_int64_t, c_size_t use openacc_internal, only: acc_update_device_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len call acc_update_device_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_update_device_array_h (a) use openacc_internal, only: acc_update_device_l type (*), dimension (..), contiguous :: a call acc_update_device_l (a, sizeof (a)) end subroutine subroutine acc_update_self_32_h (a, len) use iso_c_binding, only: c_int32_t, c_size_t use openacc_internal, only: acc_update_self_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len call acc_update_self_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_update_self_64_h (a, len) use iso_c_binding, only: c_int64_t, c_size_t use openacc_internal, only: acc_update_self_l !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len call acc_update_self_l (a, int (len, kind = c_size_t)) end subroutine subroutine acc_update_self_array_h (a) use openacc_internal, only: acc_update_self_l type (*), dimension (..), contiguous :: a call acc_update_self_l (a, sizeof (a)) end subroutine function acc_is_present_32_h (a, len) use iso_c_binding, only: c_int32_t, c_size_t use openacc_internal, only: acc_is_present_l logical acc_is_present_32_h !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len acc_is_present_32_h = acc_is_present_l (a, int (len, kind = c_size_t)) /= 0 end function function acc_is_present_64_h (a, len) use iso_c_binding, only: c_int64_t, c_size_t use openacc_internal, only: acc_is_present_l logical acc_is_present_64_h !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len acc_is_present_64_h = acc_is_present_l (a, int (len, kind = c_size_t)) /= 0 end function function acc_is_present_array_h (a) use openacc_internal, only: acc_is_present_l logical acc_is_present_array_h type (*), dimension (..), contiguous :: a acc_is_present_array_h = acc_is_present_l (a, sizeof (a)) /= 0 end function subroutine acc_copyin_async_32_h (a, len, async) use iso_c_binding, only: c_int32_t, c_size_t, c_int use openacc_internal, only: acc_copyin_async_l use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len integer (acc_handle_kind) async call acc_copyin_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int)) end subroutine subroutine acc_copyin_async_64_h (a, len, async) use iso_c_binding, only: c_int64_t, c_size_t, c_int use openacc_internal, only: acc_copyin_async_l use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len integer (acc_handle_kind) async call acc_copyin_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int)) end subroutine subroutine acc_copyin_async_array_h (a, async) use iso_c_binding, only: c_int use openacc_internal, only: acc_copyin_async_l use openacc_kinds, only: acc_handle_kind type (*), dimension (..), contiguous :: a integer (acc_handle_kind) async call acc_copyin_async_l (a, sizeof (a), int (async, kind = c_int)) end subroutine subroutine acc_create_async_32_h (a, len, async) use iso_c_binding, only: c_int32_t, c_size_t, c_int use openacc_internal, only: acc_create_async_l use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len integer (acc_handle_kind) async call acc_create_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int)) end subroutine subroutine acc_create_async_64_h (a, len, async) use iso_c_binding, only: c_int64_t, c_size_t, c_int use openacc_internal, only: acc_create_async_l use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len integer (acc_handle_kind) async call acc_create_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int)) end subroutine subroutine acc_create_async_array_h (a, async) use iso_c_binding, only: c_int use openacc_internal, only: acc_create_async_l use openacc_kinds, only: acc_handle_kind type (*), dimension (..), contiguous :: a integer (acc_handle_kind) async call acc_create_async_l (a, sizeof (a), int (async, kind = c_int)) end subroutine subroutine acc_copyout_async_32_h (a, len, async) use iso_c_binding, only: c_int32_t, c_size_t, c_int use openacc_internal, only: acc_copyout_async_l use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len integer (acc_handle_kind) async call acc_copyout_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int)) end subroutine subroutine acc_copyout_async_64_h (a, len, async) use iso_c_binding, only: c_int64_t, c_size_t, c_int use openacc_internal, only: acc_copyout_async_l use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len integer (acc_handle_kind) async call acc_copyout_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int)) end subroutine subroutine acc_copyout_async_array_h (a, async) use iso_c_binding, only: c_int use openacc_internal, only: acc_copyout_async_l use openacc_kinds, only: acc_handle_kind type (*), dimension (..), contiguous :: a integer (acc_handle_kind) async call acc_copyout_async_l (a, sizeof (a), int (async, kind = c_int)) end subroutine subroutine acc_delete_async_32_h (a, len, async) use iso_c_binding, only: c_int32_t, c_size_t, c_int use openacc_internal, only: acc_delete_async_l use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len integer (acc_handle_kind) async call acc_delete_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int)) end subroutine subroutine acc_delete_async_64_h (a, len, async) use iso_c_binding, only: c_int64_t, c_size_t, c_int use openacc_internal, only: acc_delete_async_l use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len integer (acc_handle_kind) async call acc_delete_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int)) end subroutine subroutine acc_delete_async_array_h (a, async) use iso_c_binding, only: c_int use openacc_internal, only: acc_delete_async_l use openacc_kinds, only: acc_handle_kind type (*), dimension (..), contiguous :: a integer (acc_handle_kind) async call acc_delete_async_l (a, sizeof (a), int (async, kind = c_int)) end subroutine subroutine acc_update_device_async_32_h (a, len, async) use iso_c_binding, only: c_int32_t, c_size_t, c_int use openacc_internal, only: acc_update_device_async_l use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len integer (acc_handle_kind) async call acc_update_device_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int)) end subroutine subroutine acc_update_device_async_64_h (a, len, async) use iso_c_binding, only: c_int64_t, c_size_t, c_int use openacc_internal, only: acc_update_device_async_l use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len integer (acc_handle_kind) async call acc_update_device_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int)) end subroutine subroutine acc_update_device_async_array_h (a, async) use iso_c_binding, only: c_int use openacc_internal, only: acc_update_device_async_l use openacc_kinds, only: acc_handle_kind type (*), dimension (..), contiguous :: a integer (acc_handle_kind) async call acc_update_device_async_l (a, sizeof (a), int (async, kind = c_int)) end subroutine subroutine acc_update_self_async_32_h (a, len, async) use iso_c_binding, only: c_int32_t, c_size_t, c_int use openacc_internal, only: acc_update_self_async_l use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int32_t) len integer (acc_handle_kind) async call acc_update_self_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int)) end subroutine subroutine acc_update_self_async_64_h (a, len, async) use iso_c_binding, only: c_int64_t, c_size_t, c_int use openacc_internal, only: acc_update_self_async_l use openacc_kinds, only: acc_handle_kind !GCC$ ATTRIBUTES NO_ARG_CHECK :: a type (*), dimension (*) :: a integer (c_int64_t) len integer (acc_handle_kind) async call acc_update_self_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int)) end subroutine subroutine acc_update_self_async_array_h (a, async) use iso_c_binding, only: c_int use openacc_internal, only: acc_update_self_async_l use openacc_kinds, only: acc_handle_kind type (*), dimension (..), contiguous :: a integer (acc_handle_kind) async call acc_update_self_async_l (a, sizeof (a), int (async, kind = c_int)) end subroutine