1 ! -*- fortran -*- 2 ! 3 ! Copyright (c) 2012 Cisco Systems, Inc. All rights reserved. 4 ! Copyright (c) 2018 FUJITSU LIMITED. All rights reserved. 5 ! Copyright (c) 2018 Research Organization for Information Science 6 ! and Technology (RIST). All rights reserved. 7 ! $COPYRIGHT$ 8 ! 9 ! Additional copyrights may follow 10 ! 11 ! $HEADER$ 12 ! 13 14 ! This whole file will be included in the mpi_ext module interface 15 ! section. Note that the extension's mpif.h file will be included 16 ! first, so there's no need to re-define anything that's in there (e.g., 17 ! OMPI_EXAMPLE_GLOBAL). 18 19 ! Declare any interfaces, subroutines, and global variables/constants 20 ! here. Note that the mpiext_example_mpif.h will automatically be 21 ! included before this, so anything declared there does not need to be 22 ! replicated here. 23 24 interface mpix_allgather_init 25 subroutine mpix_allgather_init(sendbuf, sendcount, sendtype, & 26 recvbuf, recvcount, recvtype, & 27 comm, info, request, ierror) 28 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 29 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 30 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 31 !DIR$ IGNORE_TKR sendbuf, recvbuf 32 !IBM* IGNORE_TKR sendbuf, recvbuf 33 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 34 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 35 integer, intent(in) :: sendcount 36 integer, intent(in) :: sendtype 37 integer, intent(in) :: recvcount 38 integer, intent(in) :: recvtype 39 integer, intent(in) :: comm 40 integer, intent(in) :: info 41 integer, intent(out) :: request 42 integer, intent(out) :: ierror 43 end subroutine mpix_allgather_init 44 end interface mpix_allgather_init 45 46 interface pmpix_allgather_init 47 subroutine pmpix_allgather_init(sendbuf, sendcount, sendtype, & 48 recvbuf, recvcount, recvtype, & 49 comm, info, request, ierror) 50 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 51 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 52 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 53 !DIR$ IGNORE_TKR sendbuf, recvbuf 54 !IBM* IGNORE_TKR sendbuf, recvbuf 55 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 56 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 57 integer, intent(in) :: sendcount 58 integer, intent(in) :: sendtype 59 integer, intent(in) :: recvcount 60 integer, intent(in) :: recvtype 61 integer, intent(in) :: comm 62 integer, intent(in) :: info 63 integer, intent(out) :: request 64 integer, intent(out) :: ierror 65 end subroutine pmpix_allgather_init 66 end interface pmpix_allgather_init 67 68 interface mpix_allgatherv_init 69 subroutine mpix_allgatherv_init(sendbuf, sendcount, sendtype, & 70 recvbuf, recvcounts, displs, recvtype, & 71 comm, info, request, ierror) 72 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 73 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 74 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 75 !DIR$ IGNORE_TKR sendbuf, recvbuf 76 !IBM* IGNORE_TKR sendbuf, recvbuf 77 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 78 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 79 integer, intent(in) :: sendcount 80 integer, intent(in) :: sendtype 81 integer, dimension(*), intent(in) :: recvcounts 82 integer, dimension(*), intent(in) :: displs 83 integer, intent(in) :: recvtype 84 integer, intent(in) :: comm 85 integer, intent(in) :: info 86 integer, intent(out) :: request 87 integer, intent(out) :: ierror 88 end subroutine mpix_allgatherv_init 89 end interface mpix_allgatherv_init 90 91 interface pmpix_allgatherv_init 92 subroutine pmpix_allgatherv_init(sendbuf, sendcount, sendtype, & 93 recvbuf, recvcounts, displs, recvtype, & 94 comm, info, request, ierror) 95 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 96 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 97 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 98 !DIR$ IGNORE_TKR sendbuf, recvbuf 99 !IBM* IGNORE_TKR sendbuf, recvbuf 100 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 101 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 102 integer, intent(in) :: sendcount 103 integer, intent(in) :: sendtype 104 integer, dimension(*), intent(in) :: recvcounts 105 integer, dimension(*), intent(in) :: displs 106 integer, intent(in) :: recvtype 107 integer, intent(in) :: comm 108 integer, intent(in) :: info 109 integer, intent(out) :: request 110 integer, intent(out) :: ierror 111 end subroutine pmpix_allgatherv_init 112 end interface pmpix_allgatherv_init 113 114 interface mpix_allreduce_init 115 subroutine mpix_allreduce_init(sendbuf, recvbuf, count, & 116 datatype, op, & 117 comm, info, request, ierror) 118 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 119 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 120 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 121 !DIR$ IGNORE_TKR sendbuf, recvbuf 122 !IBM* IGNORE_TKR sendbuf, recvbuf 123 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 124 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 125 integer, intent(in) :: count 126 integer, intent(in) :: datatype 127 integer, intent(in) :: op 128 integer, intent(in) :: comm 129 integer, intent(in) :: info 130 integer, intent(out) :: request 131 integer, intent(out) :: ierror 132 end subroutine mpix_allreduce_init 133 end interface mpix_allreduce_init 134 135 interface pmpix_allreduce_init 136 subroutine pmpix_allreduce_init(sendbuf, recvbuf, count, & 137 datatype, op, & 138 comm, info, request, ierror) 139 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 140 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 141 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 142 !DIR$ IGNORE_TKR sendbuf, recvbuf 143 !IBM* IGNORE_TKR sendbuf, recvbuf 144 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 145 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 146 integer, intent(in) :: count 147 integer, intent(in) :: datatype 148 integer, intent(in) :: op 149 integer, intent(in) :: comm 150 integer, intent(in) :: info 151 integer, intent(out) :: request 152 integer, intent(out) :: ierror 153 end subroutine pmpix_allreduce_init 154 end interface pmpix_allreduce_init 155 156 interface mpix_alltoall_init 157 subroutine mpix_alltoall_init(sendbuf, sendcount, sendtype, & 158 recvbuf, recvcount, recvtype, & 159 comm, info, request, ierror) 160 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 161 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 162 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 163 !DIR$ IGNORE_TKR sendbuf, recvbuf 164 !IBM* IGNORE_TKR sendbuf, recvbuf 165 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 166 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 167 integer, intent(in) :: sendcount 168 integer, intent(in) :: sendtype 169 integer, intent(in) :: recvcount 170 integer, intent(in) :: recvtype 171 integer, intent(in) :: comm 172 integer, intent(in) :: info 173 integer, intent(out) :: request 174 integer, intent(out) :: ierror 175 end subroutine mpix_alltoall_init 176 end interface mpix_alltoall_init 177 178 interface pmpix_alltoall_init 179 subroutine pmpix_alltoall_init(sendbuf, sendcount, sendtype, & 180 recvbuf, recvcount, recvtype, & 181 comm, info, request, ierror) 182 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 183 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 184 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 185 !DIR$ IGNORE_TKR sendbuf, recvbuf 186 !IBM* IGNORE_TKR sendbuf, recvbuf 187 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 188 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 189 integer, intent(in) :: sendcount 190 integer, intent(in) :: sendtype 191 integer, intent(in) :: recvcount 192 integer, intent(in) :: recvtype 193 integer, intent(in) :: comm 194 integer, intent(in) :: info 195 integer, intent(out) :: request 196 integer, intent(out) :: ierror 197 end subroutine pmpix_alltoall_init 198 end interface pmpix_alltoall_init 199 200 interface mpix_alltoallv_init 201 subroutine mpix_alltoallv_init(sendbuf, sendcounts, sdispls, sendtype, & 202 recvbuf, recvcounts, rdispls, recvtype, & 203 comm, info, request, ierror) 204 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 205 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 206 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 207 !DIR$ IGNORE_TKR sendbuf, recvbuf 208 !IBM* IGNORE_TKR sendbuf, recvbuf 209 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 210 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 211 integer, dimension(*), intent(in) :: sendcounts 212 integer, dimension(*), intent(in) :: sdispls 213 integer, intent(in) :: sendtype 214 integer, dimension(*), intent(in) :: recvcounts 215 integer, dimension(*), intent(in) :: rdispls 216 integer, intent(in) :: recvtype 217 integer, intent(in) :: comm 218 integer, intent(in) :: info 219 integer, intent(out) :: request 220 integer, intent(out) :: ierror 221 end subroutine mpix_alltoallv_init 222 end interface mpix_alltoallv_init 223 224 interface pmpix_alltoallv_init 225 subroutine pmpix_alltoallv_init(sendbuf, sendcounts, sdispls, sendtype, & 226 recvbuf, recvcounts, rdispls, recvtype, & 227 comm, info, request, ierror) 228 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 229 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 230 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 231 !DIR$ IGNORE_TKR sendbuf, recvbuf 232 !IBM* IGNORE_TKR sendbuf, recvbuf 233 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 234 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 235 integer, dimension(*), intent(in) :: sendcounts 236 integer, dimension(*), intent(in) :: sdispls 237 integer, intent(in) :: sendtype 238 integer, dimension(*), intent(in) :: recvcounts 239 integer, dimension(*), intent(in) :: rdispls 240 integer, intent(in) :: recvtype 241 integer, intent(in) :: comm 242 integer, intent(in) :: info 243 integer, intent(out) :: request 244 integer, intent(out) :: ierror 245 end subroutine pmpix_alltoallv_init 246 end interface pmpix_alltoallv_init 247 248 interface mpix_alltoallw_init 249 subroutine mpix_alltoallw_init(sendbuf, sendcounts, sdispls, sendtypes, & 250 recvbuf, recvcounts, rdispls, recvtypes, & 251 comm, info, request, ierror) 252 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 253 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 254 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 255 !DIR$ IGNORE_TKR sendbuf, recvbuf 256 !IBM* IGNORE_TKR sendbuf, recvbuf 257 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 258 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 259 integer, dimension(*), intent(in) :: sendcounts 260 integer, dimension(*), intent(in) :: sdispls 261 integer, dimension(*), intent(in) :: sendtypes 262 integer, dimension(*), intent(in) :: recvcounts 263 integer, dimension(*), intent(in) :: rdispls 264 integer, dimension(*), intent(in) :: recvtypes 265 integer, intent(in) :: comm 266 integer, intent(in) :: info 267 integer, intent(out) :: request 268 integer, intent(out) :: ierror 269 end subroutine mpix_alltoallw_init 270 end interface mpix_alltoallw_init 271 272 interface pmpix_alltoallw_init 273 subroutine pmpix_alltoallw_init(sendbuf, sendcounts, sdispls, sendtypes, & 274 recvbuf, recvcounts, rdispls, recvtypes, & 275 comm, info, request, ierror) 276 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 277 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 278 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 279 !DIR$ IGNORE_TKR sendbuf, recvbuf 280 !IBM* IGNORE_TKR sendbuf, recvbuf 281 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 282 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 283 integer, dimension(*), intent(in) :: sendcounts 284 integer, dimension(*), intent(in) :: sdispls 285 integer, dimension(*), intent(in) :: sendtypes 286 integer, dimension(*), intent(in) :: recvcounts 287 integer, dimension(*), intent(in) :: rdispls 288 integer, dimension(*), intent(in) :: recvtypes 289 integer, intent(in) :: comm 290 integer, intent(in) :: info 291 integer, intent(out) :: request 292 integer, intent(out) :: ierror 293 end subroutine pmpix_alltoallw_init 294 end interface pmpix_alltoallw_init 295 296 interface mpix_barrier_init 297 subroutine mpix_barrier_init(comm, info, request, ierror) 298 integer, intent(in) :: comm 299 integer, intent(in) :: info 300 integer, intent(out) :: request 301 integer, intent(out) :: ierror 302 end subroutine mpix_barrier_init 303 end interface mpix_barrier_init 304 305 interface pmpix_barrier_init 306 subroutine pmpix_barrier_init(comm, info, request, ierror) 307 integer, intent(in) :: comm 308 integer, intent(in) :: info 309 integer, intent(out) :: request 310 integer, intent(out) :: ierror 311 end subroutine pmpix_barrier_init 312 end interface pmpix_barrier_init 313 314 interface mpix_bcast_init 315 subroutine mpix_bcast_init(buffer, count, datatype, root, & 316 comm, info, request, ierror) 317 !DEC$ ATTRIBUTES NO_ARG_CHECK :: buffer 318 !GCC$ ATTRIBUTES NO_ARG_CHECK :: buffer 319 !$PRAGMA IGNORE_TKR buffer 320 !DIR$ IGNORE_TKR buffer 321 !IBM* IGNORE_TKR buffer 322 OMPI_FORTRAN_IGNORE_TKR_TYPE :: buffer 323 integer, intent(in) :: count 324 integer, intent(in) :: datatype 325 integer, intent(in) :: root 326 integer, intent(in) :: comm 327 integer, intent(in) :: info 328 integer, intent(out) :: request 329 integer, intent(out) :: ierror 330 end subroutine mpix_bcast_init 331 end interface mpix_bcast_init 332 333 interface pmpix_bcast_init 334 subroutine pmpix_bcast_init(buffer, count, datatype, root, & 335 comm, info, request, ierror) 336 !DEC$ ATTRIBUTES NO_ARG_CHECK :: buffer 337 !GCC$ ATTRIBUTES NO_ARG_CHECK :: buffer 338 !$PRAGMA IGNORE_TKR buffer 339 !DIR$ IGNORE_TKR buffer 340 !IBM* IGNORE_TKR buffer 341 OMPI_FORTRAN_IGNORE_TKR_TYPE :: buffer 342 integer, intent(in) :: count 343 integer, intent(in) :: datatype 344 integer, intent(in) :: root 345 integer, intent(in) :: comm 346 integer, intent(in) :: info 347 integer, intent(out) :: request 348 integer, intent(out) :: ierror 349 end subroutine pmpix_bcast_init 350 end interface pmpix_bcast_init 351 352 interface mpix_exscan_init 353 subroutine mpix_exscan_init(sendbuf, recvbuf, count, & 354 datatype, op, & 355 comm, info, request, ierror) 356 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 357 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 358 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 359 !DIR$ IGNORE_TKR sendbuf, recvbuf 360 !IBM* IGNORE_TKR sendbuf, recvbuf 361 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 362 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 363 integer, intent(in) :: count 364 integer, intent(in) :: datatype 365 integer, intent(in) :: op 366 integer, intent(in) :: comm 367 integer, intent(in) :: info 368 integer, intent(out) :: request 369 integer, intent(out) :: ierror 370 end subroutine mpix_exscan_init 371 end interface mpix_exscan_init 372 373 interface pmpix_exscan_init 374 subroutine pmpix_exscan_init(sendbuf, recvbuf, count, & 375 datatype, op, & 376 comm, info, request, ierror) 377 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 378 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 379 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 380 !DIR$ IGNORE_TKR sendbuf, recvbuf 381 !IBM* IGNORE_TKR sendbuf, recvbuf 382 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 383 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 384 integer, intent(in) :: count 385 integer, intent(in) :: datatype 386 integer, intent(in) :: op 387 integer, intent(in) :: comm 388 integer, intent(in) :: info 389 integer, intent(out) :: request 390 integer, intent(out) :: ierror 391 end subroutine pmpix_exscan_init 392 end interface pmpix_exscan_init 393 394 interface mpix_gather_init 395 subroutine mpix_gather_init(sendbuf, sendcount, sendtype, & 396 recvbuf, recvcount, recvtype, root, & 397 comm, info, request, ierror) 398 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 399 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 400 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 401 !DIR$ IGNORE_TKR sendbuf, recvbuf 402 !IBM* IGNORE_TKR sendbuf, recvbuf 403 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 404 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 405 integer, intent(in) :: sendcount 406 integer, intent(in) :: sendtype 407 integer, intent(in) :: recvcount 408 integer, intent(in) :: recvtype 409 integer, intent(in) :: root 410 integer, intent(in) :: comm 411 integer, intent(in) :: info 412 integer, intent(out) :: request 413 integer, intent(out) :: ierror 414 end subroutine mpix_gather_init 415 end interface mpix_gather_init 416 417 interface pmpix_gather_init 418 subroutine pmpix_gather_init(sendbuf, sendcount, sendtype, & 419 recvbuf, recvcount, recvtype, root, & 420 comm, info, request, ierror) 421 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 422 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 423 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 424 !DIR$ IGNORE_TKR sendbuf, recvbuf 425 !IBM* IGNORE_TKR sendbuf, recvbuf 426 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 427 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 428 integer, intent(in) :: sendcount 429 integer, intent(in) :: sendtype 430 integer, intent(in) :: recvcount 431 integer, intent(in) :: recvtype 432 integer, intent(in) :: root 433 integer, intent(in) :: comm 434 integer, intent(in) :: info 435 integer, intent(out) :: request 436 integer, intent(out) :: ierror 437 end subroutine pmpix_gather_init 438 end interface pmpix_gather_init 439 440 interface mpix_gatherv_init 441 subroutine mpix_gatherv_init(sendbuf, sendcount, sendtype, & 442 recvbuf, recvcounts, displs, recvtype, root, & 443 comm, info, request, ierror) 444 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 445 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 446 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 447 !DIR$ IGNORE_TKR sendbuf, recvbuf 448 !IBM* IGNORE_TKR sendbuf, recvbuf 449 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 450 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 451 integer, intent(in) :: sendcount 452 integer, intent(in) :: sendtype 453 integer, dimension(*), intent(in) :: recvcounts 454 integer, dimension(*), intent(in) :: displs 455 integer, intent(in) :: recvtype 456 integer, intent(in) :: root 457 integer, intent(in) :: comm 458 integer, intent(in) :: info 459 integer, intent(out) :: request 460 integer, intent(out) :: ierror 461 end subroutine mpix_gatherv_init 462 end interface mpix_gatherv_init 463 464 interface pmpix_gatherv_init 465 subroutine pmpix_gatherv_init(sendbuf, sendcount, sendtype, & 466 recvbuf, recvcounts, displs, recvtype, root, & 467 comm, info, request, ierror) 468 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 469 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 470 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 471 !DIR$ IGNORE_TKR sendbuf, recvbuf 472 !IBM* IGNORE_TKR sendbuf, recvbuf 473 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 474 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 475 integer, intent(in) :: sendcount 476 integer, intent(in) :: sendtype 477 integer, dimension(*), intent(in) :: recvcounts 478 integer, dimension(*), intent(in) :: displs 479 integer, intent(in) :: recvtype 480 integer, intent(in) :: root 481 integer, intent(in) :: comm 482 integer, intent(in) :: info 483 integer, intent(out) :: request 484 integer, intent(out) :: ierror 485 end subroutine pmpix_gatherv_init 486 end interface pmpix_gatherv_init 487 488 interface mpix_reduce_init 489 subroutine mpix_reduce_init(sendbuf, recvbuf, count, & 490 datatype, op, root, & 491 comm, info, request, ierror) 492 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 493 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 494 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 495 !DIR$ IGNORE_TKR sendbuf, recvbuf 496 !IBM* IGNORE_TKR sendbuf, recvbuf 497 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 498 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 499 integer, intent(in) :: count 500 integer, intent(in) :: datatype 501 integer, intent(in) :: op 502 integer, intent(in) :: root 503 integer, intent(in) :: comm 504 integer, intent(in) :: info 505 integer, intent(out) :: request 506 integer, intent(out) :: ierror 507 end subroutine mpix_reduce_init 508 end interface mpix_reduce_init 509 510 interface pmpix_reduce_init 511 subroutine pmpix_reduce_init(sendbuf, recvbuf, count, & 512 datatype, op, root, & 513 comm, info, request, ierror) 514 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 515 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 516 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 517 !DIR$ IGNORE_TKR sendbuf, recvbuf 518 !IBM* IGNORE_TKR sendbuf, recvbuf 519 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 520 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 521 integer, intent(in) :: count 522 integer, intent(in) :: datatype 523 integer, intent(in) :: op 524 integer, intent(in) :: root 525 integer, intent(in) :: comm 526 integer, intent(in) :: info 527 integer, intent(out) :: request 528 integer, intent(out) :: ierror 529 end subroutine pmpix_reduce_init 530 end interface pmpix_reduce_init 531 532 interface mpix_reduce_scatter_init 533 subroutine mpix_reduce_scatter_init(sendbuf, recvbuf, recvcounts, & 534 datatype, op, & 535 comm, info, request, ierror) 536 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 537 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 538 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 539 !DIR$ IGNORE_TKR sendbuf, recvbuf 540 !IBM* IGNORE_TKR sendbuf, recvbuf 541 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 542 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 543 integer, dimension(*), intent(in) :: recvcounts 544 integer, intent(in) :: datatype 545 integer, intent(in) :: op 546 integer, intent(in) :: comm 547 integer, intent(in) :: info 548 integer, intent(out) :: request 549 integer, intent(out) :: ierror 550 end subroutine mpix_reduce_scatter_init 551 end interface mpix_reduce_scatter_init 552 553 interface pmpix_reduce_scatter_init 554 subroutine pmpix_reduce_scatter_init(sendbuf, recvbuf, recvcounts, & 555 datatype, op, & 556 comm, info, request, ierror) 557 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 558 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 559 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 560 !DIR$ IGNORE_TKR sendbuf, recvbuf 561 !IBM* IGNORE_TKR sendbuf, recvbuf 562 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 563 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 564 integer, dimension(*), intent(in) :: recvcounts 565 integer, intent(in) :: datatype 566 integer, intent(in) :: op 567 integer, intent(in) :: comm 568 integer, intent(in) :: info 569 integer, intent(out) :: request 570 integer, intent(out) :: ierror 571 end subroutine pmpix_reduce_scatter_init 572 end interface pmpix_reduce_scatter_init 573 574 interface mpix_reduce_scatter_block_init 575 subroutine mpix_reduce_scatter_block_init(sendbuf, recvbuf, recvcount, & 576 datatype, op, & 577 comm, info, request, ierror) 578 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 579 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 580 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 581 !DIR$ IGNORE_TKR sendbuf, recvbuf 582 !IBM* IGNORE_TKR sendbuf, recvbuf 583 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 584 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 585 integer, intent(in) :: recvcount 586 integer, intent(in) :: datatype 587 integer, intent(in) :: op 588 integer, intent(in) :: comm 589 integer, intent(in) :: info 590 integer, intent(out) :: request 591 integer, intent(out) :: ierror 592 end subroutine mpix_reduce_scatter_block_init 593 end interface mpix_reduce_scatter_block_init 594 595 interface pmpix_reduce_scatter_block_init 596 subroutine pmpix_reduce_scatter_block_init(sendbuf, recvbuf, recvcount, & 597 datatype, op, & 598 comm, info, request, ierror) 599 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 600 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 601 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 602 !DIR$ IGNORE_TKR sendbuf, recvbuf 603 !IBM* IGNORE_TKR sendbuf, recvbuf 604 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 605 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 606 integer, intent(in) :: recvcount 607 integer, intent(in) :: datatype 608 integer, intent(in) :: op 609 integer, intent(in) :: comm 610 integer, intent(in) :: info 611 integer, intent(out) :: request 612 integer, intent(out) :: ierror 613 end subroutine pmpix_reduce_scatter_block_init 614 end interface pmpix_reduce_scatter_block_init 615 616 interface mpix_scan_init 617 subroutine mpix_scan_init(sendbuf, recvbuf, count, & 618 datatype, op, & 619 comm, info, request, ierror) 620 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 621 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 622 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 623 !DIR$ IGNORE_TKR sendbuf, recvbuf 624 !IBM* IGNORE_TKR sendbuf, recvbuf 625 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 626 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 627 integer, intent(in) :: count 628 integer, intent(in) :: datatype 629 integer, intent(in) :: op 630 integer, intent(in) :: comm 631 integer, intent(in) :: info 632 integer, intent(out) :: request 633 integer, intent(out) :: ierror 634 end subroutine mpix_scan_init 635 end interface mpix_scan_init 636 637 interface pmpix_scan_init 638 subroutine pmpix_scan_init(sendbuf, recvbuf, count, & 639 datatype, op, & 640 comm, info, request, ierror) 641 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 642 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 643 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 644 !DIR$ IGNORE_TKR sendbuf, recvbuf 645 !IBM* IGNORE_TKR sendbuf, recvbuf 646 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 647 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 648 integer, intent(in) :: count 649 integer, intent(in) :: datatype 650 integer, intent(in) :: op 651 integer, intent(in) :: comm 652 integer, intent(in) :: info 653 integer, intent(out) :: request 654 integer, intent(out) :: ierror 655 end subroutine pmpix_scan_init 656 end interface pmpix_scan_init 657 658 interface mpix_scatter_init 659 subroutine mpix_scatter_init(sendbuf, sendcount, sendtype, & 660 recvbuf, recvcount, recvtype, root, & 661 comm, info, request, ierror) 662 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 663 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 664 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 665 !DIR$ IGNORE_TKR sendbuf, recvbuf 666 !IBM* IGNORE_TKR sendbuf, recvbuf 667 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 668 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 669 integer, intent(in) :: sendcount 670 integer, intent(in) :: sendtype 671 integer, intent(in) :: recvcount 672 integer, intent(in) :: recvtype 673 integer, intent(in) :: root 674 integer, intent(in) :: comm 675 integer, intent(in) :: info 676 integer, intent(out) :: request 677 integer, intent(out) :: ierror 678 end subroutine mpix_scatter_init 679 end interface mpix_scatter_init 680 681 interface pmpix_scatter_init 682 subroutine pmpix_scatter_init(sendbuf, sendcount, sendtype, & 683 recvbuf, recvcount, recvtype, root, & 684 comm, info, request, ierror) 685 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 686 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 687 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 688 !DIR$ IGNORE_TKR sendbuf, recvbuf 689 !IBM* IGNORE_TKR sendbuf, recvbuf 690 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 691 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 692 integer, intent(in) :: sendcount 693 integer, intent(in) :: sendtype 694 integer, intent(in) :: recvcount 695 integer, intent(in) :: recvtype 696 integer, intent(in) :: root 697 integer, intent(in) :: comm 698 integer, intent(in) :: info 699 integer, intent(out) :: request 700 integer, intent(out) :: ierror 701 end subroutine pmpix_scatter_init 702 end interface pmpix_scatter_init 703 704 interface mpix_scatterv_init 705 subroutine mpix_scatterv_init(sendbuf, sendcounts, displs, sendtype, & 706 recvbuf, recvcount, recvtype, root, & 707 comm, info, request, ierror) 708 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 709 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 710 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 711 !DIR$ IGNORE_TKR sendbuf, recvbuf 712 !IBM* IGNORE_TKR sendbuf, recvbuf 713 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 714 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 715 integer, dimension(*), intent(in) :: sendcounts 716 integer, dimension(*), intent(in) :: displs 717 integer, intent(in) :: sendtype 718 integer, intent(in) :: recvcount 719 integer, intent(in) :: recvtype 720 integer, intent(in) :: root 721 integer, intent(in) :: comm 722 integer, intent(in) :: info 723 integer, intent(out) :: request 724 integer, intent(out) :: ierror 725 end subroutine mpix_scatterv_init 726 end interface mpix_scatterv_init 727 728 interface pmpix_scatterv_init 729 subroutine pmpix_scatterv_init(sendbuf, sendcounts, displs, sendtype, & 730 recvbuf, recvcount, recvtype, root, & 731 comm, info, request, ierror) 732 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 733 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 734 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 735 !DIR$ IGNORE_TKR sendbuf, recvbuf 736 !IBM* IGNORE_TKR sendbuf, recvbuf 737 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 738 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 739 integer, dimension(*), intent(in) :: sendcounts 740 integer, dimension(*), intent(in) :: displs 741 integer, intent(in) :: sendtype 742 integer, intent(in) :: recvcount 743 integer, intent(in) :: recvtype 744 integer, intent(in) :: root 745 integer, intent(in) :: comm 746 integer, intent(in) :: info 747 integer, intent(out) :: request 748 integer, intent(out) :: ierror 749 end subroutine pmpix_scatterv_init 750 end interface pmpix_scatterv_init 751 752 interface mpix_neighbor_allgather_init 753 subroutine mpix_neighbor_allgather_init(sendbuf, sendcount, sendtype, & 754 recvbuf, recvcount, recvtype, & 755 comm, info, request, ierror) 756 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 757 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 758 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 759 !DIR$ IGNORE_TKR sendbuf, recvbuf 760 !IBM* IGNORE_TKR sendbuf, recvbuf 761 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 762 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 763 integer, intent(in) :: sendcount 764 integer, intent(in) :: sendtype 765 integer, intent(in) :: recvcount 766 integer, intent(in) :: recvtype 767 integer, intent(in) :: comm 768 integer, intent(in) :: info 769 integer, intent(out) :: request 770 integer, intent(out) :: ierror 771 end subroutine mpix_neighbor_allgather_init 772 end interface mpix_neighbor_allgather_init 773 774 interface pmpix_neighbor_allgather_init 775 subroutine pmpix_neighbor_allgather_init(sendbuf, sendcount, sendtype, & 776 recvbuf, recvcount, recvtype, & 777 comm, info, request, ierror) 778 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 779 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 780 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 781 !DIR$ IGNORE_TKR sendbuf, recvbuf 782 !IBM* IGNORE_TKR sendbuf, recvbuf 783 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 784 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 785 integer, intent(in) :: sendcount 786 integer, intent(in) :: sendtype 787 integer, intent(in) :: recvcount 788 integer, intent(in) :: recvtype 789 integer, intent(in) :: comm 790 integer, intent(in) :: info 791 integer, intent(out) :: request 792 integer, intent(out) :: ierror 793 end subroutine pmpix_neighbor_allgather_init 794 end interface pmpix_neighbor_allgather_init 795 796 interface mpix_neighbor_allgatherv_init 797 subroutine mpix_neighbor_allgatherv_init(sendbuf, sendcount, sendtype, & 798 recvbuf, recvcounts, displs, recvtype, & 799 comm, info, request, ierror) 800 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 801 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 802 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 803 !DIR$ IGNORE_TKR sendbuf, recvbuf 804 !IBM* IGNORE_TKR sendbuf, recvbuf 805 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 806 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 807 integer, intent(in) :: sendcount 808 integer, intent(in) :: sendtype 809 integer, dimension(*), intent(in) :: recvcounts 810 integer, dimension(*), intent(in) :: displs 811 integer, intent(in) :: recvtype 812 integer, intent(in) :: comm 813 integer, intent(in) :: info 814 integer, intent(out) :: request 815 integer, intent(out) :: ierror 816 end subroutine mpix_neighbor_allgatherv_init 817 end interface mpix_neighbor_allgatherv_init 818 819 interface pmpix_neighbor_allgatherv_init 820 subroutine pmpix_neighbor_allgatherv_init(sendbuf, sendcount, sendtype, & 821 recvbuf, recvcounts, displs, recvtype, & 822 comm, info, request, ierror) 823 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 824 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 825 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 826 !DIR$ IGNORE_TKR sendbuf, recvbuf 827 !IBM* IGNORE_TKR sendbuf, recvbuf 828 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 829 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 830 integer, intent(in) :: sendcount 831 integer, intent(in) :: sendtype 832 integer, dimension(*), intent(in) :: recvcounts 833 integer, dimension(*), intent(in) :: displs 834 integer, intent(in) :: recvtype 835 integer, intent(in) :: comm 836 integer, intent(in) :: info 837 integer, intent(out) :: request 838 integer, intent(out) :: ierror 839 end subroutine pmpix_neighbor_allgatherv_init 840 end interface pmpix_neighbor_allgatherv_init 841 842 interface mpix_neighbor_alltoall_init 843 subroutine mpix_neighbor_alltoall_init(sendbuf, sendcount, sendtype, & 844 recvbuf, recvcount, recvtype, & 845 comm, info, request, ierror) 846 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 847 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 848 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 849 !DIR$ IGNORE_TKR sendbuf, recvbuf 850 !IBM* IGNORE_TKR sendbuf, recvbuf 851 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 852 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 853 integer, intent(in) :: sendcount 854 integer, intent(in) :: sendtype 855 integer, intent(in) :: recvcount 856 integer, intent(in) :: recvtype 857 integer, intent(in) :: comm 858 integer, intent(in) :: info 859 integer, intent(out) :: request 860 integer, intent(out) :: ierror 861 end subroutine mpix_neighbor_alltoall_init 862 end interface mpix_neighbor_alltoall_init 863 864 interface pmpix_neighbor_alltoall_init 865 subroutine pmpix_neighbor_alltoall_init(sendbuf, sendcount, sendtype, & 866 recvbuf, recvcount, recvtype, & 867 comm, info, request, ierror) 868 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 869 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 870 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 871 !DIR$ IGNORE_TKR sendbuf, recvbuf 872 !IBM* IGNORE_TKR sendbuf, recvbuf 873 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 874 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 875 integer, intent(in) :: sendcount 876 integer, intent(in) :: sendtype 877 integer, intent(in) :: recvcount 878 integer, intent(in) :: recvtype 879 integer, intent(in) :: comm 880 integer, intent(in) :: info 881 integer, intent(out) :: request 882 integer, intent(out) :: ierror 883 end subroutine pmpix_neighbor_alltoall_init 884 end interface pmpix_neighbor_alltoall_init 885 886 interface mpix_neighbor_alltoallv_init 887 subroutine mpix_neighbor_alltoallv_init(sendbuf, sendcounts, sdispls, sendtype, & 888 recvbuf, recvcounts, rdispls, recvtype, & 889 comm, info, request, ierror) 890 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 891 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 892 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 893 !DIR$ IGNORE_TKR sendbuf, recvbuf 894 !IBM* IGNORE_TKR sendbuf, recvbuf 895 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 896 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 897 integer, dimension(*), intent(in) :: sendcounts 898 integer, dimension(*), intent(in) :: sdispls 899 integer, intent(in) :: sendtype 900 integer, dimension(*), intent(in) :: recvcounts 901 integer, dimension(*), intent(in) :: rdispls 902 integer, intent(in) :: recvtype 903 integer, intent(in) :: comm 904 integer, intent(in) :: info 905 integer, intent(out) :: request 906 integer, intent(out) :: ierror 907 end subroutine mpix_neighbor_alltoallv_init 908 end interface mpix_neighbor_alltoallv_init 909 910 interface pmpix_neighbor_alltoallv_init 911 subroutine pmpix_neighbor_alltoallv_init(sendbuf, sendcounts, sdispls, sendtype, & 912 recvbuf, recvcounts, rdispls, recvtype, & 913 comm, info, request, ierror) 914 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 915 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 916 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 917 !DIR$ IGNORE_TKR sendbuf, recvbuf 918 !IBM* IGNORE_TKR sendbuf, recvbuf 919 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 920 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 921 integer, dimension(*), intent(in) :: sendcounts 922 integer, dimension(*), intent(in) :: sdispls 923 integer, intent(in) :: sendtype 924 integer, dimension(*), intent(in) :: recvcounts 925 integer, dimension(*), intent(in) :: rdispls 926 integer, intent(in) :: recvtype 927 integer, intent(in) :: comm 928 integer, intent(in) :: info 929 integer, intent(out) :: request 930 integer, intent(out) :: ierror 931 end subroutine pmpix_neighbor_alltoallv_init 932 end interface pmpix_neighbor_alltoallv_init 933 934 interface mpix_neighbor_alltoallw_init 935 subroutine mpix_neighbor_alltoallw_init(sendbuf, sendcounts, sdispls, sendtypes, & 936 recvbuf, recvcounts, rdispls, recvtypes, & 937 comm, info, request, ierror) 938 include 'mpif-config.h' 939 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 940 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 941 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 942 !DIR$ IGNORE_TKR sendbuf, recvbuf 943 !IBM* IGNORE_TKR sendbuf, recvbuf 944 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 945 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 946 integer, dimension(*), intent(in) :: sendcounts 947 integer(kind=mpi_address_kind), dimension(*), intent(in) :: sdispls 948 integer, dimension(*), intent(in) :: sendtypes 949 integer, dimension(*), intent(in) :: recvcounts 950 integer(kind=mpi_address_kind), dimension(*), intent(in) :: rdispls 951 integer, dimension(*), intent(in) :: recvtypes 952 integer, intent(in) :: comm 953 integer, intent(in) :: info 954 integer, intent(out) :: request 955 integer, intent(out) :: ierror 956 end subroutine mpix_neighbor_alltoallw_init 957 end interface mpix_neighbor_alltoallw_init 958 959 interface pmpix_neighbor_alltoallw_init 960 subroutine pmpix_neighbor_alltoallw_init(sendbuf, sendcounts, sdispls, sendtypes, & 961 recvbuf, recvcounts, rdispls, recvtypes, & 962 comm, info, request, ierror) 963 include 'mpif-config.h' 964 !DEC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 965 !GCC$ ATTRIBUTES NO_ARG_CHECK :: sendbuf, recvbuf 966 !$PRAGMA IGNORE_TKR sendbuf, recvbuf 967 !DIR$ IGNORE_TKR sendbuf, recvbuf 968 !IBM* IGNORE_TKR sendbuf, recvbuf 969 OMPI_FORTRAN_IGNORE_TKR_TYPE, intent(in) :: sendbuf 970 OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf 971 integer, dimension(*), intent(in) :: sendcounts 972 integer(kind=mpi_address_kind), dimension(*), intent(in) :: sdispls 973 integer, dimension(*), intent(in) :: sendtypes 974 integer, dimension(*), intent(in) :: recvcounts 975 integer(kind=mpi_address_kind), dimension(*), intent(in) :: rdispls 976 integer, dimension(*), intent(in) :: recvtypes 977 integer, intent(in) :: comm 978 integer, intent(in) :: info 979 integer, intent(out) :: request 980 integer, intent(out) :: ierror 981 end subroutine pmpix_neighbor_alltoallw_init 982 end interface pmpix_neighbor_alltoallw_init 983