1 ! OpenACC Runtime Library Definitions.
3 ! Copyright (C) 2014-2023 Free Software Foundation, Inc.
5 ! Contributed by Tobias Burnus <burnus@net-b.de>
8 ! This file is part of the GNU Offloading and Multi Processing Library
11 ! Libgomp is free software; you can redistribute it and/or modify it
12 ! under the terms of the GNU General Public License as published by
13 ! the Free Software Foundation; either version 3, or (at your option)
16 ! Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY
17 ! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
18 ! FOR A PARTICULAR PURPOSE. See the GNU General Public License for
21 ! Under Section 7 of GPL version 3, you are granted additional
22 ! permissions described in the GCC Runtime Library Exception, version
23 ! 3.1, as published by the Free Software Foundation.
25 ! You should have received a copy of the GNU General Public License and
26 ! a copy of the GCC Runtime Library Exception along with this program;
27 ! see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
28 ! <http://www.gnu.org/licenses/>.
30 ! Keep in sync with config/accel/openacc.f90 and openacc_lib.h.
33 use iso_fortran_env, only: int32
39 ! When adding items, also update 'public' setting in 'module openacc' below.
41 integer, parameter :: acc_device_kind = int32
43 ! Keep in sync with include/gomp-constants.h.
44 integer (acc_device_kind), parameter :: acc_device_current = -1
45 integer (acc_device_kind), parameter :: acc_device_none = 0
46 integer (acc_device_kind), parameter :: acc_device_default = 1
47 integer (acc_device_kind), parameter :: acc_device_host = 2
48 ! integer (acc_device_kind), parameter :: acc_device_host_nonshm = 3 removed.
49 integer (acc_device_kind), parameter :: acc_device_not_host = 4
50 integer (acc_device_kind), parameter :: acc_device_nvidia = 5
51 integer (acc_device_kind), parameter :: acc_device_radeon = 8
53 integer, parameter :: acc_device_property_kind = int32
54 ! OpenACC 2.6/2.7/3.0 used acc_device_property; in a spec update the
55 ! missing '_kind' was added for consistency. For backward compatibility, keep:
56 integer, parameter :: acc_device_property = acc_device_property_kind
58 ! Keep in sync with 'libgomp/libgomp-plugin.h:goacc_property'.
59 integer (acc_device_property_kind), parameter :: acc_property_memory = 1
60 integer (acc_device_property_kind), parameter :: acc_property_free_memory = 2
61 integer (acc_device_property_kind), parameter :: acc_property_name = int(Z'10001')
62 integer (acc_device_property_kind), parameter :: acc_property_vendor = int(Z'10002')
63 integer (acc_device_property_kind), parameter :: acc_property_driver = int(Z'10003')
65 integer, parameter :: acc_handle_kind = int32
67 ! Keep in sync with include/gomp-constants.h.
68 integer (acc_handle_kind), parameter :: acc_async_noval = -1
69 integer (acc_handle_kind), parameter :: acc_async_sync = -2
70 end module openacc_kinds
72 module openacc_internal
77 function acc_get_num_devices_h (devicetype)
79 integer acc_get_num_devices_h
80 integer (acc_device_kind) devicetype
83 subroutine acc_set_device_type_h (devicetype)
85 integer (acc_device_kind) devicetype
88 function acc_get_device_type_h ()
90 integer (acc_device_kind) acc_get_device_type_h
93 subroutine acc_set_device_num_h (devicenum, devicetype)
96 integer (acc_device_kind) devicetype
99 function acc_get_device_num_h (devicetype)
101 integer acc_get_device_num_h
102 integer (acc_device_kind) devicetype
105 function acc_get_property_h (devicenum, devicetype, property)
106 use iso_c_binding, only: c_size_t
108 implicit none (type, external)
109 integer (c_size_t) :: acc_get_property_h
110 integer, value :: devicenum
111 integer (acc_device_kind), value :: devicetype
112 integer (acc_device_property_kind), value :: property
115 subroutine acc_get_property_string_h (devicenum, devicetype, property, string)
117 implicit none (type, external)
118 integer, value :: devicenum
119 integer (acc_device_kind), value :: devicetype
120 integer (acc_device_property_kind), value :: property
121 character (*) :: string
124 function acc_async_test_h (arg)
125 logical acc_async_test_h
129 function acc_async_test_all_h ()
130 logical acc_async_test_all_h
133 subroutine acc_wait_h (arg)
137 subroutine acc_wait_async_h (arg, async)
141 subroutine acc_wait_all_h ()
144 subroutine acc_wait_all_async_h (async)
148 subroutine acc_init_h (devicetype)
150 integer (acc_device_kind) devicetype
153 subroutine acc_shutdown_h (devicetype)
155 integer (acc_device_kind) devicetype
158 function acc_on_device_h (devicetype)
160 integer (acc_device_kind) devicetype
161 logical acc_on_device_h
164 subroutine acc_copyin_32_h (a, len)
165 use iso_c_binding, only: c_int32_t
166 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
167 type (*), dimension (*) :: a
168 integer (c_int32_t) len
171 subroutine acc_copyin_64_h (a, len)
172 use iso_c_binding, only: c_int64_t
173 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
174 type (*), dimension (*) :: a
175 integer (c_int64_t) len
178 subroutine acc_copyin_array_h (a)
179 type (*), dimension (..), contiguous :: a
182 subroutine acc_present_or_copyin_32_h (a, len)
183 use iso_c_binding, only: c_int32_t
184 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
185 type (*), dimension (*) :: a
186 integer (c_int32_t) len
189 subroutine acc_present_or_copyin_64_h (a, len)
190 use iso_c_binding, only: c_int64_t
191 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
192 type (*), dimension (*) :: a
193 integer (c_int64_t) len
196 subroutine acc_present_or_copyin_array_h (a)
197 type (*), dimension (..), contiguous :: a
200 subroutine acc_create_32_h (a, len)
201 use iso_c_binding, only: c_int32_t
202 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
203 type (*), dimension (*) :: a
204 integer (c_int32_t) len
207 subroutine acc_create_64_h (a, len)
208 use iso_c_binding, only: c_int64_t
209 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
210 type (*), dimension (*) :: a
211 integer (c_int64_t) len
214 subroutine acc_create_array_h (a)
215 type (*), dimension (..), contiguous :: a
218 subroutine acc_present_or_create_32_h (a, len)
219 use iso_c_binding, only: c_int32_t
220 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
221 type (*), dimension (*) :: a
222 integer (c_int32_t) len
225 subroutine acc_present_or_create_64_h (a, len)
226 use iso_c_binding, only: c_int64_t
227 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
228 type (*), dimension (*) :: a
229 integer (c_int64_t) len
232 subroutine acc_present_or_create_array_h (a)
233 type (*), dimension (..), contiguous :: a
236 subroutine acc_copyout_32_h (a, len)
237 use iso_c_binding, only: c_int32_t
238 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
239 type (*), dimension (*) :: a
240 integer (c_int32_t) len
243 subroutine acc_copyout_64_h (a, len)
244 use iso_c_binding, only: c_int64_t
245 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
246 type (*), dimension (*) :: a
247 integer (c_int64_t) len
250 subroutine acc_copyout_array_h (a)
251 type (*), dimension (..), contiguous :: a
254 subroutine acc_copyout_finalize_32_h (a, len)
255 use iso_c_binding, only: c_int32_t
256 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
257 type (*), dimension (*) :: a
258 integer (c_int32_t) len
261 subroutine acc_copyout_finalize_64_h (a, len)
262 use iso_c_binding, only: c_int64_t
263 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
264 type (*), dimension (*) :: a
265 integer (c_int64_t) len
268 subroutine acc_copyout_finalize_array_h (a)
269 type (*), dimension (..), contiguous :: a
272 subroutine acc_delete_32_h (a, len)
273 use iso_c_binding, only: c_int32_t
274 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
275 type (*), dimension (*) :: a
276 integer (c_int32_t) len
279 subroutine acc_delete_64_h (a, len)
280 use iso_c_binding, only: c_int64_t
281 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
282 type (*), dimension (*) :: a
283 integer (c_int64_t) len
286 subroutine acc_delete_array_h (a)
287 type (*), dimension (..), contiguous :: a
290 subroutine acc_delete_finalize_32_h (a, len)
291 use iso_c_binding, only: c_int32_t
292 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
293 type (*), dimension (*) :: a
294 integer (c_int32_t) len
297 subroutine acc_delete_finalize_64_h (a, len)
298 use iso_c_binding, only: c_int64_t
299 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
300 type (*), dimension (*) :: a
301 integer (c_int64_t) len
304 subroutine acc_delete_finalize_array_h (a)
305 type (*), dimension (..), contiguous :: a
308 subroutine acc_update_device_32_h (a, len)
309 use iso_c_binding, only: c_int32_t
310 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
311 type (*), dimension (*) :: a
312 integer (c_int32_t) len
315 subroutine acc_update_device_64_h (a, len)
316 use iso_c_binding, only: c_int64_t
317 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
318 type (*), dimension (*) :: a
319 integer (c_int64_t) len
322 subroutine acc_update_device_array_h (a)
323 type (*), dimension (..), contiguous :: a
326 subroutine acc_update_self_32_h (a, len)
327 use iso_c_binding, only: c_int32_t
328 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
329 type (*), dimension (*) :: a
330 integer (c_int32_t) len
333 subroutine acc_update_self_64_h (a, len)
334 use iso_c_binding, only: c_int64_t
335 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
336 type (*), dimension (*) :: a
337 integer (c_int64_t) len
340 subroutine acc_update_self_array_h (a)
341 type (*), dimension (..), contiguous :: a
344 function acc_is_present_32_h (a, len)
345 use iso_c_binding, only: c_int32_t
346 logical acc_is_present_32_h
347 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
348 type (*), dimension (*) :: a
349 integer (c_int32_t) len
352 function acc_is_present_64_h (a, len)
353 use iso_c_binding, only: c_int64_t
354 logical acc_is_present_64_h
355 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
356 type (*), dimension (*) :: a
357 integer (c_int64_t) len
360 function acc_is_present_array_h (a)
361 logical acc_is_present_array_h
362 type (*), dimension (..), contiguous :: a
365 subroutine acc_copyin_async_32_h (a, len, async)
366 use iso_c_binding, only: c_int32_t
367 use openacc_kinds, only: acc_handle_kind
368 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
369 type (*), dimension (*) :: a
370 integer (c_int32_t) len
371 integer (acc_handle_kind) async
374 subroutine acc_copyin_async_64_h (a, len, async)
375 use iso_c_binding, only: c_int64_t
376 use openacc_kinds, only: acc_handle_kind
377 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
378 type (*), dimension (*) :: a
379 integer (c_int64_t) len
380 integer (acc_handle_kind) async
383 subroutine acc_copyin_async_array_h (a, async)
384 use openacc_kinds, only: acc_handle_kind
385 type (*), dimension (..), contiguous :: a
386 integer (acc_handle_kind) async
389 subroutine acc_create_async_32_h (a, len, async)
390 use iso_c_binding, only: c_int32_t
391 use openacc_kinds, only: acc_handle_kind
392 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
393 type (*), dimension (*) :: a
394 integer (c_int32_t) len
395 integer (acc_handle_kind) async
398 subroutine acc_create_async_64_h (a, len, async)
399 use iso_c_binding, only: c_int64_t
400 use openacc_kinds, only: acc_handle_kind
401 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
402 type (*), dimension (*) :: a
403 integer (c_int64_t) len
404 integer (acc_handle_kind) async
407 subroutine acc_create_async_array_h (a, async)
408 use openacc_kinds, only: acc_handle_kind
409 type (*), dimension (..), contiguous :: a
410 integer (acc_handle_kind) async
413 subroutine acc_copyout_async_32_h (a, len, async)
414 use iso_c_binding, only: c_int32_t
415 use openacc_kinds, only: acc_handle_kind
416 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
417 type (*), dimension (*) :: a
418 integer (c_int32_t) len
419 integer (acc_handle_kind) async
422 subroutine acc_copyout_async_64_h (a, len, async)
423 use iso_c_binding, only: c_int64_t
424 use openacc_kinds, only: acc_handle_kind
425 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
426 type (*), dimension (*) :: a
427 integer (c_int64_t) len
428 integer (acc_handle_kind) async
431 subroutine acc_copyout_async_array_h (a, async)
432 use openacc_kinds, only: acc_handle_kind
433 type (*), dimension (..), contiguous :: a
434 integer (acc_handle_kind) async
437 subroutine acc_delete_async_32_h (a, len, async)
438 use iso_c_binding, only: c_int32_t
439 use openacc_kinds, only: acc_handle_kind
440 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
441 type (*), dimension (*) :: a
442 integer (c_int32_t) len
443 integer (acc_handle_kind) async
446 subroutine acc_delete_async_64_h (a, len, async)
447 use iso_c_binding, only: c_int64_t
448 use openacc_kinds, only: acc_handle_kind
449 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
450 type (*), dimension (*) :: a
451 integer (c_int64_t) len
452 integer (acc_handle_kind) async
455 subroutine acc_delete_async_array_h (a, async)
456 use openacc_kinds, only: acc_handle_kind
457 type (*), dimension (..), contiguous :: a
458 integer (acc_handle_kind) async
461 subroutine acc_update_device_async_32_h (a, len, async)
462 use iso_c_binding, only: c_int32_t
463 use openacc_kinds, only: acc_handle_kind
464 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
465 type (*), dimension (*) :: a
466 integer (c_int32_t) len
467 integer (acc_handle_kind) async
470 subroutine acc_update_device_async_64_h (a, len, async)
471 use iso_c_binding, only: c_int64_t
472 use openacc_kinds, only: acc_handle_kind
473 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
474 type (*), dimension (*) :: a
475 integer (c_int64_t) len
476 integer (acc_handle_kind) async
479 subroutine acc_update_device_async_array_h (a, async)
480 use openacc_kinds, only: acc_handle_kind
481 type (*), dimension (..), contiguous :: a
482 integer (acc_handle_kind) async
485 subroutine acc_update_self_async_32_h (a, len, async)
486 use iso_c_binding, only: c_int32_t
487 use openacc_kinds, only: acc_handle_kind
488 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
489 type (*), dimension (*) :: a
490 integer (c_int32_t) len
491 integer (acc_handle_kind) async
494 subroutine acc_update_self_async_64_h (a, len, async)
495 use iso_c_binding, only: c_int64_t
496 use openacc_kinds, only: acc_handle_kind
497 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
498 type (*), dimension (*) :: a
499 integer (c_int64_t) len
500 integer (acc_handle_kind) async
503 subroutine acc_update_self_async_array_h (a, async)
504 use openacc_kinds, only: acc_handle_kind
505 type (*), dimension (..), contiguous :: a
506 integer (acc_handle_kind) async
511 function acc_get_num_devices_l (devicetype) &
512 bind (C, name = "acc_get_num_devices")
513 use iso_c_binding, only: c_int
514 integer (c_int) :: acc_get_num_devices_l
515 integer (c_int), value :: devicetype
518 subroutine acc_set_device_type_l (devicetype) &
519 bind (C, name = "acc_set_device_type")
520 use iso_c_binding, only: c_int
521 integer (c_int), value :: devicetype
524 function acc_get_device_type_l () &
525 bind (C, name = "acc_get_device_type")
526 use iso_c_binding, only: c_int
527 integer (c_int) :: acc_get_device_type_l
530 subroutine acc_set_device_num_l (devicenum, devicetype) &
531 bind (C, name = "acc_set_device_num")
532 use iso_c_binding, only: c_int
533 integer (c_int), value :: devicenum, devicetype
536 function acc_get_device_num_l (devicetype) &
537 bind (C, name = "acc_get_device_num")
538 use iso_c_binding, only: c_int
539 integer (c_int) :: acc_get_device_num_l
540 integer (c_int), value :: devicetype
543 function acc_get_property_l (devicenum, devicetype, property) &
544 bind (C, name = "acc_get_property")
545 use iso_c_binding, only: c_int, c_size_t
546 implicit none (type, external)
547 integer (c_size_t) :: acc_get_property_l
548 integer (c_int), value :: devicenum
549 integer (c_int), value :: devicetype
550 integer (c_int), value :: property
553 function acc_get_property_string_l (devicenum, devicetype, property) &
554 bind (C, name = "acc_get_property_string")
555 use iso_c_binding, only: c_int, c_ptr
556 implicit none (type, external)
557 type (c_ptr) :: acc_get_property_string_l
558 integer (c_int), value :: devicenum
559 integer (c_int), value :: devicetype
560 integer (c_int), value :: property
563 function acc_async_test_l (a) &
564 bind (C, name = "acc_async_test")
565 use iso_c_binding, only: c_int
566 integer (c_int) :: acc_async_test_l
567 integer (c_int), value :: a
570 function acc_async_test_all_l () &
571 bind (C, name = "acc_async_test_all")
572 use iso_c_binding, only: c_int
573 integer (c_int) :: acc_async_test_all_l
576 subroutine acc_wait_l (a) &
577 bind (C, name = "acc_wait")
578 use iso_c_binding, only: c_int
579 integer (c_int), value :: a
582 subroutine acc_wait_async_l (arg, async) &
583 bind (C, name = "acc_wait_async")
584 use iso_c_binding, only: c_int
585 integer (c_int), value :: arg, async
588 subroutine acc_wait_all_l () &
589 bind (C, name = "acc_wait_all")
590 use iso_c_binding, only: c_int
593 subroutine acc_wait_all_async_l (async) &
594 bind (C, name = "acc_wait_all_async")
595 use iso_c_binding, only: c_int
596 integer (c_int), value :: async
599 subroutine acc_init_l (devicetype) &
600 bind (C, name = "acc_init")
601 use iso_c_binding, only: c_int
602 integer (c_int), value :: devicetype
605 subroutine acc_shutdown_l (devicetype) &
606 bind (C, name = "acc_shutdown")
607 use iso_c_binding, only: c_int
608 integer (c_int), value :: devicetype
611 function acc_on_device_l (devicetype) &
612 bind (C, name = "acc_on_device")
613 use iso_c_binding, only: c_int
614 integer (c_int) :: acc_on_device_l
615 integer (c_int), value :: devicetype
618 subroutine acc_copyin_l (a, len) &
619 bind (C, name = "acc_copyin")
620 use iso_c_binding, only: c_size_t
621 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
622 type (*), dimension (*) :: a
623 integer (c_size_t), value :: len
626 subroutine acc_present_or_copyin_l (a, len) &
627 bind (C, name = "acc_present_or_copyin")
628 use iso_c_binding, only: c_size_t
629 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
630 type (*), dimension (*) :: a
631 integer (c_size_t), value :: len
634 subroutine acc_create_l (a, len) &
635 bind (C, name = "acc_create")
636 use iso_c_binding, only: c_size_t
637 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
638 type (*), dimension (*) :: a
639 integer (c_size_t), value :: len
642 subroutine acc_present_or_create_l (a, len) &
643 bind (C, name = "acc_present_or_create")
644 use iso_c_binding, only: c_size_t
645 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
646 type (*), dimension (*) :: a
647 integer (c_size_t), value :: len
650 subroutine acc_copyout_l (a, len) &
651 bind (C, name = "acc_copyout")
652 use iso_c_binding, only: c_size_t
653 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
654 type (*), dimension (*) :: a
655 integer (c_size_t), value :: len
658 subroutine acc_copyout_finalize_l (a, len) &
659 bind (C, name = "acc_copyout_finalize")
660 use iso_c_binding, only: c_size_t
661 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
662 type (*), dimension (*) :: a
663 integer (c_size_t), value :: len
666 subroutine acc_delete_l (a, len) &
667 bind (C, name = "acc_delete")
668 use iso_c_binding, only: c_size_t
669 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
670 type (*), dimension (*) :: a
671 integer (c_size_t), value :: len
674 subroutine acc_delete_finalize_l (a, len) &
675 bind (C, name = "acc_delete_finalize")
676 use iso_c_binding, only: c_size_t
677 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
678 type (*), dimension (*) :: a
679 integer (c_size_t), value :: len
682 subroutine acc_update_device_l (a, len) &
683 bind (C, name = "acc_update_device")
684 use iso_c_binding, only: c_size_t
685 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
686 type (*), dimension (*) :: a
687 integer (c_size_t), value :: len
690 subroutine acc_update_self_l (a, len) &
691 bind (C, name = "acc_update_self")
692 use iso_c_binding, only: c_size_t
693 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
694 type (*), dimension (*) :: a
695 integer (c_size_t), value :: len
698 function acc_is_present_l (a, len) &
699 bind (C, name = "acc_is_present")
700 use iso_c_binding, only: c_int32_t, c_size_t
701 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
702 integer (c_int32_t) :: acc_is_present_l
703 type (*), dimension (*) :: a
704 integer (c_size_t), value :: len
707 subroutine acc_copyin_async_l (a, len, async) &
708 bind (C, name = "acc_copyin_async")
709 use iso_c_binding, only: c_size_t, c_int
710 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
711 type (*), dimension (*) :: a
712 integer (c_size_t), value :: len
713 integer (c_int), value :: async
716 subroutine acc_create_async_l (a, len, async) &
717 bind (C, name = "acc_create_async")
718 use iso_c_binding, only: c_size_t, c_int
719 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
720 type (*), dimension (*) :: a
721 integer (c_size_t), value :: len
722 integer (c_int), value :: async
725 subroutine acc_copyout_async_l (a, len, async) &
726 bind (C, name = "acc_copyout_async")
727 use iso_c_binding, only: c_size_t, c_int
728 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
729 type (*), dimension (*) :: a
730 integer (c_size_t), value :: len
731 integer (c_int), value :: async
734 subroutine acc_delete_async_l (a, len, async) &
735 bind (C, name = "acc_delete_async")
736 use iso_c_binding, only: c_size_t, c_int
737 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
738 type (*), dimension (*) :: a
739 integer (c_size_t), value :: len
740 integer (c_int), value :: async
743 subroutine acc_update_device_async_l (a, len, async) &
744 bind (C, name = "acc_update_device_async")
745 use iso_c_binding, only: c_size_t, c_int
746 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
747 type (*), dimension (*) :: a
748 integer (c_size_t), value :: len
749 integer (c_int), value :: async
752 subroutine acc_update_self_async_l (a, len, async) &
753 bind (C, name = "acc_update_self_async")
754 use iso_c_binding, only: c_size_t, c_int
755 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
756 type (*), dimension (*) :: a
757 integer (c_size_t), value :: len
758 integer (c_int), value :: async
761 end module openacc_internal
771 public :: acc_device_kind
772 public :: acc_device_none, acc_device_default, acc_device_host
773 public :: acc_device_not_host, acc_device_nvidia, acc_device_radeon
775 public :: acc_device_property_kind, acc_device_property
776 public :: acc_property_memory, acc_property_free_memory
777 public :: acc_property_name, acc_property_vendor, acc_property_driver
779 public :: acc_handle_kind
780 public :: acc_async_noval, acc_async_sync
782 public :: openacc_version
784 public :: acc_get_num_devices, acc_set_device_type, acc_get_device_type
785 public :: acc_set_device_num, acc_get_device_num
786 public :: acc_get_property, acc_get_property_string
787 public :: acc_async_test, acc_async_test_all
788 public :: acc_wait, acc_async_wait, acc_wait_async
789 public :: acc_wait_all, acc_async_wait_all, acc_wait_all_async
790 public :: acc_init, acc_shutdown, acc_on_device
791 public :: acc_copyin, acc_present_or_copyin, acc_pcopyin, acc_create
792 public :: acc_present_or_create, acc_pcreate, acc_copyout, acc_delete
793 public :: acc_update_device, acc_update_self, acc_is_present
794 public :: acc_copyin_async, acc_create_async, acc_copyout_async
795 public :: acc_delete_async, acc_update_device_async, acc_update_self_async
796 public :: acc_copyout_finalize, acc_delete_finalize
798 integer, parameter :: openacc_version = 201711
800 interface acc_get_num_devices
801 procedure :: acc_get_num_devices_h
804 interface acc_set_device_type
805 procedure :: acc_set_device_type_h
808 interface acc_get_device_type
809 procedure :: acc_get_device_type_h
812 interface acc_set_device_num
813 procedure :: acc_set_device_num_h
816 interface acc_get_device_num
817 procedure :: acc_get_device_num_h
820 interface acc_get_property
821 procedure :: acc_get_property_h
824 interface acc_get_property_string
825 procedure :: acc_get_property_string_h
828 interface acc_async_test
829 procedure :: acc_async_test_h
832 interface acc_async_test_all
833 procedure :: acc_async_test_all_h
837 procedure :: acc_wait_h
840 ! acc_async_wait is an OpenACC 1.0 compatibility name for acc_wait.
841 interface acc_async_wait
842 procedure :: acc_wait_h
845 interface acc_wait_async
846 procedure :: acc_wait_async_h
849 interface acc_wait_all
850 procedure :: acc_wait_all_h
853 ! acc_async_wait_all is an OpenACC 1.0 compatibility name for acc_wait_all.
854 interface acc_async_wait_all
855 procedure :: acc_wait_all_h
858 interface acc_wait_all_async
859 procedure :: acc_wait_all_async_h
863 procedure :: acc_init_h
866 interface acc_shutdown
867 procedure :: acc_shutdown_h
870 interface acc_on_device
871 procedure :: acc_on_device_h
874 ! acc_malloc: Only available in C/C++
875 ! acc_free: Only available in C/C++
877 ! As vendor extension, the following code supports both 32bit and 64bit
878 ! arguments for "size"; the OpenACC standard only permits default-kind
879 ! integers, which are of kind 4 (i.e. 32 bits).
880 ! Additionally, the two-argument version also takes arrays as argument.
881 ! and the one argument version also scalars. Note that the code assumes
882 ! that the arrays are contiguous.
885 procedure :: acc_copyin_32_h
886 procedure :: acc_copyin_64_h
887 procedure :: acc_copyin_array_h
890 interface acc_present_or_copyin
891 procedure :: acc_present_or_copyin_32_h
892 procedure :: acc_present_or_copyin_64_h
893 procedure :: acc_present_or_copyin_array_h
896 interface acc_pcopyin
897 procedure :: acc_present_or_copyin_32_h
898 procedure :: acc_present_or_copyin_64_h
899 procedure :: acc_present_or_copyin_array_h
903 procedure :: acc_create_32_h
904 procedure :: acc_create_64_h
905 procedure :: acc_create_array_h
908 interface acc_present_or_create
909 procedure :: acc_present_or_create_32_h
910 procedure :: acc_present_or_create_64_h
911 procedure :: acc_present_or_create_array_h
914 interface acc_pcreate
915 procedure :: acc_present_or_create_32_h
916 procedure :: acc_present_or_create_64_h
917 procedure :: acc_present_or_create_array_h
920 interface acc_copyout
921 procedure :: acc_copyout_32_h
922 procedure :: acc_copyout_64_h
923 procedure :: acc_copyout_array_h
926 interface acc_copyout_finalize
927 procedure :: acc_copyout_finalize_32_h
928 procedure :: acc_copyout_finalize_64_h
929 procedure :: acc_copyout_finalize_array_h
933 procedure :: acc_delete_32_h
934 procedure :: acc_delete_64_h
935 procedure :: acc_delete_array_h
938 interface acc_delete_finalize
939 procedure :: acc_delete_finalize_32_h
940 procedure :: acc_delete_finalize_64_h
941 procedure :: acc_delete_finalize_array_h
944 interface acc_update_device
945 procedure :: acc_update_device_32_h
946 procedure :: acc_update_device_64_h
947 procedure :: acc_update_device_array_h
950 interface acc_update_self
951 procedure :: acc_update_self_32_h
952 procedure :: acc_update_self_64_h
953 procedure :: acc_update_self_array_h
956 ! acc_map_data: Only available in C/C++
957 ! acc_unmap_data: Only available in C/C++
958 ! acc_deviceptr: Only available in C/C++
959 ! acc_hostptr: Only available in C/C++
961 interface acc_is_present
962 procedure :: acc_is_present_32_h
963 procedure :: acc_is_present_64_h
964 procedure :: acc_is_present_array_h
967 ! acc_memcpy_to_device: Only available in C/C++
968 ! acc_memcpy_from_device: Only available in C/C++
970 interface acc_copyin_async
971 procedure :: acc_copyin_async_32_h
972 procedure :: acc_copyin_async_64_h
973 procedure :: acc_copyin_async_array_h
976 interface acc_create_async
977 procedure :: acc_create_async_32_h
978 procedure :: acc_create_async_64_h
979 procedure :: acc_create_async_array_h
982 interface acc_copyout_async
983 procedure :: acc_copyout_async_32_h
984 procedure :: acc_copyout_async_64_h
985 procedure :: acc_copyout_async_array_h
988 interface acc_delete_async
989 procedure :: acc_delete_async_32_h
990 procedure :: acc_delete_async_64_h
991 procedure :: acc_delete_async_array_h
994 interface acc_update_device_async
995 procedure :: acc_update_device_async_32_h
996 procedure :: acc_update_device_async_64_h
997 procedure :: acc_update_device_async_array_h
1000 interface acc_update_self_async
1001 procedure :: acc_update_self_async_32_h
1002 procedure :: acc_update_self_async_64_h
1003 procedure :: acc_update_self_async_array_h
1008 function acc_get_num_devices_h (devicetype)
1009 use openacc_internal, only: acc_get_num_devices_l
1011 integer acc_get_num_devices_h
1012 integer (acc_device_kind) devicetype
1013 acc_get_num_devices_h = acc_get_num_devices_l (devicetype)
1016 subroutine acc_set_device_type_h (devicetype)
1017 use openacc_internal, only: acc_set_device_type_l
1019 integer (acc_device_kind) devicetype
1020 call acc_set_device_type_l (devicetype)
1023 function acc_get_device_type_h ()
1024 use openacc_internal, only: acc_get_device_type_l
1026 integer (acc_device_kind) acc_get_device_type_h
1027 acc_get_device_type_h = acc_get_device_type_l ()
1030 subroutine acc_set_device_num_h (devicenum, devicetype)
1031 use openacc_internal, only: acc_set_device_num_l
1034 integer (acc_device_kind) devicetype
1035 call acc_set_device_num_l (devicenum, devicetype)
1038 function acc_get_device_num_h (devicetype)
1039 use openacc_internal, only: acc_get_device_num_l
1041 integer acc_get_device_num_h
1042 integer (acc_device_kind) devicetype
1043 acc_get_device_num_h = acc_get_device_num_l (devicetype)
1046 function acc_get_property_h (devicenum, devicetype, property)
1047 use iso_c_binding, only: c_size_t
1048 use openacc_internal, only: acc_get_property_l
1050 implicit none (type, external)
1051 integer (c_size_t) :: acc_get_property_h
1052 integer, value :: devicenum
1053 integer (acc_device_kind), value :: devicetype
1054 integer (acc_device_property_kind), value :: property
1055 acc_get_property_h = acc_get_property_l (devicenum, devicetype, property)
1058 subroutine acc_get_property_string_h (devicenum, devicetype, property, string)
1059 use iso_c_binding, only: c_char, c_size_t, c_ptr, c_f_pointer, c_associated
1060 use openacc_internal, only: acc_get_property_string_l
1062 implicit none (type, external)
1063 integer, value :: devicenum
1064 integer (acc_device_kind), value :: devicetype
1065 integer (acc_device_property_kind), value :: property
1066 character (*) :: string
1068 type (c_ptr) :: cptr
1069 integer(c_size_t) :: clen, slen, i
1070 character (kind=c_char, len=1), pointer, contiguous :: sptr (:)
1073 function strlen (s) bind (C, name = "strlen")
1074 use iso_c_binding, only: c_ptr, c_size_t
1075 type (c_ptr), intent(in), value :: s
1076 integer (c_size_t) :: strlen
1080 cptr = acc_get_property_string_l (devicenum, devicetype, property)
1082 if (.not. c_associated (cptr)) then
1086 clen = strlen (cptr)
1087 call c_f_pointer (cptr, sptr, [clen])
1089 slen = min (clen, len (string, kind=c_size_t))
1091 string (i:i) = sptr (i)
1095 function acc_async_test_h (arg)
1096 use openacc_internal, only: acc_async_test_l
1097 logical acc_async_test_h
1099 acc_async_test_h = acc_async_test_l (arg) /= 0
1102 function acc_async_test_all_h ()
1103 use openacc_internal, only: acc_async_test_all_l
1104 logical acc_async_test_all_h
1105 acc_async_test_all_h = acc_async_test_all_l () /= 0
1108 subroutine acc_wait_h (arg)
1109 use openacc_internal, only: acc_wait_l
1111 call acc_wait_l (arg)
1114 subroutine acc_wait_async_h (arg, async)
1115 use openacc_internal, only: acc_wait_async_l
1117 call acc_wait_async_l (arg, async)
1120 subroutine acc_wait_all_h ()
1121 use openacc_internal, only: acc_wait_all_l
1122 call acc_wait_all_l ()
1125 subroutine acc_wait_all_async_h (async)
1126 use openacc_internal, only: acc_wait_all_async_l
1128 call acc_wait_all_async_l (async)
1131 subroutine acc_init_h (devicetype)
1132 use openacc_internal, only: acc_init_l
1134 integer (acc_device_kind) devicetype
1135 call acc_init_l (devicetype)
1138 subroutine acc_shutdown_h (devicetype)
1139 use openacc_internal, only: acc_shutdown_l
1141 integer (acc_device_kind) devicetype
1142 call acc_shutdown_l (devicetype)
1145 function acc_on_device_h (devicetype)
1146 use openacc_internal, only: acc_on_device_l
1148 integer (acc_device_kind) devicetype
1149 logical acc_on_device_h
1150 acc_on_device_h = acc_on_device_l (devicetype) /= 0
1153 subroutine acc_copyin_32_h (a, len)
1154 use iso_c_binding, only: c_int32_t, c_size_t
1155 use openacc_internal, only: acc_copyin_l
1156 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1157 type (*), dimension (*) :: a
1158 integer (c_int32_t) len
1159 call acc_copyin_l (a, int (len, kind = c_size_t))
1162 subroutine acc_copyin_64_h (a, len)
1163 use iso_c_binding, only: c_int64_t, c_size_t
1164 use openacc_internal, only: acc_copyin_l
1165 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1166 type (*), dimension (*) :: a
1167 integer (c_int64_t) len
1168 call acc_copyin_l (a, int (len, kind = c_size_t))
1171 subroutine acc_copyin_array_h (a)
1172 use openacc_internal, only: acc_copyin_l
1173 type (*), dimension (..), contiguous :: a
1174 call acc_copyin_l (a, sizeof (a))
1177 subroutine acc_present_or_copyin_32_h (a, len)
1178 use iso_c_binding, only: c_int32_t, c_size_t
1179 use openacc_internal, only: acc_present_or_copyin_l
1180 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1181 type (*), dimension (*) :: a
1182 integer (c_int32_t) len
1183 call acc_present_or_copyin_l (a, int (len, kind = c_size_t))
1186 subroutine acc_present_or_copyin_64_h (a, len)
1187 use iso_c_binding, only: c_int64_t, c_size_t
1188 use openacc_internal, only: acc_present_or_copyin_l
1189 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1190 type (*), dimension (*) :: a
1191 integer (c_int64_t) len
1192 call acc_present_or_copyin_l (a, int (len, kind = c_size_t))
1195 subroutine acc_present_or_copyin_array_h (a)
1196 use openacc_internal, only: acc_present_or_copyin_l
1197 type (*), dimension (..), contiguous :: a
1198 call acc_present_or_copyin_l (a, sizeof (a))
1201 subroutine acc_create_32_h (a, len)
1202 use iso_c_binding, only: c_int32_t, c_size_t
1203 use openacc_internal, only: acc_create_l
1204 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1205 type (*), dimension (*) :: a
1206 integer (c_int32_t) len
1207 call acc_create_l (a, int (len, kind = c_size_t))
1210 subroutine acc_create_64_h (a, len)
1211 use iso_c_binding, only: c_int64_t, c_size_t
1212 use openacc_internal, only: acc_create_l
1213 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1214 type (*), dimension (*) :: a
1215 integer (c_int64_t) len
1216 call acc_create_l (a, int (len, kind = c_size_t))
1219 subroutine acc_create_array_h (a)
1220 use openacc_internal, only: acc_create_l
1221 type (*), dimension (..), contiguous :: a
1222 call acc_create_l (a, sizeof (a))
1225 subroutine acc_present_or_create_32_h (a, len)
1226 use iso_c_binding, only: c_int32_t, c_size_t
1227 use openacc_internal, only: acc_present_or_create_l
1228 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1229 type (*), dimension (*) :: a
1230 integer (c_int32_t) len
1231 call acc_present_or_create_l (a, int (len, kind = c_size_t))
1234 subroutine acc_present_or_create_64_h (a, len)
1235 use iso_c_binding, only: c_int64_t, c_size_t
1236 use openacc_internal, only: acc_present_or_create_l
1237 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1238 type (*), dimension (*) :: a
1239 integer (c_int64_t) len
1240 call acc_present_or_create_l (a, int (len, kind = c_size_t))
1243 subroutine acc_present_or_create_array_h (a)
1244 use openacc_internal, only: acc_present_or_create_l
1245 type (*), dimension (..), contiguous :: a
1246 call acc_present_or_create_l (a, sizeof (a))
1249 subroutine acc_copyout_32_h (a, len)
1250 use iso_c_binding, only: c_int32_t, c_size_t
1251 use openacc_internal, only: acc_copyout_l
1252 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1253 type (*), dimension (*) :: a
1254 integer (c_int32_t) len
1255 call acc_copyout_l (a, int (len, kind = c_size_t))
1258 subroutine acc_copyout_64_h (a, len)
1259 use iso_c_binding, only: c_int64_t, c_size_t
1260 use openacc_internal, only: acc_copyout_l
1261 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1262 type (*), dimension (*) :: a
1263 integer (c_int64_t) len
1264 call acc_copyout_l (a, int (len, kind = c_size_t))
1267 subroutine acc_copyout_array_h (a)
1268 use openacc_internal, only: acc_copyout_l
1269 type (*), dimension (..), contiguous :: a
1270 call acc_copyout_l (a, sizeof (a))
1273 subroutine acc_copyout_finalize_32_h (a, len)
1274 use iso_c_binding, only: c_int32_t, c_size_t
1275 use openacc_internal, only: acc_copyout_finalize_l
1276 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1277 type (*), dimension (*) :: a
1278 integer (c_int32_t) len
1279 call acc_copyout_finalize_l (a, int (len, kind = c_size_t))
1282 subroutine acc_copyout_finalize_64_h (a, len)
1283 use iso_c_binding, only: c_int64_t, c_size_t
1284 use openacc_internal, only: acc_copyout_finalize_l
1285 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1286 type (*), dimension (*) :: a
1287 integer (c_int64_t) len
1288 call acc_copyout_finalize_l (a, int (len, kind = c_size_t))
1291 subroutine acc_copyout_finalize_array_h (a)
1292 use openacc_internal, only: acc_copyout_finalize_l
1293 type (*), dimension (..), contiguous :: a
1294 call acc_copyout_finalize_l (a, sizeof (a))
1297 subroutine acc_delete_32_h (a, len)
1298 use iso_c_binding, only: c_int32_t, c_size_t
1299 use openacc_internal, only: acc_delete_l
1300 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1301 type (*), dimension (*) :: a
1302 integer (c_int32_t) len
1303 call acc_delete_l (a, int (len, kind = c_size_t))
1306 subroutine acc_delete_64_h (a, len)
1307 use iso_c_binding, only: c_int64_t, c_size_t
1308 use openacc_internal, only: acc_delete_l
1309 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1310 type (*), dimension (*) :: a
1311 integer (c_int64_t) len
1312 call acc_delete_l (a, int (len, kind = c_size_t))
1315 subroutine acc_delete_array_h (a)
1316 use openacc_internal, only: acc_delete_l
1317 type (*), dimension (..), contiguous :: a
1318 call acc_delete_l (a, sizeof (a))
1321 subroutine acc_delete_finalize_32_h (a, len)
1322 use iso_c_binding, only: c_int32_t, c_size_t
1323 use openacc_internal, only: acc_delete_finalize_l
1324 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1325 type (*), dimension (*) :: a
1326 integer (c_int32_t) len
1327 call acc_delete_finalize_l (a, int (len, kind = c_size_t))
1330 subroutine acc_delete_finalize_64_h (a, len)
1331 use iso_c_binding, only: c_int64_t, c_size_t
1332 use openacc_internal, only: acc_delete_finalize_l
1333 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1334 type (*), dimension (*) :: a
1335 integer (c_int64_t) len
1336 call acc_delete_finalize_l (a, int (len, kind = c_size_t))
1339 subroutine acc_delete_finalize_array_h (a)
1340 use openacc_internal, only: acc_delete_finalize_l
1341 type (*), dimension (..), contiguous :: a
1342 call acc_delete_finalize_l (a, sizeof (a))
1345 subroutine acc_update_device_32_h (a, len)
1346 use iso_c_binding, only: c_int32_t, c_size_t
1347 use openacc_internal, only: acc_update_device_l
1348 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1349 type (*), dimension (*) :: a
1350 integer (c_int32_t) len
1351 call acc_update_device_l (a, int (len, kind = c_size_t))
1354 subroutine acc_update_device_64_h (a, len)
1355 use iso_c_binding, only: c_int64_t, c_size_t
1356 use openacc_internal, only: acc_update_device_l
1357 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1358 type (*), dimension (*) :: a
1359 integer (c_int64_t) len
1360 call acc_update_device_l (a, int (len, kind = c_size_t))
1363 subroutine acc_update_device_array_h (a)
1364 use openacc_internal, only: acc_update_device_l
1365 type (*), dimension (..), contiguous :: a
1366 call acc_update_device_l (a, sizeof (a))
1369 subroutine acc_update_self_32_h (a, len)
1370 use iso_c_binding, only: c_int32_t, c_size_t
1371 use openacc_internal, only: acc_update_self_l
1372 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1373 type (*), dimension (*) :: a
1374 integer (c_int32_t) len
1375 call acc_update_self_l (a, int (len, kind = c_size_t))
1378 subroutine acc_update_self_64_h (a, len)
1379 use iso_c_binding, only: c_int64_t, c_size_t
1380 use openacc_internal, only: acc_update_self_l
1381 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1382 type (*), dimension (*) :: a
1383 integer (c_int64_t) len
1384 call acc_update_self_l (a, int (len, kind = c_size_t))
1387 subroutine acc_update_self_array_h (a)
1388 use openacc_internal, only: acc_update_self_l
1389 type (*), dimension (..), contiguous :: a
1390 call acc_update_self_l (a, sizeof (a))
1393 function acc_is_present_32_h (a, len)
1394 use iso_c_binding, only: c_int32_t, c_size_t
1395 use openacc_internal, only: acc_is_present_l
1396 logical acc_is_present_32_h
1397 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1398 type (*), dimension (*) :: a
1399 integer (c_int32_t) len
1400 acc_is_present_32_h = acc_is_present_l (a, int (len, kind = c_size_t)) /= 0
1403 function acc_is_present_64_h (a, len)
1404 use iso_c_binding, only: c_int64_t, c_size_t
1405 use openacc_internal, only: acc_is_present_l
1406 logical acc_is_present_64_h
1407 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1408 type (*), dimension (*) :: a
1409 integer (c_int64_t) len
1410 acc_is_present_64_h = acc_is_present_l (a, int (len, kind = c_size_t)) /= 0
1413 function acc_is_present_array_h (a)
1414 use openacc_internal, only: acc_is_present_l
1415 logical acc_is_present_array_h
1416 type (*), dimension (..), contiguous :: a
1417 acc_is_present_array_h = acc_is_present_l (a, sizeof (a)) /= 0
1420 subroutine acc_copyin_async_32_h (a, len, async)
1421 use iso_c_binding, only: c_int32_t, c_size_t, c_int
1422 use openacc_internal, only: acc_copyin_async_l
1423 use openacc_kinds, only: acc_handle_kind
1424 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1425 type (*), dimension (*) :: a
1426 integer (c_int32_t) len
1427 integer (acc_handle_kind) async
1428 call acc_copyin_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int))
1431 subroutine acc_copyin_async_64_h (a, len, async)
1432 use iso_c_binding, only: c_int64_t, c_size_t, c_int
1433 use openacc_internal, only: acc_copyin_async_l
1434 use openacc_kinds, only: acc_handle_kind
1435 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1436 type (*), dimension (*) :: a
1437 integer (c_int64_t) len
1438 integer (acc_handle_kind) async
1439 call acc_copyin_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int))
1442 subroutine acc_copyin_async_array_h (a, async)
1443 use iso_c_binding, only: c_int
1444 use openacc_internal, only: acc_copyin_async_l
1445 use openacc_kinds, only: acc_handle_kind
1446 type (*), dimension (..), contiguous :: a
1447 integer (acc_handle_kind) async
1448 call acc_copyin_async_l (a, sizeof (a), int (async, kind = c_int))
1451 subroutine acc_create_async_32_h (a, len, async)
1452 use iso_c_binding, only: c_int32_t, c_size_t, c_int
1453 use openacc_internal, only: acc_create_async_l
1454 use openacc_kinds, only: acc_handle_kind
1455 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1456 type (*), dimension (*) :: a
1457 integer (c_int32_t) len
1458 integer (acc_handle_kind) async
1459 call acc_create_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int))
1462 subroutine acc_create_async_64_h (a, len, async)
1463 use iso_c_binding, only: c_int64_t, c_size_t, c_int
1464 use openacc_internal, only: acc_create_async_l
1465 use openacc_kinds, only: acc_handle_kind
1466 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1467 type (*), dimension (*) :: a
1468 integer (c_int64_t) len
1469 integer (acc_handle_kind) async
1470 call acc_create_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int))
1473 subroutine acc_create_async_array_h (a, async)
1474 use iso_c_binding, only: c_int
1475 use openacc_internal, only: acc_create_async_l
1476 use openacc_kinds, only: acc_handle_kind
1477 type (*), dimension (..), contiguous :: a
1478 integer (acc_handle_kind) async
1479 call acc_create_async_l (a, sizeof (a), int (async, kind = c_int))
1482 subroutine acc_copyout_async_32_h (a, len, async)
1483 use iso_c_binding, only: c_int32_t, c_size_t, c_int
1484 use openacc_internal, only: acc_copyout_async_l
1485 use openacc_kinds, only: acc_handle_kind
1486 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1487 type (*), dimension (*) :: a
1488 integer (c_int32_t) len
1489 integer (acc_handle_kind) async
1490 call acc_copyout_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int))
1493 subroutine acc_copyout_async_64_h (a, len, async)
1494 use iso_c_binding, only: c_int64_t, c_size_t, c_int
1495 use openacc_internal, only: acc_copyout_async_l
1496 use openacc_kinds, only: acc_handle_kind
1497 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1498 type (*), dimension (*) :: a
1499 integer (c_int64_t) len
1500 integer (acc_handle_kind) async
1501 call acc_copyout_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int))
1504 subroutine acc_copyout_async_array_h (a, async)
1505 use iso_c_binding, only: c_int
1506 use openacc_internal, only: acc_copyout_async_l
1507 use openacc_kinds, only: acc_handle_kind
1508 type (*), dimension (..), contiguous :: a
1509 integer (acc_handle_kind) async
1510 call acc_copyout_async_l (a, sizeof (a), int (async, kind = c_int))
1513 subroutine acc_delete_async_32_h (a, len, async)
1514 use iso_c_binding, only: c_int32_t, c_size_t, c_int
1515 use openacc_internal, only: acc_delete_async_l
1516 use openacc_kinds, only: acc_handle_kind
1517 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1518 type (*), dimension (*) :: a
1519 integer (c_int32_t) len
1520 integer (acc_handle_kind) async
1521 call acc_delete_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int))
1524 subroutine acc_delete_async_64_h (a, len, async)
1525 use iso_c_binding, only: c_int64_t, c_size_t, c_int
1526 use openacc_internal, only: acc_delete_async_l
1527 use openacc_kinds, only: acc_handle_kind
1528 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1529 type (*), dimension (*) :: a
1530 integer (c_int64_t) len
1531 integer (acc_handle_kind) async
1532 call acc_delete_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int))
1535 subroutine acc_delete_async_array_h (a, async)
1536 use iso_c_binding, only: c_int
1537 use openacc_internal, only: acc_delete_async_l
1538 use openacc_kinds, only: acc_handle_kind
1539 type (*), dimension (..), contiguous :: a
1540 integer (acc_handle_kind) async
1541 call acc_delete_async_l (a, sizeof (a), int (async, kind = c_int))
1544 subroutine acc_update_device_async_32_h (a, len, async)
1545 use iso_c_binding, only: c_int32_t, c_size_t, c_int
1546 use openacc_internal, only: acc_update_device_async_l
1547 use openacc_kinds, only: acc_handle_kind
1548 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1549 type (*), dimension (*) :: a
1550 integer (c_int32_t) len
1551 integer (acc_handle_kind) async
1552 call acc_update_device_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int))
1555 subroutine acc_update_device_async_64_h (a, len, async)
1556 use iso_c_binding, only: c_int64_t, c_size_t, c_int
1557 use openacc_internal, only: acc_update_device_async_l
1558 use openacc_kinds, only: acc_handle_kind
1559 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1560 type (*), dimension (*) :: a
1561 integer (c_int64_t) len
1562 integer (acc_handle_kind) async
1563 call acc_update_device_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int))
1566 subroutine acc_update_device_async_array_h (a, async)
1567 use iso_c_binding, only: c_int
1568 use openacc_internal, only: acc_update_device_async_l
1569 use openacc_kinds, only: acc_handle_kind
1570 type (*), dimension (..), contiguous :: a
1571 integer (acc_handle_kind) async
1572 call acc_update_device_async_l (a, sizeof (a), int (async, kind = c_int))
1575 subroutine acc_update_self_async_32_h (a, len, async)
1576 use iso_c_binding, only: c_int32_t, c_size_t, c_int
1577 use openacc_internal, only: acc_update_self_async_l
1578 use openacc_kinds, only: acc_handle_kind
1579 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1580 type (*), dimension (*) :: a
1581 integer (c_int32_t) len
1582 integer (acc_handle_kind) async
1583 call acc_update_self_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int))
1586 subroutine acc_update_self_async_64_h (a, len, async)
1587 use iso_c_binding, only: c_int64_t, c_size_t, c_int
1588 use openacc_internal, only: acc_update_self_async_l
1589 use openacc_kinds, only: acc_handle_kind
1590 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
1591 type (*), dimension (*) :: a
1592 integer (c_int64_t) len
1593 integer (acc_handle_kind) async
1594 call acc_update_self_async_l (a, int (len, kind = c_size_t), int (async, kind = c_int))
1597 subroutine acc_update_self_async_array_h (a, async)
1598 use iso_c_binding, only: c_int
1599 use openacc_internal, only: acc_update_self_async_l
1600 use openacc_kinds, only: acc_handle_kind
1601 type (*), dimension (..), contiguous :: a
1602 integer (acc_handle_kind) async
1603 call acc_update_self_async_l (a, sizeof (a), int (async, kind = c_int))