1 ! OpenACC Runtime Library Definitions. -*- mode: fortran -*- 2 3 ! Copyright (C) 2014-2024 Free Software Foundation, Inc. 4 5 ! Contributed by Tobias Burnus <burnus@net-b.de> 6 ! and Mentor Embedded. 7 8 ! This file is part of the GNU Offloading and Multi Processing Library 9 ! (libgomp). 10 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. 15 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. 20 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. 24 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/>. 29 30 ! NOTE: Due to the use of dimension (..), the code only works when compiled 31 ! with -std=f2008ts/gnu/legacy but not with other standard settings. 32 ! Alternatively, the user can use the module version, which permits 33 ! compilation with -std=f95. 34 35 ! Keep in sync with openacc.f90 and config/accel/openacc.f90. 36 37 integer, parameter :: acc_device_kind = 4 38 39 ! Keep in sync with include/gomp-constants.h. 40 integer (acc_device_kind), parameter :: acc_device_current = -1 41 integer (acc_device_kind), parameter :: acc_device_none = 0 42 integer (acc_device_kind), parameter :: acc_device_default = 1 43 integer (acc_device_kind), parameter :: acc_device_host = 2 44 ! integer (acc_device_kind), parameter :: acc_device_host_nonshm = 3 45 ! removed. 46 integer (acc_device_kind), parameter :: acc_device_not_host = 4 47 integer (acc_device_kind), parameter :: acc_device_nvidia = 5 48 integer (acc_device_kind), parameter :: acc_device_radeon = 8 49 50 integer, parameter :: acc_device_property_kind = 4 51 ! OpenACC 2.6/2.7/3.0 used acc_device_property; in a spec update the 52 ! missing '_kind' was added for consistency. For backward compatibility, keep: 53 integer, parameter :: acc_device_property & 54 & = acc_device_property_kind 55 56 integer (acc_device_property_kind), parameter :: & 57 & acc_property_memory = 1 58 integer (acc_device_property_kind), parameter :: & 59 & acc_property_free_memory = 2 60 integer (acc_device_property_kind), parameter :: & 61 & acc_property_name = int(Z'10001') 62 integer (acc_device_property_kind), parameter :: & 63 & acc_property_vendor = int(Z'10002') 64 integer (acc_device_property_kind), parameter :: & 65 & acc_property_driver = int(Z'10003') 66 67 integer, parameter :: acc_handle_kind = 4 68 69 ! Keep in sync with include/gomp-constants.h. 70 integer (acc_handle_kind), parameter :: acc_async_noval = -1 71 integer (acc_handle_kind), parameter :: acc_async_sync = -2 72 73 integer, parameter :: openacc_version = 201711 74 75 interface acc_get_num_devices 76 function acc_get_num_devices_h (devicetype) 77 import acc_device_kind 78 integer acc_get_num_devices_h 79 integer (acc_device_kind) devicetype 80 end function 81 end interface 82 83 interface acc_set_device_type 84 subroutine acc_set_device_type_h (devicetype) 85 import acc_device_kind 86 integer (acc_device_kind) devicetype 87 end subroutine 88 end interface 89 90 interface acc_get_device_type 91 function acc_get_device_type_h () 92 import acc_device_kind 93 integer (acc_device_kind) acc_get_device_type_h 94 end function 95 end interface 96 97 interface acc_set_device_num 98 subroutine acc_set_device_num_h (devicenum, devicetype) 99 import acc_device_kind 100 integer devicenum 101 integer (acc_device_kind) devicetype 102 end subroutine 103 end interface 104 105 interface acc_get_device_num 106 function acc_get_device_num_h (devicetype) 107 import acc_device_kind 108 integer acc_get_device_num_h 109 integer (acc_device_kind) devicetype 110 end function 111 end interface 112 113 interface acc_get_property 114 function acc_get_property_h (devicenum, devicetype, & 115 & property) 116 use iso_c_binding, only: c_size_t 117 import acc_device_kind, acc_device_property_kind 118 implicit none (type, external) 119 integer (c_size_t) :: acc_get_property_h 120 integer, value :: devicenum 121 integer (acc_device_kind), value :: devicetype 122 integer (acc_device_property_kind), value :: property 123 end function 124 end interface 125 126 interface acc_get_property_string 127 subroutine acc_get_property_string_h (devicenum, devicetype, & 128 & property, string) 129 import acc_device_kind, acc_device_property_kind 130 implicit none (type, external) 131 integer, value :: devicenum 132 integer (acc_device_kind), value :: devicetype 133 integer (acc_device_property_kind), value :: property 134 character (*) :: string 135 end subroutine 136 end interface 137 138 interface acc_async_test 139 function acc_async_test_h (arg) 140 logical acc_async_test_h 141 integer arg 142 end function 143 end interface 144 145 interface acc_async_test_all 146 function acc_async_test_all_h () 147 logical acc_async_test_all_h 148 end function 149 end interface 150 151 interface acc_wait 152 subroutine acc_wait_h (arg) 153 integer arg 154 end subroutine 155 end interface 156 157 ! acc_async_wait is an OpenACC 1.0 compatibility name for acc_wait. 158 interface acc_async_wait 159 procedure :: acc_wait_h 160 end interface 161 162 interface acc_wait_async 163 subroutine acc_wait_async_h (arg, async) 164 integer arg, async 165 end subroutine 166 end interface 167 168 interface acc_wait_all 169 subroutine acc_wait_all_h () 170 end subroutine 171 end interface 172 173 ! acc_async_wait_all is an OpenACC 1.0 compatibility name for 174 ! acc_wait_all. 175 interface acc_async_wait_all 176 procedure :: acc_wait_all_h 177 end interface 178 179 interface acc_wait_all_async 180 subroutine acc_wait_all_async_h (async) 181 integer async 182 end subroutine 183 end interface 184 185 interface acc_init 186 subroutine acc_init_h (devicetype) 187 import acc_device_kind 188 integer (acc_device_kind) devicetype 189 end subroutine 190 end interface 191 192 interface acc_shutdown 193 subroutine acc_shutdown_h (devicetype) 194 import acc_device_kind 195 integer (acc_device_kind) devicetype 196 end subroutine 197 end interface 198 199 interface acc_on_device 200 function acc_on_device_h (devicetype) 201 import acc_device_kind 202 logical acc_on_device_h 203 integer (acc_device_kind) devicetype 204 end function 205 end interface 206 207 interface 208 type(c_ptr) function acc_malloc(bytes) bind(C) 209 use iso_c_binding, only: c_ptr, c_size_t 210 integer(c_size_t), value :: bytes 211 end function 212 end interface 213 214 interface 215 subroutine acc_free(data_dev) bind(C) 216 use iso_c_binding, only: c_ptr 217 type(c_ptr), value :: data_dev 218 end subroutine 219 end interface 220 221 interface acc_copyin 222 subroutine acc_copyin_32_h (a, len) 223 use iso_c_binding, only: c_int32_t 224 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 225 type (*), dimension (*) :: a 226 integer (c_int32_t) len 227 end subroutine 228 229 subroutine acc_copyin_64_h (a, len) 230 use iso_c_binding, only: c_int64_t 231 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 232 type (*), dimension (*) :: a 233 integer (c_int64_t) len 234 end subroutine 235 236 subroutine acc_copyin_array_h (a) 237 type (*), dimension (..), contiguous :: a 238 end subroutine 239 end interface 240 241 interface acc_present_or_copyin 242 subroutine acc_present_or_copyin_32_h (a, len) 243 use iso_c_binding, only: c_int32_t 244 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 245 type (*), dimension (*) :: a 246 integer (c_int32_t) len 247 end subroutine 248 249 subroutine acc_present_or_copyin_64_h (a, len) 250 use iso_c_binding, only: c_int64_t 251 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 252 type (*), dimension (*) :: a 253 integer (c_int64_t) len 254 end subroutine 255 256 subroutine acc_present_or_copyin_array_h (a) 257 type (*), dimension (..), contiguous :: a 258 end subroutine 259 end interface 260 261 interface acc_pcopyin 262 procedure :: acc_present_or_copyin_32_h 263 procedure :: acc_present_or_copyin_64_h 264 procedure :: acc_present_or_copyin_array_h 265 end interface 266 267 interface acc_create 268 subroutine acc_create_32_h (a, len) 269 use iso_c_binding, only: c_int32_t 270 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 271 type (*), dimension (*) :: a 272 integer (c_int32_t) len 273 end subroutine 274 275 subroutine acc_create_64_h (a, len) 276 use iso_c_binding, only: c_int64_t 277 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 278 type (*), dimension (*) :: a 279 integer (c_int64_t) len 280 end subroutine 281 282 subroutine acc_create_array_h (a) 283 type (*), dimension (..), contiguous :: a 284 end subroutine 285 end interface 286 287 interface acc_present_or_create 288 subroutine acc_present_or_create_32_h (a, len) 289 use iso_c_binding, only: c_int32_t 290 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 291 type (*), dimension (*) :: a 292 integer (c_int32_t) len 293 end subroutine 294 295 subroutine acc_present_or_create_64_h (a, len) 296 use iso_c_binding, only: c_int64_t 297 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 298 type (*), dimension (*) :: a 299 integer (c_int64_t) len 300 end subroutine 301 302 subroutine acc_present_or_create_array_h (a) 303 type (*), dimension (..), contiguous :: a 304 end subroutine 305 end interface 306 307 interface acc_pcreate 308 procedure :: acc_present_or_create_32_h 309 procedure :: acc_present_or_create_64_h 310 procedure :: acc_present_or_create_array_h 311 end interface 312 313 interface acc_copyout 314 subroutine acc_copyout_32_h (a, len) 315 use iso_c_binding, only: c_int32_t 316 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 317 type (*), dimension (*) :: a 318 integer (c_int32_t) len 319 end subroutine 320 321 subroutine acc_copyout_64_h (a, len) 322 use iso_c_binding, only: c_int64_t 323 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 324 type (*), dimension (*) :: a 325 integer (c_int64_t) len 326 end subroutine 327 328 subroutine acc_copyout_array_h (a) 329 type (*), dimension (..), contiguous :: a 330 end subroutine 331 end interface 332 333 interface acc_copyout_finalize 334 subroutine acc_copyout_finalize_32_h (a, len) 335 use iso_c_binding, only: c_int32_t 336 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 337 type (*), dimension (*) :: a 338 integer (c_int32_t) len 339 end subroutine 340 341 subroutine acc_copyout_finalize_64_h (a, len) 342 use iso_c_binding, only: c_int64_t 343 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 344 type (*), dimension (*) :: a 345 integer (c_int64_t) len 346 end subroutine 347 348 subroutine acc_copyout_finalize_array_h (a) 349 type (*), dimension (..), contiguous :: a 350 end subroutine 351 end interface 352 353 interface acc_delete 354 subroutine acc_delete_32_h (a, len) 355 use iso_c_binding, only: c_int32_t 356 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 357 type (*), dimension (*) :: a 358 integer (c_int32_t) len 359 end subroutine 360 361 subroutine acc_delete_64_h (a, len) 362 use iso_c_binding, only: c_int64_t 363 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 364 type (*), dimension (*) :: a 365 integer (c_int64_t) len 366 end subroutine 367 368 subroutine acc_delete_array_h (a) 369 type (*), dimension (..), contiguous :: a 370 end subroutine 371 end interface 372 373 interface acc_delete_finalize 374 subroutine acc_delete_finalize_32_h (a, len) 375 use iso_c_binding, only: c_int32_t 376 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 377 type (*), dimension (*) :: a 378 integer (c_int32_t) len 379 end subroutine 380 381 subroutine acc_delete_finalize_64_h (a, len) 382 use iso_c_binding, only: c_int64_t 383 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 384 type (*), dimension (*) :: a 385 integer (c_int64_t) len 386 end subroutine 387 388 subroutine acc_delete_finalize_array_h (a) 389 type (*), dimension (..), contiguous :: a 390 end subroutine 391 end interface 392 393 interface acc_update_device 394 subroutine acc_update_device_32_h (a, len) 395 use iso_c_binding, only: c_int32_t 396 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 397 type (*), dimension (*) :: a 398 integer (c_int32_t) len 399 end subroutine 400 401 subroutine acc_update_device_64_h (a, len) 402 use iso_c_binding, only: c_int64_t 403 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 404 type (*), dimension (*) :: a 405 integer (c_int64_t) len 406 end subroutine 407 408 subroutine acc_update_device_array_h (a) 409 type (*), dimension (..), contiguous :: a 410 end subroutine 411 end interface 412 413 interface acc_update_self 414 subroutine acc_update_self_32_h (a, len) 415 use iso_c_binding, only: c_int32_t 416 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 417 type (*), dimension (*) :: a 418 integer (c_int32_t) len 419 end subroutine 420 421 subroutine acc_update_self_64_h (a, len) 422 use iso_c_binding, only: c_int64_t 423 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 424 type (*), dimension (*) :: a 425 integer (c_int64_t) len 426 end subroutine 427 428 subroutine acc_update_self_array_h (a) 429 type (*), dimension (..), contiguous :: a 430 end subroutine 431 end interface 432 433 interface 434 subroutine acc_map_data(data_arg, data_dev, bytes) bind(C) 435 use iso_c_binding, only: c_ptr, c_size_t 436 type(*), dimension(*) :: data_arg 437 type(c_ptr), value :: data_dev 438 integer(c_size_t), value :: bytes 439 end subroutine 440 end interface 441 442 interface 443 subroutine acc_unmap_data(data_arg) bind(C) 444 type(*), dimension(*) :: data_arg 445 end subroutine 446 end interface 447 448 interface 449 type(c_ptr) function acc_deviceptr(data_arg) bind(C) 450 use iso_c_binding, only: c_ptr 451 type(*), dimension(*) :: data_arg 452 end function 453 end interface 454 455 interface 456 type(c_ptr) function acc_hostptr(data_dev) bind(C) 457 use iso_c_binding, only: c_ptr 458 type(c_ptr), value :: data_dev 459 end function 460 end interface 461 462 interface acc_is_present 463 function acc_is_present_32_h (a, len) 464 use iso_c_binding, only: c_int32_t 465 logical acc_is_present_32_h 466 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 467 type (*), dimension (*) :: a 468 integer (c_int32_t) len 469 end function 470 471 function acc_is_present_64_h (a, len) 472 use iso_c_binding, only: c_int64_t 473 logical acc_is_present_64_h 474 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 475 type (*), dimension (*) :: a 476 integer (c_int64_t) len 477 end function 478 479 function acc_is_present_array_h (a) 480 logical acc_is_present_array_h 481 type (*), dimension (..), contiguous :: a 482 end function 483 end interface 484 485 interface 486 subroutine acc_memcpy_to_device(data_dev_dest, data_host_src, & 487 & bytes) bind(C) 488 use iso_c_binding, only: c_ptr, c_size_t 489 type(c_ptr), value :: data_dev_dest 490 type(*),dimension(*) :: data_host_src 491 integer(c_size_t), value :: bytes 492 end subroutine 493 end interface 494 495 interface 496 subroutine acc_memcpy_to_device_async(data_dev_dest, & 497 & data_host_src, bytes, & 498 & async_arg) bind(C) 499 use iso_c_binding, only: c_ptr, c_size_t 500 import :: acc_handle_kind 501 type(c_ptr), value :: data_dev_dest 502 type(*),dimension(*) :: data_host_src 503 integer(c_size_t), value :: bytes 504 integer(acc_handle_kind), value :: async_arg 505 end subroutine 506 end interface 507 508 interface 509 subroutine acc_memcpy_from_device(data_host_dest, & 510 & data_dev_src, bytes) bind(C) 511 use iso_c_binding, only: c_ptr, c_size_t 512 type(*),dimension(*) :: data_host_dest 513 type(c_ptr), value :: data_dev_src 514 integer(c_size_t), value :: bytes 515 end subroutine 516 end interface 517 518 interface 519 subroutine acc_memcpy_from_device_async(data_host_dest, & 520 & data_dev_src, bytes, & 521 & async_arg) bind(C) 522 use iso_c_binding, only: c_ptr, c_size_t 523 import :: acc_handle_kind 524 type(*),dimension(*) :: data_host_dest 525 type(c_ptr), value :: data_dev_src 526 integer(c_size_t), value :: bytes 527 integer(acc_handle_kind), value :: async_arg 528 end subroutine 529 end interface 530 531 interface acc_copyin_async 532 subroutine acc_copyin_async_32_h (a, len, async) 533 use iso_c_binding, only: c_int32_t 534 import acc_handle_kind 535 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 536 type (*), dimension (*) :: a 537 integer (c_int32_t) len 538 integer (acc_handle_kind) async 539 end subroutine 540 541 subroutine acc_copyin_async_64_h (a, len, async) 542 use iso_c_binding, only: c_int64_t 543 import acc_handle_kind 544 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 545 type (*), dimension (*) :: a 546 integer (c_int64_t) len 547 integer (acc_handle_kind) async 548 end subroutine 549 550 subroutine acc_copyin_async_array_h (a, async_) 551 import acc_handle_kind 552 type (*), dimension (..), contiguous :: a 553 integer (acc_handle_kind) async_ 554 end subroutine 555 end interface 556 557 interface acc_create_async 558 subroutine acc_create_async_32_h (a, len, async) 559 use iso_c_binding, only: c_int32_t 560 import acc_handle_kind 561 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 562 type (*), dimension (*) :: a 563 integer (c_int32_t) len 564 integer (acc_handle_kind) async 565 end subroutine 566 567 subroutine acc_create_async_64_h (a, len, async) 568 use iso_c_binding, only: c_int64_t 569 import acc_handle_kind 570 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 571 type (*), dimension (*) :: a 572 integer (c_int64_t) len 573 integer (acc_handle_kind) async 574 end subroutine 575 576 subroutine acc_create_async_array_h (a, async_) 577 import acc_handle_kind 578 type (*), dimension (..), contiguous :: a 579 integer (acc_handle_kind) async_ 580 end subroutine 581 end interface 582 583 interface acc_copyout_async 584 subroutine acc_copyout_async_32_h (a, len, async) 585 use iso_c_binding, only: c_int32_t 586 import acc_handle_kind 587 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 588 type (*), dimension (*) :: a 589 integer (c_int32_t) len 590 integer (acc_handle_kind) async 591 end subroutine 592 593 subroutine acc_copyout_async_64_h (a, len, async) 594 use iso_c_binding, only: c_int64_t 595 import acc_handle_kind 596 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 597 type (*), dimension (*) :: a 598 integer (c_int64_t) len 599 integer (acc_handle_kind) async 600 end subroutine 601 602 subroutine acc_copyout_async_array_h (a, async_) 603 import acc_handle_kind 604 type (*), dimension (..), contiguous :: a 605 integer (acc_handle_kind) async_ 606 end subroutine 607 end interface 608 609 interface acc_delete_async 610 subroutine acc_delete_async_32_h (a, len, async) 611 use iso_c_binding, only: c_int32_t 612 import acc_handle_kind 613 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 614 type (*), dimension (*) :: a 615 integer (c_int32_t) len 616 integer (acc_handle_kind) async 617 end subroutine 618 619 subroutine acc_delete_async_64_h (a, len, async) 620 use iso_c_binding, only: c_int64_t 621 import acc_handle_kind 622 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 623 type (*), dimension (*) :: a 624 integer (c_int64_t) len 625 integer (acc_handle_kind) async 626 end subroutine 627 628 subroutine acc_delete_async_array_h (a, async_) 629 import acc_handle_kind 630 type (*), dimension (..), contiguous :: a 631 integer (acc_handle_kind) async_ 632 end subroutine 633 end interface 634 635 interface acc_update_device_async 636 subroutine acc_update_device_async_32_h (a, len, async) 637 use iso_c_binding, only: c_int32_t 638 import acc_handle_kind 639 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 640 type (*), dimension (*) :: a 641 integer (c_int32_t) len 642 integer (acc_handle_kind) async 643 end subroutine 644 645 subroutine acc_update_device_async_64_h (a, len, async) 646 use iso_c_binding, only: c_int64_t 647 import acc_handle_kind 648 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 649 type (*), dimension (*) :: a 650 integer (c_int64_t) len 651 integer (acc_handle_kind) async 652 end subroutine 653 654 subroutine acc_update_device_async_array_h (a, async_) 655 import acc_handle_kind 656 type (*), dimension (..), contiguous :: a 657 integer (acc_handle_kind) async_ 658 end subroutine 659 end interface 660 661 interface acc_update_self_async 662 subroutine acc_update_self_async_32_h (a, len, async) 663 use iso_c_binding, only: c_int32_t 664 import acc_handle_kind 665 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 666 type (*), dimension (*) :: a 667 integer (c_int32_t) len 668 integer (acc_handle_kind) async 669 end subroutine 670 671 subroutine acc_update_self_async_64_h (a, len, async) 672 use iso_c_binding, only: c_int64_t 673 import acc_handle_kind 674 !GCC$ ATTRIBUTES NO_ARG_CHECK :: a 675 type (*), dimension (*) :: a 676 integer (c_int64_t) len 677 integer (acc_handle_kind) async 678 end subroutine 679 680 subroutine acc_update_self_async_array_h (a, async_) 681 import acc_handle_kind 682 type (*), dimension (..), contiguous :: a 683 integer (acc_handle_kind) async_ 684 end subroutine 685 end interface 686
Indexes created Sat Feb 28 05:31:39 UTC 2026