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 c736cbf78a..09b15caa20 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 @@ -20,6 +20,16 @@ end subroutine MPI_File_call_errhandler end interface +interface PMPI_File_call_errhandler + +subroutine PMPI_File_call_errhandler(fh, errorcode, ierror) + integer, intent(in) :: fh + integer, intent(in) :: errorcode + integer, intent(out) :: ierror +end subroutine PMPI_File_call_errhandler + +end interface + interface MPI_File_close @@ -30,6 +40,15 @@ end subroutine MPI_File_close end interface +interface PMPI_File_close + +subroutine PMPI_File_close(fh, ierror) + integer, intent(inout) :: fh + integer, intent(out) :: ierror +end subroutine PMPI_File_close + +end interface + interface MPI_File_create_errhandler @@ -41,6 +60,16 @@ end subroutine MPI_File_create_errhandler end interface +interface PMPI_File_create_errhandler + +subroutine PMPI_File_create_errhandler(function, errhandler, ierror) + external :: function + integer, intent(out) :: errhandler + integer, intent(out) :: ierror +end subroutine PMPI_File_create_errhandler + +end interface + interface MPI_File_delete @@ -52,6 +81,16 @@ end subroutine MPI_File_delete end interface +interface PMPI_File_delete + +subroutine PMPI_File_delete(filename, info, ierror) + character(len=*), intent(in) :: filename + integer, intent(in) :: info + integer, intent(out) :: ierror +end subroutine PMPI_File_delete + +end interface + interface MPI_File_get_amode @@ -63,6 +102,16 @@ end subroutine MPI_File_get_amode end interface +interface PMPI_File_get_amode + +subroutine PMPI_File_get_amode(fh, amode, ierror) + integer, intent(in) :: fh + integer, intent(out) :: amode + integer, intent(out) :: ierror +end subroutine PMPI_File_get_amode + +end interface + interface MPI_File_get_atomicity @@ -74,6 +123,16 @@ end subroutine MPI_File_get_atomicity end interface +interface PMPI_File_get_atomicity + +subroutine PMPI_File_get_atomicity(fh, flag, ierror) + integer, intent(in) :: fh + logical, intent(out) :: flag + integer, intent(out) :: ierror +end subroutine PMPI_File_get_atomicity + +end interface + interface MPI_File_get_byte_offset @@ -87,6 +146,18 @@ end subroutine MPI_File_get_byte_offset end interface +interface PMPI_File_get_byte_offset + +subroutine PMPI_File_get_byte_offset(fh, offset, disp, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(in) :: offset + integer(kind=MPI_OFFSET_KIND), intent(out) :: disp + integer, intent(out) :: ierror +end subroutine PMPI_File_get_byte_offset + +end interface + interface MPI_File_get_errhandler @@ -98,6 +169,16 @@ end subroutine MPI_File_get_errhandler end interface +interface PMPI_File_get_errhandler + +subroutine PMPI_File_get_errhandler(file, errhandler, ierror) + integer, intent(in) :: file + integer, intent(out) :: errhandler + integer, intent(out) :: ierror +end subroutine PMPI_File_get_errhandler + +end interface + interface MPI_File_get_group @@ -109,6 +190,16 @@ end subroutine MPI_File_get_group end interface +interface PMPI_File_get_group + +subroutine PMPI_File_get_group(fh, group, ierror) + integer, intent(in) :: fh + integer, intent(out) :: group + integer, intent(out) :: ierror +end subroutine PMPI_File_get_group + +end interface + interface MPI_File_get_info @@ -120,6 +211,16 @@ end subroutine MPI_File_get_info end interface +interface PMPI_File_get_info + +subroutine PMPI_File_get_info(fh, info_used, ierror) + integer, intent(in) :: fh + integer, intent(out) :: info_used + integer, intent(out) :: ierror +end subroutine PMPI_File_get_info + +end interface + interface MPI_File_get_position @@ -132,6 +233,17 @@ end subroutine MPI_File_get_position end interface +interface PMPI_File_get_position + +subroutine PMPI_File_get_position(fh, offset, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(out) :: offset + integer, intent(out) :: ierror +end subroutine PMPI_File_get_position + +end interface + interface MPI_File_get_position_shared @@ -144,6 +256,17 @@ end subroutine MPI_File_get_position_shared end interface +interface PMPI_File_get_position_shared + +subroutine PMPI_File_get_position_shared(fh, offset, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(out) :: offset + integer, intent(out) :: ierror +end subroutine PMPI_File_get_position_shared + +end interface + interface MPI_File_get_size @@ -156,6 +279,17 @@ end subroutine MPI_File_get_size end interface +interface PMPI_File_get_size + +subroutine PMPI_File_get_size(fh, size, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_File_get_size + +end interface + interface MPI_File_get_type_extent @@ -169,6 +303,18 @@ end subroutine MPI_File_get_type_extent end interface +interface PMPI_File_get_type_extent + +subroutine PMPI_File_get_type_extent(fh, datatype, extent, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer, intent(in) :: datatype + integer(kind=MPI_ADDRESS_KIND), intent(out) :: extent + integer, intent(out) :: ierror +end subroutine PMPI_File_get_type_extent + +end interface + interface MPI_File_get_view @@ -185,6 +331,21 @@ end subroutine MPI_File_get_view end interface +interface PMPI_File_get_view + +subroutine PMPI_File_get_view(fh, disp, etype, filetype, datarep& + , ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(out) :: disp + integer, intent(out) :: etype + integer, intent(out) :: filetype + character(len=*), intent(out) :: datarep + integer, intent(out) :: ierror +end subroutine PMPI_File_get_view + +end interface + interface MPI_File_iread @@ -201,6 +362,21 @@ end subroutine MPI_File_iread end interface +interface PMPI_File_iread + +subroutine PMPI_File_iread(fh, buf, count, datatype, request& + , ierror) + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_File_iread + +end interface + interface MPI_File_iread_at @@ -219,6 +395,23 @@ end subroutine MPI_File_iread_at end interface +interface PMPI_File_iread_at + +subroutine PMPI_File_iread_at(fh, offset, buf, count, datatype, & + request, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(in) :: offset + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_File_iread_at + +end interface + interface MPI_File_iread_shared @@ -235,6 +428,21 @@ end subroutine MPI_File_iread_shared end interface +interface PMPI_File_iread_shared + +subroutine PMPI_File_iread_shared(fh, buf, count, datatype, request& + , ierror) + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_File_iread_shared + +end interface + interface MPI_File_iwrite @@ -251,6 +459,21 @@ end subroutine MPI_File_iwrite end interface +interface PMPI_File_iwrite + +subroutine PMPI_File_iwrite(fh, buf, count, datatype, request& + , ierror) + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_File_iwrite + +end interface + interface MPI_File_iwrite_at @@ -269,6 +492,23 @@ end subroutine MPI_File_iwrite_at end interface +interface PMPI_File_iwrite_at + +subroutine PMPI_File_iwrite_at(fh, offset, buf, count, datatype, & + request, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(in) :: offset + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_File_iwrite_at + +end interface + interface MPI_File_iwrite_shared @@ -285,6 +525,21 @@ end subroutine MPI_File_iwrite_shared end interface +interface PMPI_File_iwrite_shared + +subroutine PMPI_File_iwrite_shared(fh, buf, count, datatype, request& + , ierror) + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_File_iwrite_shared + +end interface + interface MPI_File_open @@ -300,6 +555,20 @@ end subroutine MPI_File_open end interface +interface PMPI_File_open + +subroutine PMPI_File_open(comm, filename, amode, info, fh& + , ierror) + integer, intent(in) :: comm + character(len=*), intent(in) :: filename + integer, intent(in) :: amode + integer, intent(in) :: info + integer, intent(out) :: fh + integer, intent(out) :: ierror +end subroutine PMPI_File_open + +end interface + interface MPI_File_preallocate @@ -312,6 +581,17 @@ end subroutine MPI_File_preallocate end interface +interface PMPI_File_preallocate + +subroutine PMPI_File_preallocate(fh, size, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(in) :: size + integer, intent(out) :: ierror +end subroutine PMPI_File_preallocate + +end interface + interface MPI_File_read @@ -329,6 +609,22 @@ end subroutine MPI_File_read end interface +interface PMPI_File_read + +subroutine PMPI_File_read(fh, buf, count, datatype, status& + , ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_read + +end interface + interface MPI_File_read_all @@ -346,6 +642,22 @@ end subroutine MPI_File_read_all end interface +interface PMPI_File_read_all + +subroutine PMPI_File_read_all(fh, buf, count, datatype, status& + , ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_read_all + +end interface + interface MPI_File_read_all_begin @@ -360,6 +672,19 @@ end subroutine MPI_File_read_all_begin end interface +interface PMPI_File_read_all_begin + +subroutine PMPI_File_read_all_begin(fh, buf, count, datatype, ierror) + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(out) :: ierror +end subroutine PMPI_File_read_all_begin + +end interface + interface MPI_File_read_all_end @@ -374,6 +699,19 @@ end subroutine MPI_File_read_all_end end interface +interface PMPI_File_read_all_end + +subroutine PMPI_File_read_all_end(fh, buf, status, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_read_all_end + +end interface + interface MPI_File_read_at @@ -392,6 +730,23 @@ end subroutine MPI_File_read_at end interface +interface PMPI_File_read_at + +subroutine PMPI_File_read_at(fh, offset, buf, count, datatype, & + status, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(in) :: offset + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_read_at + +end interface + interface MPI_File_read_at_all @@ -410,6 +765,23 @@ end subroutine MPI_File_read_at_all end interface +interface PMPI_File_read_at_all + +subroutine PMPI_File_read_at_all(fh, offset, buf, count, datatype, & + status, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(in) :: offset + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_read_at_all + +end interface + interface MPI_File_read_at_all_begin @@ -427,6 +799,22 @@ end subroutine MPI_File_read_at_all_begin end interface +interface PMPI_File_read_at_all_begin + +subroutine PMPI_File_read_at_all_begin(fh, offset, buf, count, datatype& + , ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(in) :: offset + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(out) :: ierror +end subroutine PMPI_File_read_at_all_begin + +end interface + interface MPI_File_read_at_all_end @@ -441,6 +829,19 @@ end subroutine MPI_File_read_at_all_end end interface +interface PMPI_File_read_at_all_end + +subroutine PMPI_File_read_at_all_end(fh, buf, status, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_read_at_all_end + +end interface + interface MPI_File_read_ordered @@ -458,6 +859,22 @@ end subroutine MPI_File_read_ordered end interface +interface PMPI_File_read_ordered + +subroutine PMPI_File_read_ordered(fh, buf, count, datatype, status& + , ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_read_ordered + +end interface + interface MPI_File_read_ordered_begin @@ -472,6 +889,19 @@ end subroutine MPI_File_read_ord_begin end interface +interface PMPI_File_read_ordered_begin + +subroutine PMPI_File_read_ord_begin(fh, buf, count, datatype, ierror) + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(out) :: ierror +end subroutine PMPI_File_read_ord_begin + +end interface + interface MPI_File_read_ordered_end @@ -486,6 +916,19 @@ end subroutine MPI_File_read_ordered_end end interface +interface PMPI_File_read_ordered_end + +subroutine PMPI_File_read_ordered_end(fh, buf, status, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_read_ordered_end + +end interface + interface MPI_File_read_shared @@ -503,6 +946,22 @@ end subroutine MPI_File_read_shared end interface +interface PMPI_File_read_shared + +subroutine PMPI_File_read_shared(fh, buf, count, datatype, status& + , ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_read_shared + +end interface + interface MPI_File_seek @@ -516,6 +975,18 @@ end subroutine MPI_File_seek end interface +interface PMPI_File_seek + +subroutine PMPI_File_seek(fh, offset, whence, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(in) :: offset + integer, intent(in) :: whence + integer, intent(out) :: ierror +end subroutine PMPI_File_seek + +end interface + interface MPI_File_seek_shared @@ -529,6 +1000,18 @@ end subroutine MPI_File_seek_shared end interface +interface PMPI_File_seek_shared + +subroutine PMPI_File_seek_shared(fh, offset, whence, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(in) :: offset + integer, intent(in) :: whence + integer, intent(out) :: ierror +end subroutine PMPI_File_seek_shared + +end interface + interface MPI_File_set_atomicity @@ -540,6 +1023,16 @@ end subroutine MPI_File_set_atomicity end interface +interface PMPI_File_set_atomicity + +subroutine PMPI_File_set_atomicity(fh, flag, ierror) + integer, intent(in) :: fh + logical, intent(in) :: flag + integer, intent(out) :: ierror +end subroutine PMPI_File_set_atomicity + +end interface + interface MPI_File_set_errhandler @@ -551,6 +1044,16 @@ end subroutine MPI_File_set_errhandler end interface +interface PMPI_File_set_errhandler + +subroutine PMPI_File_set_errhandler(file, errhandler, ierror) + integer, intent(in) :: file + integer, intent(in) :: errhandler + integer, intent(out) :: ierror +end subroutine PMPI_File_set_errhandler + +end interface + interface MPI_File_set_info @@ -562,6 +1065,16 @@ end subroutine MPI_File_set_info end interface +interface PMPI_File_set_info + +subroutine PMPI_File_set_info(fh, info, ierror) + integer, intent(in) :: fh + integer, intent(in) :: info + integer, intent(out) :: ierror +end subroutine PMPI_File_set_info + +end interface + interface MPI_File_set_size @@ -574,6 +1087,17 @@ end subroutine MPI_File_set_size end interface +interface PMPI_File_set_size + +subroutine PMPI_File_set_size(fh, size, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(in) :: size + integer, intent(out) :: ierror +end subroutine PMPI_File_set_size + +end interface + interface MPI_File_set_view @@ -591,6 +1115,22 @@ end subroutine MPI_File_set_view end interface +interface PMPI_File_set_view + +subroutine PMPI_File_set_view(fh, disp, etype, filetype, datarep, & + info, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(in) :: disp + integer, intent(in) :: etype + integer, intent(in) :: filetype + character(len=*), intent(in) :: datarep + integer, intent(in) :: info + integer, intent(out) :: ierror +end subroutine PMPI_File_set_view + +end interface + interface MPI_File_sync @@ -601,6 +1141,15 @@ end subroutine MPI_File_sync end interface +interface PMPI_File_sync + +subroutine PMPI_File_sync(fh, ierror) + integer, intent(in) :: fh + integer, intent(out) :: ierror +end subroutine PMPI_File_sync + +end interface + interface MPI_File_write @@ -618,6 +1167,22 @@ end subroutine MPI_File_write end interface +interface PMPI_File_write + +subroutine PMPI_File_write(fh, buf, count, datatype, status& + , ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_write + +end interface + interface MPI_File_write_all @@ -635,6 +1200,22 @@ end subroutine MPI_File_write_all end interface +interface PMPI_File_write_all + +subroutine PMPI_File_write_all(fh, buf, count, datatype, status& + , ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_write_all + +end interface + interface MPI_File_write_all_begin @@ -649,6 +1230,19 @@ end subroutine MPI_File_write_all_begin end interface +interface PMPI_File_write_all_begin + +subroutine PMPI_File_write_all_begin(fh, buf, count, datatype, ierror) + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(out) :: ierror +end subroutine PMPI_File_write_all_begin + +end interface + interface MPI_File_write_all_end @@ -663,6 +1257,19 @@ end subroutine MPI_File_write_all_end end interface +interface PMPI_File_write_all_end + +subroutine PMPI_File_write_all_end(fh, buf, status, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_write_all_end + +end interface + interface MPI_File_write_at @@ -681,6 +1288,23 @@ end subroutine MPI_File_write_at end interface +interface PMPI_File_write_at + +subroutine PMPI_File_write_at(fh, offset, buf, count, datatype, & + status, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(in) :: offset + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_write_at + +end interface + interface MPI_File_write_at_all @@ -699,6 +1323,23 @@ end subroutine MPI_File_write_at_all end interface +interface PMPI_File_write_at_all + +subroutine PMPI_File_write_at_all(fh, offset, buf, count, datatype, & + status, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(in) :: offset + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_write_at_all + +end interface + interface MPI_File_write_at_all_begin @@ -716,6 +1357,22 @@ end subroutine MPI_File_wr_at_all_begin end interface +interface PMPI_File_write_at_all_begin + +subroutine PMPI_File_wr_at_all_begin(fh, offset, buf, count, datatype& + , ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + integer(kind=MPI_OFFSET_KIND), intent(in) :: offset + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(out) :: ierror +end subroutine PMPI_File_wr_at_all_begin + +end interface + interface MPI_File_write_at_all_end @@ -730,6 +1387,19 @@ end subroutine MPI_File_write_at_all_end end interface +interface PMPI_File_write_at_all_end + +subroutine PMPI_File_write_at_all_end(fh, buf, status, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_write_at_all_end + +end interface + interface MPI_File_write_ordered @@ -747,6 +1417,22 @@ end subroutine MPI_File_write_ordered end interface +interface PMPI_File_write_ordered + +subroutine PMPI_File_write_ordered(fh, buf, count, datatype, status& + , ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_write_ordered + +end interface + interface MPI_File_write_ordered_begin @@ -761,6 +1447,19 @@ end subroutine MPI_File_write_ordered_begin end interface +interface PMPI_File_write_ordered_begin + +subroutine PMPI_File_write_ordered_begin(fh, buf, count, datatype, ierror) + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(out) :: ierror +end subroutine PMPI_File_write_ordered_begin + +end interface + interface MPI_File_write_ordered_end @@ -775,6 +1474,19 @@ end subroutine MPI_File_write_ordered_end end interface +interface PMPI_File_write_ordered_end + +subroutine PMPI_File_write_ordered_end(fh, buf, status, ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_write_ordered_end + +end interface + interface MPI_File_write_shared @@ -791,3 +1503,19 @@ subroutine MPI_File_write_shared(fh, buf, count, datatype, status& end subroutine MPI_File_write_shared end interface + +interface PMPI_File_write_shared + +subroutine PMPI_File_write_shared(fh, buf, count, datatype, status& + , ierror) + include 'mpif-config.h' + integer, intent(in) :: fh + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_File_write_shared + +end interface 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 5404dcc66f..b0f2336b38 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 @@ -26,6 +26,16 @@ end subroutine MPI_Abort end interface +interface PMPI_Abort + +subroutine PMPI_Abort(comm, errorcode, ierror) + integer, intent(in) :: comm + integer, intent(in) :: errorcode + integer, intent(out) :: ierror +end subroutine PMPI_Abort + +end interface + interface MPI_Accumulate @@ -47,6 +57,26 @@ end subroutine MPI_Accumulate end interface +interface PMPI_Accumulate + +subroutine PMPI_Accumulate(origin_addr, origin_count, origin_datatype, target_rank, target_disp, & + target_count, target_datatype, op, win, ierror) + include 'mpif-config.h' + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ origin_addr + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: origin_addr + integer, intent(in) :: origin_count + integer, intent(in) :: origin_datatype + integer, intent(in) :: target_rank + integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp + integer, intent(in) :: target_count + integer, intent(in) :: target_datatype + integer, intent(in) :: op + integer, intent(in) :: win + integer, intent(out) :: ierror +end subroutine PMPI_Accumulate + +end interface + interface MPI_Add_error_class @@ -57,6 +87,15 @@ end subroutine MPI_Add_error_class end interface +interface PMPI_Add_error_class + +subroutine PMPI_Add_error_class(errorclass, ierror) + integer, intent(out) :: errorclass + integer, intent(out) :: ierror +end subroutine PMPI_Add_error_class + +end interface + interface MPI_Add_error_code @@ -68,6 +107,16 @@ end subroutine MPI_Add_error_code end interface +interface PMPI_Add_error_code + +subroutine PMPI_Add_error_code(errorclass, errorcode, ierror) + integer, intent(in) :: errorclass + integer, intent(out) :: errorcode + integer, intent(out) :: ierror +end subroutine PMPI_Add_error_code + +end interface + interface MPI_Add_error_string @@ -79,6 +128,16 @@ end subroutine MPI_Add_error_string end interface +interface PMPI_Add_error_string + +subroutine PMPI_Add_error_string(errorcode, string, ierror) + integer, intent(in) :: errorcode + character(len=*), intent(in) :: string + integer, intent(out) :: ierror +end subroutine PMPI_Add_error_string + +end interface + interface MPI_Address @@ -91,6 +150,17 @@ end subroutine MPI_Address end interface +interface PMPI_Address + +subroutine PMPI_Address(location, address, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ location + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: location + integer, intent(out) :: address + integer, intent(out) :: ierror +end subroutine PMPI_Address + +end interface + interface MPI_Allgather @@ -110,6 +180,24 @@ end subroutine MPI_Allgather end interface +interface PMPI_Allgather + +subroutine PMPI_Allgather(sendbuf, sendcount, sendtype, recvbuf, recvcount, & + recvtype, comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: recvcount + integer, intent(in) :: recvtype + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Allgather + +end interface + interface MPI_Allgatherv @@ -130,6 +218,25 @@ end subroutine MPI_Allgatherv end interface +interface PMPI_Allgatherv + +subroutine PMPI_Allgatherv(sendbuf, sendcount, sendtype, recvbuf, recvcounts, & + displs, recvtype, comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, dimension(*), intent(in) :: recvcounts + integer, dimension(*), intent(in) :: displs + integer, intent(in) :: recvtype + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Allgatherv + +end interface + interface MPI_Alloc_mem @@ -143,6 +250,18 @@ end subroutine MPI_Alloc_mem end interface +interface PMPI_Alloc_mem + +subroutine PMPI_Alloc_mem(size, info, baseptr, ierror) + include 'mpif-config.h' + integer(kind=MPI_ADDRESS_KIND), intent(in) :: size + integer, intent(in) :: info + integer(kind=MPI_ADDRESS_KIND), intent(out) :: baseptr + integer, intent(out) :: ierror +end subroutine PMPI_Alloc_mem + +end interface + interface MPI_Allreduce @@ -161,6 +280,23 @@ end subroutine MPI_Allreduce end interface +interface PMPI_Allreduce + +subroutine PMPI_Allreduce(sendbuf, recvbuf, count, datatype, op, & + comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: op + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Allreduce + +end interface + interface MPI_Alltoall @@ -180,6 +316,24 @@ end subroutine MPI_Alltoall end interface +interface PMPI_Alltoall + +subroutine PMPI_Alltoall(sendbuf, sendcount, sendtype, recvbuf, recvcount, & + recvtype, comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: recvcount + integer, intent(in) :: recvtype + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Alltoall + +end interface + interface MPI_Alltoallv @@ -201,6 +355,26 @@ end subroutine MPI_Alltoallv end interface +interface PMPI_Alltoallv + +subroutine PMPI_Alltoallv(sendbuf, sendcounts, sdispls, sendtype, recvbuf, & + recvcounts, rdispls, recvtype, comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, dimension(*), intent(in) :: sendcounts + integer, dimension(*), intent(in) :: sdispls + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, dimension(*), intent(in) :: recvcounts + integer, dimension(*), intent(in) :: rdispls + integer, intent(in) :: recvtype + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Alltoallv + +end interface + interface MPI_Alltoallw @@ -222,6 +396,26 @@ end subroutine MPI_Alltoallw end interface +interface PMPI_Alltoallw + +subroutine PMPI_Alltoallw(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, & + recvcounts, rdispls, recvtypes, comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, dimension(*), intent(in) :: sendcounts + integer, dimension(*), intent(in) :: sdispls + integer, dimension(*), intent(in) :: sendtypes + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, dimension(*), intent(in) :: recvcounts + integer, dimension(*), intent(in) :: rdispls + integer, dimension(*), intent(in) :: recvtypes + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Alltoallw + +end interface + interface MPI_Attr_delete @@ -233,6 +427,16 @@ end subroutine MPI_Attr_delete end interface +interface PMPI_Attr_delete + +subroutine PMPI_Attr_delete(comm, keyval, ierror) + integer, intent(in) :: comm + integer, intent(in) :: keyval + integer, intent(out) :: ierror +end subroutine PMPI_Attr_delete + +end interface + interface MPI_Attr_get @@ -246,6 +450,18 @@ end subroutine MPI_Attr_get end interface +interface PMPI_Attr_get + +subroutine PMPI_Attr_get(comm, keyval, attribute_val, flag, ierror) + integer, intent(in) :: comm + integer, intent(in) :: keyval + integer, intent(out) :: attribute_val + logical, intent(out) :: flag + integer, intent(out) :: ierror +end subroutine PMPI_Attr_get + +end interface + interface MPI_Attr_put @@ -258,6 +474,17 @@ end subroutine MPI_Attr_put end interface +interface PMPI_Attr_put + +subroutine PMPI_Attr_put(comm, keyval, attribute_val, ierror) + integer, intent(in) :: comm + integer, intent(in) :: keyval + integer, intent(in) :: attribute_val + integer, intent(out) :: ierror +end subroutine PMPI_Attr_put + +end interface + interface MPI_Barrier @@ -268,6 +495,15 @@ end subroutine MPI_Barrier end interface +interface PMPI_Barrier + +subroutine PMPI_Barrier(comm, ierror) + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Barrier + +end interface + interface MPI_Bcast @@ -284,6 +520,21 @@ end subroutine MPI_Bcast end interface +interface PMPI_Bcast + +subroutine PMPI_Bcast(buffer, count, datatype, root, comm& + , ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buffer + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buffer + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: root + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Bcast + +end interface + interface MPI_Bsend @@ -301,6 +552,22 @@ end subroutine MPI_Bsend end interface +interface PMPI_Bsend + +subroutine PMPI_Bsend(buf, count, datatype, dest, tag, & + comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: dest + integer, intent(in) :: tag + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Bsend + +end interface + interface MPI_Bsend_init @@ -319,6 +586,23 @@ end subroutine MPI_Bsend_init end interface +interface PMPI_Bsend_init + +subroutine PMPI_Bsend_init(buf, count, datatype, dest, tag, & + comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: dest + integer, intent(in) :: tag + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Bsend_init + +end interface + interface MPI_Buffer_attach @@ -331,6 +615,17 @@ end subroutine MPI_Buffer_attach end interface +interface PMPI_Buffer_attach + +subroutine PMPI_Buffer_attach(buffer, size, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buffer + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buffer + integer, intent(in) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Buffer_attach + +end interface + interface MPI_Buffer_detach @@ -343,6 +638,17 @@ end subroutine MPI_Buffer_detach end interface +interface PMPI_Buffer_detach + +subroutine PMPI_Buffer_detach(buffer, size, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buffer + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buffer + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Buffer_detach + +end interface + interface MPI_Cancel @@ -353,6 +659,15 @@ end subroutine MPI_Cancel end interface +interface PMPI_Cancel + +subroutine PMPI_Cancel(request, ierror) + integer, intent(in) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Cancel + +end interface + interface MPI_Cart_coords @@ -366,6 +681,18 @@ end subroutine MPI_Cart_coords end interface +interface PMPI_Cart_coords + +subroutine PMPI_Cart_coords(comm, rank, maxdims, coords, ierror) + integer, intent(in) :: comm + integer, intent(in) :: rank + integer, intent(in) :: maxdims + integer, dimension(*), intent(out) :: coords + integer, intent(out) :: ierror +end subroutine PMPI_Cart_coords + +end interface + interface MPI_Cart_create @@ -382,6 +709,21 @@ end subroutine MPI_Cart_create end interface +interface PMPI_Cart_create + +subroutine PMPI_Cart_create(old_comm, ndims, dims, periods, reorder, & + comm_cart, ierror) + integer, intent(in) :: old_comm + integer, intent(in) :: ndims + integer, dimension(*), intent(in) :: dims + logical, dimension(*), intent(in) :: periods + logical, intent(in) :: reorder + integer, intent(out) :: comm_cart + integer, intent(out) :: ierror +end subroutine PMPI_Cart_create + +end interface + interface MPI_Cart_get @@ -397,6 +739,20 @@ end subroutine MPI_Cart_get end interface +interface PMPI_Cart_get + +subroutine PMPI_Cart_get(comm, maxdims, dims, periods, coords& + , ierror) + integer, intent(in) :: comm + integer, intent(in) :: maxdims + integer, dimension(*), intent(out) :: dims + logical, dimension(*), intent(out) :: periods + integer, dimension(*), intent(out) :: coords + integer, intent(out) :: ierror +end subroutine PMPI_Cart_get + +end interface + interface MPI_Cart_map @@ -412,6 +768,20 @@ end subroutine MPI_Cart_map end interface +interface PMPI_Cart_map + +subroutine PMPI_Cart_map(comm, ndims, dims, periods, newrank& + , ierror) + integer, intent(in) :: comm + integer, intent(in) :: ndims + integer, dimension(*), intent(in) :: dims + logical, dimension(*), intent(in) :: periods + integer, intent(out) :: newrank + integer, intent(out) :: ierror +end subroutine PMPI_Cart_map + +end interface + interface MPI_Cart_rank @@ -424,6 +794,17 @@ end subroutine MPI_Cart_rank end interface +interface PMPI_Cart_rank + +subroutine PMPI_Cart_rank(comm, coords, rank, ierror) + integer, intent(in) :: comm + integer, dimension(*), intent(in) :: coords + integer, intent(out) :: rank + integer, intent(out) :: ierror +end subroutine PMPI_Cart_rank + +end interface + interface MPI_Cart_shift @@ -439,6 +820,20 @@ end subroutine MPI_Cart_shift end interface +interface PMPI_Cart_shift + +subroutine PMPI_Cart_shift(comm, direction, disp, rank_source, rank_dest& + , ierror) + integer, intent(in) :: comm + integer, intent(in) :: direction + integer, intent(in) :: disp + integer, intent(out) :: rank_source + integer, intent(out) :: rank_dest + integer, intent(out) :: ierror +end subroutine PMPI_Cart_shift + +end interface + interface MPI_Cart_sub @@ -451,6 +846,17 @@ end subroutine MPI_Cart_sub end interface +interface PMPI_Cart_sub + +subroutine PMPI_Cart_sub(comm, remain_dims, new_comm, ierror) + integer, intent(in) :: comm + logical, dimension(*), intent(in) :: remain_dims + integer, intent(out) :: new_comm + integer, intent(out) :: ierror +end subroutine PMPI_Cart_sub + +end interface + interface MPI_Cartdim_get @@ -462,6 +868,16 @@ end subroutine MPI_Cartdim_get end interface +interface PMPI_Cartdim_get + +subroutine PMPI_Cartdim_get(comm, ndims, ierror) + integer, intent(in) :: comm + integer, intent(out) :: ndims + integer, intent(out) :: ierror +end subroutine PMPI_Cartdim_get + +end interface + interface MPI_Close_port @@ -472,6 +888,15 @@ end subroutine MPI_Close_port end interface +interface PMPI_Close_port + +subroutine PMPI_Close_port(port_name, ierror) + character(len=*), intent(in) :: port_name + integer, intent(out) :: ierror +end subroutine PMPI_Close_port + +end interface + interface MPI_Comm_accept @@ -487,6 +912,20 @@ end subroutine MPI_Comm_accept end interface +interface PMPI_Comm_accept + +subroutine PMPI_Comm_accept(port_name, info, root, comm, newcomm& + , ierror) + character(len=*), intent(in) :: port_name + integer, intent(in) :: info + integer, intent(in) :: root + integer, intent(in) :: comm + integer, intent(out) :: newcomm + integer, intent(out) :: ierror +end subroutine PMPI_Comm_accept + +end interface + interface MPI_Comm_call_errhandler @@ -498,6 +937,16 @@ end subroutine MPI_Comm_call_errhandler end interface +interface PMPI_Comm_call_errhandler + +subroutine PMPI_Comm_call_errhandler(comm, errorcode, ierror) + integer, intent(in) :: comm + integer, intent(in) :: errorcode + integer, intent(out) :: ierror +end subroutine PMPI_Comm_call_errhandler + +end interface + interface MPI_Comm_compare @@ -510,6 +959,17 @@ end subroutine MPI_Comm_compare end interface +interface PMPI_Comm_compare + +subroutine PMPI_Comm_compare(comm1, comm2, result, ierror) + integer, intent(in) :: comm1 + integer, intent(in) :: comm2 + integer, intent(out) :: result + integer, intent(out) :: ierror +end subroutine PMPI_Comm_compare + +end interface + interface MPI_Comm_connect @@ -525,6 +985,20 @@ end subroutine MPI_Comm_connect end interface +interface PMPI_Comm_connect + +subroutine PMPI_Comm_connect(port_name, info, root, comm, newcomm& + , ierror) + character(len=*), intent(in) :: port_name + integer, intent(in) :: info + integer, intent(in) :: root + integer, intent(in) :: comm + integer, intent(out) :: newcomm + integer, intent(out) :: ierror +end subroutine PMPI_Comm_connect + +end interface + interface MPI_Comm_create @@ -549,6 +1023,17 @@ end subroutine MPI_Comm_create_group end interface +interface PMPI_Comm_create + +subroutine PMPI_Comm_create(comm, group, newcomm, ierror) + integer, intent(in) :: comm + integer, intent(in) :: group + integer, intent(out) :: newcomm + integer, intent(out) :: ierror +end subroutine PMPI_Comm_create + +end interface + interface MPI_Comm_create_errhandler @@ -560,6 +1045,16 @@ end subroutine MPI_Comm_create_errhandler end interface +interface PMPI_Comm_create_errhandler + +subroutine PMPI_Comm_create_errhandler(function, errhandler, ierror) + external :: function + integer, intent(out) :: errhandler + integer, intent(out) :: ierror +end subroutine PMPI_Comm_create_errhandler + +end interface + interface MPI_Comm_create_keyval @@ -574,6 +1069,19 @@ end subroutine MPI_Comm_create_keyval end interface +interface PMPI_Comm_create_keyval + +subroutine PMPI_Comm_create_keyval(comm_copy_attr_fn, comm_delete_attr_fn, comm_keyval, extra_state, ierror) + include 'mpif-config.h' + external :: comm_copy_attr_fn + external :: comm_delete_attr_fn + integer, intent(out) :: comm_keyval + integer(kind=MPI_ADDRESS_KIND), intent(in) :: extra_state + integer, intent(out) :: ierror +end subroutine PMPI_Comm_create_keyval + +end interface + interface MPI_Comm_delete_attr @@ -585,6 +1093,16 @@ end subroutine MPI_Comm_delete_attr end interface +interface PMPI_Comm_delete_attr + +subroutine PMPI_Comm_delete_attr(comm, comm_keyval, ierror) + integer, intent(in) :: comm + integer, intent(in) :: comm_keyval + integer, intent(out) :: ierror +end subroutine PMPI_Comm_delete_attr + +end interface + interface MPI_Comm_disconnect @@ -595,6 +1113,15 @@ end subroutine MPI_Comm_disconnect end interface +interface PMPI_Comm_disconnect + +subroutine PMPI_Comm_disconnect(comm, ierror) + integer, intent(inout) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Comm_disconnect + +end interface + interface MPI_Comm_dup @@ -628,6 +1155,16 @@ end subroutine MPI_Comm_idup end interface +interface PMPI_Comm_dup + +subroutine PMPI_Comm_dup(comm, newcomm, ierror) + integer, intent(in) :: comm + integer, intent(out) :: newcomm + integer, intent(out) :: ierror +end subroutine PMPI_Comm_dup + +end interface + interface MPI_Comm_free @@ -638,6 +1175,15 @@ end subroutine MPI_Comm_free end interface +interface PMPI_Comm_free + +subroutine PMPI_Comm_free(comm, ierror) + integer, intent(inout) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Comm_free + +end interface + interface MPI_Comm_free_keyval @@ -648,6 +1194,15 @@ end subroutine MPI_Comm_free_keyval end interface +interface PMPI_Comm_free_keyval + +subroutine PMPI_Comm_free_keyval(comm_keyval, ierror) + integer, intent(inout) :: comm_keyval + integer, intent(out) :: ierror +end subroutine PMPI_Comm_free_keyval + +end interface + interface MPI_Comm_get_attr @@ -662,6 +1217,19 @@ end subroutine MPI_Comm_get_attr end interface +interface PMPI_Comm_get_attr + +subroutine PMPI_Comm_get_attr(comm, comm_keyval, attribute_val, flag, ierror) + include 'mpif-config.h' + integer, intent(in) :: comm + integer, intent(in) :: comm_keyval + integer(kind=MPI_ADDRESS_KIND), intent(out) :: attribute_val + logical, intent(out) :: flag + integer, intent(out) :: ierror +end subroutine PMPI_Comm_get_attr + +end interface + interface MPI_Comm_get_errhandler @@ -673,6 +1241,16 @@ end subroutine MPI_Comm_get_errhandler end interface +interface PMPI_Comm_get_errhandler + +subroutine PMPI_Comm_get_errhandler(comm, erhandler, ierror) + integer, intent(in) :: comm + integer, intent(out) :: erhandler + integer, intent(out) :: ierror +end subroutine PMPI_Comm_get_errhandler + +end interface + interface MPI_Comm_get_name @@ -685,6 +1263,17 @@ end subroutine MPI_Comm_get_name end interface +interface PMPI_Comm_get_name + +subroutine PMPI_Comm_get_name(comm, comm_name, resultlen, ierror) + integer, intent(in) :: comm + character(len=*), intent(out) :: comm_name + integer, intent(out) :: resultlen + integer, intent(out) :: ierror +end subroutine PMPI_Comm_get_name + +end interface + interface MPI_Comm_get_parent @@ -695,6 +1284,15 @@ end subroutine MPI_Comm_get_parent end interface +interface PMPI_Comm_get_parent + +subroutine PMPI_Comm_get_parent(parent, ierror) + integer, intent(out) :: parent + integer, intent(out) :: ierror +end subroutine PMPI_Comm_get_parent + +end interface + interface MPI_Comm_group @@ -706,6 +1304,16 @@ end subroutine MPI_Comm_group end interface +interface PMPI_Comm_group + +subroutine PMPI_Comm_group(comm, group, ierror) + integer, intent(in) :: comm + integer, intent(out) :: group + integer, intent(out) :: ierror +end subroutine PMPI_Comm_group + +end interface + interface MPI_Comm_join @@ -717,6 +1325,16 @@ end subroutine MPI_Comm_join end interface +interface PMPI_Comm_join + +subroutine PMPI_Comm_join(fd, intercomm, ierror) + integer, intent(in) :: fd + integer, intent(out) :: intercomm + integer, intent(out) :: ierror +end subroutine PMPI_Comm_join + +end interface + interface MPI_Comm_rank @@ -728,6 +1346,16 @@ end subroutine MPI_Comm_rank end interface +interface PMPI_Comm_rank + +subroutine PMPI_Comm_rank(comm, rank, ierror) + integer, intent(in) :: comm + integer, intent(out) :: rank + integer, intent(out) :: ierror +end subroutine PMPI_Comm_rank + +end interface + interface MPI_Comm_remote_group @@ -739,6 +1367,16 @@ end subroutine MPI_Comm_remote_group end interface +interface PMPI_Comm_remote_group + +subroutine PMPI_Comm_remote_group(comm, group, ierror) + integer, intent(in) :: comm + integer, intent(out) :: group + integer, intent(out) :: ierror +end subroutine PMPI_Comm_remote_group + +end interface + interface MPI_Comm_remote_size @@ -750,6 +1388,16 @@ end subroutine MPI_Comm_remote_size end interface +interface PMPI_Comm_remote_size + +subroutine PMPI_Comm_remote_size(comm, size, ierror) + integer, intent(in) :: comm + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Comm_remote_size + +end interface + interface MPI_Comm_set_attr @@ -763,6 +1411,18 @@ end subroutine MPI_Comm_set_attr end interface +interface PMPI_Comm_set_attr + +subroutine PMPI_Comm_set_attr(comm, comm_keyval, attribute_val, ierror) + include 'mpif-config.h' + integer, intent(in) :: comm + integer, intent(in) :: comm_keyval + integer(kind=MPI_ADDRESS_KIND), intent(in) :: attribute_val + integer, intent(out) :: ierror +end subroutine PMPI_Comm_set_attr + +end interface + interface MPI_Comm_set_errhandler @@ -774,6 +1434,16 @@ end subroutine MPI_Comm_set_errhandler end interface +interface PMPI_Comm_set_errhandler + +subroutine PMPI_Comm_set_errhandler(comm, errhandler, ierror) + integer, intent(in) :: comm + integer, intent(in) :: errhandler + integer, intent(out) :: ierror +end subroutine PMPI_Comm_set_errhandler + +end interface + interface MPI_Comm_set_name @@ -785,6 +1455,16 @@ end subroutine MPI_Comm_set_name end interface +interface PMPI_Comm_set_name + +subroutine PMPI_Comm_set_name(comm, comm_name, ierror) + integer, intent(in) :: comm + character(len=*), intent(in) :: comm_name + integer, intent(out) :: ierror +end subroutine PMPI_Comm_set_name + +end interface + interface MPI_Comm_size @@ -796,6 +1476,16 @@ end subroutine MPI_Comm_size end interface +interface PMPI_Comm_size + +subroutine PMPI_Comm_size(comm, size, ierror) + integer, intent(in) :: comm + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Comm_size + +end interface + interface MPI_Comm_spawn @@ -814,6 +1504,23 @@ end subroutine MPI_Comm_spawn end interface +interface PMPI_Comm_spawn + +subroutine PMPI_Comm_spawn(command, argv, maxprocs, info, root, & + comm, intercomm, array_of_errcodes, ierror) + character(len=*), intent(in) :: command + character(len=*), dimension(*), intent(in) :: argv + integer, intent(in) :: maxprocs + integer, intent(in) :: info + integer, intent(in) :: root + integer, intent(in) :: comm + integer, intent(out) :: intercomm + integer, dimension(*), intent(out) :: array_of_errcodes + integer, intent(out) :: ierror +end subroutine PMPI_Comm_spawn + +end interface + interface MPI_Comm_spawn_multiple @@ -833,6 +1540,24 @@ end subroutine MPI_Comm_spawn_multiple end interface +interface PMPI_Comm_spawn_multiple + +subroutine PMPI_Comm_spawn_multiple(count, array_of_commands, array_of_argv, array_of_maxprocs, array_of_info, & + root, comm, intercomm, array_of_errcodes, ierror) + 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 +end subroutine PMPI_Comm_spawn_multiple + +end interface + interface MPI_Comm_split @@ -846,6 +1571,18 @@ end subroutine MPI_Comm_split end interface +interface PMPI_Comm_split + +subroutine PMPI_Comm_split(comm, color, key, newcomm, ierror) + integer, intent(in) :: comm + integer, intent(in) :: color + integer, intent(in) :: key + integer, intent(out) :: newcomm + integer, intent(out) :: ierror +end subroutine PMPI_Comm_split + +end interface + interface MPI_Comm_split @@ -860,6 +1597,19 @@ end subroutine MPI_Comm_split_type end interface +interface PMPI_Comm_split + +subroutine PMPI_Comm_split_type(comm, split_type, key, info, newcomm, ierror) + integer, intent(in) :: comm + integer, intent(in) :: split_type + integer, intent(in) :: key + integer, intent(in) :: info + integer, intent(out) :: newcomm + integer, intent(out) :: ierror +end subroutine PMPI_Comm_split_type + +end interface + interface MPI_Comm_test_inter @@ -871,6 +1621,16 @@ end subroutine MPI_Comm_test_inter end interface +interface PMPI_Comm_test_inter + +subroutine PMPI_Comm_test_inter(comm, flag, ierror) + integer, intent(in) :: comm + logical, intent(out) :: flag + integer, intent(out) :: ierror +end subroutine PMPI_Comm_test_inter + +end interface + interface MPI_Dims_create @@ -883,8 +1643,19 @@ end subroutine MPI_Dims_create end interface +interface PMPI_Dims_create -interface MPI_Dist_graph_create +subroutine PMPI_Dims_create(nnodes, ndims, dims, ierror) + integer, intent(in) :: nnodes + integer, intent(in) :: ndims + integer, dimension(*), intent(inout) :: dims + integer, intent(out) :: ierror +end subroutine PMPI_Dims_create + +end interface + + +interface MPI_Dist_graph_create subroutine MPI_Dist_graph_create(comm_old,n,sources,degrees,destinations,weights, & info,reorder,comm_dist_graph,ierror) @@ -899,8 +1670,23 @@ end subroutine MPI_Dist_graph_create end interface +interface PMPI_Dist_graph_create -interface MPI_Dist_graph_create_adjacent +subroutine PMPI_Dist_graph_create(comm_old,n,sources,degrees,destinations,weights, & + info,reorder,comm_dist_graph,ierror) + implicit none + integer, intent(in) :: comm_old + integer, intent(in) :: n, sources(n), degrees(n), destinations(*), weights(*) + integer, intent(in) :: info + logical, intent(in) :: reorder + integer, intent(out) :: comm_dist_graph + integer, intent(out) :: ierror +end subroutine PMPI_Dist_graph_create + +end interface + + +interface MPI_Dist_graph_create_adjacent subroutine MPI_Dist_graph_create_adjacent(comm_old,indegree,sources,sourceweights, & outdegree,destinations,destweights,info,reorder, & @@ -917,8 +1703,25 @@ end subroutine MPI_Dist_graph_create_adjacent end interface +interface PMPI_Dist_graph_create_adjacent -interface MPI_Dist_graph_neighbors +subroutine PMPI_Dist_graph_create_adjacent(comm_old,indegree,sources,sourceweights, & + outdegree,destinations,destweights,info,reorder, & + comm_dist_graph,ierror) + implicit none + integer, intent(in) :: comm_old + integer, intent(in) :: indegree, sources(indegree), outdegree, destinations(outdegree) + integer, intent(in) :: sourceweights(indegree), destweights(outdegree) + integer, intent(in) :: info + logical, intent(in) :: reorder + integer, intent(out) :: comm_dist_graph + integer, intent(out) :: ierror +end subroutine PMPI_Dist_graph_create_adjacent + +end interface + + +interface MPI_Dist_graph_neighbors subroutine MPI_Dist_graph_neighbors(comm,maxindegree,sources,sourceweights, & maxoutdegree,destinations,destweights,ierror) @@ -932,8 +1735,22 @@ end subroutine MPI_Dist_graph_neighbors end interface +interface PMPI_Dist_graph_neighbors -interface MPI_Dist_graph_neighbors_count +subroutine PMPI_Dist_graph_neighbors(comm,maxindegree,sources,sourceweights, & + maxoutdegree,destinations,destweights,ierror) + implicit none + integer, intent(in) :: comm + integer, intent(in) :: maxindegree, maxoutdegree + integer, intent(out) :: sources(maxindegree), destinations(maxoutdegree) + integer, intent(out) :: sourceweights(maxindegree), destweights(maxoutdegree) + integer, intent(out) :: ierror +end subroutine PMPI_Dist_graph_neighbors + +end interface + + +interface MPI_Dist_graph_neighbors_count subroutine MPI_Dist_graph_neighbors_count(comm,indegree,outdegree,weighted,ierror) implicit none @@ -945,6 +1762,18 @@ end subroutine MPI_Dist_graph_neighbors_count end interface +interface PMPI_Dist_graph_neighbors_count + +subroutine PMPI_Dist_graph_neighbors_count(comm,indegree,outdegree,weighted,ierror) + implicit none + integer, intent(in) :: comm + integer, intent(out) :: indegree, outdegree + logical, intent(out) :: weighted + integer, intent(out) :: ierror +end subroutine PMPI_Dist_graph_neighbors_count + +end interface + interface MPI_Errhandler_create @@ -956,6 +1785,16 @@ end subroutine MPI_Errhandler_create end interface +interface PMPI_Errhandler_create + +subroutine PMPI_Errhandler_create(function, errhandler, ierror) + external :: function + integer, intent(out) :: errhandler + integer, intent(out) :: ierror +end subroutine PMPI_Errhandler_create + +end interface + interface MPI_Errhandler_free @@ -966,6 +1805,15 @@ end subroutine MPI_Errhandler_free end interface +interface PMPI_Errhandler_free + +subroutine PMPI_Errhandler_free(errhandler, ierror) + integer, intent(inout) :: errhandler + integer, intent(out) :: ierror +end subroutine PMPI_Errhandler_free + +end interface + interface MPI_Errhandler_get @@ -977,6 +1825,16 @@ end subroutine MPI_Errhandler_get end interface +interface PMPI_Errhandler_get + +subroutine PMPI_Errhandler_get(comm, errhandler, ierror) + integer, intent(in) :: comm + integer, intent(out) :: errhandler + integer, intent(out) :: ierror +end subroutine PMPI_Errhandler_get + +end interface + interface MPI_Errhandler_set @@ -988,6 +1846,16 @@ end subroutine MPI_Errhandler_set end interface +interface PMPI_Errhandler_set + +subroutine PMPI_Errhandler_set(comm, errhandler, ierror) + integer, intent(in) :: comm + integer, intent(in) :: errhandler + integer, intent(out) :: ierror +end subroutine PMPI_Errhandler_set + +end interface + interface MPI_Error_class @@ -999,6 +1867,16 @@ end subroutine MPI_Error_class end interface +interface PMPI_Error_class + +subroutine PMPI_Error_class(errorcode, errorclass, ierror) + integer, intent(in) :: errorcode + integer, intent(out) :: errorclass + integer, intent(out) :: ierror +end subroutine PMPI_Error_class + +end interface + interface MPI_Error_string @@ -1011,6 +1889,17 @@ end subroutine MPI_Error_string end interface +interface PMPI_Error_string + +subroutine PMPI_Error_string(errorcode, string, resultlen, ierror) + integer, intent(in) :: errorcode + character(len=*), intent(out) :: string + integer, intent(out) :: resultlen + integer, intent(out) :: ierror +end subroutine PMPI_Error_string + +end interface + interface MPI_Exscan @@ -1029,6 +1918,23 @@ end subroutine MPI_Exscan end interface +interface PMPI_Exscan + +subroutine PMPI_Exscan(sendbuf, recvbuf, count, datatype, op, & + comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: op + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Exscan + +end interface + interface MPI_Finalize @@ -1038,6 +1944,14 @@ end subroutine MPI_Finalize end interface +interface PMPI_Finalize + +subroutine PMPI_Finalize(ierror) + integer, intent(out) :: ierror +end subroutine PMPI_Finalize + +end interface + interface MPI_Finalized @@ -1048,6 +1962,15 @@ end subroutine MPI_Finalized end interface +interface PMPI_Finalized + +subroutine PMPI_Finalized(flag, ierror) + logical, intent(out) :: flag + integer, intent(out) :: ierror +end subroutine PMPI_Finalized + +end interface + interface MPI_Free_mem @@ -1059,6 +1982,16 @@ end subroutine MPI_Free_mem end interface +interface PMPI_Free_mem + +subroutine PMPI_Free_mem(base, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ base + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: base + integer, intent(out) :: ierror +end subroutine PMPI_Free_mem + +end interface + interface MPI_Gather @@ -1079,6 +2012,25 @@ end subroutine MPI_Gather end interface +interface PMPI_Gather + +subroutine PMPI_Gather(sendbuf, sendcount, sendtype, recvbuf, recvcount, & + recvtype, root, comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: recvcount + integer, intent(in) :: recvtype + integer, intent(in) :: root + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Gather + +end interface + interface MPI_Gatherv @@ -1100,6 +2052,26 @@ end subroutine MPI_Gatherv end interface +interface PMPI_Gatherv + +subroutine PMPI_Gatherv(sendbuf, sendcount, sendtype, recvbuf, recvcounts, & + displs, recvtype, root, comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, dimension(*), intent(in) :: recvcounts + integer, dimension(*), intent(in) :: displs + integer, intent(in) :: recvtype + integer, intent(in) :: root + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Gatherv + +end interface + interface MPI_Get @@ -1120,6 +2092,25 @@ end subroutine MPI_Get end interface +interface PMPI_Get + +subroutine PMPI_Get(origin_addr, origin_count, origin_datatype, target_rank, target_disp, & + target_count, target_datatype, win, ierror) + include 'mpif-config.h' + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ origin_addr + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: origin_addr + integer, intent(in) :: origin_count + integer, intent(in) :: origin_datatype + integer, intent(in) :: target_rank + integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp + integer, intent(in) :: target_count + integer, intent(in) :: target_datatype + integer, intent(in) :: win + integer, intent(out) :: ierror +end subroutine PMPI_Get + +end interface + interface MPI_Get_address @@ -1133,6 +2124,18 @@ end subroutine MPI_Get_address end interface +interface PMPI_Get_address + +subroutine PMPI_Get_address(location, address, ierror) + include 'mpif-config.h' + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ location + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: location + integer(kind=MPI_ADDRESS_KIND), intent(out) :: address + integer, intent(out) :: ierror +end subroutine PMPI_Get_address + +end interface + interface MPI_Get_count @@ -1146,6 +2149,18 @@ end subroutine MPI_Get_count end interface +interface PMPI_Get_count + +subroutine PMPI_Get_count(status, datatype, count, ierror) + include 'mpif-config.h' + integer, dimension(MPI_STATUS_SIZE), intent(in) :: status + integer, intent(in) :: datatype + integer, intent(out) :: count + integer, intent(out) :: ierror +end subroutine PMPI_Get_count + +end interface + interface MPI_Get_elements @@ -1159,6 +2174,18 @@ end subroutine MPI_Get_elements end interface +interface PMPI_Get_elements + +subroutine PMPI_Get_elements(status, datatype, count, ierror) + include 'mpif-config.h' + integer, dimension(MPI_STATUS_SIZE), intent(in) :: status + integer, intent(in) :: datatype + integer, intent(out) :: count + integer, intent(out) :: ierror +end subroutine PMPI_Get_elements + +end interface + @@ -1172,6 +2199,16 @@ end subroutine MPI_Get_library_version end interface +interface PMPI_Get_library_version + +subroutine PMPI_Get_library_version(version, resultlen, ierror) + character(len=*), intent(out) :: version + integer, intent(out) :: resultlen + integer, intent(out) :: ierror +end subroutine PMPI_Get_library_version + +end interface + interface MPI_Get_processor_name @@ -1183,6 +2220,16 @@ end subroutine MPI_Get_processor_name end interface +interface PMPI_Get_processor_name + +subroutine PMPI_Get_processor_name(name, resultlen, ierror) + character(len=*), intent(out) :: name + integer, intent(out) :: resultlen + integer, intent(out) :: ierror +end subroutine PMPI_Get_processor_name + +end interface + interface MPI_Get_version @@ -1194,6 +2241,16 @@ end subroutine MPI_Get_version end interface +interface PMPI_Get_version + +subroutine PMPI_Get_version(version, subversion, ierror) + integer, intent(out) :: version + integer, intent(out) :: subversion + integer, intent(out) :: ierror +end subroutine PMPI_Get_version + +end interface + interface MPI_Graph_create @@ -1210,6 +2267,21 @@ end subroutine MPI_Graph_create end interface +interface PMPI_Graph_create + +subroutine PMPI_Graph_create(comm_old, nnodes, index, edges, reorder, & + comm_graph, ierror) + integer, intent(in) :: comm_old + integer, intent(in) :: nnodes + integer, dimension(*), intent(in) :: index + integer, dimension(*), intent(in) :: edges + logical, intent(in) :: reorder + integer, intent(out) :: comm_graph + integer, intent(out) :: ierror +end subroutine PMPI_Graph_create + +end interface + interface MPI_Graph_get @@ -1225,6 +2297,20 @@ end subroutine MPI_Graph_get end interface +interface PMPI_Graph_get + +subroutine PMPI_Graph_get(comm, maxindex, maxedges, index, edges& + , ierror) + integer, intent(in) :: comm + integer, intent(in) :: maxindex + integer, intent(in) :: maxedges + integer, dimension(*), intent(out) :: index + integer, dimension(*), intent(out) :: edges + integer, intent(out) :: ierror +end subroutine PMPI_Graph_get + +end interface + interface MPI_Graph_map @@ -1240,6 +2326,20 @@ end subroutine MPI_Graph_map end interface +interface PMPI_Graph_map + +subroutine PMPI_Graph_map(comm, nnodes, index, edges, newrank& + , ierror) + integer, intent(in) :: comm + integer, intent(in) :: nnodes + integer, dimension(*), intent(in) :: index + integer, dimension(*), intent(in) :: edges + integer, intent(out) :: newrank + integer, intent(out) :: ierror +end subroutine PMPI_Graph_map + +end interface + interface MPI_Graph_neighbors @@ -1253,6 +2353,18 @@ end subroutine MPI_Graph_neighbors end interface +interface PMPI_Graph_neighbors + +subroutine PMPI_Graph_neighbors(comm, rank, maxneighbors, neighbors, ierror) + integer, intent(in) :: comm + integer, intent(in) :: rank + integer, intent(in) :: maxneighbors + integer, dimension(*), intent(out) :: neighbors + integer, intent(out) :: ierror +end subroutine PMPI_Graph_neighbors + +end interface + interface MPI_Graph_neighbors_count @@ -1265,6 +2377,17 @@ end subroutine MPI_Graph_neighbors_count end interface +interface PMPI_Graph_neighbors_count + +subroutine PMPI_Graph_neighbors_count(comm, rank, nneighbors, ierror) + integer, intent(in) :: comm + integer, intent(in) :: rank + integer, intent(out) :: nneighbors + integer, intent(out) :: ierror +end subroutine PMPI_Graph_neighbors_count + +end interface + interface MPI_Graphdims_get @@ -1277,6 +2400,17 @@ end subroutine MPI_Graphdims_get end interface +interface PMPI_Graphdims_get + +subroutine PMPI_Graphdims_get(comm, nnodes, nedges, ierror) + integer, intent(in) :: comm + integer, intent(out) :: nnodes + integer, intent(out) :: nedges + integer, intent(out) :: ierror +end subroutine PMPI_Graphdims_get + +end interface + interface MPI_Grequest_complete @@ -1287,6 +2421,15 @@ end subroutine MPI_Grequest_complete end interface +interface PMPI_Grequest_complete + +subroutine PMPI_Grequest_complete(request, ierror) + integer, intent(in) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Grequest_complete + +end interface + interface MPI_Grequest_start @@ -1303,6 +2446,21 @@ end subroutine MPI_Grequest_start end interface +interface PMPI_Grequest_start + +subroutine PMPI_Grequest_start(query_fn, free_fn, cancel_fn, extra_state, request& + , ierror) + include 'mpif-config.h' + external :: query_fn + external :: free_fn + external :: cancel_fn + integer(kind=MPI_ADDRESS_KIND), intent(in) :: extra_state + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Grequest_start + +end interface + interface MPI_Group_compare @@ -1315,6 +2473,17 @@ end subroutine MPI_Group_compare end interface +interface PMPI_Group_compare + +subroutine PMPI_Group_compare(group1, group2, result, ierror) + integer, intent(in) :: group1 + integer, intent(in) :: group2 + integer, intent(out) :: result + integer, intent(out) :: ierror +end subroutine PMPI_Group_compare + +end interface + interface MPI_Group_difference @@ -1327,6 +2496,17 @@ end subroutine MPI_Group_difference end interface +interface PMPI_Group_difference + +subroutine PMPI_Group_difference(group1, group2, newgroup, ierror) + integer, intent(in) :: group1 + integer, intent(in) :: group2 + integer, intent(out) :: newgroup + integer, intent(out) :: ierror +end subroutine PMPI_Group_difference + +end interface + interface MPI_Group_excl @@ -1340,6 +2520,18 @@ end subroutine MPI_Group_excl end interface +interface PMPI_Group_excl + +subroutine PMPI_Group_excl(group, n, ranks, newgroup, ierror) + integer, intent(in) :: group + integer, intent(in) :: n + integer, dimension(*), intent(in) :: ranks + integer, intent(out) :: newgroup + integer, intent(out) :: ierror +end subroutine PMPI_Group_excl + +end interface + interface MPI_Group_free @@ -1350,6 +2542,15 @@ end subroutine MPI_Group_free end interface +interface PMPI_Group_free + +subroutine PMPI_Group_free(group, ierror) + integer, intent(inout) :: group + integer, intent(out) :: ierror +end subroutine PMPI_Group_free + +end interface + interface MPI_Group_incl @@ -1363,6 +2564,18 @@ end subroutine MPI_Group_incl end interface +interface PMPI_Group_incl + +subroutine PMPI_Group_incl(group, n, ranks, newgroup, ierror) + integer, intent(in) :: group + integer, intent(in) :: n + integer, dimension(*), intent(in) :: ranks + integer, intent(out) :: newgroup + integer, intent(out) :: ierror +end subroutine PMPI_Group_incl + +end interface + interface MPI_Group_intersection @@ -1375,6 +2588,17 @@ end subroutine MPI_Group_intersection end interface +interface PMPI_Group_intersection + +subroutine PMPI_Group_intersection(group1, group2, newgroup, ierror) + integer, intent(in) :: group1 + integer, intent(in) :: group2 + integer, intent(out) :: newgroup + integer, intent(out) :: ierror +end subroutine PMPI_Group_intersection + +end interface + interface MPI_Group_range_excl @@ -1388,6 +2612,18 @@ end subroutine MPI_Group_range_excl end interface +interface PMPI_Group_range_excl + +subroutine PMPI_Group_range_excl(group, n, ranges, newgroup, ierror) + integer, intent(in) :: group + integer, intent(in) :: n + integer, dimension(3, *), intent(in) :: ranges + integer, intent(out) :: newgroup + integer, intent(out) :: ierror +end subroutine PMPI_Group_range_excl + +end interface + interface MPI_Group_range_incl @@ -1401,6 +2637,18 @@ end subroutine MPI_Group_range_incl end interface +interface PMPI_Group_range_incl + +subroutine PMPI_Group_range_incl(group, n, ranges, newgroup, ierror) + integer, intent(in) :: group + integer, intent(in) :: n + integer, dimension(3, *), intent(in) :: ranges + integer, intent(out) :: newgroup + integer, intent(out) :: ierror +end subroutine PMPI_Group_range_incl + +end interface + interface MPI_Group_rank @@ -1412,6 +2660,16 @@ end subroutine MPI_Group_rank end interface +interface PMPI_Group_rank + +subroutine PMPI_Group_rank(group, rank, ierror) + integer, intent(in) :: group + integer, intent(out) :: rank + integer, intent(out) :: ierror +end subroutine PMPI_Group_rank + +end interface + interface MPI_Group_size @@ -1423,6 +2681,16 @@ end subroutine MPI_Group_size end interface +interface PMPI_Group_size + +subroutine PMPI_Group_size(group, size, ierror) + integer, intent(in) :: group + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Group_size + +end interface + interface MPI_Group_translate_ranks @@ -1438,6 +2706,20 @@ end subroutine MPI_Group_translate_ranks end interface +interface PMPI_Group_translate_ranks + +subroutine PMPI_Group_translate_ranks(group1, n, ranks1, group2, ranks2& + , ierror) + integer, intent(in) :: group1 + integer, intent(in) :: n + integer, dimension(*), intent(in) :: ranks1 + integer, intent(in) :: group2 + integer, dimension(*), intent(out) :: ranks2 + integer, intent(out) :: ierror +end subroutine PMPI_Group_translate_ranks + +end interface + interface MPI_Group_union @@ -1450,6 +2732,17 @@ end subroutine MPI_Group_union end interface +interface PMPI_Group_union + +subroutine PMPI_Group_union(group1, group2, newgroup, ierror) + integer, intent(in) :: group1 + integer, intent(in) :: group2 + integer, intent(out) :: newgroup + integer, intent(out) :: ierror +end subroutine PMPI_Group_union + +end interface + interface MPI_Iallgather @@ -1470,6 +2763,25 @@ end subroutine MPI_Iallgather end interface +interface PMPI_Iallgather + +subroutine PMPI_Iallgather(sendbuf, sendcount, sendtype, recvbuf, recvcount, & + recvtype, comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: recvcount + integer, intent(in) :: recvtype + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Iallgather + +end interface + interface MPI_Iallgatherv @@ -1491,6 +2803,26 @@ end subroutine MPI_Iallgatherv end interface +interface PMPI_Iallgatherv + +subroutine PMPI_Iallgatherv(sendbuf, sendcount, sendtype, recvbuf, recvcounts, & + displs, recvtype, comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, dimension(*), intent(in) :: recvcounts + integer, dimension(*), intent(in) :: displs + integer, intent(in) :: recvtype + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Iallgatherv + +end interface + interface MPI_Iallreduce @@ -1510,6 +2842,24 @@ end subroutine MPI_Iallreduce end interface +interface PMPI_Iallreduce + +subroutine PMPI_Iallreduce(sendbuf, recvbuf, count, datatype, op, & + comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: op + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Iallreduce + +end interface + interface MPI_Ialltoall @@ -1530,6 +2880,25 @@ end subroutine MPI_Ialltoall end interface +interface PMPI_Ialltoall + +subroutine PMPI_Ialltoall(sendbuf, sendcount, sendtype, recvbuf, recvcount, & + recvtype, comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: recvcount + integer, intent(in) :: recvtype + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Ialltoall + +end interface + interface MPI_Ialltoallv @@ -1552,6 +2921,27 @@ end subroutine MPI_Ialltoallv end interface +interface PMPI_Ialltoallv + +subroutine PMPI_Ialltoallv(sendbuf, sendcounts, sdispls, sendtype, recvbuf, & + recvcounts, rdispls, recvtype, comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, dimension(*), intent(in) :: sendcounts + integer, dimension(*), intent(in) :: sdispls + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, dimension(*), intent(in) :: recvcounts + integer, dimension(*), intent(in) :: rdispls + integer, intent(in) :: recvtype + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Ialltoallv + +end interface + interface MPI_Ialltoallw @@ -1574,6 +2964,27 @@ end subroutine MPI_Ialltoallw end interface +interface PMPI_Ialltoallw + +subroutine PMPI_Ialltoallw(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, & + recvcounts, rdispls, recvtypes, comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, dimension(*), intent(in) :: sendcounts + integer, dimension(*), intent(in) :: sdispls + integer, dimension(*), intent(in) :: sendtypes + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, dimension(*), intent(in) :: recvcounts + integer, dimension(*), intent(in) :: rdispls + integer, dimension(*), intent(in) :: recvtypes + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Ialltoallw + +end interface + interface MPI_Ibarrier @@ -1585,6 +2996,16 @@ end subroutine MPI_Ibarrier end interface +interface PMPI_Ibarrier + +subroutine PMPI_Ibarrier(comm, request, ierror) + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Ibarrier + +end interface + interface MPI_Ibcast @@ -1602,6 +3023,22 @@ end subroutine MPI_Ibcast end interface +interface PMPI_Ibcast + +subroutine PMPI_Ibcast(buffer, count, datatype, root, comm& + , request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buffer + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buffer + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: root + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Ibcast + +end interface + interface MPI_Iexscan @@ -1621,6 +3058,24 @@ end subroutine MPI_Iexscan end interface +interface PMPI_Iexscan + +subroutine PMPI_Iexscan(sendbuf, recvbuf, count, datatype, op, & + comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: op + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Iexscan + +end interface + interface MPI_Ibsend @@ -1639,6 +3094,23 @@ end subroutine MPI_Ibsend end interface +interface PMPI_Ibsend + +subroutine PMPI_Ibsend(buf, count, datatype, dest, tag, & + comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: dest + integer, intent(in) :: tag + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Ibsend + +end interface + interface MPI_Igather @@ -1660,6 +3132,26 @@ end subroutine MPI_Igather end interface +interface PMPI_Igather + +subroutine PMPI_Igather(sendbuf, sendcount, sendtype, recvbuf, recvcount, & + recvtype, root, comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: recvcount + integer, intent(in) :: recvtype + integer, intent(in) :: root + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Igather + +end interface + interface MPI_Igatherv @@ -1682,6 +3174,27 @@ end subroutine MPI_Igatherv end interface +interface PMPI_Igatherv + +subroutine PMPI_Igatherv(sendbuf, sendcount, sendtype, recvbuf, recvcounts, & + displs, recvtype, root, comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, dimension(*), intent(in) :: recvcounts + integer, dimension(*), intent(in) :: displs + integer, intent(in) :: recvtype + integer, intent(in) :: root + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Igatherv + +end interface + interface MPI_Improbe @@ -1698,6 +3211,21 @@ end subroutine MPI_Improbe end interface +interface PMPI_Improbe + +subroutine PMPI_Improbe(source, tag, comm, flag, message, status, ierror) + include 'mpif-config.h' + integer, intent(in) :: source + integer, intent(in) :: tag + integer, intent(in) :: comm + logical, intent(out) :: flag + integer, intent(out) :: message + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_Improbe + +end interface + interface MPI_Imrecv @@ -1713,6 +3241,20 @@ end subroutine MPI_Imrecv end interface +interface PMPI_Imrecv + +subroutine PMPI_Imrecv(buf, count, datatype, message, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(inout) :: message + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Imrecv + +end interface + interface MPI_Ineighbor_allgather @@ -1733,6 +3275,25 @@ end subroutine MPI_Ineighbor_allgather end interface +interface PMPI_Ineighbor_allgather + +subroutine PMPI_Ineighbor_allgather(sendbuf, sendcount, sendtype, recvbuf, recvcount, & + recvtype, comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: recvcount + integer, intent(in) :: recvtype + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Ineighbor_allgather + +end interface + interface MPI_Ineighbor_allgatherv @@ -1754,6 +3315,26 @@ end subroutine MPI_Ineighbor_allgatherv end interface +interface PMPI_Ineighbor_allgatherv + +subroutine PMPI_Ineighbor_allgatherv(sendbuf, sendcount, sendtype, recvbuf, recvcounts, & + displs, recvtype, comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, dimension(*), intent(in) :: recvcounts + integer, dimension(*), intent(in) :: displs + integer, intent(in) :: recvtype + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Ineighbor_allgatherv + +end interface + interface MPI_Ineighbor_alltoall @@ -1774,6 +3355,25 @@ end subroutine MPI_Ineighbor_alltoall end interface +interface PMPI_Ineighbor_alltoall + +subroutine PMPI_Ineighbor_alltoall(sendbuf, sendcount, sendtype, recvbuf, recvcount, & + recvtype, comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: recvcount + integer, intent(in) :: recvtype + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Ineighbor_alltoall + +end interface + interface MPI_Ineighbor_alltoallv @@ -1796,6 +3396,27 @@ end subroutine MPI_Ineighbor_alltoallv end interface +interface PMPI_Ineighbor_alltoallv + +subroutine PMPI_Ineighbor_alltoallv(sendbuf, sendcounts, sdispls, sendtype, recvbuf, & + recvcounts, rdispls, recvtype, comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, dimension(*), intent(in) :: sendcounts + integer, dimension(*), intent(in) :: sdispls + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, dimension(*), intent(in) :: recvcounts + integer, dimension(*), intent(in) :: rdispls + integer, intent(in) :: recvtype + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Ineighbor_alltoallv + +end interface + interface MPI_Ineighbor_alltoallw @@ -1819,6 +3440,28 @@ end subroutine MPI_Ineighbor_alltoallw end interface +interface PMPI_Ineighbor_alltoallw + +subroutine PMPI_Ineighbor_alltoallw(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, & + recvcounts, rdispls, recvtypes, comm, request, ierror) + include 'mpif-config.h' + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, dimension(*), intent(in) :: sendcounts + integer(kind=MPI_ADDRESS_KIND), intent(in) :: sdispls + integer, dimension(*), intent(in) :: sendtypes + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, dimension(*), intent(in) :: recvcounts + integer(kind=MPI_ADDRESS_KIND), intent(in) :: rdispls + integer, dimension(*), intent(in) :: recvtypes + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Ineighbor_alltoallw + +end interface + interface MPI_Info_create @@ -1829,6 +3472,15 @@ end subroutine MPI_Info_create end interface +interface PMPI_Info_create + +subroutine PMPI_Info_create(info, ierror) + integer, intent(out) :: info + integer, intent(out) :: ierror +end subroutine PMPI_Info_create + +end interface + interface MPI_Info_delete @@ -1840,6 +3492,16 @@ end subroutine MPI_Info_delete end interface +interface PMPI_Info_delete + +subroutine PMPI_Info_delete(info, key, ierror) + integer, intent(in) :: info + character(len=*), intent(in) :: key + integer, intent(out) :: ierror +end subroutine PMPI_Info_delete + +end interface + interface MPI_Info_dup @@ -1851,6 +3513,16 @@ end subroutine MPI_Info_dup end interface +interface PMPI_Info_dup + +subroutine PMPI_Info_dup(info, newinfo, ierror) + integer, intent(in) :: info + integer, intent(out) :: newinfo + integer, intent(out) :: ierror +end subroutine PMPI_Info_dup + +end interface + interface MPI_Info_free @@ -1861,6 +3533,15 @@ end subroutine MPI_Info_free end interface +interface PMPI_Info_free + +subroutine PMPI_Info_free(info, ierror) + integer, intent(inout) :: info + integer, intent(out) :: ierror +end subroutine PMPI_Info_free + +end interface + interface MPI_Info_get @@ -1876,6 +3557,20 @@ end subroutine MPI_Info_get end interface +interface PMPI_Info_get + +subroutine PMPI_Info_get(info, key, valuelen, value, flag& + , ierror) + integer, intent(in) :: info + character(len=*), intent(in) :: key + integer, intent(in) :: valuelen + character(len=*), intent(out) :: value + logical, intent(out) :: flag + integer, intent(out) :: ierror +end subroutine PMPI_Info_get + +end interface + interface MPI_Info_get_nkeys @@ -1887,6 +3582,16 @@ end subroutine MPI_Info_get_nkeys end interface +interface PMPI_Info_get_nkeys + +subroutine PMPI_Info_get_nkeys(info, nkeys, ierror) + integer, intent(in) :: info + integer, intent(out) :: nkeys + integer, intent(out) :: ierror +end subroutine PMPI_Info_get_nkeys + +end interface + interface MPI_Info_get_nthkey @@ -1899,6 +3604,17 @@ end subroutine MPI_Info_get_nthkey end interface +interface PMPI_Info_get_nthkey + +subroutine PMPI_Info_get_nthkey(info, n, key, ierror) + integer, intent(in) :: info + integer, intent(in) :: n + character(len=*), intent(out) :: key + integer, intent(out) :: ierror +end subroutine PMPI_Info_get_nthkey + +end interface + interface MPI_Info_get_valuelen @@ -1912,6 +3628,18 @@ end subroutine MPI_Info_get_valuelen end interface +interface PMPI_Info_get_valuelen + +subroutine PMPI_Info_get_valuelen(info, key, valuelen, flag, ierror) + integer, intent(in) :: info + character(len=*), intent(in) :: key + integer, intent(out) :: valuelen + logical, intent(out) :: flag + integer, intent(out) :: ierror +end subroutine PMPI_Info_get_valuelen + +end interface + interface MPI_Info_set @@ -1924,6 +3652,17 @@ end subroutine MPI_Info_set end interface +interface PMPI_Info_set + +subroutine PMPI_Info_set(info, key, value, ierror) + integer, intent(in) :: info + character(len=*), intent(in) :: key + character(len=*), intent(in) :: value + integer, intent(out) :: ierror +end subroutine PMPI_Info_set + +end interface + interface MPI_Init @@ -1933,6 +3672,14 @@ end subroutine MPI_Init end interface +interface PMPI_Init + +subroutine PMPI_Init(ierror) + integer, intent(out) :: ierror +end subroutine PMPI_Init + +end interface + interface MPI_Init_thread @@ -1944,6 +3691,16 @@ end subroutine MPI_Init_thread end interface +interface PMPI_Init_thread + +subroutine PMPI_Init_thread(required, provided, ierror) + integer, intent(in) :: required + integer, intent(out) :: provided + integer, intent(out) :: ierror +end subroutine PMPI_Init_thread + +end interface + interface MPI_Initialized @@ -1954,6 +3711,15 @@ end subroutine MPI_Initialized end interface +interface PMPI_Initialized + +subroutine PMPI_Initialized(flag, ierror) + logical, intent(out) :: flag + integer, intent(out) :: ierror +end subroutine PMPI_Initialized + +end interface + interface MPI_Intercomm_create @@ -1970,6 +3736,21 @@ end subroutine MPI_Intercomm_create end interface +interface PMPI_Intercomm_create + +subroutine PMPI_Intercomm_create(local_comm, local_leader, bridge_comm, remote_leader, tag, & + newintercomm, ierror) + integer, intent(in) :: local_comm + integer, intent(in) :: local_leader + integer, intent(in) :: bridge_comm + integer, intent(in) :: remote_leader + integer, intent(in) :: tag + integer, intent(out) :: newintercomm + integer, intent(out) :: ierror +end subroutine PMPI_Intercomm_create + +end interface + interface MPI_Intercomm_merge @@ -1982,6 +3763,17 @@ end subroutine MPI_Intercomm_merge end interface +interface PMPI_Intercomm_merge + +subroutine PMPI_Intercomm_merge(intercomm, high, newintercomm, ierror) + integer, intent(in) :: intercomm + logical, intent(in) :: high + integer, intent(out) :: newintercomm + integer, intent(out) :: ierror +end subroutine PMPI_Intercomm_merge + +end interface + interface MPI_Iprobe @@ -1998,6 +3790,21 @@ end subroutine MPI_Iprobe end interface +interface PMPI_Iprobe + +subroutine PMPI_Iprobe(source, tag, comm, flag, status& + , ierror) + include 'mpif-config.h' + integer, intent(in) :: source + integer, intent(in) :: tag + integer, intent(in) :: comm + logical, intent(out) :: flag + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_Iprobe + +end interface + interface MPI_Irecv @@ -2016,6 +3823,23 @@ end subroutine MPI_Irecv end interface +interface PMPI_Irecv + +subroutine PMPI_Irecv(buf, count, datatype, source, tag, & + comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: source + integer, intent(in) :: tag + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Irecv + +end interface + interface MPI_Ireduce @@ -2036,6 +3860,25 @@ end subroutine MPI_Ireduce end interface +interface PMPI_Ireduce + +subroutine PMPI_Ireduce(sendbuf, recvbuf, count, datatype, op, & + root, comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: op + integer, intent(in) :: root + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Ireduce + +end interface + interface MPI_Ireduce_scatter @@ -2055,6 +3898,24 @@ end subroutine MPI_Ireduce_scatter end interface +interface PMPI_Ireduce_scatter + +subroutine PMPI_Ireduce_scatter(sendbuf, recvbuf, recvcounts, datatype, op, & + comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, dimension(*), intent(in) :: recvcounts + integer, intent(in) :: datatype + integer, intent(in) :: op + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Ireduce_scatter + +end interface + interface MPI_Ireduce_scatter_block @@ -2074,6 +3935,24 @@ end subroutine MPI_Ireduce_scatter_block end interface +interface PMPI_Ireduce_scatter_block + +subroutine PMPI_Ireduce_scatter_block(sendbuf, recvbuf, recvcount, datatype, op, & + comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: recvcount + integer, intent(in) :: datatype + integer, intent(in) :: op + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Ireduce_scatter_block + +end interface + interface MPI_Irsend @@ -2092,6 +3971,23 @@ end subroutine MPI_Irsend end interface +interface PMPI_Irsend + +subroutine PMPI_Irsend(buf, count, datatype, dest, tag, & + comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: dest + integer, intent(in) :: tag + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Irsend + +end interface + interface MPI_Is_thread_main @@ -2102,6 +3998,15 @@ end subroutine MPI_Is_thread_main end interface +interface PMPI_Is_thread_main + +subroutine PMPI_Is_thread_main(flag, ierror) + logical, intent(out) :: flag + integer, intent(out) :: ierror +end subroutine PMPI_Is_thread_main + +end interface + interface MPI_Iscan @@ -2121,6 +4026,24 @@ end subroutine MPI_Iscan end interface +interface PMPI_Iscan + +subroutine PMPI_Iscan(sendbuf, recvbuf, count, datatype, op, & + comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: op + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Iscan + +end interface + interface MPI_Iscatter @@ -2142,6 +4065,26 @@ end subroutine MPI_Iscatter end interface +interface PMPI_Iscatter + +subroutine PMPI_Iscatter(sendbuf, sendcount, sendtype, recvbuf, recvcount, & + recvtype, root, comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: recvcount + integer, intent(in) :: recvtype + integer, intent(in) :: root + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Iscatter + +end interface + interface MPI_Iscatterv @@ -2164,6 +4107,27 @@ end subroutine MPI_Iscatterv end interface +interface PMPI_Iscatterv + +subroutine PMPI_Iscatterv(sendbuf, sendcounts, displs, sendtype, recvbuf, & + recvcount, recvtype, root, comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, dimension(*), intent(in) :: sendcounts + integer, dimension(*), intent(in) :: displs + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: recvcount + integer, intent(in) :: recvtype + integer, intent(in) :: root + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Iscatterv + +end interface + interface MPI_Isend @@ -2182,6 +4146,23 @@ end subroutine MPI_Isend end interface +interface PMPI_Isend + +subroutine PMPI_Isend(buf, count, datatype, dest, tag, & + comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: dest + integer, intent(in) :: tag + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Isend + +end interface + interface MPI_Issend @@ -2200,6 +4181,23 @@ end subroutine MPI_Issend end interface +interface PMPI_Issend + +subroutine PMPI_Issend(buf, count, datatype, dest, tag, & + comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: dest + integer, intent(in) :: tag + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Issend + +end interface + interface MPI_Keyval_create @@ -2213,6 +4211,18 @@ end subroutine MPI_Keyval_create end interface +interface PMPI_Keyval_create + +subroutine PMPI_Keyval_create(copy_fn, delete_fn, keyval, extra_state, ierror) + external :: copy_fn + external :: delete_fn + integer, intent(out) :: keyval + integer, intent(in) :: extra_state + integer, intent(out) :: ierror +end subroutine PMPI_Keyval_create + +end interface + interface MPI_Keyval_free @@ -2223,6 +4233,15 @@ end subroutine MPI_Keyval_free end interface +interface PMPI_Keyval_free + +subroutine PMPI_Keyval_free(keyval, ierror) + integer, intent(inout) :: keyval + integer, intent(out) :: ierror +end subroutine PMPI_Keyval_free + +end interface + interface MPI_Lookup_name @@ -2235,6 +4254,17 @@ end subroutine MPI_Lookup_name end interface +interface PMPI_Lookup_name + +subroutine PMPI_Lookup_name(service_name, info, port_name, ierror) + character(len=*), intent(in) :: service_name + integer, intent(in) :: info + character(len=*), intent(out) :: port_name + integer, intent(out) :: ierror +end subroutine PMPI_Lookup_name + +end interface + interface MPI_Mprobe @@ -2250,6 +4280,20 @@ end subroutine MPI_Mprobe end interface +interface PMPI_Mprobe + +subroutine PMPI_Mprobe(source, tag, comm, message, status, ierror) + include 'mpif-config.h' + integer, intent(in) :: source + integer, intent(in) :: tag + integer, intent(in) :: comm + integer, intent(out) :: message + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_Mprobe + +end interface + interface MPI_Mrecv @@ -2266,6 +4310,21 @@ end subroutine MPI_Mrecv end interface +interface PMPI_Mrecv + +subroutine PMPI_Mrecv(buf, count, datatype, message, status, ierror) + include 'mpif-config.h' + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(inout) :: message + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_Mrecv + +end interface + interface MPI_Neighbor_allgather @@ -2285,6 +4344,24 @@ end subroutine MPI_Neighbor_allgather end interface +interface PMPI_Neighbor_allgather + +subroutine PMPI_Neighbor_allgather(sendbuf, sendcount, sendtype, recvbuf, recvcount, & + recvtype, comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: recvcount + integer, intent(in) :: recvtype + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Neighbor_allgather + +end interface + interface MPI_Neighbor_allgatherv @@ -2305,6 +4382,25 @@ end subroutine MPI_Neighbor_allgatherv end interface +interface PMPI_Neighbor_allgatherv + +subroutine PMPI_Neighbor_allgatherv(sendbuf, sendcount, sendtype, recvbuf, recvcounts, & + displs, recvtype, comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, dimension(*), intent(in) :: recvcounts + integer, dimension(*), intent(in) :: displs + integer, intent(in) :: recvtype + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Neighbor_allgatherv + +end interface + interface MPI_Neighbor_alltoall @@ -2324,6 +4420,24 @@ end subroutine MPI_Neighbor_alltoall end interface +interface PMPI_Neighbor_alltoall + +subroutine PMPI_Neighbor_alltoall(sendbuf, sendcount, sendtype, recvbuf, recvcount, & + recvtype, comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: recvcount + integer, intent(in) :: recvtype + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Neighbor_alltoall + +end interface + interface MPI_Neighbor_alltoallv @@ -2345,6 +4459,26 @@ end subroutine MPI_Neighbor_alltoallv end interface +interface PMPI_Neighbor_alltoallv + +subroutine PMPI_Neighbor_alltoallv(sendbuf, sendcounts, sdispls, sendtype, recvbuf, & + recvcounts, rdispls, recvtype, comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, dimension(*), intent(in) :: sendcounts + integer, dimension(*), intent(in) :: sdispls + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, dimension(*), intent(in) :: recvcounts + integer, dimension(*), intent(in) :: rdispls + integer, intent(in) :: recvtype + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Neighbor_alltoallv + +end interface + interface MPI_Neighbor_alltoallw @@ -2367,6 +4501,27 @@ end subroutine MPI_Neighbor_alltoallw end interface +interface PMPI_Neighbor_alltoallw + +subroutine PMPI_Neighbor_alltoallw(sendbuf, sendcounts, sdispls, sendtypes, recvbuf, & + recvcounts, rdispls, recvtypes, comm, ierror) + include 'mpif-config.h' + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, dimension(*), intent(in) :: sendcounts + integer(kind=MPI_ADDRESS_KIND), intent(in) :: sdispls + integer, dimension(*), intent(in) :: sendtypes + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, dimension(*), intent(in) :: recvcounts + integer(kind=MPI_ADDRESS_KIND), intent(in) :: rdispls + integer, dimension(*), intent(in) :: recvtypes + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Neighbor_alltoallw + +end interface + interface MPI_Op_commutative subroutine MPI_Op_commutative(op, commute, ierror) @@ -2377,6 +4532,16 @@ end subroutine MPI_Op_commutative end interface +interface PMPI_Op_commutative + +subroutine PMPI_Op_commutative(op, commute, ierror) + integer, intent(in) :: op + logical, intent(out) :: commute + integer, intent(out) :: ierror +end subroutine PMPI_Op_commutative + +end interface + interface MPI_Op_create @@ -2389,6 +4554,17 @@ end subroutine MPI_Op_create end interface +interface PMPI_Op_create + +subroutine PMPI_Op_create(function, commute, op, ierror) + external :: function + logical, intent(in) :: commute + integer, intent(out) :: op + integer, intent(out) :: ierror +end subroutine PMPI_Op_create + +end interface + interface MPI_Op_free @@ -2399,6 +4575,15 @@ end subroutine MPI_Op_free end interface +interface PMPI_Op_free + +subroutine PMPI_Op_free(op, ierror) + integer, intent(inout) :: op + integer, intent(out) :: ierror +end subroutine PMPI_Op_free + +end interface + interface MPI_Open_port @@ -2410,6 +4595,16 @@ end subroutine MPI_Open_port end interface +interface PMPI_Open_port + +subroutine PMPI_Open_port(info, port_name, ierror) + integer, intent(in) :: info + character(len=*), intent(out) :: port_name + integer, intent(out) :: ierror +end subroutine PMPI_Open_port + +end interface + interface MPI_Pack @@ -2429,6 +4624,24 @@ end subroutine MPI_Pack end interface +interface PMPI_Pack + +subroutine PMPI_Pack(inbuf, incount, datatype, outbuf, outsize, & + position, comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ inbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: inbuf + integer, intent(in) :: incount + integer, intent(in) :: datatype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ outbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: outbuf + integer, intent(in) :: outsize + integer, intent(inout) :: position + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Pack + +end interface + interface MPI_Pack_external @@ -2449,6 +4662,25 @@ end subroutine MPI_Pack_external end interface +interface PMPI_Pack_external + +subroutine PMPI_Pack_external(datarep, inbuf, incount, datatype, outbuf, & + outsize, position, ierror) + include 'mpif-config.h' + character(len=*), intent(in) :: datarep + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ inbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: inbuf + integer, intent(in) :: incount + integer, intent(in) :: datatype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ outbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: outbuf + integer(kind=MPI_ADDRESS_KIND), intent(in) :: outsize + integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position + integer, intent(out) :: ierror +end subroutine PMPI_Pack_external + +end interface + interface MPI_Pack_external_size @@ -2463,6 +4695,19 @@ end subroutine MPI_Pack_external_size end interface +interface PMPI_Pack_external_size + +subroutine PMPI_Pack_external_size(datarep, incount, datatype, size, ierror) + include 'mpif-config.h' + character(len=*), intent(in) :: datarep + integer, intent(in) :: incount + integer, intent(in) :: datatype + integer(kind=MPI_ADDRESS_KIND), intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Pack_external_size + +end interface + interface MPI_Pack_size @@ -2476,6 +4721,18 @@ end subroutine MPI_Pack_size end interface +interface PMPI_Pack_size + +subroutine PMPI_Pack_size(incount, datatype, comm, size, ierror) + integer, intent(in) :: incount + integer, intent(in) :: datatype + integer, intent(in) :: comm + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Pack_size + +end interface + interface MPI_Pcontrol @@ -2486,6 +4743,15 @@ end subroutine MPI_Pcontrol end interface +interface PMPI_Pcontrol + +subroutine PMPI_Pcontrol(level) + integer, intent(in) :: level + +end subroutine PMPI_Pcontrol + +end interface + interface MPI_Probe @@ -2500,6 +4766,19 @@ end subroutine MPI_Probe end interface +interface PMPI_Probe + +subroutine PMPI_Probe(source, tag, comm, status, ierror) + include 'mpif-config.h' + integer, intent(in) :: source + integer, intent(in) :: tag + integer, intent(in) :: comm + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_Probe + +end interface + interface MPI_Publish_name @@ -2512,6 +4791,17 @@ end subroutine MPI_Publish_name end interface +interface PMPI_Publish_name + +subroutine PMPI_Publish_name(service_name, info, port_name, ierror) + character(len=*), intent(in) :: service_name + integer, intent(in) :: info + character(len=*), intent(in) :: port_name + integer, intent(out) :: ierror +end subroutine PMPI_Publish_name + +end interface + interface MPI_Put @@ -2532,6 +4822,25 @@ end subroutine MPI_Put end interface +interface PMPI_Put + +subroutine PMPI_Put(origin_addr, origin_count, origin_datatype, target_rank, target_disp, & + target_count, target_datatype, win, ierror) + include 'mpif-config.h' + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ origin_addr + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: origin_addr + integer, intent(in) :: origin_count + integer, intent(in) :: origin_datatype + integer, intent(in) :: target_rank + integer(kind=MPI_ADDRESS_KIND), intent(in) :: target_disp + integer, intent(in) :: target_count + integer, intent(in) :: target_datatype + integer, intent(in) :: win + integer, intent(out) :: ierror +end subroutine PMPI_Put + +end interface + interface MPI_Query_thread @@ -2542,6 +4851,15 @@ end subroutine MPI_Query_thread end interface +interface PMPI_Query_thread + +subroutine PMPI_Query_thread(provided, ierror) + integer, intent(out) :: provided + integer, intent(out) :: ierror +end subroutine PMPI_Query_thread + +end interface + interface MPI_Recv @@ -2561,6 +4879,24 @@ end subroutine MPI_Recv end interface +interface PMPI_Recv + +subroutine PMPI_Recv(buf, count, datatype, source, tag, & + comm, status, ierror) + include 'mpif-config.h' + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: source + integer, intent(in) :: tag + integer, intent(in) :: comm + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_Recv + +end interface + interface MPI_Recv_init @@ -2579,6 +4915,23 @@ end subroutine MPI_Recv_init end interface +interface PMPI_Recv_init + +subroutine PMPI_Recv_init(buf, count, datatype, source, tag, & + comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: source + integer, intent(in) :: tag + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Recv_init + +end interface + interface MPI_Reduce @@ -2598,6 +4951,24 @@ end subroutine MPI_Reduce end interface +interface PMPI_Reduce + +subroutine PMPI_Reduce(sendbuf, recvbuf, count, datatype, op, & + root, comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: op + integer, intent(in) :: root + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Reduce + +end interface + interface MPI_Reduce_local @@ -2615,6 +4986,22 @@ end subroutine MPI_Reduce_local end interface +interface PMPI_Reduce_local + +subroutine PMPI_Reduce_local(inbuf, inout, count, datatype, op, & + ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ inbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: inbuf + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ inout + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: inout + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: op + integer, intent(out) :: ierror +end subroutine PMPI_Reduce_local + +end interface + interface MPI_Reduce_scatter @@ -2633,6 +5020,23 @@ end subroutine MPI_Reduce_scatter end interface +interface PMPI_Reduce_scatter + +subroutine PMPI_Reduce_scatter(sendbuf, recvbuf, recvcounts, datatype, op, & + comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, dimension(*), intent(in) :: recvcounts + integer, intent(in) :: datatype + integer, intent(in) :: op + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Reduce_scatter + +end interface + interface MPI_Reduce_scatter_block @@ -2651,6 +5055,23 @@ end subroutine MPI_Reduce_scatter_block end interface +interface PMPI_Reduce_scatter_block + +subroutine PMPI_Reduce_scatter_block(sendbuf, recvbuf, recvcount, datatype, op, & + comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: recvcount + integer, intent(in) :: datatype + integer, intent(in) :: op + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Reduce_scatter_block + +end interface + interface MPI_Register_datarep @@ -2667,6 +5088,21 @@ end subroutine MPI_Register_datarep end interface +interface PMPI_Register_datarep + +subroutine PMPI_Register_datarep(datarep, read_conversion_fn, write_conversion_fn, dtype_file_extent_fn, extra_state& + , ierror) + include 'mpif-config.h' + character(len=*), intent(in) :: datarep + external :: read_conversion_fn + external :: write_conversion_fn + external :: dtype_file_extent_fn + integer(kind=MPI_ADDRESS_KIND), intent(in) :: extra_state + integer, intent(out) :: ierror +end subroutine PMPI_Register_datarep + +end interface + interface MPI_Request_free @@ -2677,6 +5113,15 @@ end subroutine MPI_Request_free end interface +interface PMPI_Request_free + +subroutine PMPI_Request_free(request, ierror) + integer, intent(inout) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Request_free + +end interface + interface MPI_Request_get_status @@ -2690,6 +5135,18 @@ end subroutine MPI_Request_get_status end interface +interface PMPI_Request_get_status + +subroutine PMPI_Request_get_status(request, flag, status, ierror) + include 'mpif-config.h' + integer, intent(in) :: request + logical, intent(out) :: flag + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_Request_get_status + +end interface + interface MPI_Rsend @@ -2707,6 +5164,22 @@ end subroutine MPI_Rsend end interface +interface PMPI_Rsend + +subroutine PMPI_Rsend(ibuf, count, datatype, dest, tag, & + comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ ibuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: ibuf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: dest + integer, intent(in) :: tag + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Rsend + +end interface + interface MPI_Rsend_init @@ -2725,6 +5198,23 @@ end subroutine MPI_Rsend_init end interface +interface PMPI_Rsend_init + +subroutine PMPI_Rsend_init(buf, count, datatype, dest, tag, & + comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: dest + integer, intent(in) :: tag + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Rsend_init + +end interface + interface MPI_Scan @@ -2743,6 +5233,23 @@ end subroutine MPI_Scan end interface +interface PMPI_Scan + +subroutine PMPI_Scan(sendbuf, recvbuf, count, datatype, op, & + comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: op + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Scan + +end interface + interface MPI_Scatter @@ -2763,6 +5270,25 @@ end subroutine MPI_Scatter end interface +interface PMPI_Scatter + +subroutine PMPI_Scatter(sendbuf, sendcount, sendtype, recvbuf, recvcount, & + recvtype, root, comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: recvcount + integer, intent(in) :: recvtype + integer, intent(in) :: root + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Scatter + +end interface + interface MPI_Scatterv @@ -2784,6 +5310,26 @@ end subroutine MPI_Scatterv end interface +interface PMPI_Scatterv + +subroutine PMPI_Scatterv(sendbuf, sendcounts, displs, sendtype, recvbuf, & + recvcount, recvtype, root, comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, dimension(*), intent(in) :: sendcounts + integer, dimension(*), intent(in) :: displs + integer, intent(in) :: sendtype + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: recvcount + integer, intent(in) :: recvtype + integer, intent(in) :: root + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Scatterv + +end interface + interface MPI_Send @@ -2801,6 +5347,22 @@ end subroutine MPI_Send end interface +interface PMPI_Send + +subroutine PMPI_Send(buf, count, datatype, dest, tag, & + comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: dest + integer, intent(in) :: tag + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Send + +end interface + interface MPI_Send_init @@ -2819,6 +5381,23 @@ end subroutine MPI_Send_init end interface +interface PMPI_Send_init + +subroutine PMPI_Send_init(buf, count, datatype, dest, tag, & + comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: dest + integer, intent(in) :: tag + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Send_init + +end interface + interface MPI_Sendrecv @@ -2844,6 +5423,30 @@ end subroutine MPI_Sendrecv end interface +interface PMPI_Sendrecv + +subroutine PMPI_Sendrecv(sendbuf, sendcount, sendtype, dest, sendtag, & + recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierror) + include 'mpif-config.h' + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ sendbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: sendbuf + integer, intent(in) :: sendcount + integer, intent(in) :: sendtype + integer, intent(in) :: dest + integer, intent(in) :: sendtag + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ recvbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: recvbuf + integer, intent(in) :: recvcount + integer, intent(in) :: recvtype + integer, intent(in) :: source + integer, intent(in) :: recvtag + integer, intent(in) :: comm + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_Sendrecv + +end interface + interface MPI_Sendrecv_replace @@ -2865,6 +5468,26 @@ end subroutine MPI_Sendrecv_replace end interface +interface PMPI_Sendrecv_replace + +subroutine PMPI_Sendrecv_replace(buf, count, datatype, dest, sendtag, & + source, recvtag, comm, status, ierror) + include 'mpif-config.h' + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: dest + integer, intent(in) :: sendtag + integer, intent(in) :: source + integer, intent(in) :: recvtag + integer, intent(in) :: comm + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_Sendrecv_replace + +end interface + interface MPI_Sizeof @@ -3220,6 +5843,360 @@ end subroutine MPI_Sizeof4DC16 end interface +interface PMPI_Sizeof + +! JMS choice +subroutine PMPI_Sizeof(x, size, ierror) + character, intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof + + +subroutine PMPI_Sizeof0DL(x, size, ierror) + logical, intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof0DL + + +subroutine PMPI_Sizeof0DI1(x, size, ierror) + integer*1, intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof0DI1 + + +subroutine PMPI_Sizeof0DI2(x, size, ierror) + integer*2, intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof0DI2 + + +subroutine PMPI_Sizeof0DI4(x, size, ierror) + integer*4, intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof0DI4 + + +subroutine PMPI_Sizeof0DI8(x, size, ierror) + integer*8, intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof0DI8 + + +subroutine PMPI_Sizeof0DR4(x, size, ierror) + real*4, intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof0DR4 + + +subroutine PMPI_Sizeof0DR8(x, size, ierror) + real*8, intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof0DR8 + + +subroutine PMPI_Sizeof0DC8(x, size, ierror) + complex*8, intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof0DC8 + + +subroutine PMPI_Sizeof0DC16(x, size, ierror) + complex*16, intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof0DC16 + + +subroutine PMPI_Sizeof1DCH(x, size, ierror) + character, dimension(*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof1DCH + + +subroutine PMPI_Sizeof1DL(x, size, ierror) + logical, dimension(*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof1DL + + +subroutine PMPI_Sizeof1DI1(x, size, ierror) + integer*1, dimension(*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof1DI1 + + +subroutine PMPI_Sizeof1DI2(x, size, ierror) + integer*2, dimension(*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof1DI2 + + +subroutine PMPI_Sizeof1DI4(x, size, ierror) + integer*4, dimension(*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof1DI4 + + +subroutine PMPI_Sizeof1DI8(x, size, ierror) + integer*8, dimension(*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof1DI8 + + +subroutine PMPI_Sizeof1DR4(x, size, ierror) + real*4, dimension(*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof1DR4 + + +subroutine PMPI_Sizeof1DR8(x, size, ierror) + real*8, dimension(*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof1DR8 + + +subroutine PMPI_Sizeof1DC8(x, size, ierror) + complex*8, dimension(*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof1DC8 + + +subroutine PMPI_Sizeof1DC16(x, size, ierror) + complex*16, dimension(*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof1DC16 + + +subroutine PMPI_Sizeof2DCH(x, size, ierror) + character, dimension(1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof2DCH + + +subroutine PMPI_Sizeof2DL(x, size, ierror) + logical, dimension(1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof2DL + + +subroutine PMPI_Sizeof2DI1(x, size, ierror) + integer*1, dimension(1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof2DI1 + + +subroutine PMPI_Sizeof2DI2(x, size, ierror) + integer*2, dimension(1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof2DI2 + + +subroutine PMPI_Sizeof2DI4(x, size, ierror) + integer*4, dimension(1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof2DI4 + + +subroutine PMPI_Sizeof2DI8(x, size, ierror) + integer*8, dimension(1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof2DI8 + + +subroutine PMPI_Sizeof2DR4(x, size, ierror) + real*4, dimension(1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof2DR4 + + +subroutine PMPI_Sizeof2DR8(x, size, ierror) + real*8, dimension(1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof2DR8 + + +subroutine PMPI_Sizeof2DC8(x, size, ierror) + complex*8, dimension(1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof2DC8 + + +subroutine PMPI_Sizeof2DC16(x, size, ierror) + complex*16, dimension(1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof2DC16 + + +subroutine PMPI_Sizeof3DCH(x, size, ierror) + character, dimension(1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof3DCH + + +subroutine PMPI_Sizeof3DL(x, size, ierror) + logical, dimension(1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof3DL + + +subroutine PMPI_Sizeof3DI1(x, size, ierror) + integer*1, dimension(1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof3DI1 + + +subroutine PMPI_Sizeof3DI2(x, size, ierror) + integer*2, dimension(1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof3DI2 + + +subroutine PMPI_Sizeof3DI4(x, size, ierror) + integer*4, dimension(1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof3DI4 + + +subroutine PMPI_Sizeof3DI8(x, size, ierror) + integer*8, dimension(1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof3DI8 + + +subroutine PMPI_Sizeof3DR4(x, size, ierror) + real*4, dimension(1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof3DR4 + + +subroutine PMPI_Sizeof3DR8(x, size, ierror) + real*8, dimension(1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof3DR8 + + +subroutine PMPI_Sizeof3DC8(x, size, ierror) + complex*8, dimension(1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof3DC8 + + +subroutine PMPI_Sizeof3DC16(x, size, ierror) + complex*16, dimension(1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof3DC16 + + +subroutine PMPI_Sizeof4DCH(x, size, ierror) + character, dimension(1,1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof4DCH + + +subroutine PMPI_Sizeof4DL(x, size, ierror) + logical, dimension(1,1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof4DL + + +subroutine PMPI_Sizeof4DI1(x, size, ierror) + integer*1, dimension(1,1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof4DI1 + + +subroutine PMPI_Sizeof4DI2(x, size, ierror) + integer*2, dimension(1,1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof4DI2 + + +subroutine PMPI_Sizeof4DI4(x, size, ierror) + integer*4, dimension(1,1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof4DI4 + + +subroutine PMPI_Sizeof4DI8(x, size, ierror) + integer*8, dimension(1,1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof4DI8 + + +subroutine PMPI_Sizeof4DR4(x, size, ierror) + real*4, dimension(1,1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof4DR4 + + +subroutine PMPI_Sizeof4DR8(x, size, ierror) + real*8, dimension(1,1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof4DR8 + + +subroutine PMPI_Sizeof4DC8(x, size, ierror) + complex*8, dimension(1,1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof4DC8 + + +subroutine PMPI_Sizeof4DC16(x, size, ierror) + complex*16, dimension(1,1,1,*), intent(in) :: x + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Sizeof4DC16 + +end interface + interface MPI_Ssend @@ -3237,6 +6214,22 @@ end subroutine MPI_Ssend end interface +interface PMPI_Ssend + +subroutine PMPI_Ssend(buf, count, datatype, dest, tag, & + comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: dest + integer, intent(in) :: tag + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Ssend + +end interface + interface MPI_Ssend_init @@ -3255,6 +6248,23 @@ end subroutine MPI_Ssend_init end interface +interface PMPI_Ssend_init + +subroutine PMPI_Ssend_init(buf, count, datatype, dest, tag, & + comm, request, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ buf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: buf + integer, intent(in) :: count + integer, intent(in) :: datatype + integer, intent(in) :: dest + integer, intent(in) :: tag + integer, intent(in) :: comm + integer, intent(out) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Ssend_init + +end interface + interface MPI_Start @@ -3265,6 +6275,15 @@ end subroutine MPI_Start end interface +interface PMPI_Start + +subroutine PMPI_Start(request, ierror) + integer, intent(inout) :: request + integer, intent(out) :: ierror +end subroutine PMPI_Start + +end interface + interface MPI_Startall @@ -3276,6 +6295,16 @@ end subroutine MPI_Startall end interface +interface PMPI_Startall + +subroutine PMPI_Startall(count, array_of_requests, ierror) + integer, intent(in) :: count + integer, dimension(*), intent(inout) :: array_of_requests + integer, intent(out) :: ierror +end subroutine PMPI_Startall + +end interface + interface MPI_Status_set_cancelled @@ -3288,6 +6317,17 @@ end subroutine MPI_Status_set_cancelled end interface +interface PMPI_Status_set_cancelled + +subroutine PMPI_Status_set_cancelled(status, flag, ierror) + include 'mpif-config.h' + integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status + logical, intent(in) :: flag + integer, intent(out) :: ierror +end subroutine PMPI_Status_set_cancelled + +end interface + interface MPI_Status_set_elements @@ -3301,6 +6341,18 @@ end subroutine MPI_Status_set_elements end interface +interface PMPI_Status_set_elements + +subroutine PMPI_Status_set_elements(status, datatype, count, ierror) + include 'mpif-config.h' + integer, dimension(MPI_STATUS_SIZE), intent(inout) :: status + integer, intent(in) :: datatype + integer, intent(in) :: count + integer, intent(out) :: ierror +end subroutine PMPI_Status_set_elements + +end interface + interface MPI_Test @@ -3314,6 +6366,18 @@ end subroutine MPI_Test end interface +interface PMPI_Test + +subroutine PMPI_Test(request, flag, status, ierror) + include 'mpif-config.h' + integer, intent(inout) :: request + logical, intent(out) :: flag + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_Test + +end interface + interface MPI_Test_cancelled @@ -3326,6 +6390,17 @@ end subroutine MPI_Test_cancelled end interface +interface PMPI_Test_cancelled + +subroutine PMPI_Test_cancelled(status, flag, ierror) + include 'mpif-config.h' + integer, dimension(MPI_STATUS_SIZE), intent(in) :: status + logical, intent(out) :: flag + integer, intent(out) :: ierror +end subroutine PMPI_Test_cancelled + +end interface + interface MPI_Testall @@ -3340,6 +6415,19 @@ end subroutine MPI_Testall end interface +interface PMPI_Testall + +subroutine PMPI_Testall(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, *), intent(out) :: array_of_statuses + integer, intent(out) :: ierror +end subroutine PMPI_Testall + +end interface + interface MPI_Testany @@ -3356,6 +6444,21 @@ end subroutine MPI_Testany end interface +interface PMPI_Testany + +subroutine PMPI_Testany(count, array_of_requests, index, flag, status& + , ierror) + include 'mpif-config.h' + integer, intent(in) :: count + integer, dimension(count), intent(inout) :: array_of_requests + integer, intent(out) :: index + logical, intent(out) :: flag + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_Testany + +end interface + interface MPI_Testsome @@ -3372,6 +6475,21 @@ end subroutine MPI_Testsome end interface +interface PMPI_Testsome + +subroutine PMPI_Testsome(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, *), intent(out) :: array_of_statuses + integer, intent(out) :: ierror +end subroutine PMPI_Testsome + +end interface + interface MPI_Topo_test @@ -3383,6 +6501,16 @@ end subroutine MPI_Topo_test end interface +interface PMPI_Topo_test + +subroutine PMPI_Topo_test(comm, status, ierror) + integer, intent(in) :: comm + integer, intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_Topo_test + +end interface + interface MPI_Type_commit @@ -3393,6 +6521,15 @@ end subroutine MPI_Type_commit end interface +interface PMPI_Type_commit + +subroutine PMPI_Type_commit(type, ierror) + integer, intent(inout) :: type + integer, intent(out) :: ierror +end subroutine PMPI_Type_commit + +end interface + interface MPI_Type_contiguous @@ -3405,6 +6542,17 @@ end subroutine MPI_Type_contiguous end interface +interface PMPI_Type_contiguous + +subroutine PMPI_Type_contiguous(count, oldtype, newtype, ierror) + integer, intent(in) :: count + integer, intent(in) :: oldtype + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_contiguous + +end interface + interface MPI_Type_create_darray @@ -3425,6 +6573,25 @@ end subroutine MPI_Type_create_darray end interface +interface PMPI_Type_create_darray + +subroutine PMPI_Type_create_darray(size, rank, ndims, gsize_array, distrib_array, & + darg_array, psize_array, order, oldtype, newtype, ierror) + integer, intent(in) :: size + integer, intent(in) :: rank + integer, intent(in) :: ndims + integer, dimension(*), intent(in) :: gsize_array + integer, dimension(*), intent(in) :: distrib_array + integer, dimension(*), intent(in) :: darg_array + integer, dimension(*), intent(in) :: psize_array + integer, intent(in) :: order + integer, intent(in) :: oldtype + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_create_darray + +end interface + interface MPI_Type_create_f90_complex @@ -3437,6 +6604,17 @@ end subroutine MPI_Type_create_f90_complex end interface +interface PMPI_Type_create_f90_complex + +subroutine PMPI_Type_create_f90_complex(p, r, newtype, ierror) + integer, intent(in) :: p + integer, intent(in) :: r + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_create_f90_complex + +end interface + interface MPI_Type_create_f90_integer @@ -3448,6 +6626,16 @@ end subroutine MPI_Type_create_f90_integer end interface +interface PMPI_Type_create_f90_integer + +subroutine PMPI_Type_create_f90_integer(r, newtype, ierror) + integer, intent(in) :: r + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_create_f90_integer + +end interface + interface MPI_Type_create_f90_real @@ -3460,6 +6648,17 @@ end subroutine MPI_Type_create_f90_real end interface +interface PMPI_Type_create_f90_real + +subroutine PMPI_Type_create_f90_real(p, r, newtype, ierror) + integer, intent(in) :: p + integer, intent(in) :: r + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_create_f90_real + +end interface + interface MPI_Type_create_hindexed @@ -3476,6 +6675,21 @@ end subroutine MPI_Type_create_hindexed end interface +interface PMPI_Type_create_hindexed + +subroutine PMPI_Type_create_hindexed(count, array_of_blocklengths, array_of_displacements, oldtype, newtype& + , ierror) + include 'mpif-config.h' + integer, intent(in) :: count + integer, dimension(*), intent(in) :: array_of_blocklengths + integer(kind=MPI_ADDRESS_KIND), dimension(*), intent(in) :: array_of_displacements + integer, intent(in) :: oldtype + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_create_hindexed + +end interface + interface MPI_Type_create_hvector @@ -3492,6 +6706,21 @@ end subroutine MPI_Type_create_hvector end interface +interface PMPI_Type_create_hvector + +subroutine PMPI_Type_create_hvector(count, blocklength, stride, oldtype, newtype& + , ierror) + include 'mpif-config.h' + integer, intent(in) :: count + integer, intent(in) :: blocklength + integer(kind=MPI_ADDRESS_KIND), intent(in) :: stride + integer, intent(in) :: oldtype + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_create_hvector + +end interface + interface MPI_Type_create_indexed_block @@ -3507,6 +6736,20 @@ end subroutine MPI_Type_create_indexed_block end interface +interface PMPI_Type_create_indexed_block + +subroutine PMPI_Type_create_indexed_block(count, blocklength, array_of_displacements, oldtype, newtype& + , ierror) + integer, intent(in) :: count + integer, intent(in) :: blocklength + integer, dimension(*), intent(in) :: array_of_displacements + integer, intent(in) :: oldtype + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_create_indexed_block + +end interface + interface MPI_Type_create_hindexed_block @@ -3523,6 +6766,21 @@ end subroutine MPI_Type_create_hindexed_block end interface +interface PMPI_Type_create_hindexed_block + +subroutine PMPI_Type_create_hindexed_block(count, blocklength, array_of_displacements, oldtype, newtype& + , ierror) + include 'mpif-config.h' + integer, intent(in) :: count + integer, intent(in) :: blocklength + integer(kind=MPI_ADDRESS_KIND), dimension(*), intent(in) :: array_of_displacements + integer, intent(in) :: oldtype + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_create_hindexed_block + +end interface + interface MPI_Type_create_keyval @@ -3537,6 +6795,19 @@ end subroutine MPI_Type_create_keyval end interface +interface PMPI_Type_create_keyval + +subroutine PMPI_Type_create_keyval(type_copy_attr_fn, type_delete_attr_fn, type_keyval, extra_state, ierror) + include 'mpif-config.h' + external :: type_copy_attr_fn + external :: type_delete_attr_fn + integer, intent(out) :: type_keyval + integer(kind=MPI_ADDRESS_KIND), intent(in) :: extra_state + integer, intent(out) :: ierror +end subroutine PMPI_Type_create_keyval + +end interface + interface MPI_Type_create_resized @@ -3551,6 +6822,19 @@ end subroutine MPI_Type_create_resized end interface +interface PMPI_Type_create_resized + +subroutine PMPI_Type_create_resized(oldtype, lb, extent, newtype, ierror) + include 'mpif-config.h' + integer, intent(in) :: oldtype + integer(kind=MPI_ADDRESS_KIND), intent(in) :: lb + integer(kind=MPI_ADDRESS_KIND), intent(in) :: extent + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_create_resized + +end interface + interface MPI_Type_create_struct @@ -3567,6 +6851,21 @@ end subroutine MPI_Type_create_struct end interface +interface PMPI_Type_create_struct + +subroutine PMPI_Type_create_struct(count, array_of_block_lengths, array_of_displacements, array_of_types, newtype& + , ierror) + include 'mpif-config.h' + integer, intent(in) :: count + integer, dimension(*), intent(in) :: array_of_block_lengths + integer(kind=MPI_ADDRESS_KIND), dimension(*), intent(in) :: array_of_displacements + integer, dimension(*), intent(in) :: array_of_types + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_create_struct + +end interface + interface MPI_Type_create_subarray @@ -3584,6 +6883,22 @@ end subroutine MPI_Type_create_subarray end interface +interface PMPI_Type_create_subarray + +subroutine PMPI_Type_create_subarray(ndims, size_array, subsize_array, start_array, order, & + oldtype, newtype, ierror) + integer, intent(in) :: ndims + integer, dimension(*), intent(in) :: size_array + integer, dimension(*), intent(in) :: subsize_array + integer, dimension(*), intent(in) :: start_array + integer, intent(in) :: order + integer, intent(in) :: oldtype + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_create_subarray + +end interface + interface MPI_Type_delete_attr @@ -3595,6 +6910,16 @@ end subroutine MPI_Type_delete_attr end interface +interface PMPI_Type_delete_attr + +subroutine PMPI_Type_delete_attr(type, type_keyval, ierror) + integer, intent(in) :: type + integer, intent(in) :: type_keyval + integer, intent(out) :: ierror +end subroutine PMPI_Type_delete_attr + +end interface + interface MPI_Type_dup @@ -3606,6 +6931,16 @@ end subroutine MPI_Type_dup end interface +interface PMPI_Type_dup + +subroutine PMPI_Type_dup(type, newtype, ierror) + integer, intent(in) :: type + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_dup + +end interface + interface MPI_Type_extent @@ -3617,6 +6952,16 @@ end subroutine MPI_Type_extent end interface +interface PMPI_Type_extent + +subroutine PMPI_Type_extent(type, extent, ierror) + integer, intent(in) :: type + integer, intent(out) :: extent + integer, intent(out) :: ierror +end subroutine PMPI_Type_extent + +end interface + interface MPI_Type_free @@ -3627,6 +6972,15 @@ end subroutine MPI_Type_free end interface +interface PMPI_Type_free + +subroutine PMPI_Type_free(type, ierror) + integer, intent(inout) :: type + integer, intent(out) :: ierror +end subroutine PMPI_Type_free + +end interface + interface MPI_Type_free_keyval @@ -3637,6 +6991,15 @@ end subroutine MPI_Type_free_keyval end interface +interface PMPI_Type_free_keyval + +subroutine PMPI_Type_free_keyval(type_keyval, ierror) + integer, intent(inout) :: type_keyval + integer, intent(out) :: ierror +end subroutine PMPI_Type_free_keyval + +end interface + interface MPI_Type_get_attr @@ -3651,6 +7014,19 @@ end subroutine MPI_Type_get_attr end interface +interface PMPI_Type_get_attr + +subroutine PMPI_Type_get_attr(type, type_keyval, attribute_val, flag, ierror) + include 'mpif-config.h' + integer, intent(in) :: type + integer, intent(in) :: type_keyval + integer(kind=MPI_ADDRESS_KIND), intent(out) :: attribute_val + logical, intent(out) :: flag + integer, intent(out) :: ierror +end subroutine PMPI_Type_get_attr + +end interface + interface MPI_Type_get_contents @@ -3669,6 +7045,23 @@ end subroutine MPI_Type_get_contents end interface +interface PMPI_Type_get_contents + +subroutine PMPI_Type_get_contents(mtype, max_integers, max_addresses, max_datatypes, array_of_integers, & + array_of_addresses, array_of_datatypes, ierror) + include 'mpif-config.h' + integer, intent(in) :: mtype + integer, intent(in) :: max_integers + integer, intent(in) :: max_addresses + integer, intent(in) :: max_datatypes + integer, dimension(*), intent(out) :: array_of_integers + integer(kind=MPI_ADDRESS_KIND), dimension(*), intent(out) :: array_of_addresses + integer, dimension(*), intent(out) :: array_of_datatypes + integer, intent(out) :: ierror +end subroutine PMPI_Type_get_contents + +end interface + interface MPI_Type_get_envelope @@ -3684,6 +7077,20 @@ end subroutine MPI_Type_get_envelope end interface +interface PMPI_Type_get_envelope + +subroutine PMPI_Type_get_envelope(type, num_integers, num_addresses, num_datatypes, combiner& + , ierror) + integer, intent(in) :: type + integer, intent(out) :: num_integers + integer, intent(out) :: num_addresses + integer, intent(out) :: num_datatypes + integer, intent(out) :: combiner + integer, intent(out) :: ierror +end subroutine PMPI_Type_get_envelope + +end interface + interface MPI_Type_get_extent @@ -3697,6 +7104,18 @@ end subroutine MPI_Type_get_extent end interface +interface PMPI_Type_get_extent + +subroutine PMPI_Type_get_extent(type, lb, extent, ierror) + include 'mpif-config.h' + integer, intent(in) :: type + integer(kind=MPI_ADDRESS_KIND), intent(out) :: lb + integer(kind=MPI_ADDRESS_KIND), intent(out) :: extent + integer, intent(out) :: ierror +end subroutine PMPI_Type_get_extent + +end interface + interface MPI_Type_get_name @@ -3709,6 +7128,17 @@ end subroutine MPI_Type_get_name end interface +interface PMPI_Type_get_name + +subroutine PMPI_Type_get_name(type, type_name, resultlen, ierror) + integer, intent(in) :: type + character(len=*), intent(out) :: type_name + integer, intent(out) :: resultlen + integer, intent(out) :: ierror +end subroutine PMPI_Type_get_name + +end interface + interface MPI_Type_get_true_extent @@ -3722,6 +7152,18 @@ end subroutine MPI_Type_get_true_extent end interface +interface PMPI_Type_get_true_extent + +subroutine PMPI_Type_get_true_extent(datatype, true_lb, true_extent, ierror) + include 'mpif-config.h' + integer, intent(in) :: datatype + integer(kind=MPI_ADDRESS_KIND), intent(out) :: true_lb + integer(kind=MPI_ADDRESS_KIND), intent(out) :: true_extent + integer, intent(out) :: ierror +end subroutine PMPI_Type_get_true_extent + +end interface + interface MPI_Type_hindexed @@ -3737,6 +7179,20 @@ end subroutine MPI_Type_hindexed end interface +interface PMPI_Type_hindexed + +subroutine PMPI_Type_hindexed(count, array_of_blocklengths, array_of_displacements, oldtype, newtype& + , ierror) + integer, intent(in) :: count + integer, dimension(*), intent(in) :: array_of_blocklengths + integer, dimension(*), intent(in) :: array_of_displacements + integer, intent(in) :: oldtype + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_hindexed + +end interface + interface MPI_Type_hvector @@ -3752,6 +7208,20 @@ end subroutine MPI_Type_hvector end interface +interface PMPI_Type_hvector + +subroutine PMPI_Type_hvector(count, blocklength, stride, oldtype, newtype& + , ierror) + integer, intent(in) :: count + integer, intent(in) :: blocklength + integer, intent(in) :: stride + integer, intent(in) :: oldtype + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_hvector + +end interface + interface MPI_Type_indexed @@ -3767,6 +7237,20 @@ end subroutine MPI_Type_indexed end interface +interface PMPI_Type_indexed + +subroutine PMPI_Type_indexed(count, array_of_blocklengths, array_of_displacements, oldtype, newtype& + , ierror) + integer, intent(in) :: count + integer, dimension(*), intent(in) :: array_of_blocklengths + integer, dimension(*), intent(in) :: array_of_displacements + integer, intent(in) :: oldtype + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_indexed + +end interface + interface MPI_Type_lb @@ -3778,6 +7262,16 @@ end subroutine MPI_Type_lb end interface +interface PMPI_Type_lb + +subroutine PMPI_Type_lb(type, lb, ierror) + integer, intent(in) :: type + integer, intent(out) :: lb + integer, intent(out) :: ierror +end subroutine PMPI_Type_lb + +end interface + interface MPI_Type_match_size @@ -3790,6 +7284,17 @@ end subroutine MPI_Type_match_size end interface +interface PMPI_Type_match_size + +subroutine PMPI_Type_match_size(typeclass, size, type, ierror) + integer, intent(in) :: typeclass + integer, intent(in) :: size + integer, intent(out) :: type + integer, intent(out) :: ierror +end subroutine PMPI_Type_match_size + +end interface + interface MPI_Type_set_attr @@ -3803,6 +7308,18 @@ end subroutine MPI_Type_set_attr end interface +interface PMPI_Type_set_attr + +subroutine PMPI_Type_set_attr(type, type_keyval, attr_val, ierror) + include 'mpif-config.h' + integer, intent(in) :: type + integer, intent(in) :: type_keyval + integer(kind=MPI_ADDRESS_KIND), intent(in) :: attr_val + integer, intent(out) :: ierror +end subroutine PMPI_Type_set_attr + +end interface + interface MPI_Type_set_name @@ -3814,6 +7331,16 @@ end subroutine MPI_Type_set_name end interface +interface PMPI_Type_set_name + +subroutine PMPI_Type_set_name(type, type_name, ierror) + integer, intent(in) :: type + character(len=*), intent(in) :: type_name + integer, intent(out) :: ierror +end subroutine PMPI_Type_set_name + +end interface + interface MPI_Type_size @@ -3825,6 +7352,16 @@ end subroutine MPI_Type_size end interface +interface PMPI_Type_size + +subroutine PMPI_Type_size(type, size, ierror) + integer, intent(in) :: type + integer, intent(out) :: size + integer, intent(out) :: ierror +end subroutine PMPI_Type_size + +end interface + interface MPI_Type_struct @@ -3840,6 +7377,20 @@ end subroutine MPI_Type_struct end interface +interface PMPI_Type_struct + +subroutine PMPI_Type_struct(count, array_of_blocklengths, array_of_displacements, array_of_types, newtype& + , ierror) + integer, intent(in) :: count + integer, dimension(*), intent(in) :: array_of_blocklengths + integer, dimension(*), intent(in) :: array_of_displacements + integer, dimension(*), intent(in) :: array_of_types + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_struct + +end interface + interface MPI_Type_ub @@ -3851,6 +7402,16 @@ end subroutine MPI_Type_ub end interface +interface PMPI_Type_ub + +subroutine PMPI_Type_ub(mtype, ub, ierror) + integer, intent(in) :: mtype + integer, intent(out) :: ub + integer, intent(out) :: ierror +end subroutine PMPI_Type_ub + +end interface + interface MPI_Type_vector @@ -3866,6 +7427,20 @@ end subroutine MPI_Type_vector end interface +interface PMPI_Type_vector + +subroutine PMPI_Type_vector(count, blocklength, stride, oldtype, newtype& + , ierror) + integer, intent(in) :: count + integer, intent(in) :: blocklength + integer, intent(in) :: stride + integer, intent(in) :: oldtype + integer, intent(out) :: newtype + integer, intent(out) :: ierror +end subroutine PMPI_Type_vector + +end interface + interface MPI_Unpack @@ -3885,6 +7460,24 @@ end subroutine MPI_Unpack end interface +interface PMPI_Unpack + +subroutine PMPI_Unpack(inbuf, insize, position, outbuf, outcount, & + datatype, comm, ierror) + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ inbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: inbuf + integer, intent(in) :: insize + integer, intent(inout) :: position + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ outbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: outbuf + integer, intent(in) :: outcount + integer, intent(in) :: datatype + integer, intent(in) :: comm + integer, intent(out) :: ierror +end subroutine PMPI_Unpack + +end interface + interface MPI_Unpack_external @@ -3905,6 +7498,25 @@ end subroutine MPI_Unpack_external end interface +interface PMPI_Unpack_external + +subroutine PMPI_Unpack_external(datarep, inbuf, insize, position, outbuf, & + outcount, datatype, ierror) + include 'mpif-config.h' + character(len=*), intent(in) :: datarep + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ inbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: inbuf + integer(kind=MPI_ADDRESS_KIND), intent(in) :: insize + integer(kind=MPI_ADDRESS_KIND), intent(inout) :: position + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ outbuf + @OMPI_FORTRAN_IGNORE_TKR_TYPE@ :: outbuf + integer, intent(in) :: outcount + integer, intent(in) :: datatype + integer, intent(out) :: ierror +end subroutine PMPI_Unpack_external + +end interface + interface MPI_Unpublish_name @@ -3917,6 +7529,17 @@ end subroutine MPI_Unpublish_name end interface +interface PMPI_Unpublish_name + +subroutine PMPI_Unpublish_name(service_name, info, port_name, ierror) + character(len=*), intent(in) :: service_name + integer, intent(in) :: info + character(len=*), intent(in) :: port_name + integer, intent(out) :: ierror +end subroutine PMPI_Unpublish_name + +end interface + interface MPI_Wait @@ -3929,6 +7552,17 @@ end subroutine MPI_Wait end interface +interface PMPI_Wait + +subroutine PMPI_Wait(request, status, ierror) + include 'mpif-config.h' + integer, intent(inout) :: request + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_Wait + +end interface + interface MPI_Waitall @@ -3942,6 +7576,18 @@ end subroutine MPI_Waitall end interface +interface PMPI_Waitall + +subroutine PMPI_Waitall(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, *), intent(out) :: array_of_statuses + integer, intent(out) :: ierror +end subroutine PMPI_Waitall + +end interface + interface MPI_Waitany @@ -3956,6 +7602,19 @@ end subroutine MPI_Waitany end interface +interface PMPI_Waitany + +subroutine PMPI_Waitany(count, array_of_requests, index, status, ierror) + include 'mpif-config.h' + integer, intent(in) :: count + integer, dimension(count), intent(inout) :: array_of_requests + integer, intent(out) :: index + integer, dimension(MPI_STATUS_SIZE), intent(out) :: status + integer, intent(out) :: ierror +end subroutine PMPI_Waitany + +end interface + interface MPI_Waitsome @@ -3972,6 +7631,21 @@ end subroutine MPI_Waitsome end interface +interface PMPI_Waitsome + +subroutine PMPI_Waitsome(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, *), intent(out) :: array_of_statuses + integer, intent(out) :: ierror +end subroutine PMPI_Waitsome + +end interface + interface MPI_Win_call_errhandler @@ -3983,6 +7657,16 @@ end subroutine MPI_Win_call_errhandler end interface +interface PMPI_Win_call_errhandler + +subroutine PMPI_Win_call_errhandler(win, errorcode, ierror) + integer, intent(in) :: win + integer, intent(in) :: errorcode + integer, intent(out) :: ierror +end subroutine PMPI_Win_call_errhandler + +end interface + interface MPI_Win_complete @@ -3993,6 +7677,15 @@ end subroutine MPI_Win_complete end interface +interface PMPI_Win_complete + +subroutine PMPI_Win_complete(win, ierror) + integer, intent(in) :: win + integer, intent(out) :: ierror +end subroutine PMPI_Win_complete + +end interface + interface MPI_Win_create @@ -4011,6 +7704,23 @@ end subroutine MPI_Win_create end interface +interface PMPI_Win_create + +subroutine PMPI_Win_create(base, size, disp_unit, info, comm, & + win, ierror) + include 'mpif-config.h' + @OMPI_FORTRAN_IGNORE_TKR_PREDECL@ base + @OMPI_FORTRAN_IGNORE_TKR_TYPE@, intent(in) :: base + integer(kind=MPI_ADDRESS_KIND), intent(in) :: size + integer, intent(in) :: disp_unit + integer, intent(in) :: info + integer, intent(in) :: comm + integer, intent(out) :: win + integer, intent(out) :: ierror +end subroutine PMPI_Win_create + +end interface + interface MPI_Win_create_errhandler @@ -4022,6 +7732,16 @@ end subroutine MPI_Win_create_errhandler end interface +interface PMPI_Win_create_errhandler + +subroutine PMPI_Win_create_errhandler(function, errhandler, ierror) + external :: function + integer, intent(out) :: errhandler + integer, intent(out) :: ierror +end subroutine PMPI_Win_create_errhandler + +end interface + interface MPI_Win_create_keyval @@ -4036,6 +7756,19 @@ end subroutine MPI_Win_create_keyval end interface +interface PMPI_Win_create_keyval + +subroutine PMPI_Win_create_keyval(win_copy_attr_fn, win_delete_attr_fn, win_keyval, extra_state, ierror) + include 'mpif-config.h' + external :: win_copy_attr_fn + external :: win_delete_attr_fn + integer, intent(out) :: win_keyval + integer(kind=MPI_ADDRESS_KIND), intent(in) :: extra_state + integer, intent(out) :: ierror +end subroutine PMPI_Win_create_keyval + +end interface + interface MPI_Win_delete_attr @@ -4047,6 +7780,16 @@ end subroutine MPI_Win_delete_attr end interface +interface PMPI_Win_delete_attr + +subroutine PMPI_Win_delete_attr(win, win_keyval, ierror) + integer, intent(in) :: win + integer, intent(in) :: win_keyval + integer, intent(out) :: ierror +end subroutine PMPI_Win_delete_attr + +end interface + interface MPI_Win_fence @@ -4058,6 +7801,16 @@ end subroutine MPI_Win_fence end interface +interface PMPI_Win_fence + +subroutine PMPI_Win_fence(assert, win, ierror) + integer, intent(in) :: assert + integer, intent(in) :: win + integer, intent(out) :: ierror +end subroutine PMPI_Win_fence + +end interface + interface MPI_Win_free @@ -4068,6 +7821,15 @@ end subroutine MPI_Win_free end interface +interface PMPI_Win_free + +subroutine PMPI_Win_free(win, ierror) + integer, intent(inout) :: win + integer, intent(out) :: ierror +end subroutine PMPI_Win_free + +end interface + interface MPI_Win_free_keyval @@ -4078,6 +7840,15 @@ end subroutine MPI_Win_free_keyval end interface +interface PMPI_Win_free_keyval + +subroutine PMPI_Win_free_keyval(win_keyval, ierror) + integer, intent(inout) :: win_keyval + integer, intent(out) :: ierror +end subroutine PMPI_Win_free_keyval + +end interface + interface MPI_Win_get_attr @@ -4092,6 +7863,19 @@ end subroutine MPI_Win_get_attr end interface +interface PMPI_Win_get_attr + +subroutine PMPI_Win_get_attr(win, win_keyval, attribute_val, flag, ierror) + include 'mpif-config.h' + integer, intent(in) :: win + integer, intent(in) :: win_keyval + integer(kind=MPI_ADDRESS_KIND), intent(out) :: attribute_val + logical, intent(out) :: flag + integer, intent(out) :: ierror +end subroutine PMPI_Win_get_attr + +end interface + interface MPI_Win_get_errhandler @@ -4103,6 +7887,16 @@ end subroutine MPI_Win_get_errhandler end interface +interface PMPI_Win_get_errhandler + +subroutine PMPI_Win_get_errhandler(win, errhandler, ierror) + integer, intent(in) :: win + integer, intent(out) :: errhandler + integer, intent(out) :: ierror +end subroutine PMPI_Win_get_errhandler + +end interface + interface MPI_Win_get_group @@ -4114,6 +7908,16 @@ end subroutine MPI_Win_get_group end interface +interface PMPI_Win_get_group + +subroutine PMPI_Win_get_group(win, group, ierror) + integer, intent(in) :: win + integer, intent(out) :: group + integer, intent(out) :: ierror +end subroutine PMPI_Win_get_group + +end interface + interface MPI_Win_get_name @@ -4126,6 +7930,17 @@ end subroutine MPI_Win_get_name end interface +interface PMPI_Win_get_name + +subroutine PMPI_Win_get_name(win, win_name, resultlen, ierror) + integer, intent(in) :: win + character(len=*), intent(out) :: win_name + integer, intent(out) :: resultlen + integer, intent(out) :: ierror +end subroutine PMPI_Win_get_name + +end interface + interface MPI_Win_lock @@ -4139,6 +7954,18 @@ end subroutine MPI_Win_lock end interface +interface PMPI_Win_lock + +subroutine PMPI_Win_lock(lock_type, rank, assert, win, ierror) + integer, intent(in) :: lock_type + integer, intent(in) :: rank + integer, intent(in) :: assert + integer, intent(in) :: win + integer, intent(out) :: ierror +end subroutine PMPI_Win_lock + +end interface + interface MPI_Win_post @@ -4151,6 +7978,17 @@ end subroutine MPI_Win_post end interface +interface PMPI_Win_post + +subroutine PMPI_Win_post(group, assert, win, ierror) + integer, intent(in) :: group + integer, intent(in) :: assert + integer, intent(in) :: win + integer, intent(out) :: ierror +end subroutine PMPI_Win_post + +end interface + interface MPI_Win_set_attr @@ -4164,6 +8002,18 @@ end subroutine MPI_Win_set_attr end interface +interface PMPI_Win_set_attr + +subroutine PMPI_Win_set_attr(win, win_keyval, attribute_val, ierror) + include 'mpif-config.h' + integer, intent(in) :: win + integer, intent(in) :: win_keyval + integer(kind=MPI_ADDRESS_KIND), intent(in) :: attribute_val + integer, intent(out) :: ierror +end subroutine PMPI_Win_set_attr + +end interface + interface MPI_Win_set_errhandler @@ -4175,6 +8025,16 @@ end subroutine MPI_Win_set_errhandler end interface +interface PMPI_Win_set_errhandler + +subroutine PMPI_Win_set_errhandler(win, errhandler, ierror) + integer, intent(in) :: win + integer, intent(in) :: errhandler + integer, intent(out) :: ierror +end subroutine PMPI_Win_set_errhandler + +end interface + interface MPI_Win_set_name @@ -4186,6 +8046,16 @@ end subroutine MPI_Win_set_name end interface +interface PMPI_Win_set_name + +subroutine PMPI_Win_set_name(win, win_name, ierror) + integer, intent(in) :: win + character(len=*), intent(in) :: win_name + integer, intent(out) :: ierror +end subroutine PMPI_Win_set_name + +end interface + interface MPI_Win_start @@ -4198,6 +8068,17 @@ end subroutine MPI_Win_start end interface +interface PMPI_Win_start + +subroutine PMPI_Win_start(group, assert, win, ierror) + integer, intent(in) :: group + integer, intent(in) :: assert + integer, intent(in) :: win + integer, intent(out) :: ierror +end subroutine PMPI_Win_start + +end interface + interface MPI_Win_test @@ -4209,6 +8090,16 @@ end subroutine MPI_Win_test end interface +interface PMPI_Win_test + +subroutine PMPI_Win_test(win, flag, ierror) + integer, intent(in) :: win + logical, intent(out) :: flag + integer, intent(out) :: ierror +end subroutine PMPI_Win_test + +end interface + interface MPI_Win_unlock @@ -4220,6 +8111,16 @@ end subroutine MPI_Win_unlock end interface +interface PMPI_Win_unlock + +subroutine PMPI_Win_unlock(rank, win, ierror) + integer, intent(in) :: rank + integer, intent(in) :: win + integer, intent(out) :: ierror +end subroutine PMPI_Win_unlock + +end interface + interface MPI_Win_wait @@ -4230,6 +8131,15 @@ end subroutine MPI_Win_wait end interface +interface PMPI_Win_wait + +subroutine PMPI_Win_wait(win, ierror) + integer, intent(in) :: win + integer, intent(out) :: ierror +end subroutine PMPI_Win_wait + +end interface + interface MPI_Wtick @@ -4239,6 +8149,14 @@ end function MPI_Wtick end interface +interface PMPI_Wtick + +function PMPI_Wtick() + double precision PMPI_Wtick +end function PMPI_Wtick + +end interface + interface MPI_Wtime @@ -4247,3 +8165,11 @@ function MPI_Wtime() end function MPI_Wtime end interface + +interface PMPI_Wtime + +function PMPI_Wtime() + double precision PMPI_Wtime +end function PMPI_Wtime + +end interface