From 2798fd82e515aeb492f84fb10b493e9e25a9f00a Mon Sep 17 00:00:00 2001 From: Jeff Squyres Date: Thu, 30 Sep 2021 06:58:43 -0700 Subject: [PATCH 1/2] Fortran mpi module: remove interface names Fortran is a deceptively complicated language. It turns out that it is permissable to pass arrays of many sizes and shapes to subroutines that expect 1-dimensional array parameters. For example, a C programmer might look at the following subroutine declaration and assume that it means that the ARRAY_OF_REQUESTS parameter is a 1-dimensional array of any length: ``` MPI_WAITALL(COUNT, ARRAY_OF_REQUESTS, ARRAY_OF_STATUSES, IERROR) INTEGER COUNT, ARRAY_OF_REQUESTS(*), ARRAY_OF_STATUSES(MPI_STATUS_SIZE, *), IERROR ``` However, rules of the Fortran language allow the compiler to effectively morph non-1-dimensional array source parameters to match, for example, the 1-dimensional ARRAY_OF_REQUESTS dummy parameter. Sometimes this will be done by copy-in-copy-out; other times, the compiler can just swizzle the types to match because the source array data is already contiguous in memory. Regardless, there are several rules about when this type swizzling can happen, and there are differences in the rules between when the target subroutine in question is in a named interface such as: ``` INTERFACE FOO SUBROUTINE FOO(arg) INTEGER ARG(*) END SUBROUTINE FOO END INTERFACE ``` versus when the subroutine is in an unnamed interface such as: ``` INTERFACE SUBROUTINE FOO(arg) INTEGER ARG(*) END SUBROUTINE FOO END INTERFACE ``` I will not pretend to be a Fortran language expert and won't quote the language rules here. The short version is that unnamed interfaces allow more flexible type swizzling. For example, a user can pass a 2-dimensional INTEGER array to MPI_WAITALL's ARRAY_OF_REQUESTS argument, and -- assuming that the 2D array is contiguous in memory -- the compiler will make the 2D array type match the 1D ARRAY_OF_REQUESTS argument. Open MPI will get a contiguous chunk of memory of integers, so it doesn't know/care. The MPI standard does not address this issue at all. I.e., it doesn't say whether passing N-dimensional parameters to subroutines like MPI_WAITALL are permissable or not. It also does not specify whether interfaces need to be used, or if interfaces are used, whether they need to be named or unnamed -- these are all implementation decisions. However, there has been a lot of discussion about this in the Fortran group at the MPI Forum over the last week; there will almost certainly be an errata to MPI-4.0 and/or some text changes in MPI-4.1 to clarify the situation. I'm not going to speculate on the final language that will get accepted by the Forum, but it seems like since Open MPI's implentation decision to use named interfaces is perhaps the most restrictive in terms of compiler swizzling functionality, we should probably ease those restrictions so as not to violate the Law of Least Astonishment from the user's perspective (who would expect that the Fortran compiler will be able to swizzle array sizes and shapes). As such, this commit removes all interface names from the Fortran "mpi" bindings module where there's only a single subroutine in the interface, and that subroutine name exactly matches the interface name. Note that this specifically excludes the following routines, which have multiple subroutines in the interface (for two different types of Fortran pointers): * MPI_Alloc_mem * MPI_Win_allocate * MPI_Win_allocate_shared * MPI_Win_shared_query Deleting the interface names *may* cause ABI implications in some compilers. I have not exhaustively tested Fortran compilers to know if this is an issue or not. The safest thing to do is to implement this change for Open MPI v5.0.0 where we're breaking lots of ABI things as compared to prior versions of Open MPI. Note that this issue does *not* affect the mpi_f08 module. Using named interfaces were distinctly specified in the MPI standard. Also, this doesn't affect mpif.h, because Open MPI doesn't declare most interfaces/subroutines in mpif.h. Signed-off-by: Jeff Squyres --- .../mpi-ignore-tkr-file-interfaces.h.in | 120 ++-- .../mpi-ignore-tkr-interfaces.h.in | 636 +++++++++--------- .../mpi-ignore-tkr-removed-interfaces.h.in | 32 +- .../mpi-ignore-tkr-status.h | 9 +- .../use-mpi-tkr/mpi-f90-cptr-interfaces.h | 5 +- .../fortran/use-mpi-tkr/mpi-f90-interfaces.h | 394 +++++------ .../use-mpi-tkr/mpi-f90-removed-interfaces.h | 30 +- ompi/mpi/fortran/use-mpi-tkr/mpi-f90-status.h | 5 +- .../mpi/fortran/use-mpi-tkr/pmpi-f90-status.h | 5 +- 9 files changed, 623 insertions(+), 613 deletions(-) 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/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/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 From 9865f3aec72d8809643f2fc618daea8ff595e7d4 Mon Sep 17 00:00:00 2001 From: Jeff Squyres Date: Fri, 1 Oct 2021 05:26:18 -0700 Subject: [PATCH 2/2] fortran/use-mpi-tkr: remove old kruft These subroutines are no longer referenced in the "mpi" module interface; remove them. I *believe* that these subroutines may have been kept for ABI / backwards linking compatibility at one point. But for Open MPI v5.0.0, we're breaking ABI, so these old symbols do not need to be maintained any more. Signed-off-by: Jeff Squyres --- ompi/mpi/fortran/use-mpi-tkr/Makefile.am | 7 +-- .../mpi_comm_spawn_multiple_f90.f90 | 60 ------------------- .../fortran/use-mpi-tkr/mpi_testall_f90.f90 | 43 ------------- .../fortran/use-mpi-tkr/mpi_testsome_f90.f90 | 47 --------------- .../fortran/use-mpi-tkr/mpi_waitall_f90.f90 | 39 ------------ .../fortran/use-mpi-tkr/mpi_waitsome_f90.f90 | 47 --------------- 6 files changed, 1 insertion(+), 242 deletions(-) delete mode 100644 ompi/mpi/fortran/use-mpi-tkr/mpi_comm_spawn_multiple_f90.f90 delete mode 100644 ompi/mpi/fortran/use-mpi-tkr/mpi_testall_f90.f90 delete mode 100644 ompi/mpi/fortran/use-mpi-tkr/mpi_testsome_f90.f90 delete mode 100644 ompi/mpi/fortran/use-mpi-tkr/mpi_waitall_f90.f90 delete mode 100644 ompi/mpi/fortran/use-mpi-tkr/mpi_waitsome_f90.f90 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_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 -