Daily bump.
[official-gcc.git] / libgomp / openacc.f90
blobd201d1dde6f0b50c2ddf4d79f7d8d3c19a3ab2b9
1 ! OpenACC Runtime Library Definitions.
3 ! Copyright (C) 2014-2018 Free Software Foundation, Inc.
5 ! Contributed by Tobias Burnus <burnus@net-b.de>
6 ! and Mentor Embedded.
8 ! This file is part of the GNU Offloading and Multi Processing Library
9 ! (libgomp).
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)
14 ! any later version.
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
19 ! more details.
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 module openacc_kinds
31 use iso_fortran_env, only: int32
32 implicit none
34 private :: int32
35 public :: acc_device_kind
37 integer, parameter :: acc_device_kind = int32
39 public :: acc_device_none, acc_device_default, acc_device_host
40 public :: acc_device_not_host, acc_device_nvidia
42 ! Keep in sync with include/gomp-constants.h.
43 integer (acc_device_kind), parameter :: acc_device_none = 0
44 integer (acc_device_kind), parameter :: acc_device_default = 1
45 integer (acc_device_kind), parameter :: acc_device_host = 2
46 ! integer (acc_device_kind), parameter :: acc_device_host_nonshm = 3 removed.
47 integer (acc_device_kind), parameter :: acc_device_not_host = 4
48 integer (acc_device_kind), parameter :: acc_device_nvidia = 5
50 public :: acc_handle_kind
52 integer, parameter :: acc_handle_kind = int32
54 public :: acc_async_noval, acc_async_sync
56 ! Keep in sync with include/gomp-constants.h.
57 integer (acc_handle_kind), parameter :: acc_async_noval = -1
58 integer (acc_handle_kind), parameter :: acc_async_sync = -2
60 end module
62 module openacc_internal
63 use openacc_kinds
64 implicit none
66 interface
67 function acc_get_num_devices_h (d)
68 import
69 integer acc_get_num_devices_h
70 integer (acc_device_kind) d
71 end function
73 subroutine acc_set_device_type_h (d)
74 import
75 integer (acc_device_kind) d
76 end subroutine
78 function acc_get_device_type_h ()
79 import
80 integer (acc_device_kind) acc_get_device_type_h
81 end function
83 subroutine acc_set_device_num_h (n, d)
84 import
85 integer n
86 integer (acc_device_kind) d
87 end subroutine
89 function acc_get_device_num_h (d)
90 import
91 integer acc_get_device_num_h
92 integer (acc_device_kind) d
93 end function
95 function acc_async_test_h (a)
96 logical acc_async_test_h
97 integer a
98 end function
100 function acc_async_test_all_h ()
101 logical acc_async_test_all_h
102 end function
104 subroutine acc_wait_h (a)
105 integer a
106 end subroutine
108 subroutine acc_wait_async_h (a1, a2)
109 integer a1, a2
110 end subroutine
112 subroutine acc_wait_all_h ()
113 end subroutine
115 subroutine acc_wait_all_async_h (a)
116 integer a
117 end subroutine
119 subroutine acc_init_h (d)
120 import
121 integer (acc_device_kind) d
122 end subroutine
124 subroutine acc_shutdown_h (d)
125 import
126 integer (acc_device_kind) d
127 end subroutine
129 function acc_on_device_h (d)
130 import
131 integer (acc_device_kind) d
132 logical acc_on_device_h
133 end function
135 subroutine acc_copyin_32_h (a, len)
136 use iso_c_binding, only: c_int32_t
137 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
138 type (*), dimension (*) :: a
139 integer (c_int32_t) len
140 end subroutine
142 subroutine acc_copyin_64_h (a, len)
143 use iso_c_binding, only: c_int64_t
144 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
145 type (*), dimension (*) :: a
146 integer (c_int64_t) len
147 end subroutine
149 subroutine acc_copyin_array_h (a)
150 type (*), dimension (..), contiguous :: a
151 end subroutine
153 subroutine acc_present_or_copyin_32_h (a, len)
154 use iso_c_binding, only: c_int32_t
155 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
156 type (*), dimension (*) :: a
157 integer (c_int32_t) len
158 end subroutine
160 subroutine acc_present_or_copyin_64_h (a, len)
161 use iso_c_binding, only: c_int64_t
162 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
163 type (*), dimension (*) :: a
164 integer (c_int64_t) len
165 end subroutine
167 subroutine acc_present_or_copyin_array_h (a)
168 type (*), dimension (..), contiguous :: a
169 end subroutine
171 subroutine acc_create_32_h (a, len)
172 use iso_c_binding, only: c_int32_t
173 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
174 type (*), dimension (*) :: a
175 integer (c_int32_t) len
176 end subroutine
178 subroutine acc_create_64_h (a, len)
179 use iso_c_binding, only: c_int64_t
180 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
181 type (*), dimension (*) :: a
182 integer (c_int64_t) len
183 end subroutine
185 subroutine acc_create_array_h (a)
186 type (*), dimension (..), contiguous :: a
187 end subroutine
189 subroutine acc_present_or_create_32_h (a, len)
190 use iso_c_binding, only: c_int32_t
191 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
192 type (*), dimension (*) :: a
193 integer (c_int32_t) len
194 end subroutine
196 subroutine acc_present_or_create_64_h (a, len)
197 use iso_c_binding, only: c_int64_t
198 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
199 type (*), dimension (*) :: a
200 integer (c_int64_t) len
201 end subroutine
203 subroutine acc_present_or_create_array_h (a)
204 type (*), dimension (..), contiguous :: a
205 end subroutine
207 subroutine acc_copyout_32_h (a, len)
208 use iso_c_binding, only: c_int32_t
209 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
210 type (*), dimension (*) :: a
211 integer (c_int32_t) len
212 end subroutine
214 subroutine acc_copyout_64_h (a, len)
215 use iso_c_binding, only: c_int64_t
216 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
217 type (*), dimension (*) :: a
218 integer (c_int64_t) len
219 end subroutine
221 subroutine acc_copyout_array_h (a)
222 type (*), dimension (..), contiguous :: a
223 end subroutine
225 subroutine acc_delete_32_h (a, len)
226 use iso_c_binding, only: c_int32_t
227 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
228 type (*), dimension (*) :: a
229 integer (c_int32_t) len
230 end subroutine
232 subroutine acc_delete_64_h (a, len)
233 use iso_c_binding, only: c_int64_t
234 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
235 type (*), dimension (*) :: a
236 integer (c_int64_t) len
237 end subroutine
239 subroutine acc_delete_array_h (a)
240 type (*), dimension (..), contiguous :: a
241 end subroutine
243 subroutine acc_update_device_32_h (a, len)
244 use iso_c_binding, only: c_int32_t
245 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
246 type (*), dimension (*) :: a
247 integer (c_int32_t) len
248 end subroutine
250 subroutine acc_update_device_64_h (a, len)
251 use iso_c_binding, only: c_int64_t
252 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
253 type (*), dimension (*) :: a
254 integer (c_int64_t) len
255 end subroutine
257 subroutine acc_update_device_array_h (a)
258 type (*), dimension (..), contiguous :: a
259 end subroutine
261 subroutine acc_update_self_32_h (a, len)
262 use iso_c_binding, only: c_int32_t
263 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
264 type (*), dimension (*) :: a
265 integer (c_int32_t) len
266 end subroutine
268 subroutine acc_update_self_64_h (a, len)
269 use iso_c_binding, only: c_int64_t
270 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
271 type (*), dimension (*) :: a
272 integer (c_int64_t) len
273 end subroutine
275 subroutine acc_update_self_array_h (a)
276 type (*), dimension (..), contiguous :: a
277 end subroutine
279 function acc_is_present_32_h (a, len)
280 use iso_c_binding, only: c_int32_t
281 logical acc_is_present_32_h
282 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
283 type (*), dimension (*) :: a
284 integer (c_int32_t) len
285 end function
287 function acc_is_present_64_h (a, len)
288 use iso_c_binding, only: c_int64_t
289 logical acc_is_present_64_h
290 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
291 type (*), dimension (*) :: a
292 integer (c_int64_t) len
293 end function
295 function acc_is_present_array_h (a)
296 logical acc_is_present_array_h
297 type (*), dimension (..), contiguous :: a
298 end function
299 end interface
301 interface
302 function acc_get_num_devices_l (d) &
303 bind (C, name = "acc_get_num_devices")
304 use iso_c_binding, only: c_int
305 integer (c_int) :: acc_get_num_devices_l
306 integer (c_int), value :: d
307 end function
309 subroutine acc_set_device_type_l (d) &
310 bind (C, name = "acc_set_device_type")
311 use iso_c_binding, only: c_int
312 integer (c_int), value :: d
313 end subroutine
315 function acc_get_device_type_l () &
316 bind (C, name = "acc_get_device_type")
317 use iso_c_binding, only: c_int
318 integer (c_int) :: acc_get_device_type_l
319 end function
321 subroutine acc_set_device_num_l (n, d) &
322 bind (C, name = "acc_set_device_num")
323 use iso_c_binding, only: c_int
324 integer (c_int), value :: n, d
325 end subroutine
327 function acc_get_device_num_l (d) &
328 bind (C, name = "acc_get_device_num")
329 use iso_c_binding, only: c_int
330 integer (c_int) :: acc_get_device_num_l
331 integer (c_int), value :: d
332 end function
334 function acc_async_test_l (a) &
335 bind (C, name = "acc_async_test")
336 use iso_c_binding, only: c_int
337 integer (c_int) :: acc_async_test_l
338 integer (c_int), value :: a
339 end function
341 function acc_async_test_all_l () &
342 bind (C, name = "acc_async_test_all")
343 use iso_c_binding, only: c_int
344 integer (c_int) :: acc_async_test_all_l
345 end function
347 subroutine acc_wait_l (a) &
348 bind (C, name = "acc_wait")
349 use iso_c_binding, only: c_int
350 integer (c_int), value :: a
351 end subroutine
353 subroutine acc_wait_async_l (a1, a2) &
354 bind (C, name = "acc_wait_async")
355 use iso_c_binding, only: c_int
356 integer (c_int), value :: a1, a2
357 end subroutine
359 subroutine acc_wait_all_l () &
360 bind (C, name = "acc_wait_all")
361 use iso_c_binding, only: c_int
362 end subroutine
364 subroutine acc_wait_all_async_l (a) &
365 bind (C, name = "acc_wait_all_async")
366 use iso_c_binding, only: c_int
367 integer (c_int), value :: a
368 end subroutine
370 subroutine acc_init_l (d) &
371 bind (C, name = "acc_init")
372 use iso_c_binding, only: c_int
373 integer (c_int), value :: d
374 end subroutine
376 subroutine acc_shutdown_l (d) &
377 bind (C, name = "acc_shutdown")
378 use iso_c_binding, only: c_int
379 integer (c_int), value :: d
380 end subroutine
382 function acc_on_device_l (d) &
383 bind (C, name = "acc_on_device")
384 use iso_c_binding, only: c_int
385 integer (c_int) :: acc_on_device_l
386 integer (c_int), value :: d
387 end function
389 subroutine acc_copyin_l (a, len) &
390 bind (C, name = "acc_copyin")
391 use iso_c_binding, only: c_size_t
392 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
393 type (*), dimension (*) :: a
394 integer (c_size_t), value :: len
395 end subroutine
397 subroutine acc_present_or_copyin_l (a, len) &
398 bind (C, name = "acc_present_or_copyin")
399 use iso_c_binding, only: c_size_t
400 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
401 type (*), dimension (*) :: a
402 integer (c_size_t), value :: len
403 end subroutine
405 subroutine acc_create_l (a, len) &
406 bind (C, name = "acc_create")
407 use iso_c_binding, only: c_size_t
408 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
409 type (*), dimension (*) :: a
410 integer (c_size_t), value :: len
411 end subroutine
413 subroutine acc_present_or_create_l (a, len) &
414 bind (C, name = "acc_present_or_create")
415 use iso_c_binding, only: c_size_t
416 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
417 type (*), dimension (*) :: a
418 integer (c_size_t), value :: len
419 end subroutine
421 subroutine acc_copyout_l (a, len) &
422 bind (C, name = "acc_copyout")
423 use iso_c_binding, only: c_size_t
424 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
425 type (*), dimension (*) :: a
426 integer (c_size_t), value :: len
427 end subroutine
429 subroutine acc_delete_l (a, len) &
430 bind (C, name = "acc_delete")
431 use iso_c_binding, only: c_size_t
432 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
433 type (*), dimension (*) :: a
434 integer (c_size_t), value :: len
435 end subroutine
437 subroutine acc_update_device_l (a, len) &
438 bind (C, name = "acc_update_device")
439 use iso_c_binding, only: c_size_t
440 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
441 type (*), dimension (*) :: a
442 integer (c_size_t), value :: len
443 end subroutine
445 subroutine acc_update_self_l (a, len) &
446 bind (C, name = "acc_update_self")
447 use iso_c_binding, only: c_size_t
448 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
449 type (*), dimension (*) :: a
450 integer (c_size_t), value :: len
451 end subroutine
453 function acc_is_present_l (a, len) &
454 bind (C, name = "acc_is_present")
455 use iso_c_binding, only: c_int32_t, c_size_t
456 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
457 integer (c_int32_t) :: acc_is_present_l
458 type (*), dimension (*) :: a
459 integer (c_size_t), value :: len
460 end function
461 end interface
462 end module
464 module openacc
465 use openacc_kinds
466 use openacc_internal
467 implicit none
469 public :: openacc_version
471 public :: acc_get_num_devices, acc_set_device_type, acc_get_device_type
472 public :: acc_set_device_num, acc_get_device_num, acc_async_test
473 public :: acc_async_test_all
474 public :: acc_wait, acc_async_wait, acc_wait_async
475 public :: acc_wait_all, acc_async_wait_all, acc_wait_all_async
476 public :: acc_init, acc_shutdown, acc_on_device
477 public :: acc_copyin, acc_present_or_copyin, acc_pcopyin, acc_create
478 public :: acc_present_or_create, acc_pcreate, acc_copyout, acc_delete
479 public :: acc_update_device, acc_update_self, acc_is_present
481 integer, parameter :: openacc_version = 201306
483 interface acc_get_num_devices
484 procedure :: acc_get_num_devices_h
485 end interface
487 interface acc_set_device_type
488 procedure :: acc_set_device_type_h
489 end interface
491 interface acc_get_device_type
492 procedure :: acc_get_device_type_h
493 end interface
495 interface acc_set_device_num
496 procedure :: acc_set_device_num_h
497 end interface
499 interface acc_get_device_num
500 procedure :: acc_get_device_num_h
501 end interface
503 interface acc_async_test
504 procedure :: acc_async_test_h
505 end interface
507 interface acc_async_test_all
508 procedure :: acc_async_test_all_h
509 end interface
511 interface acc_wait
512 procedure :: acc_wait_h
513 end interface
515 ! acc_async_wait is an OpenACC 1.0 compatibility name for acc_wait.
516 interface acc_async_wait
517 procedure :: acc_wait_h
518 end interface
520 interface acc_wait_async
521 procedure :: acc_wait_async_h
522 end interface
524 interface acc_wait_all
525 procedure :: acc_wait_all_h
526 end interface
528 ! acc_async_wait_all is an OpenACC 1.0 compatibility name for acc_wait_all.
529 interface acc_async_wait_all
530 procedure :: acc_wait_all_h
531 end interface
533 interface acc_wait_all_async
534 procedure :: acc_wait_all_async_h
535 end interface
537 interface acc_init
538 procedure :: acc_init_h
539 end interface
541 interface acc_shutdown
542 procedure :: acc_shutdown_h
543 end interface
545 interface acc_on_device
546 procedure :: acc_on_device_h
547 end interface
549 ! acc_malloc: Only available in C/C++
550 ! acc_free: Only available in C/C++
552 ! As vendor extension, the following code supports both 32bit and 64bit
553 ! arguments for "size"; the OpenACC standard only permits default-kind
554 ! integers, which are of kind 4 (i.e. 32 bits).
555 ! Additionally, the two-argument version also takes arrays as argument.
556 ! and the one argument version also scalars. Note that the code assumes
557 ! that the arrays are contiguous.
559 interface acc_copyin
560 procedure :: acc_copyin_32_h
561 procedure :: acc_copyin_64_h
562 procedure :: acc_copyin_array_h
563 end interface
565 interface acc_present_or_copyin
566 procedure :: acc_present_or_copyin_32_h
567 procedure :: acc_present_or_copyin_64_h
568 procedure :: acc_present_or_copyin_array_h
569 end interface
571 interface acc_pcopyin
572 procedure :: acc_present_or_copyin_32_h
573 procedure :: acc_present_or_copyin_64_h
574 procedure :: acc_present_or_copyin_array_h
575 end interface
577 interface acc_create
578 procedure :: acc_create_32_h
579 procedure :: acc_create_64_h
580 procedure :: acc_create_array_h
581 end interface
583 interface acc_present_or_create
584 procedure :: acc_present_or_create_32_h
585 procedure :: acc_present_or_create_64_h
586 procedure :: acc_present_or_create_array_h
587 end interface
589 interface acc_pcreate
590 procedure :: acc_present_or_create_32_h
591 procedure :: acc_present_or_create_64_h
592 procedure :: acc_present_or_create_array_h
593 end interface
595 interface acc_copyout
596 procedure :: acc_copyout_32_h
597 procedure :: acc_copyout_64_h
598 procedure :: acc_copyout_array_h
599 end interface
601 interface acc_delete
602 procedure :: acc_delete_32_h
603 procedure :: acc_delete_64_h
604 procedure :: acc_delete_array_h
605 end interface
607 interface acc_update_device
608 procedure :: acc_update_device_32_h
609 procedure :: acc_update_device_64_h
610 procedure :: acc_update_device_array_h
611 end interface
613 interface acc_update_self
614 procedure :: acc_update_self_32_h
615 procedure :: acc_update_self_64_h
616 procedure :: acc_update_self_array_h
617 end interface
619 ! acc_map_data: Only available in C/C++
620 ! acc_unmap_data: Only available in C/C++
621 ! acc_deviceptr: Only available in C/C++
622 ! acc_hostptr: Only available in C/C++
624 interface acc_is_present
625 procedure :: acc_is_present_32_h
626 procedure :: acc_is_present_64_h
627 procedure :: acc_is_present_array_h
628 end interface
630 ! acc_memcpy_to_device: Only available in C/C++
631 ! acc_memcpy_from_device: Only available in C/C++
633 end module
635 function acc_get_num_devices_h (d)
636 use openacc_internal, only: acc_get_num_devices_l
637 use openacc_kinds
638 integer acc_get_num_devices_h
639 integer (acc_device_kind) d
640 acc_get_num_devices_h = acc_get_num_devices_l (d)
641 end function
643 subroutine acc_set_device_type_h (d)
644 use openacc_internal, only: acc_set_device_type_l
645 use openacc_kinds
646 integer (acc_device_kind) d
647 call acc_set_device_type_l (d)
648 end subroutine
650 function acc_get_device_type_h ()
651 use openacc_internal, only: acc_get_device_type_l
652 use openacc_kinds
653 integer (acc_device_kind) acc_get_device_type_h
654 acc_get_device_type_h = acc_get_device_type_l ()
655 end function
657 subroutine acc_set_device_num_h (n, d)
658 use openacc_internal, only: acc_set_device_num_l
659 use openacc_kinds
660 integer n
661 integer (acc_device_kind) d
662 call acc_set_device_num_l (n, d)
663 end subroutine
665 function acc_get_device_num_h (d)
666 use openacc_internal, only: acc_get_device_num_l
667 use openacc_kinds
668 integer acc_get_device_num_h
669 integer (acc_device_kind) d
670 acc_get_device_num_h = acc_get_device_num_l (d)
671 end function
673 function acc_async_test_h (a)
674 use openacc_internal, only: acc_async_test_l
675 logical acc_async_test_h
676 integer a
677 if (acc_async_test_l (a) .eq. 1) then
678 acc_async_test_h = .TRUE.
679 else
680 acc_async_test_h = .FALSE.
681 end if
682 end function
684 function acc_async_test_all_h ()
685 use openacc_internal, only: acc_async_test_all_l
686 logical acc_async_test_all_h
687 if (acc_async_test_all_l () .eq. 1) then
688 acc_async_test_all_h = .TRUE.
689 else
690 acc_async_test_all_h = .FALSE.
691 end if
692 end function
694 subroutine acc_wait_h (a)
695 use openacc_internal, only: acc_wait_l
696 integer a
697 call acc_wait_l (a)
698 end subroutine
700 subroutine acc_wait_async_h (a1, a2)
701 use openacc_internal, only: acc_wait_async_l
702 integer a1, a2
703 call acc_wait_async_l (a1, a2)
704 end subroutine
706 subroutine acc_wait_all_h ()
707 use openacc_internal, only: acc_wait_all_l
708 call acc_wait_all_l ()
709 end subroutine
711 subroutine acc_wait_all_async_h (a)
712 use openacc_internal, only: acc_wait_all_async_l
713 integer a
714 call acc_wait_all_async_l (a)
715 end subroutine
717 subroutine acc_init_h (d)
718 use openacc_internal, only: acc_init_l
719 use openacc_kinds
720 integer (acc_device_kind) d
721 call acc_init_l (d)
722 end subroutine
724 subroutine acc_shutdown_h (d)
725 use openacc_internal, only: acc_shutdown_l
726 use openacc_kinds
727 integer (acc_device_kind) d
728 call acc_shutdown_l (d)
729 end subroutine
731 function acc_on_device_h (d)
732 use openacc_internal, only: acc_on_device_l
733 use openacc_kinds
734 integer (acc_device_kind) d
735 logical acc_on_device_h
736 if (acc_on_device_l (d) .eq. 1) then
737 acc_on_device_h = .TRUE.
738 else
739 acc_on_device_h = .FALSE.
740 end if
741 end function
743 subroutine acc_copyin_32_h (a, len)
744 use iso_c_binding, only: c_int32_t, c_size_t
745 use openacc_internal, only: acc_copyin_l
746 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
747 type (*), dimension (*) :: a
748 integer (c_int32_t) len
749 call acc_copyin_l (a, int (len, kind = c_size_t))
750 end subroutine
752 subroutine acc_copyin_64_h (a, len)
753 use iso_c_binding, only: c_int64_t, c_size_t
754 use openacc_internal, only: acc_copyin_l
755 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
756 type (*), dimension (*) :: a
757 integer (c_int64_t) len
758 call acc_copyin_l (a, int (len, kind = c_size_t))
759 end subroutine
761 subroutine acc_copyin_array_h (a)
762 use openacc_internal, only: acc_copyin_l
763 type (*), dimension (..), contiguous :: a
764 call acc_copyin_l (a, sizeof (a))
765 end subroutine
767 subroutine acc_present_or_copyin_32_h (a, len)
768 use iso_c_binding, only: c_int32_t, c_size_t
769 use openacc_internal, only: acc_present_or_copyin_l
770 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
771 type (*), dimension (*) :: a
772 integer (c_int32_t) len
773 call acc_present_or_copyin_l (a, int (len, kind = c_size_t))
774 end subroutine
776 subroutine acc_present_or_copyin_64_h (a, len)
777 use iso_c_binding, only: c_int64_t, c_size_t
778 use openacc_internal, only: acc_present_or_copyin_l
779 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
780 type (*), dimension (*) :: a
781 integer (c_int64_t) len
782 call acc_present_or_copyin_l (a, int (len, kind = c_size_t))
783 end subroutine
785 subroutine acc_present_or_copyin_array_h (a)
786 use openacc_internal, only: acc_present_or_copyin_l
787 type (*), dimension (..), contiguous :: a
788 call acc_present_or_copyin_l (a, sizeof (a))
789 end subroutine
791 subroutine acc_create_32_h (a, len)
792 use iso_c_binding, only: c_int32_t, c_size_t
793 use openacc_internal, only: acc_create_l
794 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
795 type (*), dimension (*) :: a
796 integer (c_int32_t) len
797 call acc_create_l (a, int (len, kind = c_size_t))
798 end subroutine
800 subroutine acc_create_64_h (a, len)
801 use iso_c_binding, only: c_int64_t, c_size_t
802 use openacc_internal, only: acc_create_l
803 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
804 type (*), dimension (*) :: a
805 integer (c_int64_t) len
806 call acc_create_l (a, int (len, kind = c_size_t))
807 end subroutine
809 subroutine acc_create_array_h (a)
810 use openacc_internal, only: acc_create_l
811 type (*), dimension (..), contiguous :: a
812 call acc_create_l (a, sizeof (a))
813 end subroutine
815 subroutine acc_present_or_create_32_h (a, len)
816 use iso_c_binding, only: c_int32_t, c_size_t
817 use openacc_internal, only: acc_present_or_create_l
818 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
819 type (*), dimension (*) :: a
820 integer (c_int32_t) len
821 call acc_present_or_create_l (a, int (len, kind = c_size_t))
822 end subroutine
824 subroutine acc_present_or_create_64_h (a, len)
825 use iso_c_binding, only: c_int64_t, c_size_t
826 use openacc_internal, only: acc_present_or_create_l
827 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
828 type (*), dimension (*) :: a
829 integer (c_int64_t) len
830 call acc_present_or_create_l (a, int (len, kind = c_size_t))
831 end subroutine
833 subroutine acc_present_or_create_array_h (a)
834 use openacc_internal, only: acc_present_or_create_l
835 type (*), dimension (..), contiguous :: a
836 call acc_present_or_create_l (a, sizeof (a))
837 end subroutine
839 subroutine acc_copyout_32_h (a, len)
840 use iso_c_binding, only: c_int32_t, c_size_t
841 use openacc_internal, only: acc_copyout_l
842 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
843 type (*), dimension (*) :: a
844 integer (c_int32_t) len
845 call acc_copyout_l (a, int (len, kind = c_size_t))
846 end subroutine
848 subroutine acc_copyout_64_h (a, len)
849 use iso_c_binding, only: c_int64_t, c_size_t
850 use openacc_internal, only: acc_copyout_l
851 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
852 type (*), dimension (*) :: a
853 integer (c_int64_t) len
854 call acc_copyout_l (a, int (len, kind = c_size_t))
855 end subroutine
857 subroutine acc_copyout_array_h (a)
858 use openacc_internal, only: acc_copyout_l
859 type (*), dimension (..), contiguous :: a
860 call acc_copyout_l (a, sizeof (a))
861 end subroutine
863 subroutine acc_delete_32_h (a, len)
864 use iso_c_binding, only: c_int32_t, c_size_t
865 use openacc_internal, only: acc_delete_l
866 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
867 type (*), dimension (*) :: a
868 integer (c_int32_t) len
869 call acc_delete_l (a, int (len, kind = c_size_t))
870 end subroutine
872 subroutine acc_delete_64_h (a, len)
873 use iso_c_binding, only: c_int64_t, c_size_t
874 use openacc_internal, only: acc_delete_l
875 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
876 type (*), dimension (*) :: a
877 integer (c_int64_t) len
878 call acc_delete_l (a, int (len, kind = c_size_t))
879 end subroutine
881 subroutine acc_delete_array_h (a)
882 use openacc_internal, only: acc_delete_l
883 type (*), dimension (..), contiguous :: a
884 call acc_delete_l (a, sizeof (a))
885 end subroutine
887 subroutine acc_update_device_32_h (a, len)
888 use iso_c_binding, only: c_int32_t, c_size_t
889 use openacc_internal, only: acc_update_device_l
890 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
891 type (*), dimension (*) :: a
892 integer (c_int32_t) len
893 call acc_update_device_l (a, int (len, kind = c_size_t))
894 end subroutine
896 subroutine acc_update_device_64_h (a, len)
897 use iso_c_binding, only: c_int64_t, c_size_t
898 use openacc_internal, only: acc_update_device_l
899 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
900 type (*), dimension (*) :: a
901 integer (c_int64_t) len
902 call acc_update_device_l (a, int (len, kind = c_size_t))
903 end subroutine
905 subroutine acc_update_device_array_h (a)
906 use openacc_internal, only: acc_update_device_l
907 type (*), dimension (..), contiguous :: a
908 call acc_update_device_l (a, sizeof (a))
909 end subroutine
911 subroutine acc_update_self_32_h (a, len)
912 use iso_c_binding, only: c_int32_t, c_size_t
913 use openacc_internal, only: acc_update_self_l
914 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
915 type (*), dimension (*) :: a
916 integer (c_int32_t) len
917 call acc_update_self_l (a, int (len, kind = c_size_t))
918 end subroutine
920 subroutine acc_update_self_64_h (a, len)
921 use iso_c_binding, only: c_int64_t, c_size_t
922 use openacc_internal, only: acc_update_self_l
923 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
924 type (*), dimension (*) :: a
925 integer (c_int64_t) len
926 call acc_update_self_l (a, int (len, kind = c_size_t))
927 end subroutine
929 subroutine acc_update_self_array_h (a)
930 use openacc_internal, only: acc_update_self_l
931 type (*), dimension (..), contiguous :: a
932 call acc_update_self_l (a, sizeof (a))
933 end subroutine
935 function acc_is_present_32_h (a, len)
936 use iso_c_binding, only: c_int32_t, c_size_t
937 use openacc_internal, only: acc_is_present_l
938 logical acc_is_present_32_h
939 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
940 type (*), dimension (*) :: a
941 integer (c_int32_t) len
942 if (acc_is_present_l (a, int (len, kind = c_size_t)) .eq. 1) then
943 acc_is_present_32_h = .TRUE.
944 else
945 acc_is_present_32_h = .FALSE.
946 end if
947 end function
949 function acc_is_present_64_h (a, len)
950 use iso_c_binding, only: c_int64_t, c_size_t
951 use openacc_internal, only: acc_is_present_l
952 logical acc_is_present_64_h
953 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a
954 type (*), dimension (*) :: a
955 integer (c_int64_t) len
956 if (acc_is_present_l (a, int (len, kind = c_size_t)) .eq. 1) then
957 acc_is_present_64_h = .TRUE.
958 else
959 acc_is_present_64_h = .FALSE.
960 end if
961 end function
963 function acc_is_present_array_h (a)
964 use openacc_internal, only: acc_is_present_l
965 logical acc_is_present_array_h
966 type (*), dimension (..), contiguous :: a
967 acc_is_present_array_h = acc_is_present_l (a, sizeof (a)) == 1
968 end function