diff --git a/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-file-interfaces.h.in b/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-file-interfaces.h.in index c00ebc5d8c7..a42973736ea 100644 --- a/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-file-interfaces.h.in +++ b/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-file-interfaces.h.in @@ -1,6 +1,6 @@ ! -*- fortran -*- ! -! Copyright (c) 2006-2012 Cisco Systems, Inc. All rights reserved. +! Copyright (c) 2006-2021 Cisco Systems, Inc. All rights reserved ! Copyright (c) 2007 Los Alamos National Security, LLC. All rights ! reserved. ! Copyright (c) 2019-2020 Research Organization for Information Science @@ -12,7 +12,7 @@ ! $HEADER$ -interface MPI_File_call_errhandler +interface subroutine MPI_File_call_errhandler(fh, errorcode, ierror) integer, intent(in) :: fh @@ -22,7 +22,7 @@ end subroutine MPI_File_call_errhandler end interface -interface MPI_File_close +interface subroutine MPI_File_close(fh, ierror) integer, intent(inout) :: fh @@ -31,7 +31,7 @@ end subroutine MPI_File_close end interface -interface MPI_File_create_errhandler +interface subroutine MPI_File_create_errhandler(function, errhandler, ierror) external :: function @@ -41,7 +41,7 @@ end subroutine MPI_File_create_errhandler end interface -interface MPI_File_delete +interface subroutine MPI_File_delete(filename, info, ierror) character(len=*), intent(in) :: filename @@ -51,7 +51,7 @@ end subroutine MPI_File_delete end interface -interface MPI_File_get_amode +interface subroutine MPI_File_get_amode(fh, amode, ierror) integer, intent(in) :: fh @@ -61,7 +61,7 @@ end subroutine MPI_File_get_amode end interface -interface MPI_File_get_atomicity +interface subroutine MPI_File_get_atomicity(fh, flag, ierror) integer, intent(in) :: fh @@ -71,7 +71,7 @@ end subroutine MPI_File_get_atomicity end interface -interface MPI_File_get_byte_offset +interface subroutine MPI_File_get_byte_offset(fh, offset, disp, ierror) include 'mpif-config.h' @@ -83,7 +83,7 @@ end subroutine MPI_File_get_byte_offset end interface -interface MPI_File_get_errhandler +interface subroutine MPI_File_get_errhandler(file, errhandler, ierror) integer, intent(in) :: file @@ -93,7 +93,7 @@ end subroutine MPI_File_get_errhandler end interface -interface MPI_File_get_group +interface subroutine MPI_File_get_group(fh, group, ierror) integer, intent(in) :: fh @@ -103,7 +103,7 @@ end subroutine MPI_File_get_group end interface -interface MPI_File_get_info +interface subroutine MPI_File_get_info(fh, info_used, ierror) integer, intent(in) :: fh @@ -113,7 +113,7 @@ end subroutine MPI_File_get_info end interface -interface MPI_File_get_position +interface subroutine MPI_File_get_position(fh, offset, ierror) include 'mpif-config.h' @@ -124,7 +124,7 @@ end subroutine MPI_File_get_position end interface -interface MPI_File_get_position_shared +interface subroutine MPI_File_get_position_shared(fh, offset, ierror) include 'mpif-config.h' @@ -135,7 +135,7 @@ end subroutine MPI_File_get_position_shared end interface -interface MPI_File_get_size +interface subroutine MPI_File_get_size(fh, size, ierror) include 'mpif-config.h' @@ -146,7 +146,7 @@ end subroutine MPI_File_get_size end interface -interface MPI_File_get_type_extent +interface subroutine MPI_File_get_type_extent(fh, datatype, extent, ierror) include 'mpif-config.h' @@ -158,7 +158,7 @@ end subroutine MPI_File_get_type_extent end interface -interface MPI_File_get_view +interface subroutine MPI_File_get_view(fh, disp, etype, filetype, datarep& , ierror) @@ -173,7 +173,7 @@ end subroutine MPI_File_get_view end interface -interface MPI_File_iread +interface subroutine MPI_File_iread(fh, buf, count, datatype, request& , ierror) @@ -188,7 +188,7 @@ end subroutine MPI_File_iread end interface -interface MPI_File_iread_all +interface subroutine MPI_File_iread_all(fh, buf, count, datatype, request& , ierror) @@ -203,7 +203,7 @@ end subroutine MPI_File_iread_all end interface -interface MPI_File_iread_at +interface subroutine MPI_File_iread_at(fh, offset, buf, count, datatype, & request, ierror) @@ -220,7 +220,7 @@ end subroutine MPI_File_iread_at end interface -interface MPI_File_iread_at_all +interface subroutine MPI_File_iread_at_all(fh, offset, buf, count, datatype, & request, ierror) @@ -237,7 +237,7 @@ end subroutine MPI_File_iread_at_all end interface -interface MPI_File_iread_shared +interface subroutine MPI_File_iread_shared(fh, buf, count, datatype, request& , ierror) @@ -252,7 +252,7 @@ end subroutine MPI_File_iread_shared end interface -interface MPI_File_iwrite +interface subroutine MPI_File_iwrite(fh, buf, count, datatype, request& , ierror) @@ -267,7 +267,7 @@ end subroutine MPI_File_iwrite end interface -interface MPI_File_iwrite_all +interface subroutine MPI_File_iwrite_all(fh, buf, count, datatype, request& , ierror) @@ -282,7 +282,7 @@ end subroutine MPI_File_iwrite_all end interface -interface MPI_File_iwrite_at +interface subroutine MPI_File_iwrite_at(fh, offset, buf, count, datatype, & request, ierror) @@ -299,7 +299,7 @@ end subroutine MPI_File_iwrite_at end interface -interface MPI_File_iwrite_at_all +interface subroutine MPI_File_iwrite_at_all(fh, offset, buf, count, datatype, & request, ierror) @@ -316,7 +316,7 @@ end subroutine MPI_File_iwrite_at_all end interface -interface MPI_File_iwrite_shared +interface subroutine MPI_File_iwrite_shared(fh, buf, count, datatype, request& , ierror) @@ -331,7 +331,7 @@ end subroutine MPI_File_iwrite_shared end interface -interface MPI_File_open +interface subroutine MPI_File_open(comm, filename, amode, info, fh& , ierror) @@ -345,7 +345,7 @@ end subroutine MPI_File_open end interface -interface MPI_File_preallocate +interface subroutine MPI_File_preallocate(fh, size, ierror) include 'mpif-config.h' @@ -356,7 +356,7 @@ end subroutine MPI_File_preallocate end interface -interface MPI_File_read +interface subroutine MPI_File_read(fh, buf, count, datatype, status& , ierror) @@ -372,7 +372,7 @@ end subroutine MPI_File_read end interface -interface MPI_File_read_all +interface subroutine MPI_File_read_all(fh, buf, count, datatype, status& , ierror) @@ -388,7 +388,7 @@ end subroutine MPI_File_read_all end interface -interface MPI_File_read_all_begin +interface subroutine MPI_File_read_all_begin(fh, buf, count, datatype, ierror) integer, intent(in) :: fh @@ -401,7 +401,7 @@ end subroutine MPI_File_read_all_begin end interface -interface MPI_File_read_all_end +interface subroutine MPI_File_read_all_end(fh, buf, status, ierror) include 'mpif-config.h' @@ -414,7 +414,7 @@ end subroutine MPI_File_read_all_end end interface -interface MPI_File_read_at +interface subroutine MPI_File_read_at(fh, offset, buf, count, datatype, & status, ierror) @@ -431,7 +431,7 @@ end subroutine MPI_File_read_at end interface -interface MPI_File_read_at_all +interface subroutine MPI_File_read_at_all(fh, offset, buf, count, datatype, & status, ierror) @@ -448,7 +448,7 @@ end subroutine MPI_File_read_at_all end interface -interface MPI_File_read_at_all_begin +interface subroutine MPI_File_read_at_all_begin(fh, offset, buf, count, datatype& , ierror) @@ -464,7 +464,7 @@ end subroutine MPI_File_read_at_all_begin end interface -interface MPI_File_read_at_all_end +interface subroutine MPI_File_read_at_all_end(fh, buf, status, ierror) include 'mpif-config.h' @@ -477,7 +477,7 @@ end subroutine MPI_File_read_at_all_end end interface -interface MPI_File_read_ordered +interface subroutine MPI_File_read_ordered(fh, buf, count, datatype, status& , ierror) @@ -493,7 +493,7 @@ end subroutine MPI_File_read_ordered end interface -interface MPI_File_read_ordered_begin +interface subroutine MPI_File_read_ordered_begin(fh, buf, count, datatype, ierror) integer, intent(in) :: fh @@ -506,7 +506,7 @@ end subroutine MPI_File_read_ordered_begin end interface -interface MPI_File_read_ordered_end +interface subroutine MPI_File_read_ordered_end(fh, buf, status, ierror) include 'mpif-config.h' @@ -519,7 +519,7 @@ end subroutine MPI_File_read_ordered_end end interface -interface MPI_File_read_shared +interface subroutine MPI_File_read_shared(fh, buf, count, datatype, status& , ierror) @@ -535,7 +535,7 @@ end subroutine MPI_File_read_shared end interface -interface MPI_File_seek +interface subroutine MPI_File_seek(fh, offset, whence, ierror) include 'mpif-config.h' @@ -547,7 +547,7 @@ end subroutine MPI_File_seek end interface -interface MPI_File_seek_shared +interface subroutine MPI_File_seek_shared(fh, offset, whence, ierror) include 'mpif-config.h' @@ -559,7 +559,7 @@ end subroutine MPI_File_seek_shared end interface -interface MPI_File_set_atomicity +interface subroutine MPI_File_set_atomicity(fh, flag, ierror) integer, intent(in) :: fh @@ -569,7 +569,7 @@ end subroutine MPI_File_set_atomicity end interface -interface MPI_File_set_errhandler +interface subroutine MPI_File_set_errhandler(file, errhandler, ierror) integer, intent(in) :: file @@ -579,7 +579,7 @@ end subroutine MPI_File_set_errhandler end interface -interface MPI_File_set_info +interface subroutine MPI_File_set_info(fh, info, ierror) integer, intent(in) :: fh @@ -589,7 +589,7 @@ end subroutine MPI_File_set_info end interface -interface MPI_File_set_size +interface subroutine MPI_File_set_size(fh, size, ierror) include 'mpif-config.h' @@ -600,7 +600,7 @@ end subroutine MPI_File_set_size end interface -interface MPI_File_set_view +interface subroutine MPI_File_set_view(fh, disp, etype, filetype, datarep, & info, ierror) @@ -616,7 +616,7 @@ end subroutine MPI_File_set_view end interface -interface MPI_File_sync +interface subroutine MPI_File_sync(fh, ierror) integer, intent(in) :: fh @@ -625,7 +625,7 @@ end subroutine MPI_File_sync end interface -interface MPI_File_write +interface subroutine MPI_File_write(fh, buf, count, datatype, status& , ierror) @@ -641,7 +641,7 @@ end subroutine MPI_File_write end interface -interface MPI_File_write_all +interface subroutine MPI_File_write_all(fh, buf, count, datatype, status& , ierror) @@ -657,7 +657,7 @@ end subroutine MPI_File_write_all end interface -interface MPI_File_write_all_begin +interface subroutine MPI_File_write_all_begin(fh, buf, count, datatype, ierror) integer, intent(in) :: fh @@ -670,7 +670,7 @@ end subroutine MPI_File_write_all_begin end interface -interface MPI_File_write_all_end +interface subroutine MPI_File_write_all_end(fh, buf, status, ierror) include 'mpif-config.h' @@ -683,7 +683,7 @@ end subroutine MPI_File_write_all_end end interface -interface MPI_File_write_at +interface subroutine MPI_File_write_at(fh, offset, buf, count, datatype, & status, ierror) @@ -700,7 +700,7 @@ end subroutine MPI_File_write_at end interface -interface MPI_File_write_at_all +interface subroutine MPI_File_write_at_all(fh, offset, buf, count, datatype, & status, ierror) @@ -717,7 +717,7 @@ end subroutine MPI_File_write_at_all end interface -interface MPI_File_write_at_all_begin +interface subroutine MPI_File_write_at_all_begin(fh, offset, buf, count, datatype& , ierror) @@ -733,7 +733,7 @@ end subroutine MPI_File_write_at_all_begin end interface -interface MPI_File_write_at_all_end +interface subroutine MPI_File_write_at_all_end(fh, buf, status, ierror) include 'mpif-config.h' @@ -746,7 +746,7 @@ end subroutine MPI_File_write_at_all_end end interface -interface MPI_File_write_ordered +interface subroutine MPI_File_write_ordered(fh, buf, count, datatype, status& , ierror) @@ -762,7 +762,7 @@ end subroutine MPI_File_write_ordered end interface -interface MPI_File_write_ordered_begin +interface subroutine MPI_File_write_ordered_begin(fh, buf, count, datatype, ierror) integer, intent(in) :: fh @@ -775,7 +775,7 @@ end subroutine MPI_File_write_ordered_begin end interface -interface MPI_File_write_ordered_end +interface subroutine MPI_File_write_ordered_end(fh, buf, status, ierror) include 'mpif-config.h' @@ -788,7 +788,7 @@ end subroutine MPI_File_write_ordered_end end interface -interface MPI_File_write_shared +interface subroutine MPI_File_write_shared(fh, buf, count, datatype, status& , ierror) diff --git a/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-interfaces.h.in b/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-interfaces.h.in index 0a636d2be48..3f7a7931737 100644 --- a/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-interfaces.h.in +++ b/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-interfaces.h.in @@ -1,6 +1,6 @@ ! -*- fortran -*- ! -! Copyright (c) 2006-2018 Cisco Systems, Inc. All rights reserved. +! Copyright (c) 2006-2021 Cisco Systems, Inc. All rights reserved ! Copyright (c) 2007 Los Alamos National Security, LLC. All rights ! reserved. ! Copyright (c) 2012 The University of Tennessee and The University @@ -18,7 +18,7 @@ ! $HEADER$ -interface MPI_Abort +interface subroutine MPI_Abort(comm, errorcode, ierror) integer, intent(in) :: comm @@ -29,7 +29,7 @@ end subroutine MPI_Abort end interface -interface MPI_Accumulate +interface subroutine MPI_Accumulate(origin_addr, origin_count, origin_datatype, target_rank, target_disp, & target_count, target_datatype, op, win, ierror) @@ -50,7 +50,7 @@ end subroutine MPI_Accumulate end interface -interface MPI_Add_error_class +interface subroutine MPI_Add_error_class(errorclass, ierror) integer, intent(out) :: errorclass @@ -60,7 +60,7 @@ end subroutine MPI_Add_error_class end interface -interface MPI_Add_error_code +interface subroutine MPI_Add_error_code(errorclass, errorcode, ierror) integer, intent(in) :: errorclass @@ -71,7 +71,7 @@ end subroutine MPI_Add_error_code end interface -interface MPI_Add_error_string +interface subroutine MPI_Add_error_string(errorcode, string, ierror) integer, intent(in) :: errorcode @@ -82,7 +82,7 @@ end subroutine MPI_Add_error_string end interface -interface MPI_Aint_add +interface function MPI_Aint_add(base, diff) include 'mpif-config.h' @@ -94,7 +94,7 @@ end function MPI_Aint_add end interface -interface MPI_Aint_diff +interface function MPI_Aint_diff(addr1, addr2) include 'mpif-config.h' @@ -106,7 +106,7 @@ end function MPI_Aint_diff end interface -interface MPI_Allgather +interface subroutine MPI_Allgather(sendbuf, sendcount, sendtype, recvbuf, recvcount, & recvtype, comm, ierror) @@ -125,7 +125,7 @@ end subroutine MPI_Allgather end interface -interface MPI_Allgather_init +interface subroutine MPI_Allgather_init(sendbuf, sendcount, sendtype, & recvbuf, recvcount, recvtype, & @@ -147,7 +147,7 @@ end subroutine MPI_Allgather_init end interface -interface MPI_Allgatherv +interface subroutine MPI_Allgatherv(sendbuf, sendcount, sendtype, recvbuf, recvcounts, & displs, recvtype, comm, ierror) @@ -167,7 +167,7 @@ end subroutine MPI_Allgatherv end interface -interface MPI_Allgatherv_init +interface subroutine MPI_Allgatherv_init(sendbuf, sendcount, sendtype, recvbuf, recvcounts, & displs, recvtype, comm, info, request, ierror) @@ -189,6 +189,7 @@ end subroutine MPI_Allgatherv_init end interface +! This interface requires a name because there are multiple subroutines. interface MPI_Alloc_mem subroutine MPI_Alloc_mem(size, info, baseptr, ierror) @@ -211,7 +212,7 @@ end subroutine MPI_Alloc_mem_cptr end interface -interface MPI_Allreduce +interface subroutine MPI_Allreduce(sendbuf, recvbuf, count, datatype, op, & comm, ierror) @@ -229,7 +230,7 @@ end subroutine MPI_Allreduce end interface -interface MPI_Allreduce_init +interface subroutine MPI_Allreduce_init(sendbuf, recvbuf, count, datatype, op, & comm, info, request, ierror) @@ -249,7 +250,7 @@ end subroutine MPI_Allreduce_init end interface -interface MPI_Alltoall +interface subroutine MPI_Alltoall(sendbuf, sendcount, sendtype, recvbuf, recvcount, & recvtype, comm, ierror) @@ -268,7 +269,7 @@ end subroutine MPI_Alltoall end interface -interface MPI_Alltoall_init +interface subroutine MPI_Alltoall_init(sendbuf, sendcount, sendtype, recvbuf, recvcount, & recvtype, comm, info, request, ierror) @@ -289,7 +290,7 @@ end subroutine MPI_Alltoall_init end interface -interface MPI_Alltoallv +interface subroutine MPI_Alltoallv(sendbuf, sendcounts, sdispls, sendtype, recvbuf, & recvcounts, rdispls, recvtype, comm, ierror) @@ -310,7 +311,7 @@ end subroutine MPI_Alltoallv end interface -interface MPI_Alltoallv_init +interface subroutine MPI_Alltoallv_init(sendbuf, sendcounts, sdispls, sendtype, recvbuf, & recvcounts, rdispls, recvtype, comm, info, request, ierror) @@ -333,7 +334,7 @@ end subroutine MPI_Alltoallv_init end interface -interface MPI_Alltoallw +interface subroutine MPI_Alltoallw(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, & recvcounts, rdispls, recvtypes, comm, ierror) @@ -354,7 +355,7 @@ end subroutine MPI_Alltoallw end interface -interface MPI_Alltoallw_init +interface subroutine MPI_Alltoallw_init(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, & recvcounts, rdispls, recvtypes, comm, info, request, ierror) @@ -377,7 +378,7 @@ end subroutine MPI_Alltoallw_init end interface -interface MPI_Barrier +interface subroutine MPI_Barrier(comm, ierror) integer, intent(in) :: comm @@ -387,7 +388,7 @@ end subroutine MPI_Barrier end interface -interface MPI_Barrier_init +interface subroutine MPI_Barrier_init(comm, info, request, ierror) integer, intent(in) :: comm @@ -399,7 +400,7 @@ end subroutine MPI_Barrier_init end interface -interface MPI_Bcast +interface subroutine MPI_Bcast(buffer, count, datatype, root, comm& , ierror) @@ -415,7 +416,7 @@ end subroutine MPI_Bcast end interface -interface MPI_Bcast_init +interface subroutine MPI_Bcast_init(buffer, count, datatype, root, comm, & info, request, ierror) @@ -433,7 +434,7 @@ end subroutine MPI_Bcast_init end interface -interface MPI_Bsend +interface subroutine MPI_Bsend(buf, count, datatype, dest, tag, & comm, ierror) @@ -450,7 +451,7 @@ end subroutine MPI_Bsend end interface -interface MPI_Bsend_init +interface subroutine MPI_Bsend_init(buf, count, datatype, dest, tag, & comm, request, ierror) @@ -468,7 +469,7 @@ end subroutine MPI_Bsend_init end interface -interface MPI_Buffer_attach +interface subroutine MPI_Buffer_attach(buffer, size, ierror) @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buffer @@ -480,7 +481,7 @@ end subroutine MPI_Buffer_attach end interface -interface MPI_Buffer_detach +interface subroutine MPI_Buffer_detach(buffer, size, ierror) @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buffer @@ -492,7 +493,7 @@ end subroutine MPI_Buffer_detach end interface -interface MPI_Cancel +interface subroutine MPI_Cancel(request, ierror) integer, intent(in) :: request @@ -502,7 +503,7 @@ end subroutine MPI_Cancel end interface -interface MPI_Cart_coords +interface subroutine MPI_Cart_coords(comm, rank, maxdims, coords, ierror) integer, intent(in) :: comm @@ -515,7 +516,7 @@ end subroutine MPI_Cart_coords end interface -interface MPI_Cart_create +interface subroutine MPI_Cart_create(old_comm, ndims, dims, periods, reorder, & comm_cart, ierror) @@ -531,7 +532,7 @@ end subroutine MPI_Cart_create end interface -interface MPI_Cart_get +interface subroutine MPI_Cart_get(comm, maxdims, dims, periods, coords& , ierror) @@ -546,7 +547,7 @@ end subroutine MPI_Cart_get end interface -interface MPI_Cart_map +interface subroutine MPI_Cart_map(comm, ndims, dims, periods, newrank& , ierror) @@ -561,7 +562,7 @@ end subroutine MPI_Cart_map end interface -interface MPI_Cart_rank +interface subroutine MPI_Cart_rank(comm, coords, rank, ierror) integer, intent(in) :: comm @@ -573,7 +574,7 @@ end subroutine MPI_Cart_rank end interface -interface MPI_Cart_shift +interface subroutine MPI_Cart_shift(comm, direction, disp, rank_source, rank_dest& , ierror) @@ -588,7 +589,7 @@ end subroutine MPI_Cart_shift end interface -interface MPI_Cart_sub +interface subroutine MPI_Cart_sub(comm, remain_dims, new_comm, ierror) integer, intent(in) :: comm @@ -600,7 +601,7 @@ end subroutine MPI_Cart_sub end interface -interface MPI_Cartdim_get +interface subroutine MPI_Cartdim_get(comm, ndims, ierror) integer, intent(in) :: comm @@ -611,7 +612,7 @@ end subroutine MPI_Cartdim_get end interface -interface MPI_Close_port +interface subroutine MPI_Close_port(port_name, ierror) character(len=*), intent(in) :: port_name @@ -621,7 +622,7 @@ end subroutine MPI_Close_port end interface -interface MPI_Comm_accept +interface subroutine MPI_Comm_accept(port_name, info, root, comm, newcomm& , ierror) @@ -636,7 +637,7 @@ end subroutine MPI_Comm_accept end interface -interface MPI_Comm_call_errhandler +interface subroutine MPI_Comm_call_errhandler(comm, errorcode, ierror) integer, intent(in) :: comm @@ -647,7 +648,7 @@ end subroutine MPI_Comm_call_errhandler end interface -interface MPI_Comm_compare +interface subroutine MPI_Comm_compare(comm1, comm2, result, ierror) integer, intent(in) :: comm1 @@ -659,7 +660,7 @@ end subroutine MPI_Comm_compare end interface -interface MPI_Comm_connect +interface subroutine MPI_Comm_connect(port_name, info, root, comm, newcomm& , ierror) @@ -674,7 +675,7 @@ end subroutine MPI_Comm_connect end interface -interface MPI_Comm_create +interface subroutine MPI_Comm_create(comm, group, newcomm, ierror) integer, intent(in) :: comm @@ -686,7 +687,7 @@ end subroutine MPI_Comm_create end interface -interface MPI_Comm_create_errhandler +interface subroutine MPI_Comm_create_errhandler(function, errhandler, ierror) external :: function @@ -697,7 +698,7 @@ end subroutine MPI_Comm_create_errhandler end interface -interface MPI_Comm_create_group +interface subroutine MPI_Comm_create_group(comm, group, tag, newcomm, ierror) integer, intent(in) :: comm @@ -710,7 +711,7 @@ end subroutine MPI_Comm_create_group end interface -interface MPI_Comm_create_keyval +interface subroutine MPI_Comm_create_keyval(comm_copy_attr_fn, comm_delete_attr_fn, comm_keyval, extra_state, ierror) include 'mpif-config.h' @@ -724,7 +725,7 @@ end subroutine MPI_Comm_create_keyval end interface -interface MPI_Comm_delete_attr +interface subroutine MPI_Comm_delete_attr(comm, comm_keyval, ierror) integer, intent(in) :: comm @@ -735,7 +736,7 @@ end subroutine MPI_Comm_delete_attr end interface -interface MPI_Comm_disconnect +interface subroutine MPI_Comm_disconnect(comm, ierror) integer, intent(inout) :: comm @@ -745,7 +746,7 @@ end subroutine MPI_Comm_disconnect end interface -interface MPI_Comm_dup +interface subroutine MPI_Comm_dup(comm, newcomm, ierror) integer, intent(in) :: comm @@ -756,7 +757,7 @@ end subroutine MPI_Comm_dup end interface -interface MPI_Comm_dup_with_info +interface subroutine MPI_Comm_dup_with_info(comm, info, newcomm, ierror) integer, intent(in) :: comm @@ -768,7 +769,7 @@ end subroutine MPI_Comm_dup_with_info end interface -interface MPI_Comm_free +interface subroutine MPI_Comm_free(comm, ierror) integer, intent(inout) :: comm @@ -778,7 +779,7 @@ end subroutine MPI_Comm_free end interface -interface MPI_Comm_free_keyval +interface subroutine MPI_Comm_free_keyval(comm_keyval, ierror) integer, intent(inout) :: comm_keyval @@ -788,7 +789,7 @@ end subroutine MPI_Comm_free_keyval end interface -interface MPI_Comm_get_attr +interface subroutine MPI_Comm_get_attr(comm, comm_keyval, attribute_val, flag, ierror) include 'mpif-config.h' @@ -802,7 +803,7 @@ end subroutine MPI_Comm_get_attr end interface -interface MPI_Comm_get_errhandler +interface subroutine MPI_Comm_get_errhandler(comm, erhandler, ierror) integer, intent(in) :: comm @@ -813,7 +814,7 @@ end subroutine MPI_Comm_get_errhandler end interface -interface MPI_Comm_get_info +interface subroutine MPI_Comm_get_info(comm, info_used, ierror) integer, intent(in) :: comm @@ -824,7 +825,7 @@ end subroutine MPI_Comm_get_info end interface -interface MPI_Comm_get_name +interface subroutine MPI_Comm_get_name(comm, comm_name, resultlen, ierror) integer, intent(in) :: comm @@ -836,7 +837,7 @@ end subroutine MPI_Comm_get_name end interface -interface MPI_Comm_get_parent +interface subroutine MPI_Comm_get_parent(parent, ierror) integer, intent(out) :: parent @@ -846,7 +847,7 @@ end subroutine MPI_Comm_get_parent end interface -interface MPI_Comm_group +interface subroutine MPI_Comm_group(comm, group, ierror) integer, intent(in) :: comm @@ -857,7 +858,7 @@ end subroutine MPI_Comm_group end interface -interface MPI_Comm_idup +interface subroutine MPI_Comm_idup(comm, newcomm, request, ierror) integer, intent(in) :: comm @@ -869,7 +870,7 @@ end subroutine MPI_Comm_idup end interface -interface MPI_Comm_join +interface subroutine MPI_Comm_join(fd, intercomm, ierror) integer, intent(in) :: fd @@ -880,7 +881,7 @@ end subroutine MPI_Comm_join end interface -interface MPI_Comm_rank +interface subroutine MPI_Comm_rank(comm, rank, ierror) integer, intent(in) :: comm @@ -891,7 +892,7 @@ end subroutine MPI_Comm_rank end interface -interface MPI_Comm_remote_group +interface subroutine MPI_Comm_remote_group(comm, group, ierror) integer, intent(in) :: comm @@ -902,7 +903,7 @@ end subroutine MPI_Comm_remote_group end interface -interface MPI_Comm_remote_size +interface subroutine MPI_Comm_remote_size(comm, size, ierror) integer, intent(in) :: comm @@ -913,7 +914,7 @@ end subroutine MPI_Comm_remote_size end interface -interface MPI_Comm_set_attr +interface subroutine MPI_Comm_set_attr(comm, comm_keyval, attribute_val, ierror) include 'mpif-config.h' @@ -926,7 +927,7 @@ end subroutine MPI_Comm_set_attr end interface -interface MPI_Comm_set_errhandler +interface subroutine MPI_Comm_set_errhandler(comm, errhandler, ierror) integer, intent(in) :: comm @@ -937,7 +938,7 @@ end subroutine MPI_Comm_set_errhandler end interface -interface MPI_Comm_set_info +interface subroutine MPI_Comm_set_info(comm, info, ierror) include 'mpif-config.h' @@ -949,7 +950,7 @@ end subroutine MPI_Comm_set_info end interface -interface MPI_Comm_set_name +interface subroutine MPI_Comm_set_name(comm, comm_name, ierror) integer, intent(in) :: comm @@ -960,7 +961,7 @@ end subroutine MPI_Comm_set_name end interface -interface MPI_Comm_size +interface subroutine MPI_Comm_size(comm, size, ierror) integer, intent(in) :: comm @@ -971,7 +972,7 @@ end subroutine MPI_Comm_size end interface -interface MPI_Comm_spawn +interface subroutine MPI_Comm_spawn(command, argv, maxprocs, info, root, & comm, intercomm, array_of_errcodes, ierror) @@ -989,7 +990,7 @@ end subroutine MPI_Comm_spawn end interface -interface MPI_Comm_spawn_multiple +interface subroutine MPI_Comm_spawn_multiple(count, array_of_commands, array_of_argv, array_of_maxprocs, array_of_info, & root, comm, intercomm, array_of_errcodes, ierror) @@ -1008,7 +1009,7 @@ end subroutine MPI_Comm_spawn_multiple end interface -interface MPI_Comm_split +interface subroutine MPI_Comm_split(comm, color, key, newcomm, ierror) integer, intent(in) :: comm @@ -1021,7 +1022,7 @@ end subroutine MPI_Comm_split end interface -interface MPI_Comm_split_type +interface subroutine MPI_Comm_split_type(comm, split_type, key, info, newcomm, ierror) integer, intent(in) :: comm @@ -1035,7 +1036,7 @@ end subroutine MPI_Comm_split_type end interface -interface MPI_Comm_test_inter +interface subroutine MPI_Comm_test_inter(comm, flag, ierror) integer, intent(in) :: comm @@ -1046,7 +1047,7 @@ end subroutine MPI_Comm_test_inter end interface -interface MPI_Compare_and_swap +interface subroutine MPI_Compare_and_swap(origin_addr, compare_addr, result_addr, & datatype, target_rank, target_disp, win, ierror) @@ -1065,7 +1066,7 @@ end subroutine MPI_Compare_and_swap end interface -interface MPI_Dims_create +interface subroutine MPI_Dims_create(nnodes, ndims, dims, ierror) integer, intent(in) :: nnodes @@ -1077,7 +1078,7 @@ end subroutine MPI_Dims_create end interface -interface MPI_Dist_graph_create +interface subroutine MPI_Dist_graph_create(comm_old,n,sources,degrees,destinations,weights, & info,reorder,comm_dist_graph,ierror) @@ -1093,7 +1094,7 @@ end subroutine MPI_Dist_graph_create end interface -interface MPI_Dist_graph_create_adjacent +interface subroutine MPI_Dist_graph_create_adjacent(comm_old,indegree,sources,sourceweights, & outdegree,destinations,destweights,info,reorder, & @@ -1111,7 +1112,7 @@ end subroutine MPI_Dist_graph_create_adjacent end interface -interface MPI_Dist_graph_neighbors +interface subroutine MPI_Dist_graph_neighbors(comm,maxindegree,sources,sourceweights, & maxoutdegree,destinations,destweights,ierror) @@ -1126,7 +1127,7 @@ end subroutine MPI_Dist_graph_neighbors end interface -interface MPI_Dist_graph_neighbors_count +interface subroutine MPI_Dist_graph_neighbors_count(comm,indegree,outdegree,weighted,ierror) implicit none @@ -1139,7 +1140,7 @@ end subroutine MPI_Dist_graph_neighbors_count end interface -interface MPI_Errhandler_free +interface subroutine MPI_Errhandler_free(errhandler, ierror) integer, intent(inout) :: errhandler @@ -1149,7 +1150,7 @@ end subroutine MPI_Errhandler_free end interface -interface MPI_Error_class +interface subroutine MPI_Error_class(errorcode, errorclass, ierror) integer, intent(in) :: errorcode @@ -1160,7 +1161,7 @@ end subroutine MPI_Error_class end interface -interface MPI_Error_string +interface subroutine MPI_Error_string(errorcode, string, resultlen, ierror) integer, intent(in) :: errorcode @@ -1172,7 +1173,7 @@ end subroutine MPI_Error_string end interface -interface MPI_Exscan +interface subroutine MPI_Exscan(sendbuf, recvbuf, count, datatype, op, & comm, ierror) @@ -1190,7 +1191,7 @@ end subroutine MPI_Exscan end interface -interface MPI_Exscan_init +interface subroutine MPI_Exscan_init(sendbuf, recvbuf, count, datatype, op, & comm, info, request, ierror) @@ -1210,7 +1211,7 @@ end subroutine MPI_Exscan_init end interface -interface MPI_F_sync_reg +interface subroutine MPI_F_sync_reg(buf) @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf @@ -1220,7 +1221,7 @@ end subroutine MPI_F_sync_reg end interface -interface MPI_Fetch_and_op +interface subroutine MPI_Fetch_and_op(origin_addr, result_addr, datatype, target_rank,& target_disp, op, win, ierror) @@ -1240,7 +1241,7 @@ end subroutine MPI_Fetch_and_op end interface -interface MPI_Finalize +interface subroutine MPI_Finalize(ierror) integer, intent(out) :: ierror @@ -1249,7 +1250,7 @@ end subroutine MPI_Finalize end interface -interface MPI_Finalized +interface subroutine MPI_Finalized(flag, ierror) logical, intent(out) :: flag @@ -1259,7 +1260,7 @@ end subroutine MPI_Finalized end interface -interface MPI_Free_mem +interface subroutine MPI_Free_mem(base, ierror) @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ base @@ -1270,7 +1271,7 @@ end subroutine MPI_Free_mem end interface -interface MPI_Gather +interface subroutine MPI_Gather(sendbuf, sendcount, sendtype, recvbuf, recvcount, & recvtype, root, comm, ierror) @@ -1290,7 +1291,7 @@ end subroutine MPI_Gather end interface -interface MPI_Gather_init +interface subroutine MPI_Gather_init(sendbuf, sendcount, sendtype, recvbuf, recvcount, & recvtype, root, comm, info, request, ierror) @@ -1312,7 +1313,7 @@ end subroutine MPI_Gather_init end interface -interface MPI_Gatherv +interface subroutine MPI_Gatherv(sendbuf, sendcount, sendtype, recvbuf, recvcounts, & displs, recvtype, root, comm, ierror) @@ -1333,7 +1334,7 @@ end subroutine MPI_Gatherv end interface -interface MPI_Gatherv_init +interface subroutine MPI_Gatherv_init(sendbuf, sendcount, sendtype, recvbuf, recvcounts, & displs, recvtype, root, comm, info, request, ierror) @@ -1356,7 +1357,7 @@ end subroutine MPI_Gatherv_init end interface -interface MPI_Get +interface subroutine MPI_Get(origin_addr, origin_count, origin_datatype, target_rank, target_disp, & target_count, target_datatype, win, ierror) @@ -1376,7 +1377,7 @@ end subroutine MPI_Get end interface -interface MPI_Get_accumulate +interface subroutine MPI_Get_accumulate(origin_addr, origin_count, origin_datatype,& result_addr, result_count, result_datatype,& @@ -1403,7 +1404,7 @@ end subroutine MPI_Get_accumulate end interface -interface MPI_Get_address +interface subroutine MPI_Get_address(location, address, ierror) include 'mpif-config.h' @@ -1416,7 +1417,7 @@ end subroutine MPI_Get_address end interface -interface MPI_Get_count +interface subroutine MPI_Get_count(status, datatype, count, ierror) include 'mpif-config.h' @@ -1429,7 +1430,7 @@ end subroutine MPI_Get_count end interface -interface MPI_Get_elements +interface subroutine MPI_Get_elements(status, datatype, count, ierror) include 'mpif-config.h' @@ -1442,7 +1443,7 @@ end subroutine MPI_Get_elements end interface -interface MPI_Get_elements_x +interface subroutine MPI_Get_elements_x(status, datatype, count, ierror) include 'mpif-config.h' @@ -1455,7 +1456,7 @@ end subroutine MPI_Get_elements_x end interface -interface MPI_Get_library_version +interface subroutine MPI_Get_library_version(version, resultlen, ierror) character(len=*), intent(out) :: version @@ -1466,7 +1467,7 @@ end subroutine MPI_Get_library_version end interface -interface MPI_Get_processor_name +interface subroutine MPI_Get_processor_name(name, resultlen, ierror) character(len=*), intent(out) :: name @@ -1477,7 +1478,7 @@ end subroutine MPI_Get_processor_name end interface -interface MPI_Get_version +interface subroutine MPI_Get_version(version, subversion, ierror) integer, intent(out) :: version @@ -1488,7 +1489,7 @@ end subroutine MPI_Get_version end interface -interface MPI_Graph_create +interface subroutine MPI_Graph_create(comm_old, nnodes, index, edges, reorder, & comm_graph, ierror) @@ -1504,7 +1505,7 @@ end subroutine MPI_Graph_create end interface -interface MPI_Graph_get +interface subroutine MPI_Graph_get(comm, maxindex, maxedges, index, edges& , ierror) @@ -1519,7 +1520,7 @@ end subroutine MPI_Graph_get end interface -interface MPI_Graph_map +interface subroutine MPI_Graph_map(comm, nnodes, index, edges, newrank& , ierror) @@ -1534,7 +1535,7 @@ end subroutine MPI_Graph_map end interface -interface MPI_Graph_neighbors +interface subroutine MPI_Graph_neighbors(comm, rank, maxneighbors, neighbors, ierror) integer, intent(in) :: comm @@ -1547,7 +1548,7 @@ end subroutine MPI_Graph_neighbors end interface -interface MPI_Graph_neighbors_count +interface subroutine MPI_Graph_neighbors_count(comm, rank, nneighbors, ierror) integer, intent(in) :: comm @@ -1559,7 +1560,7 @@ end subroutine MPI_Graph_neighbors_count end interface -interface MPI_Graphdims_get +interface subroutine MPI_Graphdims_get(comm, nnodes, nedges, ierror) integer, intent(in) :: comm @@ -1571,7 +1572,7 @@ end subroutine MPI_Graphdims_get end interface -interface MPI_Grequest_complete +interface subroutine MPI_Grequest_complete(request, ierror) integer, intent(in) :: request @@ -1581,7 +1582,7 @@ end subroutine MPI_Grequest_complete end interface -interface MPI_Grequest_start +interface subroutine MPI_Grequest_start(query_fn, free_fn, cancel_fn, extra_state, request& , ierror) @@ -1597,7 +1598,7 @@ end subroutine MPI_Grequest_start end interface -interface MPI_Group_compare +interface subroutine MPI_Group_compare(group1, group2, result, ierror) integer, intent(in) :: group1 @@ -1609,7 +1610,7 @@ end subroutine MPI_Group_compare end interface -interface MPI_Group_difference +interface subroutine MPI_Group_difference(group1, group2, newgroup, ierror) integer, intent(in) :: group1 @@ -1621,7 +1622,7 @@ end subroutine MPI_Group_difference end interface -interface MPI_Group_excl +interface subroutine MPI_Group_excl(group, n, ranks, newgroup, ierror) integer, intent(in) :: group @@ -1634,7 +1635,7 @@ end subroutine MPI_Group_excl end interface -interface MPI_Group_free +interface subroutine MPI_Group_free(group, ierror) integer, intent(inout) :: group @@ -1644,7 +1645,7 @@ end subroutine MPI_Group_free end interface -interface MPI_Group_incl +interface subroutine MPI_Group_incl(group, n, ranks, newgroup, ierror) integer, intent(in) :: group @@ -1657,7 +1658,7 @@ end subroutine MPI_Group_incl end interface -interface MPI_Group_intersection +interface subroutine MPI_Group_intersection(group1, group2, newgroup, ierror) integer, intent(in) :: group1 @@ -1669,7 +1670,7 @@ end subroutine MPI_Group_intersection end interface -interface MPI_Group_range_excl +interface subroutine MPI_Group_range_excl(group, n, ranges, newgroup, ierror) integer, intent(in) :: group @@ -1682,7 +1683,7 @@ end subroutine MPI_Group_range_excl end interface -interface MPI_Group_range_incl +interface subroutine MPI_Group_range_incl(group, n, ranges, newgroup, ierror) integer, intent(in) :: group @@ -1695,7 +1696,7 @@ end subroutine MPI_Group_range_incl end interface -interface MPI_Group_rank +interface subroutine MPI_Group_rank(group, rank, ierror) integer, intent(in) :: group @@ -1706,7 +1707,7 @@ end subroutine MPI_Group_rank end interface -interface MPI_Group_size +interface subroutine MPI_Group_size(group, size, ierror) integer, intent(in) :: group @@ -1717,7 +1718,7 @@ end subroutine MPI_Group_size end interface -interface MPI_Group_translate_ranks +interface subroutine MPI_Group_translate_ranks(group1, n, ranks1, group2, ranks2& , ierror) @@ -1732,7 +1733,7 @@ end subroutine MPI_Group_translate_ranks end interface -interface MPI_Group_union +interface subroutine MPI_Group_union(group1, group2, newgroup, ierror) integer, intent(in) :: group1 @@ -1744,7 +1745,7 @@ end subroutine MPI_Group_union end interface -interface MPI_Iallgather +interface subroutine MPI_Iallgather(sendbuf, sendcount, sendtype, recvbuf, recvcount, & recvtype, comm, request, ierror) @@ -1764,7 +1765,7 @@ end subroutine MPI_Iallgather end interface -interface MPI_Iallgatherv +interface subroutine MPI_Iallgatherv(sendbuf, sendcount, sendtype, recvbuf, recvcounts, & displs, recvtype, comm, request, ierror) @@ -1785,7 +1786,7 @@ end subroutine MPI_Iallgatherv end interface -interface MPI_Iallreduce +interface subroutine MPI_Iallreduce(sendbuf, recvbuf, count, datatype, op, & comm, request, ierror) @@ -1804,7 +1805,7 @@ end subroutine MPI_Iallreduce end interface -interface MPI_Ialltoall +interface subroutine MPI_Ialltoall(sendbuf, sendcount, sendtype, recvbuf, recvcount, & recvtype, comm, request, ierror) @@ -1824,7 +1825,7 @@ end subroutine MPI_Ialltoall end interface -interface MPI_Ialltoallv +interface subroutine MPI_Ialltoallv(sendbuf, sendcounts, sdispls, sendtype, recvbuf, & recvcounts, rdispls, recvtype, comm, request, ierror) @@ -1846,7 +1847,7 @@ end subroutine MPI_Ialltoallv end interface -interface MPI_Ialltoallw +interface subroutine MPI_Ialltoallw(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, & recvcounts, rdispls, recvtypes, comm, request, ierror) @@ -1868,7 +1869,7 @@ end subroutine MPI_Ialltoallw end interface -interface MPI_Ibarrier +interface subroutine MPI_Ibarrier(comm, request, ierror) integer, intent(in) :: comm @@ -1879,7 +1880,7 @@ end subroutine MPI_Ibarrier end interface -interface MPI_Ibcast +interface subroutine MPI_Ibcast(buffer, count, datatype, root, comm& , request, ierror) @@ -1896,7 +1897,7 @@ end subroutine MPI_Ibcast end interface -interface MPI_Ibsend +interface subroutine MPI_Ibsend(buf, count, datatype, dest, tag, & comm, request, ierror) @@ -1914,7 +1915,7 @@ end subroutine MPI_Ibsend end interface -interface MPI_Iexscan +interface subroutine MPI_Iexscan(sendbuf, recvbuf, count, datatype, op, & comm, request, ierror) @@ -1933,7 +1934,7 @@ end subroutine MPI_Iexscan end interface -interface MPI_Igather +interface subroutine MPI_Igather(sendbuf, sendcount, sendtype, recvbuf, recvcount, & recvtype, root, comm, request, ierror) @@ -1954,7 +1955,7 @@ end subroutine MPI_Igather end interface -interface MPI_Igatherv +interface subroutine MPI_Igatherv(sendbuf, sendcount, sendtype, recvbuf, recvcounts, & displs, recvtype, root, comm, request, ierror) @@ -1976,7 +1977,7 @@ end subroutine MPI_Igatherv end interface -interface MPI_Improbe +interface subroutine MPI_Improbe(source, tag, comm, flag, message, status, ierror) include 'mpif-config.h' @@ -1992,7 +1993,7 @@ end subroutine MPI_Improbe end interface -interface MPI_Imrecv +interface subroutine MPI_Imrecv(buf, count, datatype, message, request, ierror) @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf @@ -2007,7 +2008,7 @@ end subroutine MPI_Imrecv end interface -interface MPI_Ineighbor_allgather +interface subroutine MPI_Ineighbor_allgather(sendbuf, sendcount, sendtype, recvbuf, recvcount, & recvtype, comm, request, ierror) @@ -2027,7 +2028,7 @@ end subroutine MPI_Ineighbor_allgather end interface -interface MPI_Ineighbor_allgatherv +interface subroutine MPI_Ineighbor_allgatherv(sendbuf, sendcount, sendtype, recvbuf, recvcounts, & displs, recvtype, comm, request, ierror) @@ -2048,7 +2049,7 @@ end subroutine MPI_Ineighbor_allgatherv end interface -interface MPI_Ineighbor_alltoall +interface subroutine MPI_Ineighbor_alltoall(sendbuf, sendcount, sendtype, recvbuf, recvcount, & recvtype, comm, request, ierror) @@ -2068,7 +2069,7 @@ end subroutine MPI_Ineighbor_alltoall end interface -interface MPI_Ineighbor_alltoallv +interface subroutine MPI_Ineighbor_alltoallv(sendbuf, sendcounts, sdispls, sendtype, recvbuf, & recvcounts, rdispls, recvtype, comm, request, ierror) @@ -2090,7 +2091,7 @@ end subroutine MPI_Ineighbor_alltoallv end interface -interface MPI_Ineighbor_alltoallw +interface subroutine MPI_Ineighbor_alltoallw(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, & recvcounts, rdispls, recvtypes, comm, request, ierror) @@ -2113,7 +2114,7 @@ end subroutine MPI_Ineighbor_alltoallw end interface -interface MPI_Info_create +interface subroutine MPI_Info_create(info, ierror) integer, intent(out) :: info @@ -2123,7 +2124,7 @@ end subroutine MPI_Info_create end interface -interface MPI_Info_delete +interface subroutine MPI_Info_delete(info, key, ierror) integer, intent(in) :: info @@ -2134,7 +2135,7 @@ end subroutine MPI_Info_delete end interface -interface MPI_Info_dup +interface subroutine MPI_Info_dup(info, newinfo, ierror) integer, intent(in) :: info @@ -2145,7 +2146,7 @@ end subroutine MPI_Info_dup end interface -interface MPI_Info_free +interface subroutine MPI_Info_free(info, ierror) integer, intent(inout) :: info @@ -2155,7 +2156,7 @@ end subroutine MPI_Info_free end interface -interface MPI_Info_get +interface subroutine MPI_Info_get(info, key, valuelen, value, flag& , ierror) @@ -2170,7 +2171,7 @@ end subroutine MPI_Info_get end interface -interface MPI_Info_get_nkeys +interface subroutine MPI_Info_get_nkeys(info, nkeys, ierror) integer, intent(in) :: info @@ -2181,7 +2182,7 @@ end subroutine MPI_Info_get_nkeys end interface -interface MPI_Info_get_nthkey +interface subroutine MPI_Info_get_nthkey(info, n, key, ierror) integer, intent(in) :: info @@ -2193,7 +2194,7 @@ end subroutine MPI_Info_get_nthkey end interface -interface MPI_Info_get_valuelen +interface subroutine MPI_Info_get_valuelen(info, key, valuelen, flag, ierror) integer, intent(in) :: info @@ -2206,7 +2207,7 @@ end subroutine MPI_Info_get_valuelen end interface -interface MPI_Info_set +interface subroutine MPI_Info_set(info, key, value, ierror) integer, intent(in) :: info @@ -2218,7 +2219,7 @@ end subroutine MPI_Info_set end interface -interface MPI_Init +interface subroutine MPI_Init(ierror) integer, intent(out) :: ierror @@ -2227,7 +2228,7 @@ end subroutine MPI_Init end interface -interface MPI_Init_thread +interface subroutine MPI_Init_thread(required, provided, ierror) integer, intent(in) :: required @@ -2238,7 +2239,7 @@ end subroutine MPI_Init_thread end interface -interface MPI_Initialized +interface subroutine MPI_Initialized(flag, ierror) logical, intent(out) :: flag @@ -2248,7 +2249,7 @@ end subroutine MPI_Initialized end interface -interface MPI_Intercomm_create +interface subroutine MPI_Intercomm_create(local_comm, local_leader, bridge_comm, remote_leader, tag, & newintercomm, ierror) @@ -2264,7 +2265,7 @@ end subroutine MPI_Intercomm_create end interface -interface MPI_Intercomm_merge +interface subroutine MPI_Intercomm_merge(intercomm, high, newintercomm, ierror) integer, intent(in) :: intercomm @@ -2276,7 +2277,7 @@ end subroutine MPI_Intercomm_merge end interface -interface MPI_Iprobe +interface subroutine MPI_Iprobe(source, tag, comm, flag, status& , ierror) @@ -2292,7 +2293,7 @@ end subroutine MPI_Iprobe end interface -interface MPI_Irecv +interface subroutine MPI_Irecv(buf, count, datatype, source, tag, & comm, request, ierror) @@ -2310,7 +2311,7 @@ end subroutine MPI_Irecv end interface -interface MPI_Ireduce +interface subroutine MPI_Ireduce(sendbuf, recvbuf, count, datatype, op, & root, comm, request, ierror) @@ -2330,7 +2331,7 @@ end subroutine MPI_Ireduce end interface -interface MPI_Ireduce_scatter +interface subroutine MPI_Ireduce_scatter(sendbuf, recvbuf, recvcounts, datatype, op, & comm, request, ierror) @@ -2349,7 +2350,7 @@ end subroutine MPI_Ireduce_scatter end interface -interface MPI_Ireduce_scatter_block +interface subroutine MPI_Ireduce_scatter_block(sendbuf, recvbuf, recvcount, datatype, op, & comm, request, ierror) @@ -2368,7 +2369,7 @@ end subroutine MPI_Ireduce_scatter_block end interface -interface MPI_Irsend +interface subroutine MPI_Irsend(buf, count, datatype, dest, tag, & comm, request, ierror) @@ -2386,7 +2387,7 @@ end subroutine MPI_Irsend end interface -interface MPI_Is_thread_main +interface subroutine MPI_Is_thread_main(flag, ierror) logical, intent(out) :: flag @@ -2396,7 +2397,7 @@ end subroutine MPI_Is_thread_main end interface -interface MPI_Iscan +interface subroutine MPI_Iscan(sendbuf, recvbuf, count, datatype, op, & comm, request, ierror) @@ -2415,7 +2416,7 @@ end subroutine MPI_Iscan end interface -interface MPI_Iscatter +interface subroutine MPI_Iscatter(sendbuf, sendcount, sendtype, recvbuf, recvcount, & recvtype, root, comm, request, ierror) @@ -2436,7 +2437,7 @@ end subroutine MPI_Iscatter end interface -interface MPI_Iscatterv +interface subroutine MPI_Iscatterv(sendbuf, sendcounts, displs, sendtype, recvbuf, & recvcount, recvtype, root, comm, request, ierror) @@ -2458,7 +2459,7 @@ end subroutine MPI_Iscatterv end interface -interface MPI_Isend +interface subroutine MPI_Isend(buf, count, datatype, dest, tag, & comm, request, ierror) @@ -2476,7 +2477,7 @@ end subroutine MPI_Isend end interface -interface MPI_Issend +interface subroutine MPI_Issend(buf, count, datatype, dest, tag, & comm, request, ierror) @@ -2494,7 +2495,7 @@ end subroutine MPI_Issend end interface -interface MPI_Psend_init +interface subroutine MPI_Psend_init(buf, partitions, count, datatype, dest, tag, & comm, request, ierror) @@ -2513,7 +2514,7 @@ end subroutine MPI_Psend_init end interface -interface MPI_Precv_init +interface subroutine MPI_Precv_init(buf, partitions, count, datatype, dest, tag, & comm, request, ierror) @@ -2532,7 +2533,7 @@ end subroutine MPI_Precv_init end interface -interface MPI_Pready +interface subroutine MPI_Pready(partition, request, ierror) integer, intent(in) :: partition @@ -2543,7 +2544,7 @@ end subroutine MPI_Pready end interface -interface MPI_Pready_list +interface subroutine MPI_Pready_list(length, partitions, request, ierror) integer, intent(in) :: length @@ -2555,7 +2556,7 @@ end subroutine MPI_Pready_list end interface -interface MPI_Pready_range +interface subroutine MPI_Pready_range(partition_low, partition_high, request, ierror) integer, intent(in) :: partition_low @@ -2567,7 +2568,7 @@ end subroutine MPI_Pready_range end interface -interface MPI_Parrived +interface subroutine MPI_Parrived(request, partition, flag, ierror) integer, intent(in) :: request @@ -2579,7 +2580,7 @@ end subroutine MPI_Parrived end interface -interface MPI_Lookup_name +interface subroutine MPI_Lookup_name(service_name, info, port_name, ierror) character(len=*), intent(in) :: service_name @@ -2591,7 +2592,7 @@ end subroutine MPI_Lookup_name end interface -interface MPI_Mprobe +interface subroutine MPI_Mprobe(source, tag, comm, message, status, ierror) include 'mpif-config.h' @@ -2606,7 +2607,7 @@ end subroutine MPI_Mprobe end interface -interface MPI_Mrecv +interface subroutine MPI_Mrecv(buf, count, datatype, message, status, ierror) include 'mpif-config.h' @@ -2622,7 +2623,7 @@ end subroutine MPI_Mrecv end interface -interface MPI_Neighbor_allgather +interface subroutine MPI_Neighbor_allgather(sendbuf, sendcount, sendtype, recvbuf, recvcount, & recvtype, comm, ierror) @@ -2641,7 +2642,7 @@ end subroutine MPI_Neighbor_allgather end interface -interface MPI_Neighbor_allgather_init +interface subroutine MPI_Neighbor_allgather_init(sendbuf, sendcount, sendtype, recvbuf, recvcount, & recvtype, comm, info, request, ierror) @@ -2662,7 +2663,7 @@ end subroutine MPI_Neighbor_allgather_init end interface -interface MPI_Neighbor_allgatherv +interface subroutine MPI_Neighbor_allgatherv(sendbuf, sendcount, sendtype, recvbuf, recvcounts, & displs, recvtype, comm, ierror) @@ -2682,7 +2683,7 @@ end subroutine MPI_Neighbor_allgatherv end interface -interface MPI_Neighbor_allgatherv_init +interface subroutine MPI_Neighbor_allgatherv_init(sendbuf, sendcount, sendtype, recvbuf, recvcounts, & displs, recvtype, comm, info, request, ierror) @@ -2704,7 +2705,7 @@ end subroutine MPI_Neighbor_allgatherv_init end interface -interface MPI_Neighbor_alltoall +interface subroutine MPI_Neighbor_alltoall(sendbuf, sendcount, sendtype, recvbuf, recvcount, & recvtype, comm, ierror) @@ -2723,7 +2724,7 @@ end subroutine MPI_Neighbor_alltoall end interface -interface MPI_Neighbor_alltoall_init +interface subroutine MPI_Neighbor_alltoall_init(sendbuf, sendcount, sendtype, recvbuf, recvcount, & recvtype, comm, info, request, ierror) @@ -2744,7 +2745,7 @@ end subroutine MPI_Neighbor_alltoall_init end interface -interface MPI_Neighbor_alltoallv +interface subroutine MPI_Neighbor_alltoallv(sendbuf, sendcounts, sdispls, sendtype, recvbuf, & recvcounts, rdispls, recvtype, comm, ierror) @@ -2765,7 +2766,7 @@ end subroutine MPI_Neighbor_alltoallv end interface -interface MPI_Neighbor_alltoallv_init +interface subroutine MPI_Neighbor_alltoallv_init(sendbuf, sendcounts, sdispls, sendtype, recvbuf, & recvcounts, rdispls, recvtype, comm, info, request, ierror) @@ -2788,7 +2789,7 @@ end subroutine MPI_Neighbor_alltoallv_init end interface -interface MPI_Neighbor_alltoallw +interface subroutine MPI_Neighbor_alltoallw(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, & recvcounts, rdispls, recvtypes, comm, ierror) @@ -2810,7 +2811,7 @@ end subroutine MPI_Neighbor_alltoallw end interface -interface MPI_Neighbor_alltoallw_init +interface subroutine MPI_Neighbor_alltoallw_init(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, & recvcounts, rdispls, recvtypes, comm, info, request, ierror) @@ -2834,7 +2835,7 @@ end subroutine MPI_Neighbor_alltoallw_init end interface -interface MPI_Op_commutative +interface subroutine MPI_Op_commutative(op, commute, ierror) integer, intent(in) :: op @@ -2845,7 +2846,7 @@ end subroutine MPI_Op_commutative end interface -interface MPI_Op_create +interface subroutine MPI_Op_create(function, commute, op, ierror) external :: function @@ -2857,7 +2858,7 @@ end subroutine MPI_Op_create end interface -interface MPI_Op_free +interface subroutine MPI_Op_free(op, ierror) integer, intent(inout) :: op @@ -2867,7 +2868,7 @@ end subroutine MPI_Op_free end interface -interface MPI_Open_port +interface subroutine MPI_Open_port(info, port_name, ierror) integer, intent(in) :: info @@ -2878,7 +2879,7 @@ end subroutine MPI_Open_port end interface -interface MPI_Pack +interface subroutine MPI_Pack(inbuf, incount, datatype, outbuf, outsize, & position, comm, ierror) @@ -2897,7 +2898,7 @@ end subroutine MPI_Pack end interface -interface MPI_Pack_external +interface subroutine MPI_Pack_external(datarep, inbuf, incount, datatype, outbuf, & outsize, position, ierror) @@ -2917,7 +2918,7 @@ end subroutine MPI_Pack_external end interface -interface MPI_Pack_external_size +interface subroutine MPI_Pack_external_size(datarep, incount, datatype, size, ierror) include 'mpif-config.h' @@ -2931,7 +2932,7 @@ end subroutine MPI_Pack_external_size end interface -interface MPI_Pack_size +interface subroutine MPI_Pack_size(incount, datatype, comm, size, ierror) integer, intent(in) :: incount @@ -2944,7 +2945,7 @@ end subroutine MPI_Pack_size end interface -interface MPI_Pcontrol +interface subroutine MPI_Pcontrol(level) integer, intent(in) :: level @@ -2954,7 +2955,7 @@ end subroutine MPI_Pcontrol end interface -interface MPI_Probe +interface subroutine MPI_Probe(source, tag, comm, status, ierror) include 'mpif-config.h' @@ -2968,7 +2969,7 @@ end subroutine MPI_Probe end interface -interface MPI_Publish_name +interface subroutine MPI_Publish_name(service_name, info, port_name, ierror) character(len=*), intent(in) :: service_name @@ -2980,7 +2981,7 @@ end subroutine MPI_Publish_name end interface -interface MPI_Put +interface subroutine MPI_Put(origin_addr, origin_count, origin_datatype, target_rank, target_disp, & target_count, target_datatype, win, ierror) @@ -3000,7 +3001,7 @@ end subroutine MPI_Put end interface -interface MPI_Query_thread +interface subroutine MPI_Query_thread(provided, ierror) integer, intent(out) :: provided @@ -3010,7 +3011,7 @@ end subroutine MPI_Query_thread end interface -interface MPI_Raccumulate +interface subroutine MPI_Raccumulate(origin_addr, origin_count, origin_datatype,& target_rank, target_disp, target_count, & @@ -3033,7 +3034,7 @@ end subroutine MPI_Raccumulate end interface -interface MPI_Recv +interface subroutine MPI_Recv(buf, count, datatype, source, tag, & comm, status, ierror) @@ -3052,7 +3053,7 @@ end subroutine MPI_Recv end interface -interface MPI_Recv_init +interface subroutine MPI_Recv_init(buf, count, datatype, source, tag, & comm, request, ierror) @@ -3070,7 +3071,7 @@ end subroutine MPI_Recv_init end interface -interface MPI_Reduce +interface subroutine MPI_Reduce(sendbuf, recvbuf, count, datatype, op, & root, comm, ierror) @@ -3089,7 +3090,7 @@ end subroutine MPI_Reduce end interface -interface MPI_Reduce_init +interface subroutine MPI_Reduce_init(sendbuf, recvbuf, count, datatype, op, & root, comm, info, request, ierror) @@ -3110,7 +3111,7 @@ end subroutine MPI_Reduce_init end interface -interface MPI_Reduce_local +interface subroutine MPI_Reduce_local(inbuf, inout, count, datatype, op, & ierror) @@ -3127,7 +3128,7 @@ end subroutine MPI_Reduce_local end interface -interface MPI_Reduce_scatter +interface subroutine MPI_Reduce_scatter(sendbuf, recvbuf, recvcounts, datatype, op, & comm, ierror) @@ -3145,7 +3146,7 @@ end subroutine MPI_Reduce_scatter end interface -interface MPI_Reduce_scatter_init +interface subroutine MPI_Reduce_scatter_init(sendbuf, recvbuf, recvcounts, datatype, op, & comm, info, request, ierror) @@ -3165,7 +3166,7 @@ end subroutine MPI_Reduce_scatter_init end interface -interface MPI_Reduce_scatter_block +interface subroutine MPI_Reduce_scatter_block(sendbuf, recvbuf, recvcount, datatype, op, & comm, ierror) @@ -3183,7 +3184,7 @@ end subroutine MPI_Reduce_scatter_block end interface -interface MPI_Reduce_scatter_block_init +interface subroutine MPI_Reduce_scatter_block_init(sendbuf, recvbuf, recvcount, datatype, op, & comm, info, request, ierror) @@ -3203,7 +3204,7 @@ end subroutine MPI_Reduce_scatter_block_init end interface -interface MPI_Register_datarep +interface subroutine MPI_Register_datarep(datarep, read_conversion_fn, write_conversion_fn, dtype_file_extent_fn, extra_state& , ierror) @@ -3219,7 +3220,7 @@ end subroutine MPI_Register_datarep end interface -interface MPI_Request_free +interface subroutine MPI_Request_free(request, ierror) integer, intent(inout) :: request @@ -3229,7 +3230,7 @@ end subroutine MPI_Request_free end interface -interface MPI_Request_get_status +interface subroutine MPI_Request_get_status(request, flag, status, ierror) include 'mpif-config.h' @@ -3242,7 +3243,7 @@ end subroutine MPI_Request_get_status end interface -interface MPI_Rget +interface subroutine MPI_Rget(origin_addr, origin_count, origin_datatype, & target_rank, target_disp, target_count, & @@ -3264,7 +3265,7 @@ end subroutine MPI_Rget end interface -interface MPI_Rget_accumulate +interface subroutine MPI_Rget_accumulate(origin_addr, origin_count, origin_datatype,& result_addr, result_count, result_datatype,& @@ -3292,7 +3293,7 @@ end subroutine MPI_Rget_accumulate end interface -interface MPI_Rput +interface subroutine MPI_Rput(origin_addr, origin_count, origin_datatype, & target_rank, target_disp, target_count, & @@ -3314,7 +3315,7 @@ end subroutine MPI_Rput end interface -interface MPI_Rsend +interface subroutine MPI_Rsend(ibuf, count, datatype, dest, tag, & comm, ierror) @@ -3331,7 +3332,7 @@ end subroutine MPI_Rsend end interface -interface MPI_Rsend_init +interface subroutine MPI_Rsend_init(buf, count, datatype, dest, tag, & comm, request, ierror) @@ -3349,7 +3350,7 @@ end subroutine MPI_Rsend_init end interface -interface MPI_Scan +interface subroutine MPI_Scan(sendbuf, recvbuf, count, datatype, op, & comm, ierror) @@ -3367,7 +3368,7 @@ end subroutine MPI_Scan end interface -interface MPI_Scan_init +interface subroutine MPI_Scan_init(sendbuf, recvbuf, count, datatype, op, & comm, info, request, ierror) @@ -3387,7 +3388,7 @@ end subroutine MPI_Scan_init end interface -interface MPI_Scatter +interface subroutine MPI_Scatter(sendbuf, sendcount, sendtype, recvbuf, recvcount, & recvtype, root, comm, ierror) @@ -3407,7 +3408,7 @@ end subroutine MPI_Scatter end interface -interface MPI_Scatter_init +interface subroutine MPI_Scatter_init(sendbuf, sendcount, sendtype, recvbuf, recvcount, & recvtype, root, comm, info, request, ierror) @@ -3429,7 +3430,7 @@ end subroutine MPI_Scatter_init end interface -interface MPI_Scatterv +interface subroutine MPI_Scatterv(sendbuf, sendcounts, displs, sendtype, recvbuf, & recvcount, recvtype, root, comm, ierror) @@ -3450,7 +3451,7 @@ end subroutine MPI_Scatterv end interface -interface MPI_Scatterv_init +interface subroutine MPI_Scatterv_init(sendbuf, sendcounts, displs, sendtype, recvbuf, & recvcount, recvtype, root, comm, info, request, ierror) @@ -3473,7 +3474,7 @@ end subroutine MPI_Scatterv_init end interface -interface MPI_Send +interface subroutine MPI_Send(buf, count, datatype, dest, tag, & comm, ierror) @@ -3490,7 +3491,7 @@ end subroutine MPI_Send end interface -interface MPI_Send_init +interface subroutine MPI_Send_init(buf, count, datatype, dest, tag, & comm, request, ierror) @@ -3508,7 +3509,7 @@ end subroutine MPI_Send_init end interface -interface MPI_Sendrecv +interface subroutine MPI_Sendrecv(sendbuf, sendcount, sendtype, dest, sendtag, & recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierror) @@ -3533,7 +3534,7 @@ end subroutine MPI_Sendrecv end interface -interface MPI_Sendrecv_replace +interface subroutine MPI_Sendrecv_replace(buf, count, datatype, dest, sendtag, & source, recvtag, comm, status, ierror) @@ -3554,7 +3555,7 @@ end subroutine MPI_Sendrecv_replace end interface -interface MPI_Ssend +interface subroutine MPI_Ssend(buf, count, datatype, dest, tag, & comm, ierror) @@ -3571,7 +3572,7 @@ end subroutine MPI_Ssend end interface -interface MPI_Ssend_init +interface subroutine MPI_Ssend_init(buf, count, datatype, dest, tag, & comm, request, ierror) @@ -3589,7 +3590,7 @@ end subroutine MPI_Ssend_init end interface -interface MPI_Start +interface subroutine MPI_Start(request, ierror) integer, intent(inout) :: request @@ -3599,7 +3600,7 @@ end subroutine MPI_Start end interface -interface MPI_Startall +interface subroutine MPI_Startall(count, array_of_requests, ierror) integer, intent(in) :: count @@ -3610,7 +3611,7 @@ end subroutine MPI_Startall end interface -interface MPI_Status_set_cancelled +interface subroutine MPI_Status_set_cancelled(status, flag, ierror) include 'mpif-config.h' @@ -3622,7 +3623,7 @@ end subroutine MPI_Status_set_cancelled end interface -interface MPI_Status_set_elements +interface subroutine MPI_Status_set_elements(status, datatype, count, ierror) include 'mpif-config.h' @@ -3635,7 +3636,7 @@ end subroutine MPI_Status_set_elements end interface -interface MPI_Status_set_elements_x +interface subroutine MPI_Status_set_elements_x(status, datatype, count, ierror) include 'mpif-config.h' @@ -3648,7 +3649,7 @@ end subroutine MPI_Status_set_elements_x end interface -interface MPI_Test +interface subroutine MPI_Test(request, flag, status, ierror) include 'mpif-config.h' @@ -3661,7 +3662,7 @@ end subroutine MPI_Test end interface -interface MPI_Test_cancelled +interface subroutine MPI_Test_cancelled(status, flag, ierror) include 'mpif-config.h' @@ -3673,7 +3674,7 @@ end subroutine MPI_Test_cancelled end interface -interface MPI_Testall +interface subroutine MPI_Testall(count, array_of_requests, flag, array_of_statuses, ierror) include 'mpif-config.h' @@ -3687,7 +3688,7 @@ end subroutine MPI_Testall end interface -interface MPI_Testany +interface subroutine MPI_Testany(count, array_of_requests, index, flag, status& , ierror) @@ -3703,7 +3704,7 @@ end subroutine MPI_Testany end interface -interface MPI_Testsome +interface subroutine MPI_Testsome(incount, array_of_requests, outcount, array_of_indices, array_of_statuses& , ierror) @@ -3719,7 +3720,7 @@ end subroutine MPI_Testsome end interface -interface MPI_Topo_test +interface subroutine MPI_Topo_test(comm, status, ierror) integer, intent(in) :: comm @@ -3730,7 +3731,7 @@ end subroutine MPI_Topo_test end interface -interface MPI_Type_commit +interface subroutine MPI_Type_commit(datatype, ierror) integer, intent(inout) :: datatype @@ -3740,7 +3741,7 @@ end subroutine MPI_Type_commit end interface -interface MPI_Type_contiguous +interface subroutine MPI_Type_contiguous(count, oldtype, newtype, ierror) integer, intent(in) :: count @@ -3752,7 +3753,7 @@ end subroutine MPI_Type_contiguous end interface -interface MPI_Type_create_darray +interface subroutine MPI_Type_create_darray(size, rank, ndims, gsize_array, distrib_array, & darg_array, psize_array, order, oldtype, newtype, ierror) @@ -3772,7 +3773,7 @@ end subroutine MPI_Type_create_darray end interface -interface MPI_Type_create_f90_complex +interface subroutine MPI_Type_create_f90_complex(p, r, newtype, ierror) integer, intent(in) :: p @@ -3784,7 +3785,7 @@ end subroutine MPI_Type_create_f90_complex end interface -interface MPI_Type_create_f90_integer +interface subroutine MPI_Type_create_f90_integer(r, newtype, ierror) integer, intent(in) :: r @@ -3795,7 +3796,7 @@ end subroutine MPI_Type_create_f90_integer end interface -interface MPI_Type_create_f90_real +interface subroutine MPI_Type_create_f90_real(p, r, newtype, ierror) integer, intent(in) :: p @@ -3807,7 +3808,7 @@ end subroutine MPI_Type_create_f90_real end interface -interface MPI_Type_create_hindexed +interface subroutine MPI_Type_create_hindexed(count, array_of_blocklengths, array_of_displacements, oldtype, newtype& , ierror) @@ -3823,7 +3824,7 @@ end subroutine MPI_Type_create_hindexed end interface -interface MPI_Type_create_hindexed_block +interface subroutine MPI_Type_create_hindexed_block(count, blocklength, array_of_displacements, oldtype, newtype& , ierror) @@ -3839,7 +3840,7 @@ end subroutine MPI_Type_create_hindexed_block end interface -interface MPI_Type_create_hvector +interface subroutine MPI_Type_create_hvector(count, blocklength, stride, oldtype, newtype& , ierror) @@ -3855,7 +3856,7 @@ end subroutine MPI_Type_create_hvector end interface -interface MPI_Type_create_indexed_block +interface subroutine MPI_Type_create_indexed_block(count, blocklength, array_of_displacements, oldtype, newtype& , ierror) @@ -3870,7 +3871,7 @@ end subroutine MPI_Type_create_indexed_block end interface -interface MPI_Type_create_keyval +interface subroutine MPI_Type_create_keyval(type_copy_attr_fn, type_delete_attr_fn, type_keyval, extra_state, ierror) include 'mpif-config.h' @@ -3884,7 +3885,7 @@ end subroutine MPI_Type_create_keyval end interface -interface MPI_Type_create_resized +interface subroutine MPI_Type_create_resized(oldtype, lb, extent, newtype, ierror) include 'mpif-config.h' @@ -3898,7 +3899,7 @@ end subroutine MPI_Type_create_resized end interface -interface MPI_Type_create_struct +interface subroutine MPI_Type_create_struct(count, array_of_block_lengths, array_of_displacements, array_of_types, newtype& , ierror) @@ -3914,7 +3915,7 @@ end subroutine MPI_Type_create_struct end interface -interface MPI_Type_create_subarray +interface subroutine MPI_Type_create_subarray(ndims, size_array, subsize_array, start_array, order, & oldtype, newtype, ierror) @@ -3931,7 +3932,7 @@ end subroutine MPI_Type_create_subarray end interface -interface MPI_Type_delete_attr +interface subroutine MPI_Type_delete_attr(datatype, type_keyval, ierror) integer, intent(in) :: datatype @@ -3942,7 +3943,7 @@ end subroutine MPI_Type_delete_attr end interface -interface MPI_Type_dup +interface subroutine MPI_Type_dup(datatype, newtype, ierror) integer, intent(in) :: datatype @@ -3953,7 +3954,7 @@ end subroutine MPI_Type_dup end interface -interface MPI_Type_free +interface subroutine MPI_Type_free(datatype, ierror) integer, intent(inout) :: datatype @@ -3963,7 +3964,7 @@ end subroutine MPI_Type_free end interface -interface MPI_Type_free_keyval +interface subroutine MPI_Type_free_keyval(type_keyval, ierror) integer, intent(inout) :: type_keyval @@ -3973,7 +3974,7 @@ end subroutine MPI_Type_free_keyval end interface -interface MPI_Type_get_attr +interface subroutine MPI_Type_get_attr(datatype, type_keyval, attribute_val, flag, ierror) include 'mpif-config.h' @@ -3987,7 +3988,7 @@ end subroutine MPI_Type_get_attr end interface -interface MPI_Type_get_contents +interface subroutine MPI_Type_get_contents(datatype, max_integers, max_addresses, max_datatypes, array_of_integers, & array_of_addresses, array_of_datatypes, ierror) @@ -4005,7 +4006,7 @@ end subroutine MPI_Type_get_contents end interface -interface MPI_Type_get_envelope +interface subroutine MPI_Type_get_envelope(datatype, num_integers, num_addresses, num_datatypes, combiner& , ierror) @@ -4020,7 +4021,7 @@ end subroutine MPI_Type_get_envelope end interface -interface MPI_Type_get_extent +interface subroutine MPI_Type_get_extent(datatype, lb, extent, ierror) include 'mpif-config.h' @@ -4033,7 +4034,7 @@ end subroutine MPI_Type_get_extent end interface -interface MPI_Type_get_extent_x +interface subroutine MPI_Type_get_extent_x(datatype, lb, extent, ierror) include 'mpif-config.h' @@ -4046,7 +4047,7 @@ end subroutine MPI_Type_get_extent_x end interface -interface MPI_Type_get_name +interface subroutine MPI_Type_get_name(datatype, type_name, resultlen, ierror) integer, intent(in) :: datatype @@ -4058,7 +4059,7 @@ end subroutine MPI_Type_get_name end interface -interface MPI_Type_get_true_extent +interface subroutine MPI_Type_get_true_extent(datatype, true_lb, true_extent, ierror) include 'mpif-config.h' @@ -4071,7 +4072,7 @@ end subroutine MPI_Type_get_true_extent end interface -interface MPI_Type_get_true_extent_x +interface subroutine MPI_Type_get_true_extent_x(datatype, true_lb, true_extent, ierror) include 'mpif-config.h' @@ -4084,7 +4085,7 @@ end subroutine MPI_Type_get_true_extent_x end interface -interface MPI_Type_indexed +interface subroutine MPI_Type_indexed(count, array_of_blocklengths, array_of_displacements, oldtype, newtype& , ierror) @@ -4099,7 +4100,7 @@ end subroutine MPI_Type_indexed end interface -interface MPI_Type_match_size +interface subroutine MPI_Type_match_size(typeclass, size, datatype, ierror) integer, intent(in) :: typeclass @@ -4111,7 +4112,7 @@ end subroutine MPI_Type_match_size end interface -interface MPI_Type_set_attr +interface subroutine MPI_Type_set_attr(datatype, type_keyval, attr_val, ierror) include 'mpif-config.h' @@ -4124,7 +4125,7 @@ end subroutine MPI_Type_set_attr end interface -interface MPI_Type_set_name +interface subroutine MPI_Type_set_name(datatype, type_name, ierror) integer, intent(in) :: datatype @@ -4135,7 +4136,7 @@ end subroutine MPI_Type_set_name end interface -interface MPI_Type_size +interface subroutine MPI_Type_size(datatype, size, ierror) integer, intent(in) :: datatype @@ -4146,7 +4147,7 @@ end subroutine MPI_Type_size end interface -interface MPI_Type_size_x +interface subroutine MPI_Type_size_x(datatype, size, ierror) include 'mpif-config.h' @@ -4158,7 +4159,7 @@ end subroutine MPI_Type_size_x end interface -interface MPI_Type_vector +interface subroutine MPI_Type_vector(count, blocklength, stride, oldtype, newtype& , ierror) @@ -4173,7 +4174,7 @@ end subroutine MPI_Type_vector end interface -interface MPI_Unpack +interface subroutine MPI_Unpack(inbuf, insize, position, outbuf, outcount, & datatype, comm, ierror) @@ -4192,7 +4193,7 @@ end subroutine MPI_Unpack end interface -interface MPI_Unpack_external +interface subroutine MPI_Unpack_external(datarep, inbuf, insize, position, outbuf, & outcount, datatype, ierror) @@ -4212,7 +4213,7 @@ end subroutine MPI_Unpack_external end interface -interface MPI_Unpublish_name +interface subroutine MPI_Unpublish_name(service_name, info, port_name, ierror) character(len=*), intent(in) :: service_name @@ -4224,7 +4225,7 @@ end subroutine MPI_Unpublish_name end interface -interface MPI_Wait +interface subroutine MPI_Wait(request, status, ierror) include 'mpif-config.h' @@ -4236,7 +4237,7 @@ end subroutine MPI_Wait end interface -interface MPI_Waitall +interface subroutine MPI_Waitall(count, array_of_requests, array_of_statuses, ierror) include 'mpif-config.h' @@ -4249,7 +4250,7 @@ end subroutine MPI_Waitall end interface -interface MPI_Waitany +interface subroutine MPI_Waitany(count, array_of_requests, index, status, ierror) include 'mpif-config.h' @@ -4263,7 +4264,7 @@ end subroutine MPI_Waitany end interface -interface MPI_Waitsome +interface subroutine MPI_Waitsome(incount, array_of_requests, outcount, array_of_indices, array_of_statuses& , ierror) @@ -4279,6 +4280,7 @@ end subroutine MPI_Waitsome end interface +! This interface requires a name because there are multiple subroutines. interface MPI_Win_allocate subroutine MPI_Win_allocate(size, disp_unit, info, comm, & @@ -4305,6 +4307,7 @@ end subroutine MPI_Win_allocate_cptr end interface +! This interface requires a name because there are multiple subroutines. interface MPI_Win_allocate_shared subroutine MPI_Win_allocate_shared(size, disp_unit, info, comm, & @@ -4331,7 +4334,7 @@ end subroutine MPI_Win_allocate_shared_cptr end interface -interface MPI_Win_attach +interface subroutine MPI_Win_attach(win, base, size, ierror) include 'mpif-config.h' @@ -4345,7 +4348,7 @@ end subroutine MPI_Win_attach end interface -interface MPI_Win_call_errhandler +interface subroutine MPI_Win_call_errhandler(win, errorcode, ierror) integer, intent(in) :: win @@ -4356,7 +4359,7 @@ end subroutine MPI_Win_call_errhandler end interface -interface MPI_Win_complete +interface subroutine MPI_Win_complete(win, ierror) integer, intent(in) :: win @@ -4366,7 +4369,7 @@ end subroutine MPI_Win_complete end interface -interface MPI_Win_create +interface subroutine MPI_Win_create(base, size, disp_unit, info, comm, & win, ierror) @@ -4384,7 +4387,7 @@ end subroutine MPI_Win_create end interface -interface MPI_Win_create_dynamic +interface subroutine MPI_Win_create_dynamic(info, comm, & win, ierror) @@ -4398,7 +4401,7 @@ end subroutine MPI_Win_create_dynamic end interface -interface MPI_Win_create_errhandler +interface subroutine MPI_Win_create_errhandler(function, errhandler, ierror) external :: function @@ -4409,7 +4412,7 @@ end subroutine MPI_Win_create_errhandler end interface -interface MPI_Win_create_keyval +interface subroutine MPI_Win_create_keyval(win_copy_attr_fn, win_delete_attr_fn, win_keyval, extra_state, ierror) include 'mpif-config.h' @@ -4423,7 +4426,7 @@ end subroutine MPI_Win_create_keyval end interface -interface MPI_Win_delete_attr +interface subroutine MPI_Win_delete_attr(win, win_keyval, ierror) integer, intent(in) :: win @@ -4434,7 +4437,7 @@ end subroutine MPI_Win_delete_attr end interface -interface MPI_Win_detach +interface subroutine MPI_Win_detach(win, base, ierror) include 'mpif-config.h' @@ -4447,7 +4450,7 @@ end subroutine MPI_Win_detach end interface -interface MPI_Win_fence +interface subroutine MPI_Win_fence(assert, win, ierror) integer, intent(in) :: assert @@ -4458,7 +4461,7 @@ end subroutine MPI_Win_fence end interface -interface MPI_Win_flush +interface subroutine MPI_Win_flush(rank, win, ierror) integer, intent(in) :: rank @@ -4469,7 +4472,7 @@ end subroutine MPI_Win_flush end interface -interface MPI_Win_flush_all +interface subroutine MPI_Win_flush_all(win, ierror) integer, intent(in) :: win @@ -4479,7 +4482,7 @@ end subroutine MPI_Win_flush_all end interface -interface MPI_Win_flush_local +interface subroutine MPI_Win_flush_local(rank, win, ierror) integer, intent(in) :: rank @@ -4490,7 +4493,7 @@ end subroutine MPI_Win_flush_local end interface -interface MPI_Win_flush_local_all +interface subroutine MPI_Win_flush_local_all(win, ierror) integer, intent(in) :: win @@ -4500,7 +4503,7 @@ end subroutine MPI_Win_flush_local_all end interface -interface MPI_Win_free +interface subroutine MPI_Win_free(win, ierror) integer, intent(inout) :: win @@ -4510,7 +4513,7 @@ end subroutine MPI_Win_free end interface -interface MPI_Win_free_keyval +interface subroutine MPI_Win_free_keyval(win_keyval, ierror) integer, intent(inout) :: win_keyval @@ -4520,7 +4523,7 @@ end subroutine MPI_Win_free_keyval end interface -interface MPI_Win_get_attr +interface subroutine MPI_Win_get_attr(win, win_keyval, attribute_val, flag, ierror) include 'mpif-config.h' @@ -4534,7 +4537,7 @@ end subroutine MPI_Win_get_attr end interface -interface MPI_Win_get_errhandler +interface subroutine MPI_Win_get_errhandler(win, errhandler, ierror) integer, intent(in) :: win @@ -4545,7 +4548,7 @@ end subroutine MPI_Win_get_errhandler end interface -interface MPI_Win_get_group +interface subroutine MPI_Win_get_group(win, group, ierror) integer, intent(in) :: win @@ -4556,7 +4559,7 @@ end subroutine MPI_Win_get_group end interface -interface MPI_Win_get_info +interface subroutine MPI_Win_get_info(comm, info, ierror) include 'mpif-config.h' @@ -4568,7 +4571,7 @@ end subroutine MPI_Win_get_info end interface -interface MPI_Win_get_name +interface subroutine MPI_Win_get_name(win, win_name, resultlen, ierror) integer, intent(in) :: win @@ -4580,7 +4583,7 @@ end subroutine MPI_Win_get_name end interface -interface MPI_Win_lock +interface subroutine MPI_Win_lock(lock_type, rank, assert, win, ierror) integer, intent(in) :: lock_type @@ -4593,7 +4596,7 @@ end subroutine MPI_Win_lock end interface -interface MPI_Win_lock_all +interface subroutine MPI_Win_lock_all(assert, win, ierror) integer, intent(in) :: assert @@ -4604,7 +4607,7 @@ end subroutine MPI_Win_lock_all end interface -interface MPI_Win_post +interface subroutine MPI_Win_post(group, assert, win, ierror) integer, intent(in) :: group @@ -4616,7 +4619,7 @@ end subroutine MPI_Win_post end interface -interface MPI_Win_set_attr +interface subroutine MPI_Win_set_attr(win, win_keyval, attribute_val, ierror) include 'mpif-config.h' @@ -4629,7 +4632,7 @@ end subroutine MPI_Win_set_attr end interface -interface MPI_Win_set_errhandler +interface subroutine MPI_Win_set_errhandler(win, errhandler, ierror) integer, intent(in) :: win @@ -4640,7 +4643,7 @@ end subroutine MPI_Win_set_errhandler end interface -interface MPI_Win_set_info +interface subroutine MPI_Win_set_info(comm, info, ierror) include 'mpif-config.h' @@ -4652,7 +4655,7 @@ end subroutine MPI_Win_set_info end interface -interface MPI_Win_set_name +interface subroutine MPI_Win_set_name(win, win_name, ierror) integer, intent(in) :: win @@ -4663,6 +4666,7 @@ end subroutine MPI_Win_set_name end interface +! This interface requires a name because there are multiple subroutines. interface MPI_Win_shared_query subroutine MPI_Win_shared_query(win, rank, size, disp_unit, baseptr,& @@ -4691,7 +4695,7 @@ end subroutine MPI_Win_shared_query_cptr end interface -interface MPI_Win_start +interface subroutine MPI_Win_start(group, assert, win, ierror) integer, intent(in) :: group @@ -4703,7 +4707,7 @@ end subroutine MPI_Win_start end interface -interface MPI_Win_sync +interface subroutine MPI_Win_sync(win, ierror) integer, intent(in) :: win @@ -4713,7 +4717,7 @@ end subroutine MPI_Win_sync end interface -interface MPI_Win_test +interface subroutine MPI_Win_test(win, flag, ierror) integer, intent(in) :: win @@ -4724,7 +4728,7 @@ end subroutine MPI_Win_test end interface -interface MPI_Win_unlock +interface subroutine MPI_Win_unlock(rank, win, ierror) integer, intent(in) :: rank @@ -4735,7 +4739,7 @@ end subroutine MPI_Win_unlock end interface -interface MPI_Win_unlock_all +interface subroutine MPI_Win_unlock_all(win, ierror) integer, intent(in) :: win @@ -4745,7 +4749,7 @@ end subroutine MPI_Win_unlock_all end interface -interface MPI_Win_wait +interface subroutine MPI_Win_wait(win, ierror) integer, intent(in) :: win @@ -4755,7 +4759,7 @@ end subroutine MPI_Win_wait end interface -interface MPI_Wtick +interface function MPI_Wtick() double precision MPI_Wtick @@ -4764,7 +4768,7 @@ end function MPI_Wtick end interface -interface MPI_Wtime +interface function MPI_Wtime() double precision MPI_Wtime diff --git a/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-removed-interfaces.h.in b/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-removed-interfaces.h.in index e8b2c2e061e..4085afe222b 100644 --- a/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-removed-interfaces.h.in +++ b/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-removed-interfaces.h.in @@ -1,6 +1,6 @@ ! -*- fortran -*- ! -! Copyright (c) 2006-2012 Cisco Systems, Inc. All rights reserved. +! Copyright (c) 2006-2021 Cisco Systems, Inc. All rights reserved ! Copyright (c) 2007 Los Alamos National Security, LLC. All rights ! reserved. ! Copyright (c) 2012 The University of Tennessee and The University @@ -17,7 +17,7 @@ ! ! $HEADER$ -interface MPI_Address +interface subroutine MPI_Address(location, address, ierror) @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ location @@ -28,7 +28,7 @@ end subroutine MPI_Address end interface -interface MPI_Attr_delete +interface subroutine MPI_Attr_delete(comm, keyval, ierror) integer, intent(in) :: comm @@ -38,7 +38,7 @@ end subroutine MPI_Attr_delete end interface -interface MPI_Attr_get +interface subroutine MPI_Attr_get(comm, keyval, attribute_val, flag, ierror) integer, intent(in) :: comm @@ -50,7 +50,7 @@ end subroutine MPI_Attr_get end interface -interface MPI_Attr_put +interface subroutine MPI_Attr_put(comm, keyval, attribute_val, ierror) integer, intent(in) :: comm @@ -61,7 +61,7 @@ end subroutine MPI_Attr_put end interface -interface MPI_Errhandler_create +interface subroutine MPI_Errhandler_create(function, errhandler, ierror) external :: function @@ -71,7 +71,7 @@ end subroutine MPI_Errhandler_create end interface -interface MPI_Errhandler_get +interface subroutine MPI_Errhandler_get(comm, errhandler, ierror) integer, intent(in) :: comm @@ -81,7 +81,7 @@ end subroutine MPI_Errhandler_get end interface -interface MPI_Errhandler_set +interface subroutine MPI_Errhandler_set(comm, errhandler, ierror) integer, intent(in) :: comm @@ -91,7 +91,7 @@ end subroutine MPI_Errhandler_set end interface -interface MPI_Keyval_create +interface subroutine MPI_Keyval_create(copy_fn, delete_fn, keyval, extra_state, ierror) external :: copy_fn @@ -103,7 +103,7 @@ end subroutine MPI_Keyval_create end interface -interface MPI_Keyval_free +interface subroutine MPI_Keyval_free(keyval, ierror) integer, intent(inout) :: keyval @@ -112,7 +112,7 @@ end subroutine MPI_Keyval_free end interface -interface MPI_Type_extent +interface subroutine MPI_Type_extent(datatype, extent, ierror) integer, intent(in) :: datatype @@ -122,7 +122,7 @@ end subroutine MPI_Type_extent end interface -interface MPI_Type_hindexed +interface subroutine MPI_Type_hindexed(count, array_of_blocklengths, array_of_displacements, oldtype, newtype& , ierror) @@ -136,7 +136,7 @@ end subroutine MPI_Type_hindexed end interface -interface MPI_Type_hvector +interface subroutine MPI_Type_hvector(count, blocklength, stride, oldtype, newtype& , ierror) @@ -150,7 +150,7 @@ end subroutine MPI_Type_hvector end interface -interface MPI_Type_lb +interface subroutine MPI_Type_lb(datatype, lb, ierror) integer, intent(in) :: datatype @@ -160,7 +160,7 @@ end subroutine MPI_Type_lb end interface -interface MPI_Type_struct +interface subroutine MPI_Type_struct(count, array_of_blocklengths, array_of_displacements, array_of_types, newtype& , ierror) @@ -174,7 +174,7 @@ end subroutine MPI_Type_struct end interface -interface MPI_Type_ub +interface subroutine MPI_Type_ub(datatype, ub, ierror) integer, intent(in) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-status.h b/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-status.h index bd5635700fe..783302c363c 100644 --- a/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-status.h +++ b/ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-status.h @@ -2,6 +2,7 @@ ! ! Copyright (c) 2020 Research Organization for Information Science ! and Technology (RIST). All rights reserved. +! Copyright (c) 2021 Cisco Systems, Inc. All rights reserved ! $COPYRIGHT$ ! ! Additional copyrights may follow @@ -9,7 +10,7 @@ ! $HEADER$ -interface MPI_Status_f082f +interface subroutine MPI_Status_f082f(f08_status, f_status, ierror) use mpi_types @@ -22,7 +23,7 @@ end subroutine MPI_Status_f082f end interface -interface MPI_Status_f2f08 +interface subroutine MPI_Status_f2f08(f_status, f08_status, ierror) use mpi_types @@ -35,7 +36,7 @@ end subroutine MPI_Status_f2f08 end interface -interface PMPI_Status_f082f +interface subroutine PMPI_Status_f082f(f08_status, f_status, ierror) use mpi_types @@ -48,7 +49,7 @@ end subroutine PMPI_Status_f082f end interface -interface PMPI_Status_f2f08 +interface subroutine PMPI_Status_f2f08(f_status, f08_status, ierror) use mpi_types diff --git a/ompi/mpi/fortran/use-mpi-tkr/Makefile.am b/ompi/mpi/fortran/use-mpi-tkr/Makefile.am index 9b41c716117..28228faaa7d 100644 --- a/ompi/mpi/fortran/use-mpi-tkr/Makefile.am +++ b/ompi/mpi/fortran/use-mpi-tkr/Makefile.am @@ -10,7 +10,7 @@ # University of Stuttgart. All rights reserved. # Copyright (c) 2004-2005 The Regents of the University of California. # All rights reserved. -# Copyright (c) 2006-2019 Cisco Systems, Inc. All rights reserved +# Copyright (c) 2006-2021 Cisco Systems, Inc. All rights reserved # Copyright (c) 2007 Los Alamos National Security, LLC. All rights # reserved. # Copyright (c) 2014-2021 Research Organization for Information Science @@ -87,11 +87,6 @@ lib@OMPI_LIBMPI_NAME@_usempi_la_SOURCES = \ mpi.F90 \ mpi_aint_add_f90.f90 \ mpi_aint_diff_f90.f90 \ - mpi_comm_spawn_multiple_f90.f90 \ - mpi_testall_f90.f90 \ - mpi_testsome_f90.f90 \ - mpi_waitall_f90.f90 \ - mpi_waitsome_f90.f90 \ mpi_wtick_f90.f90 \ mpi_wtime_f90.f90 diff --git a/ompi/mpi/fortran/use-mpi-tkr/mpi-f90-cptr-interfaces.h b/ompi/mpi/fortran/use-mpi-tkr/mpi-f90-cptr-interfaces.h index d4a51f4bb48..3f8ef561e9c 100644 --- a/ompi/mpi/fortran/use-mpi-tkr/mpi-f90-cptr-interfaces.h +++ b/ompi/mpi/fortran/use-mpi-tkr/mpi-f90-cptr-interfaces.h @@ -1,6 +1,6 @@ ! -*- fortran -*- ! -! Copyright (c) 2014 Cisco Systems, Inc. All rights reserved. +! Copyright (c) 2014-2021 Cisco Systems, Inc. All rights reserved ! $COPYRIGHT$ ! ! Additional copyrights may follow @@ -17,6 +17,7 @@ ! below. ! +! This interface requires a name because there are multiple subroutines. interface MPI_Win_allocate subroutine MPI_Win_allocate(size, disp_unit, info, comm, & @@ -46,6 +47,7 @@ end subroutine MPI_Win_allocate_cptr end interface +! This interface requires a name because there are multiple subroutines. interface MPI_Win_allocate_shared subroutine MPI_Win_allocate_shared(size, disp_unit, info, comm, & @@ -75,6 +77,7 @@ end subroutine MPI_Win_allocate_shared_cptr end interface +! This interface requires a name because there are multiple subroutines. interface MPI_Win_shared_query subroutine MPI_Win_shared_query(win, rank, size, disp_unit, baseptr,& diff --git a/ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h b/ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h index b6a5c08e71d..97f352fca34 100644 --- a/ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h +++ b/ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h @@ -10,7 +10,7 @@ ! University of Stuttgart. All rights reserved. ! Copyright (c) 2004-2005 The Regents of the University of California. ! All rights reserved. -! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved. +! Copyright (c) 2006-2021 Cisco Systems, Inc. All rights reserved ! Copyright (c) 2016-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ @@ -20,7 +20,7 @@ ! $HEADER$ ! -interface MPI_Wtick +interface function MPI_Wtick() double precision MPI_Wtick @@ -29,7 +29,7 @@ end function MPI_Wtick end interface -interface MPI_Wtime +interface function MPI_Wtime() double precision MPI_Wtime @@ -38,7 +38,7 @@ end function MPI_Wtime end interface -interface MPI_Abort +interface subroutine MPI_Abort(comm, errorcode, ierror) integer, intent(in) :: comm @@ -49,7 +49,7 @@ end subroutine MPI_Abort end interface -interface MPI_Add_error_class +interface subroutine MPI_Add_error_class(errorclass, ierror) integer, intent(out) :: errorclass @@ -59,7 +59,7 @@ end subroutine MPI_Add_error_class end interface -interface MPI_Add_error_code +interface subroutine MPI_Add_error_code(errorclass, errorcode, ierror) integer, intent(in) :: errorclass @@ -70,7 +70,7 @@ end subroutine MPI_Add_error_code end interface -interface MPI_Add_error_string +interface subroutine MPI_Add_error_string(errorcode, string, ierror) integer, intent(in) :: errorcode @@ -80,7 +80,7 @@ end subroutine MPI_Add_error_string end interface -interface MPI_Aint_add +interface function MPI_Aint_add(base, diff) include 'mpif-config.h' @@ -91,7 +91,7 @@ end function MPI_Aint_add end interface -interface MPI_Aint_diff +interface function MPI_Aint_diff(addr1, addr2) include 'mpif-config.h' @@ -103,7 +103,7 @@ end function MPI_Aint_diff end interface -interface MPI_Barrier +interface subroutine MPI_Barrier(comm, ierror) integer, intent(in) :: comm @@ -113,7 +113,7 @@ end subroutine MPI_Barrier end interface -interface MPI_Ibarrier +interface subroutine MPI_Ibarrier(comm, request, ierror) integer, intent(in) :: comm @@ -124,7 +124,7 @@ end subroutine MPI_Ibarrier end interface -interface MPI_Cancel +interface subroutine MPI_Cancel(request, ierror) integer, intent(in) :: request @@ -134,7 +134,7 @@ end subroutine MPI_Cancel end interface -interface MPI_Cart_coords +interface subroutine MPI_Cart_coords(comm, rank, maxdims, coords, ierror) integer, intent(in) :: comm @@ -147,7 +147,7 @@ end subroutine MPI_Cart_coords end interface -interface MPI_Cart_create +interface subroutine MPI_Cart_create(old_comm, ndims, dims, periods, reorder, & comm_cart, ierror) @@ -163,7 +163,7 @@ end subroutine MPI_Cart_create end interface -interface MPI_Cart_get +interface subroutine MPI_Cart_get(comm, maxdims, dims, periods, coords& , ierror) @@ -178,7 +178,7 @@ end subroutine MPI_Cart_get end interface -interface MPI_Cart_map +interface subroutine MPI_Cart_map(comm, ndims, dims, periods, newrank& , ierror) @@ -193,7 +193,7 @@ end subroutine MPI_Cart_map end interface -interface MPI_Cart_rank +interface subroutine MPI_Cart_rank(comm, coords, rank, ierror) integer, intent(in) :: comm @@ -205,7 +205,7 @@ end subroutine MPI_Cart_rank end interface -interface MPI_Cart_shift +interface subroutine MPI_Cart_shift(comm, direction, disp, rank_source, rank_dest& , ierror) @@ -220,7 +220,7 @@ end subroutine MPI_Cart_shift end interface -interface MPI_Cart_sub +interface subroutine MPI_Cart_sub(comm, remain_dims, new_comm, ierror) integer, intent(in) :: comm @@ -232,7 +232,7 @@ end subroutine MPI_Cart_sub end interface -interface MPI_Cartdim_get +interface subroutine MPI_Cartdim_get(comm, ndims, ierror) integer, intent(in) :: comm @@ -243,7 +243,7 @@ end subroutine MPI_Cartdim_get end interface -interface MPI_Comm_call_errhandler +interface subroutine MPI_Comm_call_errhandler(comm, errorcode, ierror) integer, intent(in) :: comm @@ -254,7 +254,7 @@ end subroutine MPI_Comm_call_errhandler end interface -interface MPI_Comm_compare +interface subroutine MPI_Comm_compare(comm1, comm2, result, ierror) integer, intent(in) :: comm1 @@ -266,7 +266,7 @@ end subroutine MPI_Comm_compare end interface -interface MPI_Comm_create +interface subroutine MPI_Comm_create(comm, group, newcomm, ierror) integer, intent(in) :: comm @@ -278,7 +278,7 @@ end subroutine MPI_Comm_create end interface -interface MPI_Comm_create_group +interface subroutine MPI_Comm_create_group(comm, group, tag, newcomm, ierror) integer, intent(in) :: comm @@ -291,7 +291,7 @@ end subroutine MPI_Comm_create_group end interface -interface MPI_Comm_create_errhandler +interface subroutine MPI_Comm_create_errhandler(function, errhandler, ierror) external :: function @@ -302,7 +302,7 @@ end subroutine MPI_Comm_create_errhandler end interface -interface MPI_Comm_create_keyval +interface subroutine MPI_Comm_create_keyval(comm_copy_attr_fn, comm_delete_attr_fn, comm_keyval, extra_state, ierror) include 'mpif-config.h' @@ -316,7 +316,7 @@ end subroutine MPI_Comm_create_keyval end interface -interface MPI_Comm_delete_attr +interface subroutine MPI_Comm_delete_attr(comm, comm_keyval, ierror) integer, intent(in) :: comm @@ -327,7 +327,7 @@ end subroutine MPI_Comm_delete_attr end interface -interface MPI_Comm_dup +interface subroutine MPI_Comm_dup(comm, newcomm, ierror) integer, intent(in) :: comm @@ -338,7 +338,7 @@ end subroutine MPI_Comm_dup end interface -interface MPI_Comm_dup_with_info +interface subroutine MPI_Comm_dup_with_info(comm, info, newcomm, ierror) integer, intent(in) :: comm @@ -350,7 +350,7 @@ end subroutine MPI_Comm_dup_with_info end interface -interface MPI_Comm_idup +interface subroutine MPI_Comm_idup(comm, newcomm, request, ierror) integer, intent(in) :: comm @@ -362,7 +362,7 @@ end subroutine MPI_Comm_idup end interface -interface MPI_Comm_free +interface subroutine MPI_Comm_free(comm, ierror) integer, intent(inout) :: comm @@ -372,7 +372,7 @@ end subroutine MPI_Comm_free end interface -interface MPI_Comm_free_keyval +interface subroutine MPI_Comm_free_keyval(comm_keyval, ierror) integer, intent(inout) :: comm_keyval @@ -382,7 +382,7 @@ end subroutine MPI_Comm_free_keyval end interface -interface MPI_Comm_get_info +interface subroutine MPI_Comm_get_info(comm, info_used, ierror) include 'mpif-config.h' @@ -394,7 +394,7 @@ end subroutine MPI_Comm_get_info end interface -interface MPI_Comm_get_attr +interface subroutine MPI_Comm_get_attr(comm, comm_keyval, attribute_val, flag, ierror) include 'mpif-config.h' @@ -408,7 +408,7 @@ end subroutine MPI_Comm_get_attr end interface -interface MPI_Comm_get_errhandler +interface subroutine MPI_Comm_get_errhandler(comm, erhandler, ierror) integer, intent(in) :: comm @@ -419,7 +419,7 @@ end subroutine MPI_Comm_get_errhandler end interface -interface MPI_Comm_get_name +interface subroutine MPI_Comm_get_name(comm, comm_name, resultlen, ierror) integer, intent(in) :: comm @@ -431,7 +431,7 @@ end subroutine MPI_Comm_get_name end interface -interface MPI_Comm_group +interface subroutine MPI_Comm_group(comm, group, ierror) integer, intent(in) :: comm @@ -442,7 +442,7 @@ end subroutine MPI_Comm_group end interface -interface MPI_Comm_rank +interface subroutine MPI_Comm_rank(comm, rank, ierror) integer, intent(in) :: comm @@ -453,7 +453,7 @@ end subroutine MPI_Comm_rank end interface -interface MPI_Comm_remote_group +interface subroutine MPI_Comm_remote_group(comm, group, ierror) integer, intent(in) :: comm @@ -464,7 +464,7 @@ end subroutine MPI_Comm_remote_group end interface -interface MPI_Comm_remote_size +interface subroutine MPI_Comm_remote_size(comm, size, ierror) integer, intent(in) :: comm @@ -475,7 +475,7 @@ end subroutine MPI_Comm_remote_size end interface -interface MPI_Comm_set_info +interface subroutine MPI_Comm_set_info(comm, info, ierror) include 'mpif-config.h' @@ -487,7 +487,7 @@ end subroutine MPI_Comm_set_info end interface -interface MPI_Comm_set_attr +interface subroutine MPI_Comm_set_attr(comm, comm_keyval, attribute_val, ierror) include 'mpif-config.h' @@ -500,7 +500,7 @@ end subroutine MPI_Comm_set_attr end interface -interface MPI_Comm_set_errhandler +interface subroutine MPI_Comm_set_errhandler(comm, errhandler, ierror) integer, intent(in) :: comm @@ -511,7 +511,7 @@ end subroutine MPI_Comm_set_errhandler end interface -interface MPI_Comm_set_name +interface subroutine MPI_Comm_set_name(comm, comm_name, ierror) integer, intent(in) :: comm @@ -522,7 +522,7 @@ end subroutine MPI_Comm_set_name end interface -interface MPI_Comm_size +interface subroutine MPI_Comm_size(comm, size, ierror) integer, intent(in) :: comm @@ -533,7 +533,7 @@ end subroutine MPI_Comm_size end interface -interface MPI_Comm_split +interface subroutine MPI_Comm_split(comm, color, key, newcomm, ierror) integer, intent(in) :: comm @@ -546,7 +546,7 @@ end subroutine MPI_Comm_split end interface -interface MPI_Comm_test_inter +interface subroutine MPI_Comm_test_inter(comm, flag, ierror) integer, intent(in) :: comm @@ -557,7 +557,7 @@ end subroutine MPI_Comm_test_inter end interface -interface MPI_Dims_create +interface subroutine MPI_Dims_create(nnodes, ndims, dims, ierror) integer, intent(in) :: nnodes @@ -569,7 +569,7 @@ end subroutine MPI_Dims_create end interface -interface MPI_Errhandler_free +interface subroutine MPI_Errhandler_free(errhandler, ierror) integer, intent(inout) :: errhandler @@ -579,7 +579,7 @@ end subroutine MPI_Errhandler_free end interface -interface MPI_Error_class +interface subroutine MPI_Error_class(errorcode, errorclass, ierror) integer, intent(in) :: errorcode @@ -590,7 +590,7 @@ end subroutine MPI_Error_class end interface -interface MPI_Error_string +interface subroutine MPI_Error_string(errorcode, string, resultlen, ierror) integer, intent(in) :: errorcode @@ -602,7 +602,7 @@ end subroutine MPI_Error_string end interface -interface MPI_Finalize +interface subroutine MPI_Finalize(ierror) integer, intent(out) :: ierror @@ -611,7 +611,7 @@ end subroutine MPI_Finalize end interface -interface MPI_Finalized +interface subroutine MPI_Finalized(flag, ierror) logical, intent(out) :: flag @@ -621,7 +621,7 @@ end subroutine MPI_Finalized end interface -interface MPI_Get_count +interface subroutine MPI_Get_count(status, datatype, count, ierror) include 'mpif-config.h' @@ -634,7 +634,7 @@ end subroutine MPI_Get_count end interface -interface MPI_Get_elements +interface subroutine MPI_Get_elements(status, datatype, count, ierror) include 'mpif-config.h' @@ -647,7 +647,7 @@ end subroutine MPI_Get_elements end interface -interface MPI_Get_elements_x +interface subroutine MPI_Get_elements_x(status, datatype, count, ierror) include 'mpif-config.h' @@ -660,7 +660,7 @@ end subroutine MPI_Get_elements_x end interface -interface MPI_Get_processor_name +interface subroutine MPI_Get_processor_name(name, resultlen, ierror) character(len=*), intent(out) :: name @@ -671,7 +671,7 @@ end subroutine MPI_Get_processor_name end interface -interface MPI_Get_version +interface subroutine MPI_Get_version(version, subversion, ierror) integer, intent(out) :: version @@ -682,7 +682,7 @@ end subroutine MPI_Get_version end interface -interface MPI_Graph_create +interface subroutine MPI_Graph_create(comm_old, nnodes, index, edges, reorder, & comm_graph, ierror) @@ -698,7 +698,7 @@ end subroutine MPI_Graph_create end interface -interface MPI_Graph_get +interface subroutine MPI_Graph_get(comm, maxindex, maxedges, index, edges& , ierror) @@ -713,7 +713,7 @@ end subroutine MPI_Graph_get end interface -interface MPI_Graph_map +interface subroutine MPI_Graph_map(comm, nnodes, index, edges, newrank& , ierror) @@ -728,7 +728,7 @@ end subroutine MPI_Graph_map end interface -interface MPI_Graph_neighbors +interface subroutine MPI_Graph_neighbors(comm, rank, maxneighbors, neighbors, ierror) integer, intent(in) :: comm @@ -741,7 +741,7 @@ end subroutine MPI_Graph_neighbors end interface -interface MPI_Graph_neighbors_count +interface subroutine MPI_Graph_neighbors_count(comm, rank, nneighbors, ierror) integer, intent(in) :: comm @@ -753,7 +753,7 @@ end subroutine MPI_Graph_neighbors_count end interface -interface MPI_Graphdims_get +interface subroutine MPI_Graphdims_get(comm, nnodes, nedges, ierror) integer, intent(in) :: comm @@ -765,7 +765,7 @@ end subroutine MPI_Graphdims_get end interface -interface MPI_Grequest_complete +interface subroutine MPI_Grequest_complete(request, ierror) integer, intent(in) :: request @@ -775,7 +775,7 @@ end subroutine MPI_Grequest_complete end interface -interface MPI_Grequest_start +interface subroutine MPI_Grequest_start(query_fn, free_fn, cancel_fn, extra_state, request& , ierror) @@ -791,7 +791,7 @@ end subroutine MPI_Grequest_start end interface -interface MPI_Group_compare +interface subroutine MPI_Group_compare(group1, group2, result, ierror) integer, intent(in) :: group1 @@ -803,7 +803,7 @@ end subroutine MPI_Group_compare end interface -interface MPI_Group_difference +interface subroutine MPI_Group_difference(group1, group2, newgroup, ierror) integer, intent(in) :: group1 @@ -815,7 +815,7 @@ end subroutine MPI_Group_difference end interface -interface MPI_Group_excl +interface subroutine MPI_Group_excl(group, n, ranks, newgroup, ierror) integer, intent(in) :: group @@ -828,7 +828,7 @@ end subroutine MPI_Group_excl end interface -interface MPI_Group_free +interface subroutine MPI_Group_free(group, ierror) integer, intent(inout) :: group @@ -838,7 +838,7 @@ end subroutine MPI_Group_free end interface -interface MPI_Group_incl +interface subroutine MPI_Group_incl(group, n, ranks, newgroup, ierror) integer, intent(in) :: group @@ -851,7 +851,7 @@ end subroutine MPI_Group_incl end interface -interface MPI_Group_intersection +interface subroutine MPI_Group_intersection(group1, group2, newgroup, ierror) integer, intent(in) :: group1 @@ -863,7 +863,7 @@ end subroutine MPI_Group_intersection end interface -interface MPI_Group_range_excl +interface subroutine MPI_Group_range_excl(group, n, ranges, newgroup, ierror) integer, intent(in) :: group @@ -876,7 +876,7 @@ end subroutine MPI_Group_range_excl end interface -interface MPI_Group_range_incl +interface subroutine MPI_Group_range_incl(group, n, ranges, newgroup, ierror) integer, intent(in) :: group @@ -889,7 +889,7 @@ end subroutine MPI_Group_range_incl end interface -interface MPI_Group_rank +interface subroutine MPI_Group_rank(group, rank, ierror) integer, intent(in) :: group @@ -900,7 +900,7 @@ end subroutine MPI_Group_rank end interface -interface MPI_Group_size +interface subroutine MPI_Group_size(group, size, ierror) integer, intent(in) :: group @@ -911,7 +911,7 @@ end subroutine MPI_Group_size end interface -interface MPI_Group_translate_ranks +interface subroutine MPI_Group_translate_ranks(group1, n, ranks1, group2, ranks2& , ierror) @@ -926,7 +926,7 @@ end subroutine MPI_Group_translate_ranks end interface -interface MPI_Group_union +interface subroutine MPI_Group_union(group1, group2, newgroup, ierror) integer, intent(in) :: group1 @@ -938,7 +938,7 @@ end subroutine MPI_Group_union end interface -interface MPI_Info_create +interface subroutine MPI_Info_create(info, ierror) integer, intent(out) :: info @@ -948,7 +948,7 @@ end subroutine MPI_Info_create end interface -interface MPI_Info_delete +interface subroutine MPI_Info_delete(info, key, ierror) integer, intent(in) :: info @@ -959,7 +959,7 @@ end subroutine MPI_Info_delete end interface -interface MPI_Info_dup +interface subroutine MPI_Info_dup(info, newinfo, ierror) integer, intent(in) :: info @@ -970,7 +970,7 @@ end subroutine MPI_Info_dup end interface -interface MPI_Info_free +interface subroutine MPI_Info_free(info, ierror) integer, intent(inout) :: info @@ -980,7 +980,7 @@ end subroutine MPI_Info_free end interface -interface MPI_Info_get +interface subroutine MPI_Info_get(info, key, valuelen, value, flag& , ierror) @@ -995,7 +995,7 @@ end subroutine MPI_Info_get end interface -interface MPI_Info_get_nkeys +interface subroutine MPI_Info_get_nkeys(info, nkeys, ierror) integer, intent(in) :: info @@ -1006,7 +1006,7 @@ end subroutine MPI_Info_get_nkeys end interface -interface MPI_Info_get_nthkey +interface subroutine MPI_Info_get_nthkey(info, n, key, ierror) integer, intent(in) :: info @@ -1018,7 +1018,7 @@ end subroutine MPI_Info_get_nthkey end interface -interface MPI_Info_get_valuelen +interface subroutine MPI_Info_get_valuelen(info, key, valuelen, flag, ierror) integer, intent(in) :: info @@ -1031,7 +1031,7 @@ end subroutine MPI_Info_get_valuelen end interface -interface MPI_Info_set +interface subroutine MPI_Info_set(info, key, value, ierror) integer, intent(in) :: info @@ -1043,7 +1043,7 @@ end subroutine MPI_Info_set end interface -interface MPI_Init +interface subroutine MPI_Init(ierror) integer, intent(out) :: ierror @@ -1052,7 +1052,7 @@ end subroutine MPI_Init end interface -interface MPI_Init_thread +interface subroutine MPI_Init_thread(required, provided, ierror) integer, intent(in) :: required @@ -1063,7 +1063,7 @@ end subroutine MPI_Init_thread end interface -interface MPI_Initialized +interface subroutine MPI_Initialized(flag, ierror) logical, intent(out) :: flag @@ -1073,7 +1073,7 @@ end subroutine MPI_Initialized end interface -interface MPI_Intercomm_create +interface subroutine MPI_Intercomm_create(local_comm, local_leader, bridge_comm, remote_leader, tag, & newintercomm, ierror) @@ -1089,7 +1089,7 @@ end subroutine MPI_Intercomm_create end interface -interface MPI_Intercomm_merge +interface subroutine MPI_Intercomm_merge(intercomm, high, newintercomm, ierror) integer, intent(in) :: intercomm @@ -1101,7 +1101,7 @@ end subroutine MPI_Intercomm_merge end interface -interface MPI_Iprobe +interface subroutine MPI_Iprobe(source, tag, comm, flag, status& , ierror) @@ -1117,7 +1117,7 @@ end subroutine MPI_Iprobe end interface -interface MPI_Is_thread_main +interface subroutine MPI_Is_thread_main(flag, ierror) logical, intent(out) :: flag @@ -1127,7 +1127,7 @@ end subroutine MPI_Is_thread_main end interface -interface MPI_Op_commutative +interface subroutine MPI_Op_commutative(op, commute, ierror) integer, intent(in) :: op @@ -1138,7 +1138,7 @@ end subroutine MPI_Op_commutative end interface -interface MPI_Op_create +interface subroutine MPI_Op_create(function, commute, op, ierror) external :: function @@ -1150,7 +1150,7 @@ end subroutine MPI_Op_create end interface -interface MPI_Op_free +interface subroutine MPI_Op_free(op, ierror) integer, intent(inout) :: op @@ -1160,7 +1160,7 @@ end subroutine MPI_Op_free end interface -interface MPI_Pack_external_size +interface subroutine MPI_Pack_external_size(datarep, incount, datatype, size, ierror) include 'mpif-config.h' @@ -1174,7 +1174,7 @@ end subroutine MPI_Pack_external_size end interface -interface MPI_Pack_size +interface subroutine MPI_Pack_size(incount, datatype, comm, size, ierror) integer, intent(in) :: incount @@ -1187,7 +1187,7 @@ end subroutine MPI_Pack_size end interface -interface MPI_Pcontrol +interface subroutine MPI_Pcontrol(level) integer, intent(in) :: level @@ -1197,7 +1197,7 @@ end subroutine MPI_Pcontrol end interface -interface MPI_Probe +interface subroutine MPI_Probe(source, tag, comm, status, ierror) include 'mpif-config.h' @@ -1211,7 +1211,7 @@ end subroutine MPI_Probe end interface -interface MPI_Query_thread +interface subroutine MPI_Query_thread(provided, ierror) integer, intent(out) :: provided @@ -1221,7 +1221,7 @@ end subroutine MPI_Query_thread end interface -interface MPI_Register_datarep +interface subroutine MPI_Register_datarep(datarep, read_conversion_fn, write_conversion_fn, dtype_file_extent_fn, extra_state& , ierror) @@ -1237,7 +1237,7 @@ end subroutine MPI_Register_datarep end interface -interface MPI_Request_free +interface subroutine MPI_Request_free(request, ierror) integer, intent(inout) :: request @@ -1247,7 +1247,7 @@ end subroutine MPI_Request_free end interface -interface MPI_Request_get_status +interface subroutine MPI_Request_get_status(request, flag, status, ierror) include 'mpif-config.h' @@ -1260,7 +1260,7 @@ end subroutine MPI_Request_get_status end interface -interface MPI_Start +interface subroutine MPI_Start(request, ierror) integer, intent(inout) :: request @@ -1270,7 +1270,7 @@ end subroutine MPI_Start end interface -interface MPI_Startall +interface subroutine MPI_Startall(count, array_of_requests, ierror) integer, intent(in) :: count @@ -1281,7 +1281,7 @@ end subroutine MPI_Startall end interface -interface MPI_Status_set_cancelled +interface subroutine MPI_Status_set_cancelled(status, flag, ierror) include 'mpif-config.h' @@ -1293,7 +1293,7 @@ end subroutine MPI_Status_set_cancelled end interface -interface MPI_Status_set_elements +interface subroutine MPI_Status_set_elements(status, datatype, count, ierror) include 'mpif-config.h' @@ -1306,7 +1306,7 @@ end subroutine MPI_Status_set_elements end interface -interface MPI_Test +interface subroutine MPI_Test(request, flag, status, ierror) include 'mpif-config.h' @@ -1319,7 +1319,7 @@ end subroutine MPI_Test end interface -interface MPI_Test_cancelled +interface subroutine MPI_Test_cancelled(status, flag, ierror) include 'mpif-config.h' @@ -1331,7 +1331,7 @@ end subroutine MPI_Test_cancelled end interface -interface MPI_Testall +interface subroutine MPI_Testall(count, array_of_requests, flag, array_of_statuses, ierror) include 'mpif-config.h' @@ -1345,7 +1345,7 @@ end subroutine MPI_Testall end interface -interface MPI_Testany +interface subroutine MPI_Testany(count, array_of_requests, index, flag, status& , ierror) @@ -1361,7 +1361,7 @@ end subroutine MPI_Testany end interface -interface MPI_Testsome +interface subroutine MPI_Testsome(incount, array_of_requests, outcount, array_of_indices, array_of_statuses& , ierror) @@ -1377,7 +1377,7 @@ end subroutine MPI_Testsome end interface -interface MPI_Topo_test +interface subroutine MPI_Topo_test(comm, status, ierror) integer, intent(in) :: comm @@ -1388,7 +1388,7 @@ end subroutine MPI_Topo_test end interface -interface MPI_Type_commit +interface subroutine MPI_Type_commit(datatype, ierror) integer, intent(inout) :: datatype @@ -1398,7 +1398,7 @@ end subroutine MPI_Type_commit end interface -interface MPI_Type_contiguous +interface subroutine MPI_Type_contiguous(count, oldtype, newtype, ierror) integer, intent(in) :: count @@ -1410,7 +1410,7 @@ end subroutine MPI_Type_contiguous end interface -interface MPI_Type_create_darray +interface subroutine MPI_Type_create_darray(size, rank, ndims, gsize_array, distrib_array, & darg_array, psize_array, order, oldtype, newtype, ierror) @@ -1430,7 +1430,7 @@ end subroutine MPI_Type_create_darray end interface -interface MPI_Type_create_f90_complex +interface subroutine MPI_Type_create_f90_complex(p, r, newtype, ierror) integer, intent(in) :: p @@ -1442,7 +1442,7 @@ end subroutine MPI_Type_create_f90_complex end interface -interface MPI_Type_create_f90_integer +interface subroutine MPI_Type_create_f90_integer(r, newtype, ierror) integer, intent(in) :: r @@ -1453,7 +1453,7 @@ end subroutine MPI_Type_create_f90_integer end interface -interface MPI_Type_create_f90_real +interface subroutine MPI_Type_create_f90_real(p, r, newtype, ierror) integer, intent(in) :: p @@ -1465,7 +1465,7 @@ end subroutine MPI_Type_create_f90_real end interface -interface MPI_Type_create_hindexed +interface subroutine MPI_Type_create_hindexed(count, array_of_blocklengths, array_of_displacements, oldtype, newtype& , ierror) @@ -1481,7 +1481,7 @@ end subroutine MPI_Type_create_hindexed end interface -interface MPI_Type_create_hvector +interface subroutine MPI_Type_create_hvector(count, blocklength, stride, oldtype, newtype& , ierror) @@ -1497,7 +1497,7 @@ end subroutine MPI_Type_create_hvector end interface -interface MPI_Type_create_indexed_block +interface subroutine MPI_Type_create_indexed_block(count, blocklength, array_of_displacements, oldtype, newtype& , ierror) @@ -1512,7 +1512,7 @@ end subroutine MPI_Type_create_indexed_block end interface -interface MPI_Type_create_keyval +interface subroutine MPI_Type_create_keyval(type_copy_attr_fn, type_delete_attr_fn, type_keyval, extra_state, ierror) include 'mpif-config.h' @@ -1526,7 +1526,7 @@ end subroutine MPI_Type_create_keyval end interface -interface MPI_Type_create_resized +interface subroutine MPI_Type_create_resized(oldtype, lb, extent, newtype, ierror) include 'mpif-config.h' @@ -1540,7 +1540,7 @@ end subroutine MPI_Type_create_resized end interface -interface MPI_Type_create_struct +interface subroutine MPI_Type_create_struct(count, array_of_block_lengths, array_of_displacements, array_of_types, newtype& , ierror) @@ -1556,7 +1556,7 @@ end subroutine MPI_Type_create_struct end interface -interface MPI_Type_create_subarray +interface subroutine MPI_Type_create_subarray(ndims, size_array, subsize_array, start_array, order, & oldtype, newtype, ierror) @@ -1573,7 +1573,7 @@ end subroutine MPI_Type_create_subarray end interface -interface MPI_Type_delete_attr +interface subroutine MPI_Type_delete_attr(datatype, type_keyval, ierror) integer, intent(in) :: datatype @@ -1584,7 +1584,7 @@ end subroutine MPI_Type_delete_attr end interface -interface MPI_Type_dup +interface subroutine MPI_Type_dup(oldtype, newtype, ierror) integer, intent(in) :: oldtype @@ -1595,7 +1595,7 @@ end subroutine MPI_Type_dup end interface -interface MPI_Type_free +interface subroutine MPI_Type_free(datatype, ierror) integer, intent(inout) :: datatype @@ -1605,7 +1605,7 @@ end subroutine MPI_Type_free end interface -interface MPI_Type_free_keyval +interface subroutine MPI_Type_free_keyval(type_keyval, ierror) integer, intent(inout) :: type_keyval @@ -1615,7 +1615,7 @@ end subroutine MPI_Type_free_keyval end interface -interface MPI_Type_get_attr +interface subroutine MPI_Type_get_attr(datatype, type_keyval, attribute_val, flag, ierror) include 'mpif-config.h' @@ -1629,7 +1629,7 @@ end subroutine MPI_Type_get_attr end interface -interface MPI_Type_get_contents +interface subroutine MPI_Type_get_contents(datatype, max_integers, max_addresses, max_datatypes, array_of_integers, & array_of_addresses, array_of_datatypes, ierror) @@ -1647,7 +1647,7 @@ end subroutine MPI_Type_get_contents end interface -interface MPI_Type_get_envelope +interface subroutine MPI_Type_get_envelope(datatype, num_integers, num_addresses, num_datatypes, combiner& , ierror) @@ -1662,7 +1662,7 @@ end subroutine MPI_Type_get_envelope end interface -interface MPI_Type_get_extent +interface subroutine MPI_Type_get_extent(datatype, lb, extent, ierror) include 'mpif-config.h' @@ -1675,7 +1675,7 @@ end subroutine MPI_Type_get_extent end interface -interface MPI_Type_get_extent_x +interface subroutine MPI_Type_get_extent_x(datatype, lb, extent, ierror) include 'mpif-config.h' @@ -1688,7 +1688,7 @@ end subroutine MPI_Type_get_extent_x end interface -interface MPI_Type_get_name +interface subroutine MPI_Type_get_name(datatype, type_name, resultlen, ierror) integer, intent(in) :: datatype @@ -1700,7 +1700,7 @@ end subroutine MPI_Type_get_name end interface -interface MPI_Type_get_true_extent +interface subroutine MPI_Type_get_true_extent(datatype, true_lb, true_extent, ierror) include 'mpif-config.h' @@ -1713,7 +1713,7 @@ end subroutine MPI_Type_get_true_extent end interface -interface MPI_Type_get_true_extent_x +interface subroutine MPI_Type_get_true_extent_x(datatype, true_lb, true_extent, ierror) include 'mpif-config.h' @@ -1726,7 +1726,7 @@ end subroutine MPI_Type_get_true_extent_x end interface -interface MPI_Type_indexed +interface subroutine MPI_Type_indexed(count, array_of_blocklengths, array_of_displacements, oldtype, newtype& , ierror) @@ -1739,7 +1739,7 @@ subroutine MPI_Type_indexed(count, array_of_blocklengths, array_of_displacements end subroutine MPI_Type_indexed end interface -interface MPI_Type_match_size +interface subroutine MPI_Type_match_size(typeclass, size, datatype, ierror) integer, intent(in) :: typeclass @@ -1751,7 +1751,7 @@ end subroutine MPI_Type_match_size end interface -interface MPI_Type_set_attr +interface subroutine MPI_Type_set_attr(datatype, type_keyval, attr_val, ierror) include 'mpif-config.h' @@ -1764,7 +1764,7 @@ end subroutine MPI_Type_set_attr end interface -interface MPI_Type_set_name +interface subroutine MPI_Type_set_name(datatype, type_name, ierror) integer, intent(in) :: datatype @@ -1775,7 +1775,7 @@ end subroutine MPI_Type_set_name end interface -interface MPI_Type_size +interface subroutine MPI_Type_size(datatype, size, ierror) integer, intent(in) :: datatype @@ -1786,7 +1786,7 @@ end subroutine MPI_Type_size end interface -interface MPI_Type_size_x +interface subroutine MPI_Type_size_x(datatype, size, ierror) include 'mpif-config.h' @@ -1798,7 +1798,7 @@ end subroutine MPI_Type_size_x end interface -interface MPI_Type_vector +interface subroutine MPI_Type_vector(count, blocklength, stride, oldtype, newtype& , ierror) @@ -1813,7 +1813,7 @@ end subroutine MPI_Type_vector end interface -interface MPI_Wait +interface subroutine MPI_Wait(request, status, ierror) include 'mpif-config.h' @@ -1825,7 +1825,7 @@ end subroutine MPI_Wait end interface -interface MPI_Waitall +interface subroutine MPI_Waitall(count, array_of_requests, array_of_statuses, ierror) include 'mpif-config.h' @@ -1838,7 +1838,7 @@ end subroutine MPI_Waitall end interface -interface MPI_Waitany +interface subroutine MPI_Waitany(count, array_of_requests, index, status, ierror) include 'mpif-config.h' @@ -1852,7 +1852,7 @@ end subroutine MPI_Waitany end interface -interface MPI_Waitsome +interface subroutine MPI_Waitsome(incount, array_of_requests, outcount, array_of_indices, array_of_statuses& , ierror) @@ -1868,7 +1868,7 @@ end subroutine MPI_Waitsome end interface -interface MPI_Win_call_errhandler +interface subroutine MPI_Win_call_errhandler(win, errorcode, ierror) integer, intent(in) :: win @@ -1879,7 +1879,7 @@ end subroutine MPI_Win_call_errhandler end interface -interface MPI_Win_complete +interface subroutine MPI_Win_complete(win, ierror) integer, intent(in) :: win @@ -1889,7 +1889,7 @@ end subroutine MPI_Win_complete end interface -interface MPI_Win_create_errhandler +interface subroutine MPI_Win_create_errhandler(function, errhandler, ierror) external :: function @@ -1900,7 +1900,7 @@ end subroutine MPI_Win_create_errhandler end interface -interface MPI_Win_create_keyval +interface subroutine MPI_Win_create_keyval(win_copy_attr_fn, win_delete_attr_fn, win_keyval, extra_state, ierror) include 'mpif-config.h' @@ -1914,7 +1914,7 @@ end subroutine MPI_Win_create_keyval end interface -interface MPI_Win_delete_attr +interface subroutine MPI_Win_delete_attr(win, win_keyval, ierror) integer, intent(in) :: win @@ -1925,7 +1925,7 @@ end subroutine MPI_Win_delete_attr end interface -interface MPI_Win_fence +interface subroutine MPI_Win_fence(assert, win, ierror) integer, intent(in) :: assert @@ -1936,7 +1936,7 @@ end subroutine MPI_Win_fence end interface -interface MPI_Win_free +interface subroutine MPI_Win_free(win, ierror) integer, intent(inout) :: win @@ -1946,7 +1946,7 @@ end subroutine MPI_Win_free end interface -interface MPI_Win_free_keyval +interface subroutine MPI_Win_free_keyval(win_keyval, ierror) integer, intent(inout) :: win_keyval @@ -1956,7 +1956,7 @@ end subroutine MPI_Win_free_keyval end interface -interface MPI_Win_get_attr +interface subroutine MPI_Win_get_attr(win, win_keyval, attribute_val, flag, ierror) include 'mpif-config.h' @@ -1970,7 +1970,7 @@ end subroutine MPI_Win_get_attr end interface -interface MPI_Win_get_errhandler +interface subroutine MPI_Win_get_errhandler(win, errhandler, ierror) integer, intent(in) :: win @@ -1981,7 +1981,7 @@ end subroutine MPI_Win_get_errhandler end interface -interface MPI_Win_get_group +interface subroutine MPI_Win_get_group(win, group, ierror) integer, intent(in) :: win @@ -1992,7 +1992,7 @@ end subroutine MPI_Win_get_group end interface -interface MPI_Win_get_name +interface subroutine MPI_Win_get_name(win, win_name, resultlen, ierror) integer, intent(in) :: win @@ -2004,7 +2004,7 @@ end subroutine MPI_Win_get_name end interface -interface MPI_Win_lock +interface subroutine MPI_Win_lock(lock_type, rank, assert, win, ierror) integer, intent(in) :: lock_type @@ -2017,7 +2017,7 @@ end subroutine MPI_Win_lock end interface -interface MPI_Win_post +interface subroutine MPI_Win_post(group, assert, win, ierror) integer, intent(in) :: group @@ -2029,7 +2029,7 @@ end subroutine MPI_Win_post end interface -interface MPI_Win_set_attr +interface subroutine MPI_Win_set_attr(win, win_keyval, attribute_val, ierror) include 'mpif-config.h' @@ -2042,7 +2042,7 @@ end subroutine MPI_Win_set_attr end interface -interface MPI_Win_set_errhandler +interface subroutine MPI_Win_set_errhandler(win, errhandler, ierror) integer, intent(in) :: win @@ -2053,7 +2053,7 @@ end subroutine MPI_Win_set_errhandler end interface -interface MPI_Win_set_name +interface subroutine MPI_Win_set_name(win, win_name, ierror) integer, intent(in) :: win @@ -2064,7 +2064,7 @@ end subroutine MPI_Win_set_name end interface -interface MPI_Win_start +interface subroutine MPI_Win_start(group, assert, win, ierror) integer, intent(in) :: group @@ -2076,7 +2076,7 @@ end subroutine MPI_Win_start end interface -interface MPI_Win_test +interface subroutine MPI_Win_test(win, flag, ierror) integer, intent(in) :: win @@ -2087,7 +2087,7 @@ end subroutine MPI_Win_test end interface -interface MPI_Win_unlock +interface subroutine MPI_Win_unlock(rank, win, ierror) integer, intent(in) :: rank @@ -2098,7 +2098,7 @@ end subroutine MPI_Win_unlock end interface -interface MPI_Win_wait +interface subroutine MPI_Win_wait(win, ierror) integer, intent(in) :: win @@ -2108,7 +2108,7 @@ end subroutine MPI_Win_wait end interface -interface MPI_Close_port +interface subroutine MPI_Close_port(port_name, ierror) character(len=*), intent(in) :: port_name @@ -2118,7 +2118,7 @@ end subroutine MPI_Close_port end interface -interface MPI_Lookup_name +interface subroutine MPI_Lookup_name(service_name, info, port_name, ierror) character(len=*), intent(in) :: service_name @@ -2130,7 +2130,7 @@ end subroutine MPI_Lookup_name end interface -interface MPI_Open_port +interface subroutine MPI_Open_port(info, port_name, ierror) integer, intent(in) :: info @@ -2141,7 +2141,7 @@ end subroutine MPI_Open_port end interface -interface MPI_Publish_name +interface subroutine MPI_Publish_name(service_name, info, port_name, ierror) character(len=*), intent(in) :: service_name @@ -2153,7 +2153,7 @@ end subroutine MPI_Publish_name end interface -interface MPI_Unpublish_name +interface subroutine MPI_Unpublish_name(service_name, info, port_name, ierror) character(len=*), intent(in) :: service_name @@ -2165,7 +2165,7 @@ end subroutine MPI_Unpublish_name end interface -interface MPI_Comm_disconnect +interface subroutine MPI_Comm_disconnect(comm, ierror) integer, intent(inout) :: comm @@ -2175,7 +2175,7 @@ end subroutine MPI_Comm_disconnect end interface -interface MPI_Comm_get_parent +interface subroutine MPI_Comm_get_parent(parent, ierror) integer, intent(out) :: parent @@ -2185,7 +2185,7 @@ end subroutine MPI_Comm_get_parent end interface -interface MPI_Comm_join +interface subroutine MPI_Comm_join(fd, intercomm, ierror) integer, intent(in) :: fd @@ -2196,7 +2196,7 @@ end subroutine MPI_Comm_join end interface -interface MPI_Comm_accept +interface subroutine MPI_Comm_accept(port_name, info, root, comm, newcomm& , ierror) @@ -2211,7 +2211,7 @@ end subroutine MPI_Comm_accept end interface -interface MPI_Comm_connect +interface subroutine MPI_Comm_connect(port_name, info, root, comm, newcomm& , ierror) @@ -2226,7 +2226,7 @@ end subroutine MPI_Comm_connect end interface -interface MPI_Comm_spawn +interface subroutine MPI_Comm_spawn(command, argv, maxprocs, info, root, & comm, intercomm, array_of_errcodes, ierror) @@ -2244,7 +2244,7 @@ end subroutine MPI_Comm_spawn end interface -interface MPI_Comm_spawn_multiple +interface subroutine MPI_Comm_spawn_multiple(count, array_of_commands, array_of_argv, array_of_maxprocs, array_of_info, & root, comm, intercomm, array_of_errcodes, ierror) @@ -2263,7 +2263,7 @@ end subroutine MPI_Comm_spawn_multiple end interface -interface MPI_Mprobe +interface subroutine MPI_Mprobe(source, tag, comm, message, status, ierror) include 'mpif-config.h' @@ -2278,7 +2278,7 @@ end subroutine MPI_Mprobe end interface -interface MPI_Improbe +interface subroutine MPI_Improbe(source, tag, comm, flag, message, status, ierror) include 'mpif-config.h' @@ -2294,7 +2294,7 @@ end subroutine MPI_Improbe end interface -interface MPI_Get_library_version +interface subroutine MPI_Get_library_version(version, resultlen, ierror) character(len=*), intent(out) :: version @@ -2305,7 +2305,7 @@ end subroutine MPI_Get_library_version end interface -interface MPI_Comm_split_type +interface subroutine MPI_Comm_split_type(comm, split_type, key, info, newcomm, ierror) integer, intent(in) :: comm @@ -2319,7 +2319,7 @@ end subroutine MPI_Comm_split_type end interface -interface MPI_Type_create_hindexed_block +interface subroutine MPI_Type_create_hindexed_block(count, blocklength, array_of_displacements, oldtype, newtype& , ierror) @@ -2335,7 +2335,7 @@ end subroutine MPI_Type_create_hindexed_block end interface -interface MPI_Dist_graph_create +interface subroutine MPI_Dist_graph_create(comm_old, n, sources, degrees, destinations, & weights, info, reorder, comm_dist_graph, ierror) @@ -2354,7 +2354,7 @@ end subroutine MPI_Dist_graph_create end interface -interface MPI_Dist_graph_create_adjacent +interface subroutine MPI_Dist_graph_create_adjacent(comm_old, indegree, sources, sourceweights, & outdegree, destinations, destweights, info, reorder, & @@ -2375,7 +2375,7 @@ end subroutine MPI_Dist_graph_create_adjacent end interface -interface MPI_Dist_graph_neighbors_count +interface subroutine MPI_Dist_graph_neighbors_count(comm, indegree, outdegree, weighted, ierror) integer, intent(in) :: comm @@ -2388,7 +2388,7 @@ end subroutine MPI_Dist_graph_neighbors_count end interface -interface MPI_Dist_graph_neighbors +interface subroutine MPI_Dist_graph_neighbors(comm, maxindegree, sources, sourceweights, & maxoutdegree, destinations, destweights, ierror) @@ -2405,7 +2405,7 @@ end subroutine MPI_Dist_graph_neighbors end interface -interface MPI_Win_flush +interface subroutine MPI_Win_flush(rank, win, ierror) integer, intent(in) :: rank @@ -2416,7 +2416,7 @@ end subroutine MPI_Win_flush end interface -interface MPI_Win_flush_all +interface subroutine MPI_Win_flush_all(win, ierror) integer, intent(in) :: win @@ -2426,7 +2426,7 @@ end subroutine MPI_Win_flush_all end interface -interface MPI_Win_flush_local +interface subroutine MPI_Win_flush_local(rank, win, ierror) integer, intent(in) :: rank @@ -2437,7 +2437,7 @@ end subroutine MPI_Win_flush_local end interface -interface MPI_Win_flush_local_all +interface subroutine MPI_Win_flush_local_all(win, ierror) integer, intent(in) :: win diff --git a/ompi/mpi/fortran/use-mpi-tkr/mpi-f90-removed-interfaces.h b/ompi/mpi/fortran/use-mpi-tkr/mpi-f90-removed-interfaces.h index 48ede9d15e8..cb44e329474 100644 --- a/ompi/mpi/fortran/use-mpi-tkr/mpi-f90-removed-interfaces.h +++ b/ompi/mpi/fortran/use-mpi-tkr/mpi-f90-removed-interfaces.h @@ -10,7 +10,7 @@ ! University of Stuttgart. All rights reserved. ! Copyright (c) 2004-2005 The Regents of the University of California. ! All rights reserved. -! Copyright (c) 2006-2018 Cisco Systems, Inc. All rights reserved. +! Copyright (c) 2006-2021 Cisco Systems, Inc. All rights reserved ! Copyright (c) 2016 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! Copyright (c) 2018 Los Alamos National Security, LLC. All rights @@ -22,7 +22,7 @@ ! $HEADER$ ! -interface MPI_Attr_delete +interface subroutine MPI_Attr_delete(comm, keyval, ierror) integer, intent(in) :: comm @@ -33,7 +33,7 @@ end subroutine MPI_Attr_delete end interface -interface MPI_Attr_get +interface subroutine MPI_Attr_get(comm, keyval, attribute_val, flag, ierror) integer, intent(in) :: comm @@ -46,7 +46,7 @@ end subroutine MPI_Attr_get end interface -interface MPI_Attr_put +interface subroutine MPI_Attr_put(comm, keyval, attribute_val, ierror) integer, intent(in) :: comm @@ -57,7 +57,7 @@ end subroutine MPI_Attr_put end interface -interface MPI_Errhandler_create +interface subroutine MPI_Errhandler_create(function, errhandler, ierror) external :: function @@ -67,7 +67,7 @@ end subroutine MPI_Errhandler_create end interface -interface MPI_Errhandler_get +interface subroutine MPI_Errhandler_get(comm, errhandler, ierror) integer, intent(in) :: comm @@ -78,7 +78,7 @@ end subroutine MPI_Errhandler_get end interface -interface MPI_Errhandler_set +interface subroutine MPI_Errhandler_set(comm, errhandler, ierror) integer, intent(in) :: comm @@ -88,7 +88,7 @@ end subroutine MPI_Errhandler_set end interface -interface MPI_Keyval_create +interface subroutine MPI_Keyval_create(copy_fn, delete_fn, keyval, extra_state, ierror) external :: copy_fn @@ -101,7 +101,7 @@ end subroutine MPI_Keyval_create end interface -interface MPI_Keyval_free +interface subroutine MPI_Keyval_free(keyval, ierror) integer, intent(inout) :: keyval @@ -110,7 +110,7 @@ end subroutine MPI_Keyval_free end interface -interface MPI_Type_extent +interface subroutine MPI_Type_extent(datatype, extent, ierror) integer, intent(in) :: datatype @@ -120,7 +120,7 @@ end subroutine MPI_Type_extent end interface -interface MPI_Type_hindexed +interface subroutine MPI_Type_hindexed(count, array_of_blocklengths, array_of_displacements, oldtype, newtype& , ierror) @@ -135,7 +135,7 @@ end subroutine MPI_Type_hindexed end interface -interface MPI_Type_hvector +interface subroutine MPI_Type_hvector(count, blocklength, stride, oldtype, newtype& , ierror) @@ -149,7 +149,7 @@ end subroutine MPI_Type_hvector end interface -interface MPI_Type_lb +interface subroutine MPI_Type_lb(datatype, lb, ierror) integer, intent(in) :: datatype @@ -159,7 +159,7 @@ end subroutine MPI_Type_lb end interface -interface MPI_Type_struct +interface subroutine MPI_Type_struct(count, array_of_blocklengths, array_of_displacements, array_of_types, newtype& , ierror) @@ -174,7 +174,7 @@ end subroutine MPI_Type_struct end interface -interface MPI_Type_ub +interface subroutine MPI_Type_ub(datatype, ub, ierror) integer, intent(in) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-tkr/mpi-f90-status.h b/ompi/mpi/fortran/use-mpi-tkr/mpi-f90-status.h index 1f75bb46d31..126340c08a3 100644 --- a/ompi/mpi/fortran/use-mpi-tkr/mpi-f90-status.h +++ b/ompi/mpi/fortran/use-mpi-tkr/mpi-f90-status.h @@ -2,6 +2,7 @@ ! ! Copyright (c) 2020 Research Organization for Information Science ! and Technology (RIST). All rights reserved. +! Copyright (c) 2021 Cisco Systems, Inc. All rights reserved ! $COPYRIGHT$ ! ! Additional copyrights may follow @@ -9,7 +10,7 @@ ! $HEADER$ -interface MPI_Status_f082f +interface subroutine MPI_Status_f082f(f08_status, f_status, ierror) use mpi_types @@ -22,7 +23,7 @@ end subroutine MPI_Status_f082f end interface -interface MPI_Status_f2f08 +interface subroutine MPI_Status_f2f08(f_status, f08_status, ierror) use mpi_types diff --git a/ompi/mpi/fortran/use-mpi-tkr/mpi_comm_spawn_multiple_f90.f90 b/ompi/mpi/fortran/use-mpi-tkr/mpi_comm_spawn_multiple_f90.f90 deleted file mode 100644 index 64007d26898..00000000000 --- a/ompi/mpi/fortran/use-mpi-tkr/mpi_comm_spawn_multiple_f90.f90 +++ /dev/null @@ -1,60 +0,0 @@ -! -*- fortran -*- -! -! Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana -! University Research and Technology -! Corporation. All rights reserved. -! Copyright (c) 2004-2005 The University of Tennessee and The University -! of Tennessee Research Foundation. All rights -! reserved. -! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, -! University of Stuttgart. All rights reserved. -! Copyright (c) 2004-2005 The Regents of the University of California. -! All rights reserved. -! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved. -! $COPYRIGHT$ -! -! Additional copyrights may follow -! -! $HEADER$ -! - -subroutine MPI_Comm_spawn_multipleA(count, array_of_commands, array_of_argv, & - array_of_maxprocs, array_of_info, & - root, comm, intercomm, array_of_errcodes, ierror) - include 'mpif-config.h' - integer, intent(in) :: count - character(len=*), dimension(*), intent(in) :: array_of_commands - character(len=*), dimension(count,*), intent(in) :: array_of_argv - integer, dimension(*), intent(in) :: array_of_maxprocs - integer, dimension(*), intent(in) :: array_of_info - integer, intent(in) :: root - integer, intent(in) :: comm - integer, intent(out) :: intercomm - integer, dimension(*), intent(out) :: array_of_errcodes - integer, intent(out) :: ierror - - call MPI_Comm_spawn_multiple(count, array_of_commands, array_of_argv, & - array_of_maxprocs, array_of_info, root, comm, intercomm, & - array_of_errcodes, ierror) -end subroutine MPI_Comm_spawn_multipleA - -subroutine MPI_Comm_spawn_multipleN(count, array_of_commands, array_of_argv, & - array_of_maxprocs, array_of_info, & - root, comm, intercomm, array_of_errcodes, ierror) - include 'mpif-config.h' - integer, intent(in) :: count - character(len=*), dimension(*), intent(in) :: array_of_commands - double precision, intent(in) :: array_of_argv - integer, dimension(*), intent(in) :: array_of_maxprocs - integer, dimension(*), intent(in) :: array_of_info - integer, intent(in) :: root - integer, intent(in) :: comm - integer, intent(out) :: intercomm - integer, dimension(*), intent(out) :: array_of_errcodes - integer, intent(out) :: ierror - - call MPI_Comm_spawn_multiple(count, array_of_commands, array_of_argv, & - array_of_maxprocs, array_of_info, root, comm, intercomm, & - array_of_errcodes, ierror) -end subroutine MPI_Comm_spawn_multipleN - diff --git a/ompi/mpi/fortran/use-mpi-tkr/mpi_testall_f90.f90 b/ompi/mpi/fortran/use-mpi-tkr/mpi_testall_f90.f90 deleted file mode 100644 index c54478f95c6..00000000000 --- a/ompi/mpi/fortran/use-mpi-tkr/mpi_testall_f90.f90 +++ /dev/null @@ -1,43 +0,0 @@ -! -*- fortran -*- -! -! Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana -! University Research and Technology -! Corporation. All rights reserved. -! Copyright (c) 2004-2005 The University of Tennessee and The University -! of Tennessee Research Foundation. All rights -! reserved. -! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, -! University of Stuttgart. All rights reserved. -! Copyright (c) 2004-2005 The Regents of the University of California. -! All rights reserved. -! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved. -! $COPYRIGHT$ -! -! Additional copyrights may follow -! -! $HEADER$ -! - -subroutine MPI_TestallS(count, array_of_requests, flag, array_of_statuses, ierror) - include 'mpif-config.h' - integer, intent(in) :: count - integer, dimension(count), intent(inout) :: array_of_requests - logical, intent(out) :: flag - integer, dimension(MPI_STATUS_SIZE, count), intent(out) :: array_of_statuses - integer, intent(out) :: ierror - - call MPI_Testall(count, array_of_requests, flag, array_of_statuses, ierror) -end subroutine MPI_TestallS - - -subroutine MPI_TestallI(count, array_of_requests, flag, array_of_statuses, ierror) - include 'mpif-config.h' - integer, intent(in) :: count - integer, dimension(count), intent(inout) :: array_of_requests - logical, intent(out) :: flag - double precision, intent(out) :: array_of_statuses - integer, intent(out) :: ierror - - call MPI_Testall(count, array_of_requests, flag, array_of_statuses, ierror) -end subroutine MPI_TestallI - diff --git a/ompi/mpi/fortran/use-mpi-tkr/mpi_testsome_f90.f90 b/ompi/mpi/fortran/use-mpi-tkr/mpi_testsome_f90.f90 deleted file mode 100644 index bd54a27fed4..00000000000 --- a/ompi/mpi/fortran/use-mpi-tkr/mpi_testsome_f90.f90 +++ /dev/null @@ -1,47 +0,0 @@ -! -*- fortran -*- -! -! Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana -! University Research and Technology -! Corporation. All rights reserved. -! Copyright (c) 2004-2005 The University of Tennessee and The University -! of Tennessee Research Foundation. All rights -! reserved. -! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, -! University of Stuttgart. All rights reserved. -! Copyright (c) 2004-2005 The Regents of the University of California. -! All rights reserved. -! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved. -! $COPYRIGHT$ -! -! Additional copyrights may follow -! -! $HEADER$ -! - -subroutine MPI_TestsomeS(incount, array_of_requests, outcount, array_of_indices, array_of_statuses& - , ierror) - include 'mpif-config.h' - integer, intent(in) :: incount - integer, dimension(incount), intent(inout) :: array_of_requests - integer, intent(out) :: outcount - integer, dimension(*), intent(out) :: array_of_indices - integer, dimension(MPI_STATUS_SIZE, incount), intent(out) :: array_of_statuses - integer, intent(out) :: ierror - - call MPI_Testsome(incount, array_of_requests, outcount, array_of_indices, array_of_statuses, ierror) -end subroutine MPI_TestsomeS - - -subroutine MPI_TestsomeI(incount, array_of_requests, outcount, array_of_indices, array_of_statuses& - , ierror) - include 'mpif-config.h' - integer, intent(in) :: incount - integer, dimension(incount), intent(inout) :: array_of_requests - integer, intent(out) :: outcount - integer, dimension(*), intent(out) :: array_of_indices - double precision, intent(out) :: array_of_statuses - integer, intent(out) :: ierror - - call MPI_Testsome(incount, array_of_requests, outcount, array_of_indices, array_of_statuses, ierror) -end subroutine MPI_TestsomeI - diff --git a/ompi/mpi/fortran/use-mpi-tkr/mpi_waitall_f90.f90 b/ompi/mpi/fortran/use-mpi-tkr/mpi_waitall_f90.f90 deleted file mode 100644 index 7a093092ae8..00000000000 --- a/ompi/mpi/fortran/use-mpi-tkr/mpi_waitall_f90.f90 +++ /dev/null @@ -1,39 +0,0 @@ -! -*- fortran -*- -! -! Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana -! University Research and Technology -! Corporation. All rights reserved. -! Copyright (c) 2004-2005 The University of Tennessee and The University -! of Tennessee Research Foundation. All rights -! reserved. -! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, -! University of Stuttgart. All rights reserved. -! Copyright (c) 2004-2005 The Regents of the University of California. -! All rights reserved. -! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved. -! $COPYRIGHT$ -! -! Additional copyrights may follow -! -! $HEADER$ -! - -subroutine MPI_WaitallS(count, array_of_requests, array_of_statuses, ierror) - include 'mpif-config.h' - integer, intent(in) :: count - integer, dimension(count), intent(inout) :: array_of_requests - integer, dimension(MPI_STATUS_SIZE, count), intent(out) :: array_of_statuses - integer, intent(out) :: ierror - call MPI_Waitall(count, array_of_requests, array_of_statuses, ierror) -end subroutine MPI_WaitallS - - -subroutine MPI_WaitallI(count, array_of_requests, array_of_statuses, ierror) - include 'mpif-config.h' - integer, intent(in) :: count - integer, dimension(count), intent(inout) :: array_of_requests - double precision, intent(out) :: array_of_statuses - integer, intent(out) :: ierror - call MPI_Waitall(count, array_of_requests, array_of_statuses, ierror) -end subroutine MPI_WaitallI - diff --git a/ompi/mpi/fortran/use-mpi-tkr/mpi_waitsome_f90.f90 b/ompi/mpi/fortran/use-mpi-tkr/mpi_waitsome_f90.f90 deleted file mode 100644 index cecd5ce4e60..00000000000 --- a/ompi/mpi/fortran/use-mpi-tkr/mpi_waitsome_f90.f90 +++ /dev/null @@ -1,47 +0,0 @@ -! -*- fortran -*- -! -! Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana -! University Research and Technology -! Corporation. All rights reserved. -! Copyright (c) 2004-2005 The University of Tennessee and The University -! of Tennessee Research Foundation. All rights -! reserved. -! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, -! University of Stuttgart. All rights reserved. -! Copyright (c) 2004-2005 The Regents of the University of California. -! All rights reserved. -! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved. -! $COPYRIGHT$ -! -! Additional copyrights may follow -! -! $HEADER$ -! - -subroutine MPI_WaitsomeS(incount, array_of_requests, outcount, array_of_indices, array_of_statuses& - , ierror) - include 'mpif-config.h' - integer, intent(in) :: incount - integer, dimension(incount), intent(inout) :: array_of_requests - integer, intent(out) :: outcount - integer, dimension(*), intent(out) :: array_of_indices - integer, dimension(MPI_STATUS_SIZE, incount), intent(out) :: array_of_statuses - integer, intent(out) :: ierror - - call MPI_Waitsome(incount, array_of_requests, outcount, array_of_indices, array_of_statuses, ierror) -end subroutine MPI_WaitsomeS - - -subroutine MPI_WaitsomeI(incount, array_of_requests, outcount, array_of_indices, array_of_statuses& - , ierror) - include 'mpif-config.h' - integer, intent(in) :: incount - integer, dimension(incount), intent(inout) :: array_of_requests - integer, intent(out) :: outcount - integer, dimension(*), intent(out) :: array_of_indices - double precision, intent(out) :: array_of_statuses - integer, intent(out) :: ierror - - call MPI_Waitsome(incount, array_of_requests, outcount, array_of_indices, array_of_statuses, ierror) -end subroutine MPI_WaitsomeI - diff --git a/ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-status.h b/ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-status.h index d20bd24829e..a34472700d8 100644 --- a/ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-status.h +++ b/ompi/mpi/fortran/use-mpi-tkr/pmpi-f90-status.h @@ -2,6 +2,7 @@ ! ! Copyright (c) 2020 Research Organization for Information Science ! and Technology (RIST). All rights reserved. +! Copyright (c) 2021 Cisco Systems, Inc. All rights reserved ! $COPYRIGHT$ ! ! Additional copyrights may follow @@ -9,7 +10,7 @@ ! $HEADER$ -interface PMPI_Status_f082f +interface subroutine PMPI_Status_f082f(f08_status, f_status, ierror) use mpi_types @@ -22,7 +23,7 @@ end subroutine PMPI_Status_f082f end interface -interface PMPI_Status_f2f08 +interface subroutine PMPI_Status_f2f08(f_status, f08_status, ierror) use mpi_types