1! -*- Mode: Fortran; -*- 2! (C) 2008 by Argonne National Laboratory. 3! See COPYRIGHT in top-level directory. 4 MODULE MPI_t1_s 5 IMPLICIT NONE 6 PRIVATE 7 PUBLIC :: MPI_FILE_READ_AT_ALL_BEGIN 8 INTERFACE MPI_FILE_READ_AT_ALL_BEGIN 9 MODULE PROCEDURE MPI_FILE_READ_AT_ALL_BEGIN_T 10 END INTERFACE MPI_FILE_READ_AT_ALL_BEGIN 11 12 PUBLIC :: MPI_TYPE_CREATE_KEYVAL 13 INTERFACE MPI_TYPE_CREATE_KEYVAL 14 MODULE PROCEDURE MPI_TYPE_CREATE_KEYVAL_T 15 END INTERFACE MPI_TYPE_CREATE_KEYVAL 16 17 PUBLIC :: MPI_FILE_READ_ALL_BEGIN 18 INTERFACE MPI_FILE_READ_ALL_BEGIN 19 MODULE PROCEDURE MPI_FILE_READ_ALL_BEGIN_T 20 END INTERFACE MPI_FILE_READ_ALL_BEGIN 21 22 PUBLIC :: MPI_IBSEND 23 INTERFACE MPI_IBSEND 24 MODULE PROCEDURE MPI_IBSEND_T 25 END INTERFACE MPI_IBSEND 26 27 PUBLIC :: MPI_FILE_WRITE_SHARED 28 INTERFACE MPI_FILE_WRITE_SHARED 29 MODULE PROCEDURE MPI_FILE_WRITE_SHARED_T 30 END INTERFACE MPI_FILE_WRITE_SHARED 31 32 PUBLIC :: MPI_FINALIZE 33 INTERFACE MPI_FINALIZE 34 MODULE PROCEDURE MPI_FINALIZE_T 35 END INTERFACE MPI_FINALIZE 36 37 PUBLIC :: MPI_PUT 38 INTERFACE MPI_PUT 39 MODULE PROCEDURE MPI_PUT_T 40 END INTERFACE MPI_PUT 41 42 PUBLIC :: MPI_ALLREDUCE 43 INTERFACE MPI_ALLREDUCE 44 MODULE PROCEDURE MPI_ALLREDUCE_T 45 END INTERFACE MPI_ALLREDUCE 46 47 PUBLIC :: MPI_WIN_CREATE 48 INTERFACE MPI_WIN_CREATE 49 MODULE PROCEDURE MPI_WIN_CREATE_T 50 END INTERFACE MPI_WIN_CREATE 51 52 PUBLIC :: MPI_SENDRECV 53 INTERFACE MPI_SENDRECV 54 MODULE PROCEDURE MPI_SENDRECV_T 55 END INTERFACE MPI_SENDRECV 56 57 PUBLIC :: MPI_ALLTOALL 58 INTERFACE MPI_ALLTOALL 59 MODULE PROCEDURE MPI_ALLTOALL_T 60 END INTERFACE MPI_ALLTOALL 61 62 PUBLIC :: MPI_ISEND 63 INTERFACE MPI_ISEND 64 MODULE PROCEDURE MPI_ISEND_T 65 END INTERFACE MPI_ISEND 66 67 PUBLIC :: MPI_REDUCE_LOCAL 68 INTERFACE MPI_REDUCE_LOCAL 69 MODULE PROCEDURE MPI_REDUCE_LOCAL_T 70 END INTERFACE MPI_REDUCE_LOCAL 71 72 PUBLIC :: MPI_FILE_READ_ORDERED 73 INTERFACE MPI_FILE_READ_ORDERED 74 MODULE PROCEDURE MPI_FILE_READ_ORDERED_T 75 END INTERFACE MPI_FILE_READ_ORDERED 76 77 PUBLIC :: MPI_TYPE_GET_ATTR 78 INTERFACE MPI_TYPE_GET_ATTR 79 MODULE PROCEDURE MPI_TYPE_GET_ATTR_T 80 END INTERFACE MPI_TYPE_GET_ATTR 81 82 PUBLIC :: MPI_FILE_READ_ORDERED_END 83 INTERFACE MPI_FILE_READ_ORDERED_END 84 MODULE PROCEDURE MPI_FILE_READ_ORDERED_END_T 85 END INTERFACE MPI_FILE_READ_ORDERED_END 86 87 PUBLIC :: MPI_FILE_IWRITE_SHARED 88 INTERFACE MPI_FILE_IWRITE_SHARED 89 MODULE PROCEDURE MPI_FILE_IWRITE_SHARED_T 90 END INTERFACE MPI_FILE_IWRITE_SHARED 91 92 PUBLIC :: MPI_SEND 93 INTERFACE MPI_SEND 94 MODULE PROCEDURE MPI_SEND_T 95 END INTERFACE MPI_SEND 96 97 PUBLIC :: MPI_SSEND 98 INTERFACE MPI_SSEND 99 MODULE PROCEDURE MPI_SSEND_T 100 END INTERFACE MPI_SSEND 101 102 PUBLIC :: MPI_UNPACK_EXTERNAL 103 INTERFACE MPI_UNPACK_EXTERNAL 104 MODULE PROCEDURE MPI_UNPACK_EXTERNAL_T 105 END INTERFACE MPI_UNPACK_EXTERNAL 106 107 PUBLIC :: MPI_ALLGATHER 108 INTERFACE MPI_ALLGATHER 109 MODULE PROCEDURE MPI_ALLGATHER_T 110 END INTERFACE MPI_ALLGATHER 111 112 PUBLIC :: MPI_FILE_WRITE 113 INTERFACE MPI_FILE_WRITE 114 MODULE PROCEDURE MPI_FILE_WRITE_T 115 END INTERFACE MPI_FILE_WRITE 116 117 PUBLIC :: MPI_FILE_WRITE_ORDERED_BEGIN 118 INTERFACE MPI_FILE_WRITE_ORDERED_BEGIN 119 MODULE PROCEDURE MPI_FILE_WRITE_ORDERED_BEGIN_T 120 END INTERFACE MPI_FILE_WRITE_ORDERED_BEGIN 121 122 PUBLIC :: MPI_PACK_EXTERNAL 123 INTERFACE MPI_PACK_EXTERNAL 124 MODULE PROCEDURE MPI_PACK_EXTERNAL_T 125 END INTERFACE MPI_PACK_EXTERNAL 126 127 PUBLIC :: MPI_WIN_CREATE_KEYVAL 128 INTERFACE MPI_WIN_CREATE_KEYVAL 129 MODULE PROCEDURE MPI_WIN_CREATE_KEYVAL_T 130 END INTERFACE MPI_WIN_CREATE_KEYVAL 131 132 PUBLIC :: MPI_IRECV 133 INTERFACE MPI_IRECV 134 MODULE PROCEDURE MPI_IRECV_T 135 END INTERFACE MPI_IRECV 136 137 PUBLIC :: MPI_FILE_WRITE_ALL_END 138 INTERFACE MPI_FILE_WRITE_ALL_END 139 MODULE PROCEDURE MPI_FILE_WRITE_ALL_END_T 140 END INTERFACE MPI_FILE_WRITE_ALL_END 141 142 PUBLIC :: MPI_RSEND 143 INTERFACE MPI_RSEND 144 MODULE PROCEDURE MPI_RSEND_T 145 END INTERFACE MPI_RSEND 146 147 PUBLIC :: MPI_FILE_READ_ORDERED_BEGIN 148 INTERFACE MPI_FILE_READ_ORDERED_BEGIN 149 MODULE PROCEDURE MPI_FILE_READ_ORDERED_BEGIN_T 150 END INTERFACE MPI_FILE_READ_ORDERED_BEGIN 151 152 PUBLIC :: MPI_BSEND_INIT 153 INTERFACE MPI_BSEND_INIT 154 MODULE PROCEDURE MPI_BSEND_INIT_T 155 END INTERFACE MPI_BSEND_INIT 156 157 PUBLIC :: MPI_FILE_READ_SHARED 158 INTERFACE MPI_FILE_READ_SHARED 159 MODULE PROCEDURE MPI_FILE_READ_SHARED_T 160 END INTERFACE MPI_FILE_READ_SHARED 161 162 PUBLIC :: MPI_ADDRESS 163 INTERFACE MPI_ADDRESS 164 MODULE PROCEDURE MPI_ADDRESS_T 165 END INTERFACE MPI_ADDRESS 166 167 PUBLIC :: MPI_FILE_WRITE_ALL_BEGIN 168 INTERFACE MPI_FILE_WRITE_ALL_BEGIN 169 MODULE PROCEDURE MPI_FILE_WRITE_ALL_BEGIN_T 170 END INTERFACE MPI_FILE_WRITE_ALL_BEGIN 171 172 PUBLIC :: MPI_FILE_WRITE_ORDERED_END 173 INTERFACE MPI_FILE_WRITE_ORDERED_END 174 MODULE PROCEDURE MPI_FILE_WRITE_ORDERED_END_T 175 END INTERFACE MPI_FILE_WRITE_ORDERED_END 176 177 PUBLIC :: MPI_SENDRECV_REPLACE 178 INTERFACE MPI_SENDRECV_REPLACE 179 MODULE PROCEDURE MPI_SENDRECV_REPLACE_T 180 END INTERFACE MPI_SENDRECV_REPLACE 181 182 PUBLIC :: MPI_FILE_WRITE_AT_ALL_END 183 INTERFACE MPI_FILE_WRITE_AT_ALL_END 184 MODULE PROCEDURE MPI_FILE_WRITE_AT_ALL_END_T 185 END INTERFACE MPI_FILE_WRITE_AT_ALL_END 186 187 PUBLIC :: MPI_COMM_GET_ATTR 188 INTERFACE MPI_COMM_GET_ATTR 189 MODULE PROCEDURE MPI_COMM_GET_ATTR_T 190 END INTERFACE MPI_COMM_GET_ATTR 191 192 PUBLIC :: MPI_ALLTOALLV 193 INTERFACE MPI_ALLTOALLV 194 MODULE PROCEDURE MPI_ALLTOALLV_T 195 END INTERFACE MPI_ALLTOALLV 196 197 PUBLIC :: MPI_FILE_IWRITE_AT 198 INTERFACE MPI_FILE_IWRITE_AT 199 MODULE PROCEDURE MPI_FILE_IWRITE_AT_T 200 END INTERFACE MPI_FILE_IWRITE_AT 201 202 PUBLIC :: MPI_FILE_READ 203 INTERFACE MPI_FILE_READ 204 MODULE PROCEDURE MPI_FILE_READ_T 205 END INTERFACE MPI_FILE_READ 206 207 PUBLIC :: MPI_FILE_WRITE_ALL 208 INTERFACE MPI_FILE_WRITE_ALL 209 MODULE PROCEDURE MPI_FILE_WRITE_ALL_T 210 END INTERFACE MPI_FILE_WRITE_ALL 211 212 PUBLIC :: MPI_REDUCE 213 INTERFACE MPI_REDUCE 214 MODULE PROCEDURE MPI_REDUCE_T 215 END INTERFACE MPI_REDUCE 216 217 PUBLIC :: MPI_FREE_MEM 218 INTERFACE MPI_FREE_MEM 219 MODULE PROCEDURE MPI_FREE_MEM_T 220 END INTERFACE MPI_FREE_MEM 221 222 PUBLIC :: MPI_BUFFER_ATTACH 223 INTERFACE MPI_BUFFER_ATTACH 224 MODULE PROCEDURE MPI_BUFFER_ATTACH_T 225 END INTERFACE MPI_BUFFER_ATTACH 226 227 PUBLIC :: MPI_WIN_SET_ATTR 228 INTERFACE MPI_WIN_SET_ATTR 229 MODULE PROCEDURE MPI_WIN_SET_ATTR_T 230 END INTERFACE MPI_WIN_SET_ATTR 231 232 PUBLIC :: MPI_SSEND_INIT 233 INTERFACE MPI_SSEND_INIT 234 MODULE PROCEDURE MPI_SSEND_INIT_T 235 END INTERFACE MPI_SSEND_INIT 236 237 PUBLIC :: MPI_FILE_WRITE_ORDERED 238 INTERFACE MPI_FILE_WRITE_ORDERED 239 MODULE PROCEDURE MPI_FILE_WRITE_ORDERED_T 240 END INTERFACE MPI_FILE_WRITE_ORDERED 241 242 PUBLIC :: MPI_FILE_IREAD 243 INTERFACE MPI_FILE_IREAD 244 MODULE PROCEDURE MPI_FILE_IREAD_T 245 END INTERFACE MPI_FILE_IREAD 246 247 PUBLIC :: MPI_FILE_READ_ALL_END 248 INTERFACE MPI_FILE_READ_ALL_END 249 MODULE PROCEDURE MPI_FILE_READ_ALL_END_T 250 END INTERFACE MPI_FILE_READ_ALL_END 251 252 PUBLIC :: MPI_RECV 253 INTERFACE MPI_RECV 254 MODULE PROCEDURE MPI_RECV_T 255 END INTERFACE MPI_RECV 256 257 PUBLIC :: MPI_UNPACK 258 INTERFACE MPI_UNPACK 259 MODULE PROCEDURE MPI_UNPACK_T 260 END INTERFACE MPI_UNPACK 261 262 PUBLIC :: MPI_GET 263 INTERFACE MPI_GET 264 MODULE PROCEDURE MPI_GET_T 265 END INTERFACE MPI_GET 266 267 PUBLIC :: MPI_FILE_READ_AT_ALL_END 268 INTERFACE MPI_FILE_READ_AT_ALL_END 269 MODULE PROCEDURE MPI_FILE_READ_AT_ALL_END_T 270 END INTERFACE MPI_FILE_READ_AT_ALL_END 271 272 PUBLIC :: MPI_ALLOC_MEM 273 INTERFACE MPI_ALLOC_MEM 274 MODULE PROCEDURE MPI_ALLOC_MEM_T 275 END INTERFACE MPI_ALLOC_MEM 276 277 PUBLIC :: MPI_REGISTER_DATAREP 278 INTERFACE MPI_REGISTER_DATAREP 279 MODULE PROCEDURE MPI_REGISTER_DATAREP_T 280 END INTERFACE MPI_REGISTER_DATAREP 281 282 PUBLIC :: MPI_GREQUEST_START 283 INTERFACE MPI_GREQUEST_START 284 MODULE PROCEDURE MPI_GREQUEST_START_T 285 END INTERFACE MPI_GREQUEST_START 286 287 PUBLIC :: MPI_REDUCE_SCATTER 288 INTERFACE MPI_REDUCE_SCATTER 289 MODULE PROCEDURE MPI_REDUCE_SCATTER_T 290 END INTERFACE MPI_REDUCE_SCATTER 291 292 PUBLIC :: MPI_FILE_WRITE_AT_ALL_BEGIN 293 INTERFACE MPI_FILE_WRITE_AT_ALL_BEGIN 294 MODULE PROCEDURE MPI_FILE_WRITE_AT_ALL_BEGIN_T 295 END INTERFACE MPI_FILE_WRITE_AT_ALL_BEGIN 296 297 PUBLIC :: MPI_FILE_READ_AT_ALL 298 INTERFACE MPI_FILE_READ_AT_ALL 299 MODULE PROCEDURE MPI_FILE_READ_AT_ALL_T 300 END INTERFACE MPI_FILE_READ_AT_ALL 301 302 PUBLIC :: MPI_GET_ADDRESS 303 INTERFACE MPI_GET_ADDRESS 304 MODULE PROCEDURE MPI_GET_ADDRESS_T 305 END INTERFACE MPI_GET_ADDRESS 306 307 PUBLIC :: MPI_EXSCAN 308 INTERFACE MPI_EXSCAN 309 MODULE PROCEDURE MPI_EXSCAN_T 310 END INTERFACE MPI_EXSCAN 311 312 PUBLIC :: MPI_FILE_IREAD_SHARED 313 INTERFACE MPI_FILE_IREAD_SHARED 314 MODULE PROCEDURE MPI_FILE_IREAD_SHARED_T 315 END INTERFACE MPI_FILE_IREAD_SHARED 316 317 PUBLIC :: MPI_FILE_WRITE_AT 318 INTERFACE MPI_FILE_WRITE_AT 319 MODULE PROCEDURE MPI_FILE_WRITE_AT_T 320 END INTERFACE MPI_FILE_WRITE_AT 321 322 PUBLIC :: MPI_SCATTERV 323 INTERFACE MPI_SCATTERV 324 MODULE PROCEDURE MPI_SCATTERV_T 325 END INTERFACE MPI_SCATTERV 326 327 PUBLIC :: MPI_PACK 328 INTERFACE MPI_PACK 329 MODULE PROCEDURE MPI_PACK_T 330 END INTERFACE MPI_PACK 331 332 PUBLIC :: MPI_ALLGATHERV 333 INTERFACE MPI_ALLGATHERV 334 MODULE PROCEDURE MPI_ALLGATHERV_T 335 END INTERFACE MPI_ALLGATHERV 336 337 PUBLIC :: MPI_FILE_READ_AT 338 INTERFACE MPI_FILE_READ_AT 339 MODULE PROCEDURE MPI_FILE_READ_AT_T 340 END INTERFACE MPI_FILE_READ_AT 341 342 PUBLIC :: MPI_SCAN 343 INTERFACE MPI_SCAN 344 MODULE PROCEDURE MPI_SCAN_T 345 END INTERFACE MPI_SCAN 346 347 PUBLIC :: MPI_RSEND_INIT 348 INTERFACE MPI_RSEND_INIT 349 MODULE PROCEDURE MPI_RSEND_INIT_T 350 END INTERFACE MPI_RSEND_INIT 351 352 PUBLIC :: MPI_GATHERV 353 INTERFACE MPI_GATHERV 354 MODULE PROCEDURE MPI_GATHERV_T 355 END INTERFACE MPI_GATHERV 356 357 PUBLIC :: MPI_REDUCE_SCATTER_BLOCK 358 INTERFACE MPI_REDUCE_SCATTER_BLOCK 359 MODULE PROCEDURE MPI_REDUCE_SCATTER_BLOCK_T 360 END INTERFACE MPI_REDUCE_SCATTER_BLOCK 361 362 PUBLIC :: MPI_WIN_GET_ATTR 363 INTERFACE MPI_WIN_GET_ATTR 364 MODULE PROCEDURE MPI_WIN_GET_ATTR_T 365 END INTERFACE MPI_WIN_GET_ATTR 366 367 PUBLIC :: MPI_SEND_INIT 368 INTERFACE MPI_SEND_INIT 369 MODULE PROCEDURE MPI_SEND_INIT_T 370 END INTERFACE MPI_SEND_INIT 371 372 PUBLIC :: MPI_ALLTOALLW 373 INTERFACE MPI_ALLTOALLW 374 MODULE PROCEDURE MPI_ALLTOALLW_T 375 END INTERFACE MPI_ALLTOALLW 376 377 PUBLIC :: MPI_ATTR_GET 378 INTERFACE MPI_ATTR_GET 379 MODULE PROCEDURE MPI_ATTR_GET_T 380 END INTERFACE MPI_ATTR_GET 381 382 PUBLIC :: MPI_COMM_SET_ATTR 383 INTERFACE MPI_COMM_SET_ATTR 384 MODULE PROCEDURE MPI_COMM_SET_ATTR_T 385 END INTERFACE MPI_COMM_SET_ATTR 386 387 PUBLIC :: MPI_TYPE_SET_ATTR 388 INTERFACE MPI_TYPE_SET_ATTR 389 MODULE PROCEDURE MPI_TYPE_SET_ATTR_T 390 END INTERFACE MPI_TYPE_SET_ATTR 391 392 PUBLIC :: MPI_FILE_IREAD_AT 393 INTERFACE MPI_FILE_IREAD_AT 394 MODULE PROCEDURE MPI_FILE_IREAD_AT_T 395 END INTERFACE MPI_FILE_IREAD_AT 396 397 PUBLIC :: MPI_BCAST 398 INTERFACE MPI_BCAST 399 MODULE PROCEDURE MPI_BCAST_T 400 END INTERFACE MPI_BCAST 401 402 PUBLIC :: MPI_FILE_IWRITE 403 INTERFACE MPI_FILE_IWRITE 404 MODULE PROCEDURE MPI_FILE_IWRITE_T 405 END INTERFACE MPI_FILE_IWRITE 406 407 PUBLIC :: MPI_ISSEND 408 INTERFACE MPI_ISSEND 409 MODULE PROCEDURE MPI_ISSEND_T 410 END INTERFACE MPI_ISSEND 411 412 PUBLIC :: MPI_FILE_READ_ALL 413 INTERFACE MPI_FILE_READ_ALL 414 MODULE PROCEDURE MPI_FILE_READ_ALL_T 415 END INTERFACE MPI_FILE_READ_ALL 416 417 PUBLIC :: MPI_ACCUMULATE 418 INTERFACE MPI_ACCUMULATE 419 MODULE PROCEDURE MPI_ACCUMULATE_T 420 END INTERFACE MPI_ACCUMULATE 421 422 PUBLIC :: MPI_SCATTER 423 INTERFACE MPI_SCATTER 424 MODULE PROCEDURE MPI_SCATTER_T 425 END INTERFACE MPI_SCATTER 426 427 PUBLIC :: MPI_COMM_CREATE_KEYVAL 428 INTERFACE MPI_COMM_CREATE_KEYVAL 429 MODULE PROCEDURE MPI_COMM_CREATE_KEYVAL_T 430 END INTERFACE MPI_COMM_CREATE_KEYVAL 431 432 PUBLIC :: MPI_IRSEND 433 INTERFACE MPI_IRSEND 434 MODULE PROCEDURE MPI_IRSEND_T 435 END INTERFACE MPI_IRSEND 436 437 PUBLIC :: MPI_GATHER 438 INTERFACE MPI_GATHER 439 MODULE PROCEDURE MPI_GATHER_T 440 END INTERFACE MPI_GATHER 441 442 PUBLIC :: MPI_RECV_INIT 443 INTERFACE MPI_RECV_INIT 444 MODULE PROCEDURE MPI_RECV_INIT_T 445 END INTERFACE MPI_RECV_INIT 446 447 PUBLIC :: MPI_KEYVAL_CREATE 448 INTERFACE MPI_KEYVAL_CREATE 449 MODULE PROCEDURE MPI_KEYVAL_CREATE_T 450 END INTERFACE MPI_KEYVAL_CREATE 451 452 PUBLIC :: MPI_BSEND 453 INTERFACE MPI_BSEND 454 MODULE PROCEDURE MPI_BSEND_T 455 END INTERFACE MPI_BSEND 456 457 PUBLIC :: MPI_BUFFER_DETACH 458 INTERFACE MPI_BUFFER_DETACH 459 MODULE PROCEDURE MPI_BUFFER_DETACH_T 460 END INTERFACE MPI_BUFFER_DETACH 461 462 PUBLIC :: MPI_FILE_WRITE_AT_ALL 463 INTERFACE MPI_FILE_WRITE_AT_ALL 464 MODULE PROCEDURE MPI_FILE_WRITE_AT_ALL_T 465 END INTERFACE MPI_FILE_WRITE_AT_ALL 466 467 PUBLIC :: MPI_ATTR_PUT 468 INTERFACE MPI_ATTR_PUT 469 MODULE PROCEDURE MPI_ATTR_PUT_T 470 END INTERFACE MPI_ATTR_PUT 471 472 CONTAINS 473 474 SUBROUTINE MPI_FILE_READ_AT_ALL_BEGIN_T(v0,v1,v2,v3,v4,ierror) 475 INTEGER v0 476 INTEGER(KIND=MPI_OFFSET_KIND) v1 477 <type> v2<dims> 478 INTEGER v3 479 INTEGER v4 480 INTEGER ierror 481 EXTERNAL MPI_FILE_READ_AT_ALL_BEGIN 482 CALL MPI_FILE_READ_AT_ALL_BEGIN(v0,v1,v2,v3,v4,ierror) 483 END SUBROUTINE MPI_FILE_READ_AT_ALL_BEGIN_T 484 485 SUBROUTINE MPI_TYPE_CREATE_KEYVAL_T(v0,v1,v2,v3,ierror) 486 EXTERNAL v0 487 EXTERNAL v1 488 INTEGER v2 489 <type> v3<dims> 490 INTEGER ierror 491 EXTERNAL MPI_TYPE_CREATE_KEYVAL 492 CALL MPI_TYPE_CREATE_KEYVAL(v0,v1,v2,v3,ierror) 493 END SUBROUTINE MPI_TYPE_CREATE_KEYVAL_T 494 495 SUBROUTINE MPI_FILE_READ_ALL_BEGIN_T(v0,v1,v2,v3,ierror) 496 INTEGER v0 497 <type> v1<dims> 498 INTEGER v2 499 INTEGER v3 500 INTEGER ierror 501 EXTERNAL MPI_FILE_READ_ALL_BEGIN 502 CALL MPI_FILE_READ_ALL_BEGIN(v0,v1,v2,v3,ierror) 503 END SUBROUTINE MPI_FILE_READ_ALL_BEGIN_T 504 505 SUBROUTINE MPI_IBSEND_T(v0,v1,v2,v3,v4,v5,v6,ierror) 506 <type> v0<dims> 507 INTEGER v1 508 INTEGER v2 509 INTEGER v3 510 INTEGER v4 511 INTEGER v5 512 INTEGER v6 513 INTEGER ierror 514 EXTERNAL MPI_IBSEND 515 CALL MPI_IBSEND(v0,v1,v2,v3,v4,v5,v6,ierror) 516 END SUBROUTINE MPI_IBSEND_T 517 518 SUBROUTINE MPI_FILE_WRITE_SHARED_T(v0,v1,v2,v3,v4,ierror) 519 INTEGER v0 520 <type> v1<dims> 521 INTEGER v2 522 INTEGER v3 523 INTEGER v4(MPI_STATUS_SIZE) 524 INTEGER ierror 525 EXTERNAL MPI_FILE_WRITE_SHARED 526 CALL MPI_FILE_WRITE_SHARED(v0,v1,v2,v3,v4,ierror) 527 END SUBROUTINE MPI_FILE_WRITE_SHARED_T 528 529 SUBROUTINE MPI_FINALIZE_T(v0,ierror) 530 <type> v0<dims> 531 INTEGER ierror 532 EXTERNAL MPI_FINALIZE 533 CALL MPI_FINALIZE(v0,ierror) 534 END SUBROUTINE MPI_FINALIZE_T 535 536 SUBROUTINE MPI_PUT_T(v0,v1,v2,v3,v4,v5,v6,v7,ierror) 537 <type> v0<dims> 538 INTEGER v1 539 INTEGER v2 540 INTEGER v3 541 INTEGER(KIND=MPI_ADDRESS_KIND) v4 542 INTEGER v5 543 INTEGER v6 544 INTEGER v7 545 INTEGER ierror 546 EXTERNAL MPI_PUT 547 CALL MPI_PUT(v0,v1,v2,v3,v4,v5,v6,v7,ierror) 548 END SUBROUTINE MPI_PUT_T 549 550 SUBROUTINE MPI_ALLREDUCE_T(v0,v1,v2,v3,v4,v5,ierror) 551 <type> v0<dims> 552 <type1> v1<dims1> 553 INTEGER v2 554 INTEGER v3 555 INTEGER v4 556 INTEGER v5 557 INTEGER ierror 558 EXTERNAL MPI_ALLREDUCE 559 CALL MPI_ALLREDUCE(v0,v1,v2,v3,v4,v5,ierror) 560 END SUBROUTINE MPI_ALLREDUCE_T 561 562 SUBROUTINE MPI_WIN_CREATE_T(v0,v1,v2,v3,v4,v5,ierror) 563 <type> v0<dims> 564 INTEGER(KIND=MPI_ADDRESS_KIND) v1 565 INTEGER v2 566 INTEGER v3 567 INTEGER v4 568 INTEGER v5 569 INTEGER ierror 570 EXTERNAL MPI_WIN_CREATE 571 CALL MPI_WIN_CREATE(v0,v1,v2,v3,v4,v5,ierror) 572 END SUBROUTINE MPI_WIN_CREATE_T 573 574 SUBROUTINE MPI_SENDRECV_T(v0,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,ierror) 575 <type> v0<dims> 576 INTEGER v1 577 INTEGER v2 578 INTEGER v3 579 INTEGER v4 580 <type1> v5<dims1> 581 INTEGER v6 582 INTEGER v7 583 INTEGER v8 584 INTEGER v9 585 INTEGER v10 586 INTEGER v11(MPI_STATUS_SIZE) 587 INTEGER ierror 588 EXTERNAL MPI_SENDRECV 589 CALL MPI_SENDRECV(v0,v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,ierror) 590 END SUBROUTINE MPI_SENDRECV_T 591 592 SUBROUTINE MPI_ALLTOALL_T(v0,v1,v2,v3,v4,v5,v6,ierror) 593 <type> v0<dims> 594 INTEGER v1 595 INTEGER v2 596 <type1> v3<dims1> 597 INTEGER v4 598 INTEGER v5 599 INTEGER v6 600 INTEGER ierror 601 EXTERNAL MPI_ALLTOALL 602 CALL MPI_ALLTOALL(v0,v1,v2,v3,v4,v5,v6,ierror) 603 END SUBROUTINE MPI_ALLTOALL_T 604 605 SUBROUTINE MPI_ISEND_T(v0,v1,v2,v3,v4,v5,v6,ierror) 606 <type> v0<dims> 607 INTEGER v1 608 INTEGER v2 609 INTEGER v3 610 INTEGER v4 611 INTEGER v5 612 INTEGER v6 613 INTEGER ierror 614 EXTERNAL MPI_ISEND 615 CALL MPI_ISEND(v0,v1,v2,v3,v4,v5,v6,ierror) 616 END SUBROUTINE MPI_ISEND_T 617 618 SUBROUTINE MPI_REDUCE_LOCAL_T(v0,v1,v2,v3,v4,ierror) 619 <type> v0<dims> 620 <type1> v1<dims1> 621 INTEGER v2 622 INTEGER v3 623 INTEGER v4 624 INTEGER ierror 625 EXTERNAL MPI_REDUCE_LOCAL 626 CALL MPI_REDUCE_LOCAL(v0,v1,v2,v3,v4,ierror) 627 END SUBROUTINE MPI_REDUCE_LOCAL_T 628 629 SUBROUTINE MPI_FILE_READ_ORDERED_T(v0,v1,v2,v3,v4,ierror) 630 INTEGER v0 631 <type> v1<dims> 632 INTEGER v2 633 INTEGER v3 634 INTEGER v4(MPI_STATUS_SIZE) 635 INTEGER ierror 636 EXTERNAL MPI_FILE_READ_ORDERED 637 CALL MPI_FILE_READ_ORDERED(v0,v1,v2,v3,v4,ierror) 638 END SUBROUTINE MPI_FILE_READ_ORDERED_T 639 640 SUBROUTINE MPI_TYPE_GET_ATTR_T(v0,v1,v2,v3,ierror) 641 INTEGER v0 642 INTEGER v1 643 <type> v2<dims> 644 LOGICAL v3 645 INTEGER ierror 646 EXTERNAL MPI_TYPE_GET_ATTR 647 CALL MPI_TYPE_GET_ATTR(v0,v1,v2,v3,ierror) 648 END SUBROUTINE MPI_TYPE_GET_ATTR_T 649 650 SUBROUTINE MPI_FILE_READ_ORDERED_END_T(v0,v1,v2,ierror) 651 INTEGER v0 652 <type> v1<dims> 653 INTEGER v2(MPI_STATUS_SIZE) 654 INTEGER ierror 655 EXTERNAL MPI_FILE_READ_ORDERED_END 656 CALL MPI_FILE_READ_ORDERED_END(v0,v1,v2,ierror) 657 END SUBROUTINE MPI_FILE_READ_ORDERED_END_T 658 659 SUBROUTINE MPI_FILE_IWRITE_SHARED_T(v0,v1,v2,v3,v4,ierror) 660 INTEGER v0 661 <type> v1<dims> 662 INTEGER v2 663 INTEGER v3 664 INTEGER v4 665 INTEGER ierror 666 EXTERNAL MPI_FILE_IWRITE_SHARED 667 CALL MPI_FILE_IWRITE_SHARED(v0,v1,v2,v3,v4,ierror) 668 END SUBROUTINE MPI_FILE_IWRITE_SHARED_T 669 670 SUBROUTINE MPI_SEND_T(v0,v1,v2,v3,v4,v5,ierror) 671 <type> v0<dims> 672 INTEGER v1 673 INTEGER v2 674 INTEGER v3 675 INTEGER v4 676 INTEGER v5 677 INTEGER ierror 678 EXTERNAL MPI_SEND 679 CALL MPI_SEND(v0,v1,v2,v3,v4,v5,ierror) 680 END SUBROUTINE MPI_SEND_T 681 682 SUBROUTINE MPI_SSEND_T(v0,v1,v2,v3,v4,v5,ierror) 683 <type> v0<dims> 684 INTEGER v1 685 INTEGER v2 686 INTEGER v3 687 INTEGER v4 688 INTEGER v5 689 INTEGER ierror 690 EXTERNAL MPI_SSEND 691 CALL MPI_SSEND(v0,v1,v2,v3,v4,v5,ierror) 692 END SUBROUTINE MPI_SSEND_T 693 694 SUBROUTINE MPI_UNPACK_EXTERNAL_T(v0,v1,v2,v3,v4,v5,v6,ierror) 695 CHARACTER (LEN=*) v0 696 <type> v1<dims> 697 INTEGER(KIND=MPI_ADDRESS_KIND) v2 698 INTEGER(KIND=MPI_ADDRESS_KIND) v3 699 <type1> v4<dims1> 700 INTEGER v5 701 INTEGER v6 702 INTEGER ierror 703 EXTERNAL MPI_UNPACK_EXTERNAL 704 CALL MPI_UNPACK_EXTERNAL(v0,v1,v2,v3,v4,v5,v6,ierror) 705 END SUBROUTINE MPI_UNPACK_EXTERNAL_T 706 707 SUBROUTINE MPI_ALLGATHER_T(v0,v1,v2,v3,v4,v5,v6,ierror) 708 <type> v0<dims> 709 INTEGER v1 710 INTEGER v2 711 <type1> v3<dims1> 712 INTEGER v4 713 INTEGER v5 714 INTEGER v6 715 INTEGER ierror 716 EXTERNAL MPI_ALLGATHER 717 CALL MPI_ALLGATHER(v0,v1,v2,v3,v4,v5,v6,ierror) 718 END SUBROUTINE MPI_ALLGATHER_T 719 720 SUBROUTINE MPI_FILE_WRITE_T(v0,v1,v2,v3,v4,ierror) 721 INTEGER v0 722 <type> v1<dims> 723 INTEGER v2 724 INTEGER v3 725 INTEGER v4(MPI_STATUS_SIZE) 726 INTEGER ierror 727 EXTERNAL MPI_FILE_WRITE 728 CALL MPI_FILE_WRITE(v0,v1,v2,v3,v4,ierror) 729 END SUBROUTINE MPI_FILE_WRITE_T 730 731 SUBROUTINE MPI_FILE_WRITE_ORDERED_BEGIN_T(v0,v1,v2,v3,ierror) 732 INTEGER v0 733 <type> v1<dims> 734 INTEGER v2 735 INTEGER v3 736 INTEGER ierror 737 EXTERNAL MPI_FILE_WRITE_ORDERED_BEGIN 738 CALL MPI_FILE_WRITE_ORDERED_BEGIN(v0,v1,v2,v3,ierror) 739 END SUBROUTINE MPI_FILE_WRITE_ORDERED_BEGIN_T 740 741 SUBROUTINE MPI_PACK_EXTERNAL_T(v0,v1,v2,v3,v4,v5,v6,ierror) 742 CHARACTER (LEN=*) v0 743 <type> v1<dims> 744 INTEGER v2 745 INTEGER v3 746 <type1> v4<dims1> 747 INTEGER(KIND=MPI_ADDRESS_KIND) v5 748 INTEGER(KIND=MPI_ADDRESS_KIND) v6 749 INTEGER ierror 750 EXTERNAL MPI_PACK_EXTERNAL 751 CALL MPI_PACK_EXTERNAL(v0,v1,v2,v3,v4,v5,v6,ierror) 752 END SUBROUTINE MPI_PACK_EXTERNAL_T 753 754 SUBROUTINE MPI_WIN_CREATE_KEYVAL_T(v0,v1,v2,v3,ierror) 755 EXTERNAL v0 756 EXTERNAL v1 757 INTEGER v2 758 <type> v3<dims> 759 INTEGER ierror 760 EXTERNAL MPI_WIN_CREATE_KEYVAL 761 CALL MPI_WIN_CREATE_KEYVAL(v0,v1,v2,v3,ierror) 762 END SUBROUTINE MPI_WIN_CREATE_KEYVAL_T 763 764 SUBROUTINE MPI_IRECV_T(v0,v1,v2,v3,v4,v5,v6,ierror) 765 <type> v0<dims> 766 INTEGER v1 767 INTEGER v2 768 INTEGER v3 769 INTEGER v4 770 INTEGER v5 771 INTEGER v6 772 INTEGER ierror 773 EXTERNAL MPI_IRECV 774 CALL MPI_IRECV(v0,v1,v2,v3,v4,v5,v6,ierror) 775 END SUBROUTINE MPI_IRECV_T 776 777 SUBROUTINE MPI_FILE_WRITE_ALL_END_T(v0,v1,v2,ierror) 778 INTEGER v0 779 <type> v1<dims> 780 INTEGER v2(MPI_STATUS_SIZE) 781 INTEGER ierror 782 EXTERNAL MPI_FILE_WRITE_ALL_END 783 CALL MPI_FILE_WRITE_ALL_END(v0,v1,v2,ierror) 784 END SUBROUTINE MPI_FILE_WRITE_ALL_END_T 785 786 SUBROUTINE MPI_RSEND_T(v0,v1,v2,v3,v4,v5,ierror) 787 <type> v0<dims> 788 INTEGER v1 789 INTEGER v2 790 INTEGER v3 791 INTEGER v4 792 INTEGER v5 793 INTEGER ierror 794 EXTERNAL MPI_RSEND 795 CALL MPI_RSEND(v0,v1,v2,v3,v4,v5,ierror) 796 END SUBROUTINE MPI_RSEND_T 797 798 SUBROUTINE MPI_FILE_READ_ORDERED_BEGIN_T(v0,v1,v2,v3,ierror) 799 INTEGER v0 800 <type> v1<dims> 801 INTEGER v2 802 INTEGER v3 803 INTEGER ierror 804 EXTERNAL MPI_FILE_READ_ORDERED_BEGIN 805 CALL MPI_FILE_READ_ORDERED_BEGIN(v0,v1,v2,v3,ierror) 806 END SUBROUTINE MPI_FILE_READ_ORDERED_BEGIN_T 807 808 SUBROUTINE MPI_BSEND_INIT_T(v0,v1,v2,v3,v4,v5,v6,ierror) 809 <type> v0<dims> 810 INTEGER v1 811 INTEGER v2 812 INTEGER v3 813 INTEGER v4 814 INTEGER v5 815 INTEGER v6 816 INTEGER ierror 817 EXTERNAL MPI_BSEND_INIT 818 CALL MPI_BSEND_INIT(v0,v1,v2,v3,v4,v5,v6,ierror) 819 END SUBROUTINE MPI_BSEND_INIT_T 820 821 SUBROUTINE MPI_FILE_READ_SHARED_T(v0,v1,v2,v3,v4,ierror) 822 INTEGER v0 823 <type> v1<dims> 824 INTEGER v2 825 INTEGER v3 826 INTEGER v4(MPI_STATUS_SIZE) 827 INTEGER ierror 828 EXTERNAL MPI_FILE_READ_SHARED 829 CALL MPI_FILE_READ_SHARED(v0,v1,v2,v3,v4,ierror) 830 END SUBROUTINE MPI_FILE_READ_SHARED_T 831 832 SUBROUTINE MPI_ADDRESS_T(v0,v1,ierror) 833 <type> v0<dims> 834 INTEGER(KIND=MPI_ADDRESS_KIND) v1 835 INTEGER ierror 836 EXTERNAL MPI_ADDRESS 837 CALL MPI_ADDRESS(v0,v1,ierror) 838 END SUBROUTINE MPI_ADDRESS_T 839 840 SUBROUTINE MPI_FILE_WRITE_ALL_BEGIN_T(v0,v1,v2,v3,ierror) 841 INTEGER v0 842 <type> v1<dims> 843 INTEGER v2 844 INTEGER v3 845 INTEGER ierror 846 EXTERNAL MPI_FILE_WRITE_ALL_BEGIN 847 CALL MPI_FILE_WRITE_ALL_BEGIN(v0,v1,v2,v3,ierror) 848 END SUBROUTINE MPI_FILE_WRITE_ALL_BEGIN_T 849 850 SUBROUTINE MPI_FILE_WRITE_ORDERED_END_T(v0,v1,v2,ierror) 851 INTEGER v0 852 <type> v1<dims> 853 INTEGER v2(MPI_STATUS_SIZE) 854 INTEGER ierror 855 EXTERNAL MPI_FILE_WRITE_ORDERED_END 856 CALL MPI_FILE_WRITE_ORDERED_END(v0,v1,v2,ierror) 857 END SUBROUTINE MPI_FILE_WRITE_ORDERED_END_T 858 859 SUBROUTINE MPI_SENDRECV_REPLACE_T(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror) 860 <type> v0<dims> 861 INTEGER v1 862 INTEGER v2 863 INTEGER v3 864 INTEGER v4 865 INTEGER v5 866 INTEGER v6 867 INTEGER v7 868 INTEGER v8(MPI_STATUS_SIZE) 869 INTEGER ierror 870 EXTERNAL MPI_SENDRECV_REPLACE 871 CALL MPI_SENDRECV_REPLACE(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror) 872 END SUBROUTINE MPI_SENDRECV_REPLACE_T 873 874 SUBROUTINE MPI_FILE_WRITE_AT_ALL_END_T(v0,v1,v2,ierror) 875 INTEGER v0 876 <type> v1<dims> 877 INTEGER v2(MPI_STATUS_SIZE) 878 INTEGER ierror 879 EXTERNAL MPI_FILE_WRITE_AT_ALL_END 880 CALL MPI_FILE_WRITE_AT_ALL_END(v0,v1,v2,ierror) 881 END SUBROUTINE MPI_FILE_WRITE_AT_ALL_END_T 882 883 SUBROUTINE MPI_COMM_GET_ATTR_T(v0,v1,v2,v3,ierror) 884 INTEGER v0 885 INTEGER v1 886 <type> v2<dims> 887 LOGICAL v3 888 INTEGER ierror 889 EXTERNAL MPI_COMM_GET_ATTR 890 CALL MPI_COMM_GET_ATTR(v0,v1,v2,v3,ierror) 891 END SUBROUTINE MPI_COMM_GET_ATTR_T 892 893 SUBROUTINE MPI_ALLTOALLV_T(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror) 894 <type> v0<dims> 895 INTEGER v1 896 INTEGER v2 897 INTEGER v3 898 <type1> v4<dims1> 899 INTEGER v5 900 INTEGER v6 901 INTEGER v7 902 INTEGER v8 903 INTEGER ierror 904 EXTERNAL MPI_ALLTOALLV 905 CALL MPI_ALLTOALLV(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror) 906 END SUBROUTINE MPI_ALLTOALLV_T 907 908 SUBROUTINE MPI_FILE_IWRITE_AT_T(v0,v1,v2,v3,v4,v5,ierror) 909 INTEGER v0 910 INTEGER(KIND=MPI_OFFSET_KIND) v1 911 <type> v2<dims> 912 INTEGER v3 913 INTEGER v4 914 INTEGER v5 915 INTEGER ierror 916 EXTERNAL MPI_FILE_IWRITE_AT 917 CALL MPI_FILE_IWRITE_AT(v0,v1,v2,v3,v4,v5,ierror) 918 END SUBROUTINE MPI_FILE_IWRITE_AT_T 919 920 SUBROUTINE MPI_FILE_READ_T(v0,v1,v2,v3,v4,ierror) 921 INTEGER v0 922 <type> v1<dims> 923 INTEGER v2 924 INTEGER v3 925 INTEGER v4(MPI_STATUS_SIZE) 926 INTEGER ierror 927 EXTERNAL MPI_FILE_READ 928 CALL MPI_FILE_READ(v0,v1,v2,v3,v4,ierror) 929 END SUBROUTINE MPI_FILE_READ_T 930 931 SUBROUTINE MPI_FILE_WRITE_ALL_T(v0,v1,v2,v3,v4,ierror) 932 INTEGER v0 933 <type> v1<dims> 934 INTEGER v2 935 INTEGER v3 936 INTEGER v4(MPI_STATUS_SIZE) 937 INTEGER ierror 938 EXTERNAL MPI_FILE_WRITE_ALL 939 CALL MPI_FILE_WRITE_ALL(v0,v1,v2,v3,v4,ierror) 940 END SUBROUTINE MPI_FILE_WRITE_ALL_T 941 942 SUBROUTINE MPI_REDUCE_T(v0,v1,v2,v3,v4,v5,v6,ierror) 943 <type> v0<dims> 944 <type1> v1<dims1> 945 INTEGER v2 946 INTEGER v3 947 INTEGER v4 948 INTEGER v5 949 INTEGER v6 950 INTEGER ierror 951 EXTERNAL MPI_REDUCE 952 CALL MPI_REDUCE(v0,v1,v2,v3,v4,v5,v6,ierror) 953 END SUBROUTINE MPI_REDUCE_T 954 955 SUBROUTINE MPI_FREE_MEM_T(v0,ierror) 956 <type> v0<dims> 957 INTEGER ierror 958 EXTERNAL MPI_FREE_MEM 959 CALL MPI_FREE_MEM(v0,ierror) 960 END SUBROUTINE MPI_FREE_MEM_T 961 962 SUBROUTINE MPI_BUFFER_ATTACH_T(v0,v1,ierror) 963 <type> v0<dims> 964 INTEGER v1 965 INTEGER ierror 966 EXTERNAL MPI_BUFFER_ATTACH 967 CALL MPI_BUFFER_ATTACH(v0,v1,ierror) 968 END SUBROUTINE MPI_BUFFER_ATTACH_T 969 970 SUBROUTINE MPI_WIN_SET_ATTR_T(v0,v1,v2,ierror) 971 INTEGER v0 972 INTEGER v1 973 <type> v2<dims> 974 INTEGER ierror 975 EXTERNAL MPI_WIN_SET_ATTR 976 CALL MPI_WIN_SET_ATTR(v0,v1,v2,ierror) 977 END SUBROUTINE MPI_WIN_SET_ATTR_T 978 979 SUBROUTINE MPI_SSEND_INIT_T(v0,v1,v2,v3,v4,v5,v6,ierror) 980 <type> v0<dims> 981 INTEGER v1 982 INTEGER v2 983 INTEGER v3 984 INTEGER v4 985 INTEGER v5 986 INTEGER v6 987 INTEGER ierror 988 EXTERNAL MPI_SSEND_INIT 989 CALL MPI_SSEND_INIT(v0,v1,v2,v3,v4,v5,v6,ierror) 990 END SUBROUTINE MPI_SSEND_INIT_T 991 992 SUBROUTINE MPI_FILE_WRITE_ORDERED_T(v0,v1,v2,v3,v4,ierror) 993 INTEGER v0 994 <type> v1<dims> 995 INTEGER v2 996 INTEGER v3 997 INTEGER v4(MPI_STATUS_SIZE) 998 INTEGER ierror 999 EXTERNAL MPI_FILE_WRITE_ORDERED 1000 CALL MPI_FILE_WRITE_ORDERED(v0,v1,v2,v3,v4,ierror) 1001 END SUBROUTINE MPI_FILE_WRITE_ORDERED_T 1002 1003 SUBROUTINE MPI_FILE_IREAD_T(v0,v1,v2,v3,v4,ierror) 1004 INTEGER v0 1005 <type> v1<dims> 1006 INTEGER v2 1007 INTEGER v3 1008 INTEGER v4 1009 INTEGER ierror 1010 EXTERNAL MPI_FILE_IREAD 1011 CALL MPI_FILE_IREAD(v0,v1,v2,v3,v4,ierror) 1012 END SUBROUTINE MPI_FILE_IREAD_T 1013 1014 SUBROUTINE MPI_FILE_READ_ALL_END_T(v0,v1,v2,ierror) 1015 INTEGER v0 1016 <type> v1<dims> 1017 INTEGER v2(MPI_STATUS_SIZE) 1018 INTEGER ierror 1019 EXTERNAL MPI_FILE_READ_ALL_END 1020 CALL MPI_FILE_READ_ALL_END(v0,v1,v2,ierror) 1021 END SUBROUTINE MPI_FILE_READ_ALL_END_T 1022 1023 SUBROUTINE MPI_RECV_T(v0,v1,v2,v3,v4,v5,v6,ierror) 1024 <type> v0<dims> 1025 INTEGER v1 1026 INTEGER v2 1027 INTEGER v3 1028 INTEGER v4 1029 INTEGER v5 1030 INTEGER v6(MPI_STATUS_SIZE) 1031 INTEGER ierror 1032 EXTERNAL MPI_RECV 1033 CALL MPI_RECV(v0,v1,v2,v3,v4,v5,v6,ierror) 1034 END SUBROUTINE MPI_RECV_T 1035 1036 SUBROUTINE MPI_UNPACK_T(v0,v1,v2,v3,v4,v5,v6,ierror) 1037 <type> v0<dims> 1038 INTEGER v1 1039 INTEGER v2 1040 <type1> v3<dims1> 1041 INTEGER v4 1042 INTEGER v5 1043 INTEGER v6 1044 INTEGER ierror 1045 EXTERNAL MPI_UNPACK 1046 CALL MPI_UNPACK(v0,v1,v2,v3,v4,v5,v6,ierror) 1047 END SUBROUTINE MPI_UNPACK_T 1048 1049 SUBROUTINE MPI_GET_T(v0,v1,v2,v3,v4,v5,v6,v7,ierror) 1050 <type> v0<dims> 1051 INTEGER v1 1052 INTEGER v2 1053 INTEGER v3 1054 INTEGER(KIND=MPI_ADDRESS_KIND) v4 1055 INTEGER v5 1056 INTEGER v6 1057 INTEGER v7 1058 INTEGER ierror 1059 EXTERNAL MPI_GET 1060 CALL MPI_GET(v0,v1,v2,v3,v4,v5,v6,v7,ierror) 1061 END SUBROUTINE MPI_GET_T 1062 1063 SUBROUTINE MPI_FILE_READ_AT_ALL_END_T(v0,v1,v2,ierror) 1064 INTEGER v0 1065 <type> v1<dims> 1066 INTEGER v2(MPI_STATUS_SIZE) 1067 INTEGER ierror 1068 EXTERNAL MPI_FILE_READ_AT_ALL_END 1069 CALL MPI_FILE_READ_AT_ALL_END(v0,v1,v2,ierror) 1070 END SUBROUTINE MPI_FILE_READ_AT_ALL_END_T 1071 1072 SUBROUTINE MPI_ALLOC_MEM_T(v0,v1,v2,ierror) 1073 INTEGER(KIND=MPI_ADDRESS_KIND) v0 1074 INTEGER v1 1075 <type> v2<dims> 1076 INTEGER ierror 1077 EXTERNAL MPI_ALLOC_MEM 1078 CALL MPI_ALLOC_MEM(v0,v1,v2,ierror) 1079 END SUBROUTINE MPI_ALLOC_MEM_T 1080 1081 SUBROUTINE MPI_REGISTER_DATAREP_T(v0,v1,v2,v3,v4,ierror) 1082 CHARACTER (LEN=*) v0 1083 EXTERNAL v1 1084 EXTERNAL v2 1085 EXTERNAL v3 1086 <type> v4<dims> 1087 INTEGER ierror 1088 EXTERNAL MPI_REGISTER_DATAREP 1089 CALL MPI_REGISTER_DATAREP(v0,v1,v2,v3,v4,ierror) 1090 END SUBROUTINE MPI_REGISTER_DATAREP_T 1091 1092 SUBROUTINE MPI_GREQUEST_START_T(v0,v1,v2,v3,v4,ierror) 1093 EXTERNAL v0 1094 EXTERNAL v1 1095 EXTERNAL v2 1096 <type> v3<dims> 1097 INTEGER v4 1098 INTEGER ierror 1099 EXTERNAL MPI_GREQUEST_START 1100 CALL MPI_GREQUEST_START(v0,v1,v2,v3,v4,ierror) 1101 END SUBROUTINE MPI_GREQUEST_START_T 1102 1103 SUBROUTINE MPI_REDUCE_SCATTER_T(v0,v1,v2,v3,v4,v5,ierror) 1104 <type> v0<dims> 1105 <type1> v1<dims1> 1106 INTEGER v2 1107 INTEGER v3 1108 INTEGER v4 1109 INTEGER v5 1110 INTEGER ierror 1111 EXTERNAL MPI_REDUCE_SCATTER 1112 CALL MPI_REDUCE_SCATTER(v0,v1,v2,v3,v4,v5,ierror) 1113 END SUBROUTINE MPI_REDUCE_SCATTER_T 1114 1115 SUBROUTINE MPI_FILE_WRITE_AT_ALL_BEGIN_T(v0,v1,v2,v3,v4,ierror) 1116 INTEGER v0 1117 INTEGER(KIND=MPI_OFFSET_KIND) v1 1118 <type> v2<dims> 1119 INTEGER v3 1120 INTEGER v4 1121 INTEGER ierror 1122 EXTERNAL MPI_FILE_WRITE_AT_ALL_BEGIN 1123 CALL MPI_FILE_WRITE_AT_ALL_BEGIN(v0,v1,v2,v3,v4,ierror) 1124 END SUBROUTINE MPI_FILE_WRITE_AT_ALL_BEGIN_T 1125 1126 SUBROUTINE MPI_FILE_READ_AT_ALL_T(v0,v1,v2,v3,v4,v5,ierror) 1127 INTEGER v0 1128 INTEGER(KIND=MPI_OFFSET_KIND) v1 1129 <type> v2<dims> 1130 INTEGER v3 1131 INTEGER v4 1132 INTEGER v5(MPI_STATUS_SIZE) 1133 INTEGER ierror 1134 EXTERNAL MPI_FILE_READ_AT_ALL 1135 CALL MPI_FILE_READ_AT_ALL(v0,v1,v2,v3,v4,v5,ierror) 1136 END SUBROUTINE MPI_FILE_READ_AT_ALL_T 1137 1138 SUBROUTINE MPI_GET_ADDRESS_T(v0,v1,ierror) 1139 <type> v0<dims> 1140 INTEGER(KIND=MPI_ADDRESS_KIND) v1 1141 INTEGER ierror 1142 EXTERNAL MPI_GET_ADDRESS 1143 CALL MPI_GET_ADDRESS(v0,v1,ierror) 1144 END SUBROUTINE MPI_GET_ADDRESS_T 1145 1146 SUBROUTINE MPI_EXSCAN_T(v0,v1,v2,v3,v4,v5,ierror) 1147 <type> v0<dims> 1148 <type1> v1<dims1> 1149 INTEGER v2 1150 INTEGER v3 1151 INTEGER v4 1152 INTEGER v5 1153 INTEGER ierror 1154 EXTERNAL MPI_EXSCAN 1155 CALL MPI_EXSCAN(v0,v1,v2,v3,v4,v5,ierror) 1156 END SUBROUTINE MPI_EXSCAN_T 1157 1158 SUBROUTINE MPI_FILE_IREAD_SHARED_T(v0,v1,v2,v3,v4,ierror) 1159 INTEGER v0 1160 <type> v1<dims> 1161 INTEGER v2 1162 INTEGER v3 1163 INTEGER v4 1164 INTEGER ierror 1165 EXTERNAL MPI_FILE_IREAD_SHARED 1166 CALL MPI_FILE_IREAD_SHARED(v0,v1,v2,v3,v4,ierror) 1167 END SUBROUTINE MPI_FILE_IREAD_SHARED_T 1168 1169 SUBROUTINE MPI_FILE_WRITE_AT_T(v0,v1,v2,v3,v4,v5,ierror) 1170 INTEGER v0 1171 INTEGER(KIND=MPI_OFFSET_KIND) v1 1172 <type> v2<dims> 1173 INTEGER v3 1174 INTEGER v4 1175 INTEGER v5(MPI_STATUS_SIZE) 1176 INTEGER ierror 1177 EXTERNAL MPI_FILE_WRITE_AT 1178 CALL MPI_FILE_WRITE_AT(v0,v1,v2,v3,v4,v5,ierror) 1179 END SUBROUTINE MPI_FILE_WRITE_AT_T 1180 1181 SUBROUTINE MPI_SCATTERV_T(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror) 1182 <type> v0<dims> 1183 INTEGER v1 1184 INTEGER v2 1185 INTEGER v3 1186 <type1> v4<dims1> 1187 INTEGER v5 1188 INTEGER v6 1189 INTEGER v7 1190 INTEGER v8 1191 INTEGER ierror 1192 EXTERNAL MPI_SCATTERV 1193 CALL MPI_SCATTERV(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror) 1194 END SUBROUTINE MPI_SCATTERV_T 1195 1196 SUBROUTINE MPI_PACK_T(v0,v1,v2,v3,v4,v5,v6,ierror) 1197 <type> v0<dims> 1198 INTEGER v1 1199 INTEGER v2 1200 <type1> v3<dims1> 1201 INTEGER v4 1202 INTEGER v5 1203 INTEGER v6 1204 INTEGER ierror 1205 EXTERNAL MPI_PACK 1206 CALL MPI_PACK(v0,v1,v2,v3,v4,v5,v6,ierror) 1207 END SUBROUTINE MPI_PACK_T 1208 1209 SUBROUTINE MPI_ALLGATHERV_T(v0,v1,v2,v3,v4,v5,v6,v7,ierror) 1210 <type> v0<dims> 1211 INTEGER v1 1212 INTEGER v2 1213 <type1> v3<dims1> 1214 INTEGER v4 1215 INTEGER v5 1216 INTEGER v6 1217 INTEGER v7 1218 INTEGER ierror 1219 EXTERNAL MPI_ALLGATHERV 1220 CALL MPI_ALLGATHERV(v0,v1,v2,v3,v4,v5,v6,v7,ierror) 1221 END SUBROUTINE MPI_ALLGATHERV_T 1222 1223 SUBROUTINE MPI_FILE_READ_AT_T(v0,v1,v2,v3,v4,v5,ierror) 1224 INTEGER v0 1225 INTEGER(KIND=MPI_OFFSET_KIND) v1 1226 <type> v2<dims> 1227 INTEGER v3 1228 INTEGER v4 1229 INTEGER v5(MPI_STATUS_SIZE) 1230 INTEGER ierror 1231 EXTERNAL MPI_FILE_READ_AT 1232 CALL MPI_FILE_READ_AT(v0,v1,v2,v3,v4,v5,ierror) 1233 END SUBROUTINE MPI_FILE_READ_AT_T 1234 1235 SUBROUTINE MPI_SCAN_T(v0,v1,v2,v3,v4,v5,ierror) 1236 <type> v0<dims> 1237 <type1> v1<dims1> 1238 INTEGER v2 1239 INTEGER v3 1240 INTEGER v4 1241 INTEGER v5 1242 INTEGER ierror 1243 EXTERNAL MPI_SCAN 1244 CALL MPI_SCAN(v0,v1,v2,v3,v4,v5,ierror) 1245 END SUBROUTINE MPI_SCAN_T 1246 1247 SUBROUTINE MPI_RSEND_INIT_T(v0,v1,v2,v3,v4,v5,v6,ierror) 1248 <type> v0<dims> 1249 INTEGER v1 1250 INTEGER v2 1251 INTEGER v3 1252 INTEGER v4 1253 INTEGER v5 1254 INTEGER v6 1255 INTEGER ierror 1256 EXTERNAL MPI_RSEND_INIT 1257 CALL MPI_RSEND_INIT(v0,v1,v2,v3,v4,v5,v6,ierror) 1258 END SUBROUTINE MPI_RSEND_INIT_T 1259 1260 SUBROUTINE MPI_GATHERV_T(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror) 1261 <type> v0<dims> 1262 INTEGER v1 1263 INTEGER v2 1264 <type1> v3<dims1> 1265 INTEGER v4 1266 INTEGER v5 1267 INTEGER v6 1268 INTEGER v7 1269 INTEGER v8 1270 INTEGER ierror 1271 EXTERNAL MPI_GATHERV 1272 CALL MPI_GATHERV(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror) 1273 END SUBROUTINE MPI_GATHERV_T 1274 1275 SUBROUTINE MPI_REDUCE_SCATTER_BLOCK_T(v0,v1,v2,v3,v4,v5,ierror) 1276 <type> v0<dims> 1277 <type1> v1<dims1> 1278 INTEGER v2 1279 INTEGER v3 1280 INTEGER v4 1281 INTEGER v5 1282 INTEGER ierror 1283 EXTERNAL MPI_REDUCE_SCATTER_BLOCK 1284 CALL MPI_REDUCE_SCATTER_BLOCK(v0,v1,v2,v3,v4,v5,ierror) 1285 END SUBROUTINE MPI_REDUCE_SCATTER_BLOCK_T 1286 1287 SUBROUTINE MPI_WIN_GET_ATTR_T(v0,v1,v2,v3,ierror) 1288 INTEGER v0 1289 INTEGER v1 1290 <type> v2<dims> 1291 LOGICAL v3 1292 INTEGER ierror 1293 EXTERNAL MPI_WIN_GET_ATTR 1294 CALL MPI_WIN_GET_ATTR(v0,v1,v2,v3,ierror) 1295 END SUBROUTINE MPI_WIN_GET_ATTR_T 1296 1297 SUBROUTINE MPI_SEND_INIT_T(v0,v1,v2,v3,v4,v5,v6,ierror) 1298 <type> v0<dims> 1299 INTEGER v1 1300 INTEGER v2 1301 INTEGER v3 1302 INTEGER v4 1303 INTEGER v5 1304 INTEGER v6 1305 INTEGER ierror 1306 EXTERNAL MPI_SEND_INIT 1307 CALL MPI_SEND_INIT(v0,v1,v2,v3,v4,v5,v6,ierror) 1308 END SUBROUTINE MPI_SEND_INIT_T 1309 1310 SUBROUTINE MPI_ALLTOALLW_T(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror) 1311 <type> v0<dims> 1312 INTEGER v1(*) 1313 INTEGER v2(*) 1314 INTEGER v3(*) 1315 <type1> v4<dims1> 1316 INTEGER v5(*) 1317 INTEGER v6(*) 1318 INTEGER v7(*) 1319 INTEGER v8 1320 INTEGER ierror 1321 EXTERNAL MPI_ALLTOALLW 1322 CALL MPI_ALLTOALLW(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror) 1323 END SUBROUTINE MPI_ALLTOALLW_T 1324 1325 SUBROUTINE MPI_ATTR_GET_T(v0,v1,v2,v3,ierror) 1326 INTEGER v0 1327 INTEGER v1 1328 <type> v2<dims> 1329 LOGICAL v3 1330 INTEGER ierror 1331 EXTERNAL MPI_ATTR_GET 1332 CALL MPI_ATTR_GET(v0,v1,v2,v3,ierror) 1333 END SUBROUTINE MPI_ATTR_GET_T 1334 1335 SUBROUTINE MPI_COMM_SET_ATTR_T(v0,v1,v2,ierror) 1336 INTEGER v0 1337 INTEGER v1 1338 <type> v2<dims> 1339 INTEGER ierror 1340 EXTERNAL MPI_COMM_SET_ATTR 1341 CALL MPI_COMM_SET_ATTR(v0,v1,v2,ierror) 1342 END SUBROUTINE MPI_COMM_SET_ATTR_T 1343 1344 SUBROUTINE MPI_TYPE_SET_ATTR_T(v0,v1,v2,ierror) 1345 INTEGER v0 1346 INTEGER v1 1347 <type> v2<dims> 1348 INTEGER ierror 1349 EXTERNAL MPI_TYPE_SET_ATTR 1350 CALL MPI_TYPE_SET_ATTR(v0,v1,v2,ierror) 1351 END SUBROUTINE MPI_TYPE_SET_ATTR_T 1352 1353 SUBROUTINE MPI_FILE_IREAD_AT_T(v0,v1,v2,v3,v4,v5,ierror) 1354 INTEGER v0 1355 INTEGER(KIND=MPI_OFFSET_KIND) v1 1356 <type> v2<dims> 1357 INTEGER v3 1358 INTEGER v4 1359 INTEGER v5 1360 INTEGER ierror 1361 EXTERNAL MPI_FILE_IREAD_AT 1362 CALL MPI_FILE_IREAD_AT(v0,v1,v2,v3,v4,v5,ierror) 1363 END SUBROUTINE MPI_FILE_IREAD_AT_T 1364 1365 SUBROUTINE MPI_BCAST_T(v0,v1,v2,v3,v4,ierror) 1366 <type> v0<dims> 1367 INTEGER v1 1368 INTEGER v2 1369 INTEGER v3 1370 INTEGER v4 1371 INTEGER ierror 1372 EXTERNAL MPI_BCAST 1373 CALL MPI_BCAST(v0,v1,v2,v3,v4,ierror) 1374 END SUBROUTINE MPI_BCAST_T 1375 1376 SUBROUTINE MPI_FILE_IWRITE_T(v0,v1,v2,v3,v4,ierror) 1377 INTEGER v0 1378 <type> v1<dims> 1379 INTEGER v2 1380 INTEGER v3 1381 INTEGER v4 1382 INTEGER ierror 1383 EXTERNAL MPI_FILE_IWRITE 1384 CALL MPI_FILE_IWRITE(v0,v1,v2,v3,v4,ierror) 1385 END SUBROUTINE MPI_FILE_IWRITE_T 1386 1387 SUBROUTINE MPI_ISSEND_T(v0,v1,v2,v3,v4,v5,v6,ierror) 1388 <type> v0<dims> 1389 INTEGER v1 1390 INTEGER v2 1391 INTEGER v3 1392 INTEGER v4 1393 INTEGER v5 1394 INTEGER v6 1395 INTEGER ierror 1396 EXTERNAL MPI_ISSEND 1397 CALL MPI_ISSEND(v0,v1,v2,v3,v4,v5,v6,ierror) 1398 END SUBROUTINE MPI_ISSEND_T 1399 1400 SUBROUTINE MPI_FILE_READ_ALL_T(v0,v1,v2,v3,v4,ierror) 1401 INTEGER v0 1402 <type> v1<dims> 1403 INTEGER v2 1404 INTEGER v3 1405 INTEGER v4(MPI_STATUS_SIZE) 1406 INTEGER ierror 1407 EXTERNAL MPI_FILE_READ_ALL 1408 CALL MPI_FILE_READ_ALL(v0,v1,v2,v3,v4,ierror) 1409 END SUBROUTINE MPI_FILE_READ_ALL_T 1410 1411 SUBROUTINE MPI_ACCUMULATE_T(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror) 1412 <type> v0<dims> 1413 INTEGER v1 1414 INTEGER v2 1415 INTEGER v3 1416 INTEGER(KIND=MPI_ADDRESS_KIND) v4 1417 INTEGER v5 1418 INTEGER v6 1419 INTEGER v7 1420 INTEGER v8 1421 INTEGER ierror 1422 EXTERNAL MPI_ACCUMULATE 1423 CALL MPI_ACCUMULATE(v0,v1,v2,v3,v4,v5,v6,v7,v8,ierror) 1424 END SUBROUTINE MPI_ACCUMULATE_T 1425 1426 SUBROUTINE MPI_SCATTER_T(v0,v1,v2,v3,v4,v5,v6,v7,ierror) 1427 <type> v0<dims> 1428 INTEGER v1 1429 INTEGER v2 1430 <type1> v3<dims1> 1431 INTEGER v4 1432 INTEGER v5 1433 INTEGER v6 1434 INTEGER v7 1435 INTEGER ierror 1436 EXTERNAL MPI_SCATTER 1437 CALL MPI_SCATTER(v0,v1,v2,v3,v4,v5,v6,v7,ierror) 1438 END SUBROUTINE MPI_SCATTER_T 1439 1440 SUBROUTINE MPI_COMM_CREATE_KEYVAL_T(v0,v1,v2,v3,ierror) 1441 EXTERNAL v0 1442 EXTERNAL v1 1443 INTEGER v2 1444 <type> v3<dims> 1445 INTEGER ierror 1446 EXTERNAL MPI_COMM_CREATE_KEYVAL 1447 CALL MPI_COMM_CREATE_KEYVAL(v0,v1,v2,v3,ierror) 1448 END SUBROUTINE MPI_COMM_CREATE_KEYVAL_T 1449 1450 SUBROUTINE MPI_IRSEND_T(v0,v1,v2,v3,v4,v5,v6,ierror) 1451 <type> v0<dims> 1452 INTEGER v1 1453 INTEGER v2 1454 INTEGER v3 1455 INTEGER v4 1456 INTEGER v5 1457 INTEGER v6 1458 INTEGER ierror 1459 EXTERNAL MPI_IRSEND 1460 CALL MPI_IRSEND(v0,v1,v2,v3,v4,v5,v6,ierror) 1461 END SUBROUTINE MPI_IRSEND_T 1462 1463 SUBROUTINE MPI_GATHER_T(v0,v1,v2,v3,v4,v5,v6,v7,ierror) 1464 <type> v0<dims> 1465 INTEGER v1 1466 INTEGER v2 1467 <type1> v3<dims1> 1468 INTEGER v4 1469 INTEGER v5 1470 INTEGER v6 1471 INTEGER v7 1472 INTEGER ierror 1473 EXTERNAL MPI_GATHER 1474 CALL MPI_GATHER(v0,v1,v2,v3,v4,v5,v6,v7,ierror) 1475 END SUBROUTINE MPI_GATHER_T 1476 1477 SUBROUTINE MPI_RECV_INIT_T(v0,v1,v2,v3,v4,v5,v6,ierror) 1478 <type> v0<dims> 1479 INTEGER v1 1480 INTEGER v2 1481 INTEGER v3 1482 INTEGER v4 1483 INTEGER v5 1484 INTEGER v6 1485 INTEGER ierror 1486 EXTERNAL MPI_RECV_INIT 1487 CALL MPI_RECV_INIT(v0,v1,v2,v3,v4,v5,v6,ierror) 1488 END SUBROUTINE MPI_RECV_INIT_T 1489 1490 SUBROUTINE MPI_KEYVAL_CREATE_T(v0,v1,v2,v3,ierror) 1491 EXTERNAL v0 1492 EXTERNAL v1 1493 INTEGER v2 1494 <type> v3<dims> 1495 INTEGER ierror 1496 EXTERNAL MPI_KEYVAL_CREATE 1497 CALL MPI_KEYVAL_CREATE(v0,v1,v2,v3,ierror) 1498 END SUBROUTINE MPI_KEYVAL_CREATE_T 1499 1500 SUBROUTINE MPI_BSEND_T(v0,v1,v2,v3,v4,v5,ierror) 1501 <type> v0<dims> 1502 INTEGER v1 1503 INTEGER v2 1504 INTEGER v3 1505 INTEGER v4 1506 INTEGER v5 1507 INTEGER ierror 1508 EXTERNAL MPI_BSEND 1509 CALL MPI_BSEND(v0,v1,v2,v3,v4,v5,ierror) 1510 END SUBROUTINE MPI_BSEND_T 1511 1512 SUBROUTINE MPI_BUFFER_DETACH_T(v0,v1,ierror) 1513 <type> v0<dims> 1514 INTEGER v1 1515 INTEGER ierror 1516 EXTERNAL MPI_BUFFER_DETACH 1517 CALL MPI_BUFFER_DETACH(v0,v1,ierror) 1518 END SUBROUTINE MPI_BUFFER_DETACH_T 1519 1520 SUBROUTINE MPI_FILE_WRITE_AT_ALL_T(v0,v1,v2,v3,v4,v5,ierror) 1521 INTEGER v0 1522 INTEGER(KIND=MPI_OFFSET_KIND) v1 1523 <type> v2<dims> 1524 INTEGER v3 1525 INTEGER v4 1526 INTEGER v5(MPI_STATUS_SIZE) 1527 INTEGER ierror 1528 EXTERNAL MPI_FILE_WRITE_AT_ALL 1529 CALL MPI_FILE_WRITE_AT_ALL(v0,v1,v2,v3,v4,v5,ierror) 1530 END SUBROUTINE MPI_FILE_WRITE_AT_ALL_T 1531 1532 SUBROUTINE MPI_ATTR_PUT_T(v0,v1,v2,ierror) 1533 INTEGER v0 1534 INTEGER v1 1535 <type> v2<dims> 1536 INTEGER ierror 1537 EXTERNAL MPI_ATTR_PUT 1538 CALL MPI_ATTR_PUT(v0,v1,v2,ierror) 1539 END SUBROUTINE MPI_ATTR_PUT_T 1540 1541 END MODULE MPI_t1_s 1542