From 98156b7aceb948313a39881a07e438ef58ba35d3 Mon Sep 17 00:00:00 2001 From: Gilles Gouaillardet Date: Wed, 19 Sep 2018 11:36:13 +0900 Subject: [PATCH 1/4] use-mpi-f08: fix a typo in [P]MPI_Dist_graph_create_adjacent bindings Signed-off-by: Gilles Gouaillardet (cherry picked from commit open-mpi/ompi@d2393251f7259a72ad0409d2bff8016646cc6bcb) --- .../fortran/use-mpi-f08/dist_graph_create_adjacent_f08.F90 | 4 +++- .../use-mpi-f08/profile/pdist_graph_create_adjacent_f08.F90 | 4 +++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ompi/mpi/fortran/use-mpi-f08/dist_graph_create_adjacent_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/dist_graph_create_adjacent_f08.F90 index 884d4df36e..b5f5b9ad7d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/dist_graph_create_adjacent_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/dist_graph_create_adjacent_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Dist_graph_create_adjacent_f08(comm_old,indegree,sources,sourceweights,& @@ -25,6 +27,6 @@ subroutine MPI_Dist_graph_create_adjacent_f08(comm_old,indegree,sources,sourcewe call PMPI_Dist_graph_create_adjacent(comm_old%MPI_VAL,indegree,sources,& sourceweights,outdegree,destinations,& destweights,info%MPI_VAL,& - reorder,comm_dist_graph%MPI_VAL,ierror) + reorder,comm_dist_graph%MPI_VAL,c_ierror) if (present(ierror)) ierror = c_ierror end subroutine MPI_Dist_graph_create_adjacent_f08 diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pdist_graph_create_adjacent_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pdist_graph_create_adjacent_f08.F90 index ecee01e4ef..6d413a4500 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pdist_graph_create_adjacent_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pdist_graph_create_adjacent_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Dist_graph_create_adjacent_f08(comm_old,indegree,sources,sourceweights,& @@ -25,6 +27,6 @@ subroutine PMPI_Dist_graph_create_adjacent_f08(comm_old,indegree,sources,sourcew call PMPI_Dist_graph_create_adjacent(comm_old%MPI_VAL,indegree,sources,& sourceweights,outdegree,destinations,& destweights,info%MPI_VAL,& - reorder,comm_dist_graph%MPI_VAL,ierror) + reorder,comm_dist_graph%MPI_VAL,c_ierror) if (present(ierror)) ierror = c_ierror end subroutine PMPI_Dist_graph_create_adjacent_f08 From 03d994c9cf5bd9924dcccfabf545368e2638befe Mon Sep 17 00:00:00 2001 From: Gilles Gouaillardet Date: Wed, 19 Sep 2018 13:47:49 +0900 Subject: [PATCH 2/4] configury: do not define "dummy" empty targets any more. We previously needed to have empty targets because AM couldn't handle having an AM_CONDITIONAL was targets in the "if" statement but not in the "else". :-( That now appears as an old automake bug that has been fixed, so cleanup some Makefile.am Thanks Jeff for the pointer. Signed-off-by: Gilles Gouaillardet (cherry picked from commit open-mpi/ompi@6e04b2a66a3b22741352c759c246a14e69a8e802) --- ompi/mpi/fortran/use-mpi-f08/Makefile.am | 8 -------- ompi/mpi/fortran/use-mpi-f08/mod/Makefile.am | 10 +--------- ompi/mpi/fortran/use-mpi-ignore-tkr/Makefile.am | 10 +--------- 3 files changed, 2 insertions(+), 26 deletions(-) diff --git a/ompi/mpi/fortran/use-mpi-f08/Makefile.am b/ompi/mpi/fortran/use-mpi-f08/Makefile.am index 0d05bc5743..1de687b155 100644 --- a/ompi/mpi/fortran/use-mpi-f08/Makefile.am +++ b/ompi/mpi/fortran/use-mpi-f08/Makefile.am @@ -852,13 +852,5 @@ uninstall-local: echo rm -f $(DESTDIR)$(libdir)/$$file; \ rm -f $(DESTDIR)$(libdir)/$$file; \ done -else - -# Need to have empty targets because AM can't handle having an -# AM_CONDITIONAL was targets in the "if" statement but not in the -# "else". :-( - -install-exec-hook: -uninstall-local: endif diff --git a/ompi/mpi/fortran/use-mpi-f08/mod/Makefile.am b/ompi/mpi/fortran/use-mpi-f08/mod/Makefile.am index e8dc8bfbb5..45b7753b2b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/mod/Makefile.am +++ b/ompi/mpi/fortran/use-mpi-f08/mod/Makefile.am @@ -7,7 +7,7 @@ # Copyright (c) 2012-2013 Inria. All rights reserved. # Copyright (c) 2013 Los Alamos National Security, LLC. All rights # reserved. -# Copyright (c) 2015-2016 Research Organization for Information Science +# Copyright (c) 2015-2018 Research Organization for Information Science # and Technology (RIST). All rights reserved. # Copyright (c) 2016 IBM Corporation. All rights reserved. # @@ -90,13 +90,5 @@ uninstall-local: echo rm -f $(DESTDIR)$(libdir)/$$file; \ rm -f $(DESTDIR)$(libdir)/$$file; \ done -else - -# Need to have empty targets because AM can't handle having an -# AM_CONDITIONAL was targets in the "if" statement but not in the -# "else". :-( - -install-exec-hook: -uninstall-local: endif diff --git a/ompi/mpi/fortran/use-mpi-ignore-tkr/Makefile.am b/ompi/mpi/fortran/use-mpi-ignore-tkr/Makefile.am index d842e6a288..281e24b17f 100644 --- a/ompi/mpi/fortran/use-mpi-ignore-tkr/Makefile.am +++ b/ompi/mpi/fortran/use-mpi-ignore-tkr/Makefile.am @@ -1,7 +1,7 @@ # -*- makefile -*- # # Copyright (c) 2006-2015 Cisco Systems, Inc. All rights reserved. -# Copyright (c) 2015 Research Organization for Information Science +# Copyright (c) 2015-2018 Research Organization for Information Science # and Technology (RIST). All rights reserved. # Copyright (c) 2016 IBM Corporation. All rights reserved. # @@ -111,13 +111,5 @@ uninstall-local: echo rm -f $(DESTDIR)$(libdir)/$$file; \ rm -f $(DESTDIR)$(libdir)/$$file; \ done -else - -# Need to have empty targets because AM can't handle having an -# AM_CONDITIONAL was targets in the "if" statement but not in the -# "else". :-( - -install-exec-hook: -uninstall-local: endif From afb66d222ba8fddfc74c6e2c39232ca2b142e8a7 Mon Sep 17 00:00:00 2001 From: Gilles Gouaillardet Date: Wed, 18 Jul 2018 16:44:14 +0900 Subject: [PATCH 3/4] fortran/use-mpi-f08: fix [p]ompi_FOO_f symbols handling - do not generate bindings for pompi_FOO_f symbols (they are simply not used anywhere) - move ompi_FOO_f bindings out of mpi_f08.mod into ompi_mpifh_bindings.mod that is only used at build time Signed-off-by: Gilles Gouaillardet (cherry picked from commit open-mpi/ompi@c6070fd2e0fae48803b9f909aa63614a1705a2dc) --- config/ompi_config_files.m4 | 3 +- ompi/Makefile.am | 4 +- ompi/mpi/fortran/use-mpi-f08/Makefile.am | 11 +- .../fortran/use-mpi-f08/bindings/Makefile.am | 61 + .../{ => bindings}/mpi-f-interfaces-bind.h | 0 .../bindings/ompi-mpifh-bindings.F90 | 35 + ompi/mpi/fortran/use-mpi-f08/mpi-f08.F90 | 9 +- .../use-mpi-f08/pmpi-f-interfaces-bind.h | 3251 ----------------- 8 files changed, 106 insertions(+), 3268 deletions(-) create mode 100644 ompi/mpi/fortran/use-mpi-f08/bindings/Makefile.am rename ompi/mpi/fortran/use-mpi-f08/{ => bindings}/mpi-f-interfaces-bind.h (100%) create mode 100644 ompi/mpi/fortran/use-mpi-f08/bindings/ompi-mpifh-bindings.F90 delete mode 100644 ompi/mpi/fortran/use-mpi-f08/pmpi-f-interfaces-bind.h diff --git a/config/ompi_config_files.m4 b/config/ompi_config_files.m4 index 160a5d1c52..274b404d75 100644 --- a/config/ompi_config_files.m4 +++ b/config/ompi_config_files.m4 @@ -1,7 +1,7 @@ # -*- shell-script -*- # # Copyright (c) 2009-2017 Cisco Systems, Inc. All rights reserved -# Copyright (c) 2017 Research Organization for Information Science +# Copyright (c) 2017-2018 Research Organization for Information Science # and Technology (RIST). All rights reserved. # Copyright (c) 2018 Los Alamos National Security, LLC. All rights # reserved. @@ -38,6 +38,7 @@ AC_DEFUN([OMPI_CONFIG_FILES],[ ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-file-interfaces.h ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-removed-interfaces.h ompi/mpi/fortran/use-mpi-f08/Makefile + ompi/mpi/fortran/use-mpi-f08/bindings/Makefile ompi/mpi/fortran/use-mpi-f08/mod/Makefile ompi/mpi/fortran/mpiext-use-mpi/Makefile ompi/mpi/fortran/mpiext-use-mpi-f08/Makefile diff --git a/ompi/Makefile.am b/ompi/Makefile.am index cd5ff0f528..5d1ce31ea8 100644 --- a/ompi/Makefile.am +++ b/ompi/Makefile.am @@ -15,7 +15,7 @@ # Copyright (c) 2013-2015 Los Alamos National Security, LLC. All rights # reserved. # Copyright (c) 2015-2017 Intel, Inc. All rights reserved. -# Copyright (c) 2015-2017 Research Organization for Information Science +# Copyright (c) 2015-2018 Research Organization for Information Science # and Technology (RIST). All rights reserved. # Copyright (c) 2016 IBM Corporation. All rights reserved. # Copyright (c) 2018 FUJITSU LIMITED. All rights reserved. @@ -93,6 +93,7 @@ SUBDIRS = \ $(OMPI_FORTRAN_USEMPI_DIR) \ mpi/fortran/mpiext-use-mpi \ mpi/fortran/use-mpi-f08/mod \ + mpi/fortran/use-mpi-f08/bindings \ $(OMPI_MPIEXT_USEMPIF08_DIRS) \ mpi/fortran/use-mpi-f08 \ mpi/fortran/mpiext-use-mpi-f08 \ @@ -124,6 +125,7 @@ DIST_SUBDIRS = \ mpi/fortran/mpiext-use-mpi \ mpi/fortran/use-mpi-f08 \ mpi/fortran/use-mpi-f08/mod \ + mpi/fortran/use-mpi-f08/bindings \ mpi/fortran/mpiext-use-mpi-f08 \ mpi/java \ $(OMPI_MPIEXT_ALL_SUBDIRS) \ diff --git a/ompi/mpi/fortran/use-mpi-f08/Makefile.am b/ompi/mpi/fortran/use-mpi-f08/Makefile.am index 1de687b155..dc9de8e379 100644 --- a/ompi/mpi/fortran/use-mpi-f08/Makefile.am +++ b/ompi/mpi/fortran/use-mpi-f08/Makefile.am @@ -7,7 +7,7 @@ # Copyright (c) 2012-2013 Inria. All rights reserved. # Copyright (c) 2013-2018 Los Alamos National Security, LLC. All rights # reserved. -# Copyright (c) 2015-2017 Research Organization for Information Science +# Copyright (c) 2015-2018 Research Organization for Information Science # and Technology (RIST). All rights reserved. # Copyright (c) 2016 IBM Corporation. All rights reserved. # Copyright (c) 2017 FUJITSU LIMITED. All rights reserved. @@ -29,6 +29,7 @@ AM_FCFLAGS = -I$(top_builddir)/ompi/include \ -I$(top_srcdir)/ompi/include \ $(OMPI_FC_MODULE_FLAG)$(top_builddir)/ompi/$(OMPI_FORTRAN_USEMPI_DIR) \ $(OMPI_FC_MODULE_FLAG)mod \ + $(OMPI_FC_MODULE_FLAG)bindings \ -I$(top_srcdir) $(FCFLAGS_f90) MOSTLYCLEANFILES = *.mod @@ -42,7 +43,6 @@ module_sentinel_file = \ mpi-f08.lo: $(module_sentinel_file) mpi-f08.lo: mpi-f08.F90 -mpi-f08.lo: mpi-f-interfaces-bind.h pmpi-f-interfaces-bind.h mpi-f08.lo: sizeof_f08.h # @@ -792,8 +792,6 @@ pmpi_api_files = \ lib@OMPI_LIBMPI_NAME@_usempif08_la_SOURCES = \ $(mpi_api_files) \ $(pmpi_api_files) \ - mpi-f-interfaces-bind.h \ - pmpi-f-interfaces-bind.h \ mpi-f08.F90 \ buffer_detach.c \ constants.h \ @@ -830,11 +828,10 @@ lib@OMPI_LIBMPI_NAME@_usempif08_la_LDFLAGS = -version-info $(libmpi_usempif08_so mpi_api_lo_files = $(mpi_api_files:.F90=.lo) pmpi_api_lo_files = $(pmpi_api_files:.F90=.lo) -$(mpi_api_lo_files): mpi-f08.lo -$(pmpi_api_lo_files): mpi-f08.lo +$(mpi_api_lo_files): mpi-f08.lo bindings/libforce_usempif08_internal_bindings_to_be_built.la +$(pmpi_api_lo_files): mpi-f08.lo bindings/libforce_usempif08_internal_bindings_to_be_built.la mpi-f08.lo: $(module_sentinel_file) $(SIZEOF_H) -mpi-f08.lo: mpi-f-interfaces-bind.h pmpi-f-interfaces-bind.h ########################################################################### diff --git a/ompi/mpi/fortran/use-mpi-f08/bindings/Makefile.am b/ompi/mpi/fortran/use-mpi-f08/bindings/Makefile.am new file mode 100644 index 0000000000..77f861a6ba --- /dev/null +++ b/ompi/mpi/fortran/use-mpi-f08/bindings/Makefile.am @@ -0,0 +1,61 @@ +# -*- makefile -*- +# +# Copyright (c) 2006-2015 Cisco Systems, Inc. All rights reserved. +# Copyright (c) 2012-2013 The University of Tennessee and The University +# of Tennessee Research Foundation. All rights +# reserved. +# Copyright (c) 2012-2013 Inria. All rights reserved. +# Copyright (c) 2013 Los Alamos National Security, LLC. All rights +# reserved. +# Copyright (c) 2015-2018 Research Organization for Information Science +# and Technology (RIST). All rights reserved. +# Copyright (c) 2016 IBM Corporation. All rights reserved. +# +# $COPYRIGHT$ +# +# Additional copyrights may follow +# +# $HEADER$ +# + +include $(top_srcdir)/Makefile.ompi-rules + +# This Makefile is only relevant if we're building the "use mpi_f08" +# MPI bindings. +if OMPI_BUILD_FORTRAN_USEMPIF08_BINDINGS + +AM_FCFLAGS = -I$(top_builddir)/ompi/include \ + -I$(top_srcdir)/ompi/include \ + $(OMPI_FC_MODULE_FLAG)$(top_builddir)/ompi/$(OMPI_FORTRAN_USEMPI_DIR) \ + $(OMPI_FC_MODULE_FLAG). \ + $(OMPI_FC_MODULE_FLAG)../mod \ + -I$(top_srcdir) $(FCFLAGS_f90) + +MOSTLYCLEANFILES = *.mod + +CLEANFILES += *.i90 + +########################################################################### + +module_sentinel_file = \ + libforce_usempif08_internal_bindings_to_be_built.la + +noinst_LTLIBRARIES = $(module_sentinel_file) + +# f08 support modules + +libforce_usempif08_internal_bindings_to_be_built_la_SOURCES = \ + mpi-f-interfaces-bind.h \ + ompi-mpifh-bindings.F90 + +# +# Automake doesn't do Fortran dependency analysis, so must list them +# manually here. Bummer! +# + +ompi-mpifh-bindings.lo: mpi-f-interfaces-bind.h + +distclean-local: + rm -f *.mod + +endif diff --git a/ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h b/ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h similarity index 100% rename from ompi/mpi/fortran/use-mpi-f08/mpi-f-interfaces-bind.h rename to ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h diff --git a/ompi/mpi/fortran/use-mpi-f08/bindings/ompi-mpifh-bindings.F90 b/ompi/mpi/fortran/use-mpi-f08/bindings/ompi-mpifh-bindings.F90 new file mode 100644 index 0000000000..295c5a9d40 --- /dev/null +++ b/ompi/mpi/fortran/use-mpi-f08/bindings/ompi-mpifh-bindings.F90 @@ -0,0 +1,35 @@ +! -*- f90 -*- +! +! Copyright (c) 2004-2005 The Trustees of Indiana University and Indiana +! University Research and Technology +! Corporation. All rights reserved. +! Copyright (c) 2004-2005 The University of Tennessee and The University +! of Tennessee Research Foundation. All rights +! reserved. +! Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, +! University of Stuttgart. All rights reserved. +! Copyright (c) 2004-2005 The Regents of the University of California. +! All rights reserved. +! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved. +! Copyright (c) 2009-2012 Los Alamos National Security, LLC. +! All rights reserved. +! Copyright (c) 2016-2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. +! $COPYRIGHT$ +! +! Additional copyrights may follow +! +! $HEADER$ +! + +#include "ompi/mpi/fortran/configure-fortran-output.h" + +module ompi_mpifh_bindings + +! +! Declaration of the interfaces to the ompi impl files +! e.g., send_f.c +! +#include "mpi-f-interfaces-bind.h" + +end module ompi_mpifh_bindings diff --git a/ompi/mpi/fortran/use-mpi-f08/mpi-f08.F90 b/ompi/mpi/fortran/use-mpi-f08/mpi-f08.F90 index 2cd04596e0..89054d8d30 100644 --- a/ompi/mpi/fortran/use-mpi-f08/mpi-f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/mpi-f08.F90 @@ -13,7 +13,7 @@ ! Copyright (c) 2006-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. -! Copyright (c) 2016-2017 Research Organization for Information Science +! Copyright (c) 2016-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ ! @@ -32,13 +32,6 @@ module mpi_f08 use mpi_f08_callbacks ! this module contains the mpi_f08 attribute callback subroutines use mpi_f08_interfaces_callbacks ! this module contains the mpi_f08 callback interfaces -! -! Declaration of the interfaces to the ompi impl files -! e.g., send_f.c -! -#include "mpi-f-interfaces-bind.h" -#include "pmpi-f-interfaces-bind.h" - ! The sizeof interfaces include "sizeof_f08.h" diff --git a/ompi/mpi/fortran/use-mpi-f08/pmpi-f-interfaces-bind.h b/ompi/mpi/fortran/use-mpi-f08/pmpi-f-interfaces-bind.h deleted file mode 100644 index 5a95b88305..0000000000 --- a/ompi/mpi/fortran/use-mpi-f08/pmpi-f-interfaces-bind.h +++ /dev/null @@ -1,3251 +0,0 @@ -! -*- f90 -*- -! -! Copyright (c) 2009-2015 Cisco Systems, Inc. All rights reserved. -! Copyright (c) 2009-2012 Los Alamos National Security, LLC. -! All rights reserved. -! Copyright (c) 2012 The University of Tennessee and The University -! of Tennessee Research Foundation. All rights -! reserved. -! Copyright (c) 2012 Inria. All rights reserved. -! Copyright (c) 2015-2018 Research Organization for Information Science -! and Technology (RIST). All rights reserved. -! $COPYRIGHT$ -! -! This file provides the interface specifications for the MPI Fortran -! API bindings. It effectively maps between public names ("MPI_Init") -! and the back-end implementation subroutine name (e.g., "pompi_init_f"). - -#include "ompi/mpi/fortran/configure-fortran-output.h" - -! -! Note that interfaces for the following subroutines are not included -! in this file because they contain LOGICAL dummy parameters, and -! therefore cannot be BIND(C). Instead, the individual wrapper -! implementation files (e.g., iprobe_f08.F90) use the "mpi" module to -! get a interface for the subroutine and call the PMPI_* name of the -! function, which then invokes the corresponding function in the -! ompi/mpi/fortran/mpif-h directory. -! -! MPI_Cart_create -! MPI_Cart_get -! MPI_Cart_map -! MPI_Cart_sub -! MPI_Comm_get_attr -! MPI_Comm_test_inter -! MPI_Dist_graph_create -! MPI_Dist_graph_create_adjacent -! MPI_Dist_graph_neighbors_count -! MPI_File_get_atomicity -! MPI_File_set_atomicity -! MPI_Finalized -! MPI_Graph_create -! MPI_Improbe -! MPI_Info_get -! MPI_Info_get_valuelen -! MPI_Initialized -! MPI_Intercomm_merge -! MPI_Iprobe -! MPI_Is_thread_main -! MPI_Op_commutative -! MPI_Op_create -! MPI_Request_get_status -! MPI_Status_set_cancelled -! MPI_Test -! MPI_Testall -! MPI_Testany -! MPI_Testsome -! MPI_Test_cancelled -! MPI_Type_get_attr -! MPI_Win_get_attr -! MPI_Win_test -! - -interface - -subroutine pompi_bsend_f(buf,count,datatype,dest,tag,comm,ierror) & - BIND(C, name="pompi_bsend_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf - INTEGER, INTENT(IN) :: count, dest, tag - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_bsend_f - -subroutine pompi_bsend_init_f(buf,count,datatype,dest,tag,comm,request,ierror) & - BIND(C, name="pompi_bsend_init_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count, dest, tag - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_bsend_init_f - -subroutine pompi_buffer_attach_f(buffer,size,ierror) & - BIND(C, name="pompi_buffer_attach_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer - INTEGER, INTENT(IN) :: size - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_buffer_attach_f - -! Note that we have an F08-specific C implementation function for -! PMPI_BUFFER_DETACH (i.e., it is different than the mpif.h / mpi -! module C implementation function). -! -! Note, too, the "p" version of the C implementation -! function is a 1-line routine. It calls -! ompi_buffer_detach_f08 C function. -subroutine pompi_buffer_detach_f(buffer_addr,size,ierror) & - BIND(C, name="pompi_buffer_detach_f08") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer_addr - INTEGER, INTENT(OUT) :: size - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_buffer_detach_f - -subroutine pompi_cancel_f(request,ierror) & - BIND(C, name="pompi_cancel_f") - implicit none - INTEGER, INTENT(IN) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_cancel_f - -subroutine pompi_get_count_f(status,datatype,count,ierror) & - BIND(C, name="pompi_get_count_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - TYPE(MPI_Status), INTENT(IN) :: status - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(OUT) :: count - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_get_count_f - -subroutine pompi_ibsend_f(buf,count,datatype,dest,tag,comm,request,ierror) & - BIND(C, name="pompi_ibsend_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count, dest, tag - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_ibsend_f - -subroutine pompi_irecv_f(buf,count,datatype,source,tag,comm,request,ierror) & - BIND(C, name="pompi_irecv_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf - INTEGER, INTENT(IN) :: count, source, tag - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_irecv_f - -subroutine pompi_irsend_f(buf,count,datatype,dest,tag,comm,request,ierror) & - BIND(C, name="pompi_irsend_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count, dest, tag - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_irsend_f - -subroutine pompi_isend_f(buf,count,datatype,dest,tag,comm,request,ierror) & - BIND(C, name="pompi_isend_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count, dest, tag - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_isend_f - -subroutine pompi_issend_f(buf,count,datatype,dest,tag,comm,request,ierror) & - BIND(C, name="pompi_issend_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count, dest, tag - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_issend_f - -subroutine pompi_probe_f(source,tag,comm,status,ierror) & - BIND(C, name="pompi_probe_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: source, tag - INTEGER, INTENT(IN) :: comm - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_probe_f - -subroutine pompi_recv_f(buf,count,datatype,source,tag,comm,status,ierror) & - BIND(C, name="pompi_recv_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf - INTEGER, INTENT(IN) :: count, source, tag - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_recv_f - -subroutine pompi_recv_init_f(buf,count,datatype,source,tag,comm,request,ierror) & - BIND(C, name="pompi_recv_init_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count, source, tag - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_recv_init_f - -subroutine pompi_request_free_f(request,ierror) & - BIND(C, name="pompi_request_free_f") - implicit none - INTEGER, INTENT(INOUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_request_free_f - -subroutine pompi_rsend_f(buf,count,datatype,dest,tag,comm,ierror) & - BIND(C, name="pompi_rsend_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count, dest, tag - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_rsend_f - -subroutine pompi_rsend_init_f(buf,count,datatype,dest,tag,comm,request,ierror) & - BIND(C, name="pompi_rsend_init_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count, dest, tag - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_rsend_init_f - -subroutine pompi_send_f(buf,count,datatype,dest,tag,comm,ierror) & - BIND(C, name="pompi_send_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count, dest, tag - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_send_f - -subroutine pompi_sendrecv_f(sendbuf,sendcount,sendtype,dest,sendtag,recvbuf, & - recvcount,recvtype,source,recvtag,comm,status,ierror) & - BIND(C, name="pompi_sendrecv_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf - INTEGER, INTENT(IN) :: sendcount, dest, sendtag, recvcount, source, recvtag - INTEGER, INTENT(IN) :: sendtype - INTEGER, INTENT(IN) :: recvtype - INTEGER, INTENT(IN) :: comm - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_sendrecv_f - -subroutine pompi_sendrecv_replace_f(buf,count,datatype,dest,sendtag,source, & - recvtag,comm,status,ierror) & - BIND(C, name="pompi_sendrecv_replace_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count, dest, sendtag, source, recvtag - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_sendrecv_replace_f - -subroutine pompi_send_init_f(buf,count,datatype,dest,tag,comm,request,ierror) & - BIND(C, name="pompi_send_init_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count, dest, tag - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_send_init_f - -subroutine pompi_ssend_f(buf,count,datatype,dest,tag,comm,ierror) & - BIND(C, name="pompi_ssend_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count, dest, tag - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_ssend_f - -subroutine pompi_ssend_init_f(buf,count,datatype,dest,tag,comm,request,ierror) & - BIND(C, name="pompi_ssend_init_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count, dest, tag - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_ssend_init_f - -subroutine pompi_start_f(request,ierror) & - BIND(C, name="pompi_start_f") - implicit none - INTEGER, INTENT(INOUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_start_f - -subroutine pompi_startall_f(count,array_of_requests,ierror) & - BIND(C, name="pompi_startall_f") - implicit none - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(INOUT) :: array_of_requests(count) - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_startall_f - -subroutine pompi_testsome_f(incount,array_of_requests,outcount, & - array_of_indices,array_of_statuses,ierror) & - BIND(C, name="pompi_testsome_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: incount - INTEGER, INTENT(INOUT) :: array_of_requests(incount) - INTEGER, INTENT(OUT) :: outcount - INTEGER, INTENT(OUT) :: array_of_indices(*) - TYPE(MPI_Status), INTENT(OUT) :: array_of_statuses(*) - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_testsome_f - -subroutine pompi_wait_f(request,status,ierror) & - BIND(C, name="pompi_wait_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(INOUT) :: request - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_wait_f - -subroutine pompi_waitall_f(count,array_of_requests,array_of_statuses,ierror) & - BIND(C, name="pompi_waitall_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(INOUT) :: array_of_requests(count) - TYPE(MPI_Status), INTENT(OUT) :: array_of_statuses(count) - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_waitall_f - -subroutine pompi_waitany_f(count,array_of_requests,index,status,ierror) & - BIND(C, name="pompi_waitany_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(INOUT) :: array_of_requests(count) - INTEGER, INTENT(OUT) :: index - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_waitany_f - -subroutine pompi_waitsome_f(incount,array_of_requests,outcount, & - array_of_indices,array_of_statuses,ierror) & - BIND(C, name="pompi_waitsome_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: incount - INTEGER, INTENT(INOUT) :: array_of_requests(incount) - INTEGER, INTENT(OUT) :: outcount - INTEGER, INTENT(OUT) :: array_of_indices(*) - TYPE(MPI_Status), INTENT(OUT) :: array_of_statuses(*) - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_waitsome_f - -subroutine pompi_get_address_f(location,address,ierror) & - BIND(C, name="pompi_get_address_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: location - INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: address - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_get_address_f - -subroutine pompi_get_elements_f(status,datatype,count,ierror) & - BIND(C, name="pompi_get_elements_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - TYPE(MPI_Status), INTENT(IN) :: status - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(OUT) :: count - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_get_elements_f - -subroutine pompi_pack_f(inbuf,incount,datatype,outbuf,outsize, & - position,comm,ierror) & - BIND(C, name="pompi_pack_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf - INTEGER, INTENT(IN) :: incount, outsize - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(INOUT) :: position - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_pack_f - -subroutine pompi_pack_external_f(datarep,inbuf,incount,datatype, & - outbuf,outsize,position,ierror,datarep_len) & - BIND(C, name="pompi_pack_external_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: datarep - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf - INTEGER, INTENT(IN) :: incount - INTEGER, INTENT(IN) :: datatype - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: outsize - INTEGER(MPI_ADDRESS_KIND), INTENT(INOUT) :: position - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: datarep_len -end subroutine pompi_pack_external_f - -subroutine pompi_pack_external_size_f(datarep,incount,datatype,size,ierror,datarep_len) & - BIND(C, name="pompi_pack_external_size_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: incount - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: datarep - INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: size - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: datarep_len -end subroutine pompi_pack_external_size_f - -subroutine pompi_pack_size_f(incount,datatype,comm,size,ierror) & - BIND(C, name="pompi_pack_size_f") - implicit none - INTEGER, INTENT(IN) :: incount - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: size - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_pack_size_f - -subroutine pompi_type_commit_f(datatype,ierror) & - BIND(C, name="pompi_type_commit_f") - implicit none - INTEGER, INTENT(INOUT) :: datatype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_commit_f - -subroutine pompi_type_contiguous_f(count,oldtype,newtype,ierror) & - BIND(C, name="pompi_type_contiguous_f") - implicit none - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: oldtype - INTEGER, INTENT(OUT) :: newtype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_contiguous_f - -subroutine pompi_type_create_darray_f(size,rank,ndims,& - array_of_gsizes,array_of_distribs,array_of_dargs,array_of_psizes,& - order,oldtype,newtype,ierror) & - BIND(C, name="pompi_type_create_darray_f") - implicit none - INTEGER, INTENT(IN) :: size, rank, ndims, order - INTEGER, INTENT(IN) :: array_of_gsizes(ndims), array_of_distribs(ndims) - INTEGER, INTENT(IN) :: array_of_dargs(ndims), array_of_psizes(ndims) - INTEGER, INTENT(IN) :: oldtype - INTEGER, INTENT(OUT) :: newtype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_create_darray_f - -subroutine pompi_type_create_hindexed_f(count,array_of_blocklengths, & - array_of_displacements,oldtype,newtype,ierror) & - BIND(C, name="pompi_type_create_hindexed_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: array_of_blocklengths(count) - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: array_of_displacements(count) - INTEGER, INTENT(IN) :: oldtype - INTEGER, INTENT(OUT) :: newtype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_create_hindexed_f - -subroutine pompi_type_create_hvector_f(count,blocklength,stride,oldtype,newtype,ierror) & - BIND(C, name="pompi_type_create_hvector_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - INTEGER, INTENT(IN) :: count, blocklength - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: stride - INTEGER, INTENT(IN) :: oldtype - INTEGER, INTENT(OUT) :: newtype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_create_hvector_f - -subroutine pompi_type_create_indexed_block_f(count,blocklength, & - array_of_displacements,oldtype,newtype,ierror) & - BIND(C, name="pompi_type_create_indexed_block_f") - implicit none - INTEGER, INTENT(IN) :: count, blocklength - INTEGER, INTENT(IN) :: array_of_displacements(count) - INTEGER, INTENT(IN) :: oldtype - INTEGER, INTENT(OUT) :: newtype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_create_indexed_block_f - -subroutine pompi_type_create_hindexed_block_f(count,blocklength, & - array_of_displacements,oldtype,newtype,ierror) & - BIND(C, name="pompi_type_create_hindexed_block_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - INTEGER, INTENT(IN) :: count, blocklength - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: array_of_displacements(count) - INTEGER, INTENT(IN) :: oldtype - INTEGER, INTENT(OUT) :: newtype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_create_hindexed_block_f - -subroutine pompi_type_create_resized_f(oldtype,lb,extent,newtype,ierror) & - BIND(C, name="pompi_type_create_resized_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: lb, extent - INTEGER, INTENT(IN) :: oldtype - INTEGER, INTENT(OUT) :: newtype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_create_resized_f - -subroutine pompi_type_create_struct_f(count,array_of_blocklengths, & - array_of_displacements,array_of_types,newtype,ierror) & - BIND(C, name="pompi_type_create_struct_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: array_of_blocklengths(count) - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: array_of_displacements(count) - INTEGER, INTENT(IN) :: array_of_types(count) - INTEGER, INTENT(OUT) :: newtype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_create_struct_f - -subroutine pompi_type_create_subarray_f(ndims,array_of_sizes, & - array_of_subsizes,array_of_starts,order,oldtype,newtype,ierror) & - BIND(C, name="pompi_type_create_subarray_f") - implicit none - INTEGER, INTENT(IN) :: ndims, order - INTEGER, INTENT(IN) :: array_of_sizes(*), array_of_subsizes(*), array_of_starts(*) - INTEGER, INTENT(IN) :: oldtype - INTEGER, INTENT(OUT) :: newtype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_create_subarray_f - -subroutine pompi_type_dup_f(oldtype,newtype,ierror) & - BIND(C, name="pompi_type_dup_f") - implicit none - INTEGER, INTENT(IN) :: oldtype - INTEGER, INTENT(OUT) :: newtype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_dup_f - -subroutine pompi_type_free_f(datatype,ierror) & - BIND(C, name="pompi_type_free_f") - implicit none - INTEGER, INTENT(INOUT) :: datatype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_free_f - -subroutine pompi_type_get_contents_f(datatype,max_integers,max_addresses, & - max_datatypes,array_of_integers,array_of_addresses, & - array_of_datatypes,ierror) & - BIND(C, name="pompi_type_get_contents_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: max_integers, max_addresses, max_datatypes - INTEGER, INTENT(OUT) :: array_of_integers(max_integers) - INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: array_of_addresses(max_addresses) - INTEGER, INTENT(OUT) :: array_of_datatypes(max_datatypes) - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_get_contents_f - -subroutine pompi_type_get_envelope_f(datatype,num_integers, & - num_addresses,num_datatypes,combiner,ierror) & - BIND(C, name="pompi_type_get_envelope_f") - implicit none - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(OUT) :: num_integers, num_addresses, num_datatypes, combiner - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_get_envelope_f - -subroutine pompi_type_get_extent_f(datatype,lb,extent,ierror) & - BIND(C, name="pompi_type_get_extent_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - INTEGER, INTENT(IN) :: datatype - INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: lb, extent - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_get_extent_f - -subroutine pompi_type_get_true_extent_f(datatype,true_lb,true_extent,ierror) & - BIND(C, name="pompi_type_get_true_extent_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - INTEGER, INTENT(IN) :: datatype - INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: true_lb, true_extent - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_get_true_extent_f - -subroutine pompi_type_indexed_f(count,array_of_blocklengths, & - array_of_displacements,oldtype,newtype,ierror) & - BIND(C, name="pompi_type_indexed_f") - implicit none - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: array_of_blocklengths(count), array_of_displacements(count) - INTEGER, INTENT(IN) :: oldtype - INTEGER, INTENT(OUT) :: newtype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_indexed_f - -subroutine pompi_type_size_f(datatype,size,ierror) & - BIND(C, name="pompi_type_size_f") - implicit none - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(OUT) :: size - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_size_f - -subroutine pompi_type_vector_f(count,blocklength,stride,oldtype,newtype,ierror) & - BIND(C, name="pompi_type_vector_f") - implicit none - INTEGER, INTENT(IN) :: count, blocklength, stride - INTEGER, INTENT(IN) :: oldtype - INTEGER, INTENT(OUT) :: newtype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_vector_f - -subroutine pompi_unpack_f(inbuf,insize,position,outbuf,outcount, & - datatype,comm,ierror) & - BIND(C, name="pompi_unpack_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf - INTEGER, INTENT(IN) :: insize, outcount - INTEGER, INTENT(INOUT) :: position - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_unpack_f - -subroutine pompi_unpack_external_f(datarep,inbuf,insize,position, & - outbuf,outcount,datatype,ierror,datarep_len) & - BIND(C, name="pompi_unpack_external_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: datarep - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: insize - INTEGER(MPI_ADDRESS_KIND), INTENT(INOUT) :: position - INTEGER, INTENT(IN) :: outcount - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: datarep_len -end subroutine pompi_unpack_external_f - -subroutine pompi_allgather_f(sendbuf,sendcount,sendtype,recvbuf, & - recvcount,recvtype,comm,ierror) & - BIND(C, name="pompi_allgather_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: sendcount, recvcount - INTEGER, INTENT(IN) :: sendtype - INTEGER, INTENT(IN) :: recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_allgather_f - -subroutine pompi_iallgather_f(sendbuf,sendcount,sendtype,recvbuf, & - recvcount,recvtype,comm,request,ierror) & - BIND(C, name="pompi_iallgather_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: sendcount, recvcount - INTEGER, INTENT(IN) :: sendtype - INTEGER, INTENT(IN) :: recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_iallgather_f - -subroutine pompi_allgatherv_f(sendbuf,sendcount,sendtype,recvbuf, & - recvcounts,displs,recvtype,comm,ierror) & - BIND(C, name="pompi_allgatherv_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: sendcount - INTEGER, INTENT(IN) :: recvcounts(*), displs(*) - INTEGER, INTENT(IN) :: sendtype - INTEGER, INTENT(IN) :: recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_allgatherv_f - -subroutine pompi_iallgatherv_f(sendbuf,sendcount,sendtype,recvbuf, & - recvcounts,displs,recvtype,comm,request,ierror) & - BIND(C, name="pompi_iallgatherv_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: sendcount - INTEGER, INTENT(IN) :: recvcounts(*), displs(*) - INTEGER, INTENT(IN) :: sendtype - INTEGER, INTENT(IN) :: recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_iallgatherv_f - -subroutine pompi_allreduce_f(sendbuf,recvbuf,count,datatype,op,comm,ierror) & - BIND(C, name="pompi_allreduce_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: op - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_allreduce_f - -subroutine pompi_iallreduce_f(sendbuf,recvbuf,count,datatype,op,comm,request,ierror) & - BIND(C, name="pompi_iallreduce_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, 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 pompi_iallreduce_f - -subroutine pompi_alltoall_f(sendbuf,sendcount,sendtype,recvbuf, & - recvcount,recvtype,comm,ierror) & - BIND(C, name="pompi_alltoall_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: sendcount, recvcount - INTEGER, INTENT(IN) :: sendtype - INTEGER, INTENT(IN) :: recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_alltoall_f - -subroutine pompi_ialltoall_f(sendbuf,sendcount,sendtype,recvbuf, & - recvcount,recvtype,comm,request,ierror) & - BIND(C, name="pompi_ialltoall_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: sendcount, recvcount - INTEGER, INTENT(IN) :: sendtype - INTEGER, INTENT(IN) :: recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_ialltoall_f - -subroutine pompi_alltoallv_f(sendbuf,sendcounts,sdispls,sendtype, & - recvbuf,recvcounts,rdispls,recvtype,comm,ierror) & - BIND(C, name="pompi_alltoallv_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) - INTEGER, INTENT(IN) :: sendtype - INTEGER, INTENT(IN) :: recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_alltoallv_f - -subroutine pompi_ialltoallv_f(sendbuf,sendcounts,sdispls,sendtype, & - recvbuf,recvcounts,rdispls,recvtype,comm,request,ierror) & - BIND(C, name="pompi_ialltoallv_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) - INTEGER, INTENT(IN) :: sendtype - INTEGER, INTENT(IN) :: recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_ialltoallv_f - -subroutine pompi_alltoallw_f(sendbuf,sendcounts,sdispls,sendtypes, & - recvbuf,recvcounts,rdispls,recvtypes,comm,ierror) & - BIND(C, name="pompi_alltoallw_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) - INTEGER, INTENT(IN) :: sendtypes - INTEGER, INTENT(IN) :: recvtypes - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_alltoallw_f - -subroutine pompi_ialltoallw_f(sendbuf,sendcounts,sdispls,sendtypes, & - recvbuf,recvcounts,rdispls,recvtypes,comm,request,ierror) & - BIND(C, name="pompi_ialltoallw_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) - INTEGER, INTENT(IN) :: sendtypes - INTEGER, INTENT(IN) :: recvtypes - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_ialltoallw_f - -subroutine pompi_barrier_f(comm,ierror) & - BIND(C, name="pompi_barrier_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_barrier_f - -subroutine pompi_ibarrier_f(comm,request,ierror) & - BIND(C, name="pompi_ibarrier_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_ibarrier_f - -subroutine pompi_bcast_f(buffer,count,datatype,root,comm,ierror) & - BIND(C, name="pompi_bcast_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer - INTEGER, INTENT(IN) :: count, root - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_bcast_f - -subroutine pompi_ibcast_f(buffer,count,datatype,root,comm,request,ierror) & - BIND(C, name="pompi_ibcast_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer - INTEGER, INTENT(IN) :: count, root - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_ibcast_f - -subroutine pompi_exscan_f(sendbuf,recvbuf,count,datatype,op,comm,ierror) & - BIND(C, name="pompi_exscan_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: op - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_exscan_f - -subroutine pompi_iexscan_f(sendbuf,recvbuf,count,datatype,op,comm,request,ierror) & - BIND(C, name="pompi_iexscan_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, 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 pompi_iexscan_f - -subroutine pompi_gather_f(sendbuf,sendcount,sendtype,recvbuf, & - recvcount,recvtype,root,comm,ierror) & - BIND(C, name="pompi_gather_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: sendcount, recvcount, root - INTEGER, INTENT(IN) :: sendtype - INTEGER, INTENT(IN) :: recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_gather_f - -subroutine pompi_igather_f(sendbuf,sendcount,sendtype,recvbuf, & - recvcount,recvtype,root,comm,request,ierror) & - BIND(C, name="pompi_igather_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: sendcount, recvcount, root - INTEGER, INTENT(IN) :: sendtype - INTEGER, INTENT(IN) :: recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_igather_f - -subroutine pompi_gatherv_f(sendbuf,sendcount,sendtype,recvbuf, & - recvcounts,displs,recvtype,root,comm,ierror) & - BIND(C, name="pompi_gatherv_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: sendcount, root - INTEGER, INTENT(IN) :: recvcounts(*), displs(*) - INTEGER, INTENT(IN) :: sendtype - INTEGER, INTENT(IN) :: recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_gatherv_f - -subroutine pompi_igatherv_f(sendbuf,sendcount,sendtype,recvbuf, & - recvcounts,displs,recvtype,root,comm,request,ierror) & - BIND(C, name="pompi_igatherv_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: sendcount, root - INTEGER, INTENT(IN) :: recvcounts(*), displs(*) - INTEGER, INTENT(IN) :: sendtype - INTEGER, INTENT(IN) :: recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_igatherv_f - -subroutine pompi_op_free_f(op,ierror) & - BIND(C, name="pompi_op_free_f") - implicit none - INTEGER, INTENT(INOUT) :: op - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_op_free_f - -subroutine pompi_reduce_f(sendbuf,recvbuf,count,datatype,op,root,comm,ierror) & - BIND(C, name="pompi_reduce_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: count, root - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: op - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_reduce_f - -subroutine pompi_ireduce_f(sendbuf,recvbuf,count,datatype,op,root,comm,request,ierror) & - BIND(C, name="pompi_ireduce_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: count, root - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: op - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_ireduce_f - -subroutine pompi_reduce_local_f(inbuf,inoutbuf,count,datatype,op,ierror) & - BIND(C, name="pompi_reduce_local_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, inoutbuf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: op - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_reduce_local_f - -subroutine pompi_reduce_scatter_f(sendbuf,recvbuf,recvcounts, & - datatype,op,comm,ierror) & - BIND(C, name="pompi_reduce_scatter_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: recvcounts(*) - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: op - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_reduce_scatter_f - -subroutine pompi_ireduce_scatter_f(sendbuf,recvbuf,recvcounts, & - datatype,op,comm,request,ierror) & - BIND(C, name="pompi_ireduce_scatter_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, 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 pompi_ireduce_scatter_f - -subroutine pompi_reduce_scatter_block_f(sendbuf,recvbuf,recvcount, & - datatype,op,comm,ierror) & - BIND(C, name="pompi_reduce_scatter_block_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: recvcount - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: op - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_reduce_scatter_block_f - -subroutine pompi_ireduce_scatter_block_f(sendbuf,recvbuf,recvcount, & - datatype,op,comm,request,ierror) & - BIND(C, name="pompi_ireduce_scatter_block_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, 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 pompi_ireduce_scatter_block_f - -subroutine pompi_scan_f(sendbuf,recvbuf,count,datatype,op,comm,ierror) & - BIND(C, name="pompi_scan_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: op - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_scan_f - -subroutine pompi_iscan_f(sendbuf,recvbuf,count,datatype,op,comm,request,ierror) & - BIND(C, name="pompi_iscan_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, 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 pompi_iscan_f - -subroutine pompi_scatter_f(sendbuf,sendcount,sendtype,recvbuf, & - recvcount,recvtype,root,comm,ierror) & - BIND(C, name="pompi_scatter_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: sendcount, recvcount, root - INTEGER, INTENT(IN) :: sendtype - INTEGER, INTENT(IN) :: recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_scatter_f - -subroutine pompi_iscatter_f(sendbuf,sendcount,sendtype,recvbuf, & - recvcount,recvtype,root,comm,request,ierror) & - BIND(C, name="pompi_iscatter_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: sendcount, recvcount, root - INTEGER, INTENT(IN) :: sendtype - INTEGER, INTENT(IN) :: recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_iscatter_f - -subroutine pompi_scatterv_f(sendbuf,sendcounts,displs,sendtype, & - recvbuf,recvcount,recvtype,root,comm,ierror) & - BIND(C, name="pompi_scatterv_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: recvcount, root - INTEGER, INTENT(IN) :: sendcounts(*), displs(*) - INTEGER, INTENT(IN) :: sendtype - INTEGER, INTENT(IN) :: recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_scatterv_f - -subroutine pompi_iscatterv_f(sendbuf,sendcounts,displs,sendtype, & - recvbuf,recvcount,recvtype,root,comm,request,ierror) & - BIND(C, name="pompi_iscatterv_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf - INTEGER, INTENT(IN) :: recvcount, root - INTEGER, INTENT(IN) :: sendcounts(*), displs(*) - INTEGER, INTENT(IN) :: sendtype - INTEGER, INTENT(IN) :: recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_iscatterv_f - -subroutine pompi_comm_compare_f(comm1,comm2,result,ierror) & - BIND(C, name="pompi_comm_compare_f") - implicit none - INTEGER, INTENT(IN) :: comm1 - INTEGER, INTENT(IN) :: comm2 - INTEGER, INTENT(OUT) :: result - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_compare_f - -subroutine pompi_comm_create_f(comm,group,newcomm,ierror) & - BIND(C, name="pompi_comm_create_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(IN) :: group - INTEGER, INTENT(OUT) :: newcomm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_create_f - -subroutine pompi_comm_create_keyval_f(comm_copy_attr_fn,comm_delete_attr_fn, & - comm_keyval,extra_state,ierror) & - BIND(C, name="pompi_comm_create_keyval_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - use, intrinsic :: iso_c_binding, only: c_funptr - implicit none - type(c_funptr), value :: comm_copy_attr_fn - type(c_funptr), value :: comm_delete_attr_fn - INTEGER, INTENT(OUT) :: comm_keyval - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_create_keyval_f - -subroutine pompi_comm_delete_attr_f(comm,comm_keyval,ierror) & - BIND(C, name="pompi_comm_delete_attr_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(IN) :: comm_keyval - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_delete_attr_f - -subroutine pompi_comm_dup_f(comm,newcomm,ierror) & - BIND(C, name="pompi_comm_dup_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: newcomm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_dup_f - -subroutine pompi_comm_free_f(comm,ierror) & - BIND(C, name="pompi_comm_free_f") - implicit none - INTEGER, INTENT(INOUT) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_free_f - -subroutine pompi_comm_free_keyval_f(comm_keyval,ierror) & - BIND(C, name="pompi_comm_free_keyval_f") - implicit none - INTEGER, INTENT(INOUT) :: comm_keyval - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_free_keyval_f - -subroutine pompi_comm_get_name_f(comm,comm_name,resultlen,ierror,comm_name_len) & - BIND(C, name="pompi_comm_get_name_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - INTEGER, INTENT(IN) :: comm - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: comm_name - INTEGER, INTENT(OUT) :: resultlen - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: comm_name_len -end subroutine pompi_comm_get_name_f - -subroutine pompi_comm_group_f(comm,group,ierror) & - BIND(C, name="pompi_comm_group_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: group - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_group_f - -subroutine pompi_comm_rank_f(comm,rank,ierror) & - BIND(C, name="pompi_comm_rank_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: rank - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_rank_f - -subroutine pompi_comm_remote_group_f(comm,group,ierror) & - BIND(C, name="pompi_comm_remote_group_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: group - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_remote_group_f - -subroutine pompi_comm_remote_size_f(comm,size,ierror) & - BIND(C, name="pompi_comm_remote_size_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: size - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_remote_size_f - -subroutine pompi_comm_set_attr_f(comm,comm_keyval,attribute_val,ierror) & - BIND(C, name="pompi_comm_set_attr_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(IN) :: comm_keyval - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: attribute_val - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_set_attr_f - -subroutine pompi_comm_set_name_f(comm,comm_name,ierror,comm_name_len) & - BIND(C, name="pompi_comm_set_name_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - INTEGER, INTENT(IN) :: comm - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: comm_name - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: comm_name_len -end subroutine pompi_comm_set_name_f - -subroutine pompi_comm_size_f(comm,size,ierror) & - BIND(C, name="pompi_comm_size_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: size - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_size_f - -subroutine pompi_comm_split_f(comm,color,key,newcomm,ierror) & - BIND(C, name="pompi_comm_split_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(IN) :: color, key - INTEGER, INTENT(OUT) :: newcomm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_split_f - -subroutine pompi_group_compare_f(group1,group2,result,ierror) & - BIND(C, name="pompi_group_compare_f") - implicit none - INTEGER, INTENT(IN) :: group1 - INTEGER, INTENT(IN) :: group2 - INTEGER, INTENT(OUT) :: result - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_group_compare_f - -subroutine pompi_group_difference_f(group1,group2,newgroup,ierror) & - BIND(C, name="pompi_group_difference_f") - implicit none - INTEGER, INTENT(IN) :: group1 - INTEGER, INTENT(IN) :: group2 - INTEGER, INTENT(OUT) :: newgroup - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_group_difference_f - -subroutine pompi_group_excl_f(group,n,ranks,newgroup,ierror) & - BIND(C, name="pompi_group_excl_f") - implicit none - INTEGER, INTENT(IN) :: group - INTEGER, INTENT(IN) :: n - INTEGER, INTENT(IN) :: ranks(*) - INTEGER, INTENT(OUT) :: newgroup - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_group_excl_f - -subroutine pompi_group_free_f(group,ierror) & - BIND(C, name="pompi_group_free_f") - implicit none - INTEGER, INTENT(INOUT) :: group - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_group_free_f - -subroutine pompi_group_incl_f(group,n,ranks,newgroup,ierror) & - BIND(C, name="pompi_group_incl_f") - implicit none - INTEGER, INTENT(IN) :: n - INTEGER, INTENT(IN) :: ranks(*) - INTEGER, INTENT(IN) :: group - INTEGER, INTENT(OUT) :: newgroup - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_group_incl_f - -subroutine pompi_group_intersection_f(group1,group2,newgroup,ierror) & - BIND(C, name="pompi_group_intersection_f") - implicit none - INTEGER, INTENT(IN) :: group1 - INTEGER, INTENT(IN) :: group2 - INTEGER, INTENT(OUT) :: newgroup - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_group_intersection_f - -subroutine pompi_group_range_excl_f(group,n,ranges,newgroup,ierror) & - BIND(C, name="pompi_group_range_excl_f") - implicit none - INTEGER, INTENT(IN) :: group - INTEGER, INTENT(IN) :: n - INTEGER, INTENT(IN) :: ranges(*) - INTEGER, INTENT(OUT) :: newgroup - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_group_range_excl_f - -subroutine pompi_group_range_incl_f(group,n,ranges,newgroup,ierror) & - BIND(C, name="pompi_group_range_incl_f") - implicit none - INTEGER, INTENT(IN) :: group - INTEGER, INTENT(IN) :: n - INTEGER, INTENT(IN) :: ranges(*) - INTEGER, INTENT(OUT) :: newgroup - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_group_range_incl_f - -subroutine pompi_group_rank_f(group,rank,ierror) & - BIND(C, name="pompi_group_rank_f") - implicit none - INTEGER, INTENT(IN) :: group - INTEGER, INTENT(OUT) :: rank - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_group_rank_f - -subroutine pompi_group_size_f(group,size,ierror) & - BIND(C, name="pompi_group_size_f") - implicit none - INTEGER, INTENT(IN) :: group - INTEGER, INTENT(OUT) :: size - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_group_size_f - -subroutine pompi_group_translate_ranks_f(group1,n,ranks1,group2,ranks2,ierror) & - BIND(C, name="pompi_group_translate_ranks_f") - implicit none - INTEGER, INTENT(IN) :: group1, group2 - INTEGER, INTENT(IN) :: n - INTEGER, INTENT(IN) :: ranks1(*) - INTEGER, INTENT(OUT) :: ranks2(*) - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_group_translate_ranks_f - -subroutine pompi_group_union_f(group1,group2,newgroup,ierror) & - BIND(C, name="pompi_group_union_f") - implicit none - INTEGER, INTENT(IN) :: group1, group2 - INTEGER, INTENT(OUT) :: newgroup - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_group_union_f - -subroutine pompi_intercomm_create_f(local_comm,local_leader,peer_comm, & - remote_leader,tag,newintercomm,ierror) & - BIND(C, name="pompi_intercomm_create_f") - implicit none - INTEGER, INTENT(IN) :: local_comm, peer_comm - INTEGER, INTENT(IN) :: local_leader, remote_leader, tag - INTEGER, INTENT(OUT) :: newintercomm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_intercomm_create_f - -subroutine pompi_type_create_keyval_f(type_copy_attr_fn,type_delete_attr_fn, & - type_keyval,extra_state,ierror) & - BIND(C, name="pompi_type_create_keyval_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - use, intrinsic :: iso_c_binding, only: c_funptr - implicit none - type(c_funptr), value :: type_copy_attr_fn - type(c_funptr), value :: type_delete_attr_fn - INTEGER, INTENT(OUT) :: type_keyval - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_create_keyval_f - -subroutine pompi_type_delete_attr_f(datatype,type_keyval,ierror) & - BIND(C, name="pompi_type_delete_attr_f") - implicit none - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: type_keyval - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_delete_attr_f - -subroutine pompi_type_free_keyval_f(type_keyval,ierror) & - BIND(C, name="pompi_type_free_keyval_f") - implicit none - INTEGER, INTENT(INOUT) :: type_keyval - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_free_keyval_f - -subroutine pompi_type_get_name_f(datatype,type_name,resultlen,ierror,type_name_len) & - BIND(C, name="pompi_type_get_name_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - INTEGER, INTENT(IN) :: datatype - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: type_name - INTEGER, INTENT(OUT) :: resultlen - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: type_name_len -end subroutine pompi_type_get_name_f - -subroutine pompi_type_set_attr_f(datatype,type_keyval,attribute_val,ierror) & - BIND(C, name="pompi_type_set_attr_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: type_keyval - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: attribute_val - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_set_attr_f - -subroutine pompi_type_set_name_f(datatype,type_name,ierror,type_name_len) & - BIND(C, name="pompi_type_set_name_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - INTEGER, INTENT(IN) :: datatype - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: type_name - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: type_name_len -end subroutine pompi_type_set_name_f - -subroutine pompi_win_allocate_f(size, disp_unit, info, comm, & - baseptr, win, ierror) BIND(C, name="pompi_win_allocate_f") - USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(IN) :: size - INTEGER, INTENT(IN) :: disp_unit - INTEGER, INTENT(IN) :: info - INTEGER, INTENT(IN) :: comm - TYPE(C_PTR), INTENT(OUT) :: baseptr - INTEGER, INTENT(OUT) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_allocate_f - -subroutine pompi_win_allocate_shared_f(size, disp_unit, info, comm, & - baseptr, win, ierror) BIND(C, name="pompi_win_allocate_shared_f") - USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(IN) :: size - INTEGER, INTENT(IN) :: disp_unit - INTEGER, INTENT(IN) :: info - INTEGER, INTENT(IN) :: comm - TYPE(C_PTR), INTENT(OUT) :: baseptr - INTEGER, INTENT(OUT) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_allocate_shared_f - -subroutine pompi_win_create_keyval_f(win_copy_attr_fn,win_delete_attr_fn, & - win_keyval,extra_state,ierror) & - BIND(C, name="pompi_win_create_keyval_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - use, intrinsic :: iso_c_binding, only: c_funptr - implicit none - type(c_funptr), value :: win_copy_attr_fn - type(c_funptr), value :: win_delete_attr_fn - INTEGER, INTENT(OUT) :: win_keyval - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_create_keyval_f - -subroutine pompi_win_delete_attr_f(win,win_keyval,ierror) & - BIND(C, name="pompi_win_delete_attr_f") - implicit none - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(IN) :: win_keyval - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_delete_attr_f - -subroutine pompi_win_free_keyval_f(win_keyval,ierror) & - BIND(C, name="pompi_win_free_keyval_f") - implicit none - INTEGER, INTENT(INOUT) :: win_keyval - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_free_keyval_f - -subroutine pompi_win_get_name_f(win,win_name,resultlen,ierror,win_name_len) & - BIND(C, name="pompi_win_get_name_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - INTEGER, INTENT(IN) :: win - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: win_name - INTEGER, INTENT(OUT) :: resultlen - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: win_name_len -end subroutine pompi_win_get_name_f - -subroutine pompi_win_set_attr_f(win,win_keyval,attribute_val,ierror) & - BIND(C, name="pompi_win_set_attr_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(IN) :: win_keyval - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: attribute_val - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_set_attr_f - -subroutine pompi_win_set_name_f(win,win_name,ierror,win_name_len) & - BIND(C, name="pompi_win_set_name_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - INTEGER, INTENT(IN) :: win - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: win_name - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: win_name_len -end subroutine pompi_win_set_name_f - -subroutine pompi_cartdim_get_f(comm,ndims,ierror) & - BIND(C, name="pompi_cartdim_get_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ndims - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_cartdim_get_f - -subroutine pompi_cart_coords_f(comm,rank,maxdims,coords,ierror) & - BIND(C, name="pompi_cart_coords_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(IN) :: rank, maxdims - INTEGER, INTENT(OUT) :: coords(maxdims) - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_cart_coords_f - -subroutine pompi_cart_rank_f(comm,coords,rank,ierror) & - BIND(C, name="pompi_cart_rank_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(IN) :: coords(*) - INTEGER, INTENT(OUT) :: rank - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_cart_rank_f - -subroutine pompi_cart_shift_f(comm,direction,disp,rank_source,rank_dest,ierror) & - BIND(C, name="pompi_cart_shift_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(IN) :: direction, disp - INTEGER, INTENT(OUT) :: rank_source, rank_dest - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_cart_shift_f - -subroutine pompi_dims_create_f(nnodes,ndims,dims,ierror) & - BIND(C, name="pompi_dims_create_f") - implicit none - INTEGER, INTENT(IN) :: nnodes, ndims - INTEGER, INTENT(INOUT) :: dims(*) - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_dims_create_f - -subroutine pompi_dist_graph_neighbors_f(comm,maxindegree,sources,sourceweights, & - maxoutdegree,destinations,destweights,ierror) & - BIND(C, name="pompi_dist_graph_neighbors_f") - 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 pompi_dist_graph_neighbors_f - -subroutine pompi_graphdims_get_f(comm,nnodes,nedges,ierror) & - BIND(C, name="pompi_graphdims_get_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: nnodes, nedges - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_graphdims_get_f - -subroutine pompi_graph_get_f(comm,maxindex,maxedges,index,edges,ierror) & - BIND(C, name="pompi_graph_get_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(IN) :: maxindex, maxedges - INTEGER, INTENT(OUT) :: index(*), edges(*) - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_graph_get_f - -subroutine pompi_graph_map_f(comm,nnodes,index,edges,newrank,ierror) & - BIND(C, name="pompi_graph_map_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(IN) :: nnodes - INTEGER, INTENT(IN) :: index(*), edges(*) - INTEGER, INTENT(OUT) :: newrank - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_graph_map_f - -subroutine pompi_graph_neighbors_f(comm,rank,maxneighbors,neighbors,ierror) & - BIND(C, name="pompi_graph_neighbors_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(IN) :: rank, maxneighbors - INTEGER, INTENT(OUT) :: neighbors(*) - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_graph_neighbors_f - -subroutine pompi_graph_neighbors_count_f(comm,rank,nneighbors,ierror) & - BIND(C, name="pompi_graph_neighbors_count_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(IN) :: rank - INTEGER, INTENT(OUT) :: nneighbors - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_graph_neighbors_count_f - -subroutine pompi_topo_test_f(comm,status,ierror) & - BIND(C, name="pompi_topo_test_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_topo_test_f - -! -! These functions are declared in mpi-f08-interface.h as BIND(C) -! -!function MPI_Wtick_f() & -! BIND(C, name="pompi_wtick_f") -! implicit none -! DOUBLE PRECISION :: MPI_Wtick_f -!end function MPI_Wtick_f -! -!function MPI_Wtime_f() & -! BIND(C, name="pompi_wtime_f") -! implicit none -! DOUBLE PRECISION :: MPI_Wtime_f -!end function MPI_Wtime_f - -function pompi_aint_add_f(base,diff) & - BIND(C, name="pompi_aint_add_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: base - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: diff - INTEGER(MPI_ADDRESS_KIND) :: pompi_aint_add_f -end function pompi_aint_add_f - -function pompi_aint_diff_f(addr1,addr2) & - BIND(C, name="pompi_aint_diff_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: addr1 - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: addr2 - INTEGER(MPI_ADDRESS_KIND) :: pompi_aint_diff_f -end function pompi_aint_diff_f - -subroutine pompi_abort_f(comm,errorcode,ierror) & - BIND(C, name="pompi_abort_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(IN) :: errorcode - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_abort_f - -subroutine pompi_add_error_class_f(errorclass,ierror) & - BIND(C, name="pompi_add_error_class_f") - implicit none - INTEGER, INTENT(OUT) :: errorclass - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_add_error_class_f - -subroutine pompi_add_error_code_f(errorclass,errorcode,ierror) & - BIND(C, name="pompi_add_error_code_f") - implicit none - INTEGER, INTENT(IN) :: errorclass - INTEGER, INTENT(OUT) :: errorcode - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_add_error_code_f - -subroutine pompi_add_error_string_f(errorcode,string,ierror,str_len) & - BIND(C, name="pompi_add_error_string_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - INTEGER, INTENT(IN) :: errorcode - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: string - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: str_len -end subroutine pompi_add_error_string_f - -subroutine pompi_alloc_mem_f(size,info,baseptr,ierror) & - BIND(C, name="pompi_alloc_mem_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - use, intrinsic :: ISO_C_BINDING, only : C_PTR - implicit none - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size - INTEGER, INTENT(IN) :: info - TYPE(C_PTR), INTENT(OUT) :: baseptr - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_alloc_mem_f - -subroutine pompi_comm_call_errhandler_f(comm,errorcode,ierror) & - BIND(C, name="pompi_comm_call_errhandler_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(IN) :: errorcode - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_call_errhandler_f - -subroutine pompi_comm_create_errhandler_f(comm_errhandler_fn,errhandler,ierror) & - BIND(C, name="pompi_comm_create_errhandler_f") - use, intrinsic :: iso_c_binding, only: c_funptr - implicit none - type(c_funptr), value :: comm_errhandler_fn - INTEGER, INTENT(OUT) :: errhandler - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_create_errhandler_f - -subroutine pompi_comm_get_errhandler_f(comm,errhandler,ierror) & - BIND(C, name="pompi_comm_get_errhandler_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: errhandler - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_get_errhandler_f - -subroutine pompi_comm_set_errhandler_f(comm,errhandler,ierror) & - BIND(C, name="pompi_comm_set_errhandler_f") - implicit none - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(IN) :: errhandler - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_set_errhandler_f - -subroutine pompi_errhandler_free_f(errhandler,ierror) & - BIND(C, name="pompi_errhandler_free_f") - implicit none - INTEGER, INTENT(INOUT) :: errhandler - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_errhandler_free_f - -subroutine pompi_error_class_f(errorcode,errorclass,ierror) & - BIND(C, name="pompi_error_class_f") - implicit none - INTEGER, INTENT(IN) :: errorcode - INTEGER, INTENT(OUT) :: errorclass - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_error_class_f - -subroutine pompi_error_string_f(errorcode,string,resultlen,ierror,str_len) & - BIND(C, name="pompi_error_string_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - INTEGER, INTENT(IN) :: errorcode - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: string - INTEGER, INTENT(OUT) :: resultlen - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: str_len -end subroutine pompi_error_string_f - -subroutine pompi_file_call_errhandler_f(fh,errorcode,ierror) & - BIND(C, name="pompi_file_call_errhandler_f") - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER, INTENT(IN) :: errorcode - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_call_errhandler_f - -subroutine pompi_file_create_errhandler_f(file_errhandler_fn,errhandler,ierror) & - BIND(C, name="pompi_file_create_errhandler_f") - use, intrinsic :: iso_c_binding, only: c_funptr - implicit none - type(c_funptr), value :: file_errhandler_fn - INTEGER, INTENT(OUT) :: errhandler - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_create_errhandler_f - -subroutine pompi_file_get_errhandler_f(file,errhandler,ierror) & - BIND(C, name="pompi_file_get_errhandler_f") - implicit none - INTEGER, INTENT(IN) :: file - INTEGER, INTENT(OUT) :: errhandler - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_get_errhandler_f - -subroutine pompi_file_set_errhandler_f(file,errhandler,ierror) & - BIND(C, name="pompi_file_set_errhandler_f") - implicit none - INTEGER, INTENT(IN) :: file - INTEGER, INTENT(IN) :: errhandler - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_set_errhandler_f - -subroutine pompi_finalize_f(ierror) & - BIND(C, name="pompi_finalize_f") - implicit none - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_finalize_f - -subroutine pompi_free_mem_f(base,ierror) & - BIND(C, name="pompi_free_mem_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_free_mem_f - -subroutine pompi_get_processor_name_f(name,resultlen,ierror,name_len) & - BIND(C, name="pompi_get_processor_name_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: name - INTEGER, INTENT(OUT) :: resultlen - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: name_len -end subroutine pompi_get_processor_name_f - -subroutine pompi_get_version_f(version,subversion,ierror) & - BIND(C, name="pompi_get_version_f") - implicit none - INTEGER, INTENT(OUT) :: version, subversion - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_get_version_f - -subroutine pompi_init_f(ierror) & - BIND(C, name="pompi_init_f") - implicit none - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_init_f - -subroutine pompi_win_call_errhandler_f(win,errorcode,ierror) & - BIND(C, name="pompi_win_call_errhandler_f") - implicit none - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(IN) :: errorcode - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_call_errhandler_f - -subroutine pompi_win_create_errhandler_f(win_errhandler_fn,errhandler,ierror) & - BIND(C, name="pompi_win_create_errhandler_f") - use, intrinsic :: iso_c_binding, only: c_funptr - implicit none - type(c_funptr), value :: win_errhandler_fn - INTEGER, INTENT(OUT) :: errhandler - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_create_errhandler_f - -subroutine pompi_win_get_errhandler_f(win,errhandler,ierror) & - BIND(C, name="pompi_win_get_errhandler_f") - implicit none - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: errhandler - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_get_errhandler_f - -subroutine pompi_win_set_errhandler_f(win,errhandler,ierror) & - BIND(C, name="pompi_win_set_errhandler_f") - implicit none - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(IN) :: errhandler - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_set_errhandler_f - -subroutine pompi_info_create_f(info,ierror) & - BIND(C, name="pompi_info_create_f") - implicit none - INTEGER, INTENT(OUT) :: info - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_info_create_f - -subroutine pompi_info_delete_f(info,key,ierror,key_len) & - BIND(C, name="pompi_info_delete_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - INTEGER, INTENT(IN) :: info - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: key - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: key_len -end subroutine pompi_info_delete_f - -subroutine pompi_info_dup_f(info,newinfo,ierror) & - BIND(C, name="pompi_info_dup_f") - implicit none - INTEGER, INTENT(IN) :: info - INTEGER, INTENT(OUT) :: newinfo - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_info_dup_f - -subroutine pompi_info_free_f(info,ierror) & - BIND(C, name="pompi_info_free_f") - implicit none - INTEGER, INTENT(INOUT) :: info - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_info_free_f - -subroutine pompi_info_get_nkeys_f(info,nkeys,ierror) & - BIND(C, name="pompi_info_get_nkeys_f") - implicit none - INTEGER, INTENT(IN) :: info - INTEGER, INTENT(OUT) :: nkeys - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_info_get_nkeys_f - -subroutine pompi_info_get_nthkey_f(info,n,key,ierror,key_len) & - BIND(C, name="pompi_info_get_nthkey_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - INTEGER, INTENT(IN) :: info - INTEGER, INTENT(IN) :: n - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: key - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: key_len -end subroutine pompi_info_get_nthkey_f - -subroutine pompi_info_set_f(info,key,value,ierror,key_len,value_len) & - BIND(C, name="pompi_info_set_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - INTEGER, INTENT(IN) :: info - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: key, value - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: key_len, value_len -end subroutine pompi_info_set_f - -subroutine pompi_close_port_f(port_name,ierror,port_name_len) & - BIND(C, name="pompi_close_port_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: port_name - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: port_name_len -end subroutine pompi_close_port_f - -subroutine pompi_comm_accept_f(port_name,info,root,comm,newcomm,ierror,port_name_len) & - BIND(C, name="pompi_comm_accept_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: port_name - INTEGER, INTENT(IN) :: info - INTEGER, INTENT(IN) :: root - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: newcomm - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: port_name_len -end subroutine pompi_comm_accept_f - -subroutine pompi_comm_connect_f(port_name,info,root,comm,newcomm,ierror,port_name_len) & - BIND(C, name="pompi_comm_connect_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: port_name - INTEGER, INTENT(IN) :: info - INTEGER, INTENT(IN) :: root - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: newcomm - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: port_name_len -end subroutine pompi_comm_connect_f - -subroutine pompi_comm_disconnect_f(comm,ierror) & - BIND(C, name="pompi_comm_disconnect_f") - implicit none - INTEGER, INTENT(INOUT) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_disconnect_f - -subroutine pompi_comm_get_parent_f(parent,ierror) & - BIND(C, name="pompi_comm_get_parent_f") - implicit none - INTEGER, INTENT(OUT) :: parent - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_get_parent_f - -subroutine pompi_comm_join_f(fd,intercomm,ierror) & - BIND(C, name="pompi_comm_join_f") - implicit none - INTEGER, INTENT(IN) :: fd - INTEGER, INTENT(OUT) :: intercomm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_comm_join_f - -subroutine pompi_comm_spawn_f(command,argv,maxprocs,info,root,comm, & - intercomm, array_of_errcodes,ierror,cmd_len,argv_len) & - BIND(C, name="pompi_comm_spawn_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: command, argv - INTEGER, INTENT(IN) :: maxprocs, root - INTEGER, INTENT(IN) :: info - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: intercomm - INTEGER, INTENT(OUT) :: array_of_errcodes(*) - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: cmd_len, argv_len -end subroutine pompi_comm_spawn_f - - -! TODO - FIXME to use arrays of strings and pass strlen -subroutine pompi_comm_spawn_multiple_f(count,array_of_commands, & - array_of_argv, array_of_maxprocs,array_of_info,root, & - comm,intercomm,array_of_errcodes,ierror, & - cmd_len, argv_len) & - BIND(C, name="pompi_comm_spawn_multiple_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - INTEGER, INTENT(IN) :: count, root - INTEGER, INTENT(IN) :: array_of_maxprocs(count) - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: array_of_commands(*), array_of_argv(*) - INTEGER, INTENT(IN) :: array_of_info(count) - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: intercomm - INTEGER, INTENT(OUT) :: array_of_errcodes(*) - INTEGER, INTENT(OUT) :: ierror - INTEGER, INTENT(IN) :: cmd_len, argv_len -end subroutine pompi_comm_spawn_multiple_f - -subroutine pompi_lookup_name_f(service_name,info,port_name,ierror, & - service_name_len,port_name_len) & - BIND(C, name="pompi_lookup_name_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: service_name - INTEGER, INTENT(IN) :: info - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: port_name - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: service_name_len, port_name_len -end subroutine pompi_lookup_name_f - -subroutine pompi_open_port_f(info,port_name,ierror,port_name_len) & - BIND(C, name="pompi_open_port_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - INTEGER, INTENT(IN) :: info - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: port_name - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: port_name_len -end subroutine pompi_open_port_f - -subroutine pompi_publish_name_f(service_name,info,port_name,ierror, & - service_name_len,port_name_len) & - BIND(C, name="pompi_publish_name_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - INTEGER, INTENT(IN) :: info - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: service_name, port_name - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: service_name_len, port_name_len -end subroutine pompi_publish_name_f - -subroutine pompi_unpublish_name_f(service_name,info,port_name, & - ierror,service_name_len,port_name_len) & - BIND(C, name="pompi_unpublish_name_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: service_name, port_name - INTEGER, INTENT(IN) :: info - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: service_name_len, port_name_len -end subroutine pompi_unpublish_name_f - -subroutine pompi_accumulate_f(origin_addr,origin_count,origin_datatype, & - target_rank,target_disp, & - target_count,target_datatype,op,win,ierror) & - BIND(C, name="pompi_accumulate_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr - INTEGER, INTENT(IN) :: origin_count, target_rank, target_count - INTEGER, INTENT(IN) :: origin_datatype - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp - INTEGER, INTENT(IN) :: target_datatype - INTEGER, INTENT(IN) :: op - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_accumulate_f - -subroutine pompi_raccumulate_f(origin_addr,origin_count,origin_datatype, & - target_rank,target_disp, & - target_count,target_datatype,op,win, & - request,ierror) & - BIND(C, name="pompi_raccumulate_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr - INTEGER, INTENT(IN) :: origin_count, target_rank, target_count - INTEGER, INTENT(IN) :: origin_datatype - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp - INTEGER, INTENT(IN) :: target_datatype - INTEGER, INTENT(IN) :: op - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_raccumulate_f - -subroutine pompi_get_f(origin_addr,origin_count,origin_datatype,target_rank, & - target_disp,target_count,target_datatype,win,ierror) & - BIND(C, name="pompi_get_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr - INTEGER, INTENT(IN) :: origin_count, target_rank, target_count - INTEGER, INTENT(IN) :: origin_datatype - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp - INTEGER, INTENT(IN) :: target_datatype - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_get_f - -subroutine pompi_rget_f(origin_addr,origin_count,origin_datatype,target_rank, & - target_disp,target_count,target_datatype,win,request, & - ierror) & - BIND(C, name="pompi_rget_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr - INTEGER, INTENT(IN) :: origin_count, target_rank, target_count - INTEGER, INTENT(IN) :: origin_datatype - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp - INTEGER, INTENT(IN) :: target_datatype - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_rget_f - -subroutine pompi_get_accumulate_f(origin_addr,origin_count,origin_datatype, & - result_addr,result_count,result_datatype, & - target_rank,target_disp, & - target_count,target_datatype,op,win, & - ierror) & - BIND(C, name="pompi_get_accumulate_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr - INTEGER, INTENT(IN) :: origin_count, result_count, target_rank, target_count - INTEGER, INTENT(IN) :: origin_datatype - OMPI_FORTRAN_IGNORE_TKR_TYPE :: result_addr - INTEGER, INTENT(IN) :: result_datatype - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp - INTEGER, INTENT(IN) :: target_datatype - INTEGER, INTENT(IN) :: op - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_get_accumulate_f - -subroutine pompi_rget_accumulate_f(origin_addr,origin_count,origin_datatype, & - result_addr,result_count,result_datatype, & - target_rank,target_disp, & - target_count,target_datatype,op,win, & - request,ierror) & - BIND(C, name="pompi_rget_accumulate_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr - INTEGER, INTENT(IN) :: origin_count, result_count, target_rank, target_count - INTEGER, INTENT(IN) :: origin_datatype - OMPI_FORTRAN_IGNORE_TKR_TYPE :: result_addr - INTEGER, INTENT(IN) :: result_datatype - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp - INTEGER, INTENT(IN) :: target_datatype - INTEGER, INTENT(IN) :: op - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_rget_accumulate_f - -subroutine pompi_put_f(origin_addr,origin_count,origin_datatype,target_rank, & - target_disp,target_count,target_datatype,win,ierror) & - BIND(C, name="pompi_put_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr - INTEGER, INTENT(IN) :: origin_count, target_rank, target_count - INTEGER, INTENT(IN) :: origin_datatype - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp - INTEGER, INTENT(IN) :: target_datatype - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_put_f - -subroutine pompi_rput_f(origin_addr,origin_count,origin_datatype,target_rank, & - target_disp,target_count,target_datatype,win,request, & - ierror) & - BIND(C, name="pompi_rput_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr - INTEGER, INTENT(IN) :: origin_count, target_rank, target_count - INTEGER, INTENT(IN) :: origin_datatype - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp - INTEGER, INTENT(IN) :: target_datatype - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_rput_f - -subroutine pompi_win_complete_f(win,ierror) & - BIND(C, name="pompi_win_complete_f") - implicit none - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_complete_f - -subroutine pompi_compare_and_swap_f(origin_addr,compare_addr,result_addr, & - datatype,target_rank,target_disp, win, & - ierror) & - BIND(C, name="pompi_compare_and_swap_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr, compare_addr - OMPI_FORTRAN_IGNORE_TKR_TYPE :: result_addr - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: target_rank - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_compare_and_swap_f - -subroutine pompi_fetch_and_op_f(origin_addr,result_addr,datatype,target_rank, & - target_disp,op,win,ierror) & - BIND(C, name="pompi_fetch_and_op_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr - OMPI_FORTRAN_IGNORE_TKR_TYPE :: result_addr - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: target_rank - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: target_disp - INTEGER, INTENT(IN) :: op - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_fetch_and_op_f - -subroutine pompi_win_create_f(base,size,disp_unit,info,comm,win,ierror) & - BIND(C, name="pompi_win_create_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base - INTEGER(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 pompi_win_create_f - -subroutine pompi_win_flush_f(rank,win,ierror) & - BIND(C, name="pompi_win_flush_f") - implicit none - INTEGER, INTENT(IN) :: rank - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_flush_f - -subroutine pompi_win_flush_all_f(win,ierror) & - BIND(C, name="pompi_win_flush_all_f") - implicit none - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_flush_all_f - -subroutine pompi_win_flush_local_f(rank,win,ierror) & - BIND(C, name="pompi_win_flush_local_f") - implicit none - INTEGER, INTENT(IN) :: rank - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_flush_local_f - -subroutine pompi_win_flush_local_all_f(win,ierror) & - BIND(C, name="pompi_win_flush_local_all_f") - implicit none - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_flush_local_all_f - -subroutine pompi_win_fence_f(assert,win,ierror) & - BIND(C, name="pompi_win_fence_f") - implicit none - INTEGER, INTENT(IN) :: assert - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_fence_f - -subroutine pompi_win_free_f(win,ierror) & - BIND(C, name="pompi_win_free_f") - implicit none - INTEGER, INTENT(INOUT) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_free_f - -subroutine pompi_win_get_group_f(win,group,ierror) & - BIND(C, name="pompi_win_get_group_f") - implicit none - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: group - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_get_group_f - -subroutine pompi_win_lock_f(lock_type,rank,assert,win,ierror) & - BIND(C, name="pompi_win_lock_f") - implicit none - INTEGER, INTENT(IN) :: lock_type, rank, assert - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_lock_f - -subroutine pompi_win_lock_all_f(assert,win,ierror) & - BIND(C, name="pompi_win_lock_all_f") - implicit none - INTEGER, INTENT(IN) :: assert - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_lock_all_f - -subroutine pompi_win_post_f(group,assert,win,ierror) & - BIND(C, name="pompi_win_post_f") - implicit none - INTEGER, INTENT(IN) :: group - INTEGER, INTENT(IN) :: assert - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_post_f - -subroutine pompi_win_shared_query_f(win, rank, size, disp_unit, baseptr,& - ierror) BIND(C, name="pompi_win_shared_query_f") - USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(IN) :: rank - INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(OUT) :: size - INTEGER, INTENT(OUT) :: disp_unit - TYPE(C_PTR), INTENT(OUT) :: baseptr - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_shared_query_f - -subroutine pompi_win_start_f(group,assert,win,ierror) & - BIND(C, name="pompi_win_start_f") - implicit none - INTEGER, INTENT(IN) :: group - INTEGER, INTENT(IN) :: assert - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_start_f - -subroutine pompi_win_sync_f(win,ierror) & - BIND(C, name="pompi_win_sync_f") - implicit none - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_sync_f - -subroutine pompi_win_unlock_f(rank,win,ierror) & - BIND(C, name="pompi_win_unlock_f") - implicit none - INTEGER, INTENT(IN) :: rank - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_unlock_f - -subroutine pompi_win_unlock_all_f(win,ierror) & - BIND(C, name="pompi_win_unlock_all_f") - implicit none - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_unlock_all_f - -subroutine pompi_win_wait_f(win,ierror) & - BIND(C, name="pompi_win_wait_f") - implicit none - INTEGER, INTENT(IN) :: win - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_win_wait_f - -subroutine pompi_grequest_complete_f(request,ierror) & - BIND(C, name="pompi_grequest_complete_f") - implicit none - INTEGER, INTENT(IN) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_grequest_complete_f - -subroutine pompi_grequest_start_f(query_fn,free_fn,cancel_fn, & - extra_state,request,ierror) & - BIND(C, name="pompi_grequest_start_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - use, intrinsic :: iso_c_binding, only: c_funptr - implicit none - type(c_funptr), value :: query_fn - type(c_funptr), value :: free_fn - type(c_funptr), value :: cancel_fn - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_grequest_start_f - -subroutine pompi_init_thread_f(required,provided,ierror) & - BIND(C, name="pompi_init_thread_f") - implicit none - INTEGER, INTENT(IN) :: required - INTEGER, INTENT(OUT) :: provided - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_init_thread_f - -subroutine pompi_query_thread_f(provided,ierror) & - BIND(C, name="pompi_query_thread_f") - implicit none - INTEGER, INTENT(OUT) :: provided - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_query_thread_f - -subroutine pompi_status_set_elements_f(status,datatype,count,ierror) & - BIND(C, name="pompi_status_set_elements_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - TYPE(MPI_Status), INTENT(INOUT) :: status - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_status_set_elements_f - -subroutine pompi_file_close_f(fh,ierror) & - BIND(C, name="pompi_file_close_f") - implicit none - INTEGER, INTENT(INOUT) :: fh - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_close_f - -subroutine pompi_file_delete_f(filename,info,ierror,filename_len) & - BIND(C, name="pompi_file_delete_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: filename - INTEGER, INTENT(IN) :: info - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: filename_len -end subroutine pompi_file_delete_f - -subroutine pompi_file_get_amode_f(fh,amode,ierror) & - BIND(C, name="pompi_file_get_amode_f") - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER, INTENT(OUT) :: amode - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_get_amode_f - -subroutine pompi_file_get_byte_offset_f(fh,offset,disp,ierror) & - BIND(C, name="pompi_file_get_byte_offset_f") - use :: mpi_f08_types, only : MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset - INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: disp - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_get_byte_offset_f - -subroutine pompi_file_get_group_f(fh,group,ierror) & - BIND(C, name="pompi_file_get_group_f") - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER, INTENT(OUT) :: group - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_get_group_f - -subroutine pompi_file_get_info_f(fh,info_used,ierror) & - BIND(C, name="pompi_file_get_info_f") - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER, INTENT(OUT) :: info_used - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_get_info_f - -subroutine pompi_file_get_position_f(fh,offset,ierror) & - BIND(C, name="pompi_file_get_position_f") - use :: mpi_f08_types, only : MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: offset - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_get_position_f - -subroutine pompi_file_get_position_shared_f(fh,offset,ierror) & - BIND(C, name="pompi_file_get_position_shared_f") - use :: mpi_f08_types, only : MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: offset - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_get_position_shared_f - -subroutine pompi_file_get_size_f(fh,size,ierror) & - BIND(C, name="pompi_file_get_size_f") - use :: mpi_f08_types, only : MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: size - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_get_size_f - -subroutine pompi_file_get_type_extent_f(fh,datatype,extent,ierror) & - BIND(C, name="pompi_file_get_type_extent_f") - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER, INTENT(IN) :: datatype - INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: extent - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_get_type_extent_f - -subroutine pompi_file_get_view_f(fh,disp,etype,filetype,datarep,ierror,datarep_len) & - BIND(C, name="pompi_file_get_view_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - use :: mpi_f08_types, only : MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: disp - INTEGER, INTENT(OUT) :: etype - INTEGER, INTENT(OUT) :: filetype - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: datarep - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: datarep_len -end subroutine pompi_file_get_view_f - -subroutine pompi_file_iread_f(fh,buf,count,datatype,request,ierror) & - BIND(C, name="pompi_file_iread_f") - implicit none - INTEGER, INTENT(IN) :: fh - 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 pompi_file_iread_f - -subroutine pompi_file_iread_at_f(fh,offset,buf,count,datatype,request,ierror) & - BIND(C, name="pompi_file_iread_at_f") - use :: mpi_f08_types, only : MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset - 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 pompi_file_iread_at_f - -subroutine pompi_file_iread_all_f(fh,buf,count,datatype,request,ierror) & - BIND(C, name="pompi_file_iread_all_f") - implicit none - INTEGER, INTENT(IN) :: fh - 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 pompi_file_iread_all_f - -subroutine pompi_file_iread_at_all_f(fh,offset,buf,count,datatype,request,ierror) & - BIND(C, name="pompi_file_iread_at_all_f") - use :: mpi_f08_types, only : MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset - 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 pompi_file_iread_at_all_f - -subroutine pompi_file_iread_shared_f(fh,buf,count,datatype,request,ierror) & - BIND(C, name="pompi_file_iread_shared_f") - implicit none - INTEGER, INTENT(IN) :: fh - 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 pompi_file_iread_shared_f - -subroutine pompi_file_iwrite_f(fh,buf,count,datatype,request,ierror) & - BIND(C, name="pompi_file_iwrite_f") - implicit none - INTEGER, INTENT(IN) :: fh - 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 pompi_file_iwrite_f - -subroutine pompi_file_iwrite_at_f(fh,offset,buf,count,datatype,request,ierror) & - BIND(C, name="pompi_file_iwrite_at_f") - use :: mpi_f08_types, only : MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset - 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 pompi_file_iwrite_at_f - -subroutine pompi_file_iwrite_all_f(fh,buf,count,datatype,request,ierror) & - BIND(C, name="pompi_file_iwrite_all_f") - implicit none - INTEGER, INTENT(IN) :: fh - 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 pompi_file_iwrite_all_f - -subroutine pompi_file_iwrite_at_all_f(fh,offset,buf,count,datatype,request,ierror) & - BIND(C, name="pompi_file_iwrite_at_all_f") - use :: mpi_f08_types, only : MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset - 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 pompi_file_iwrite_at_all_f - -subroutine pompi_file_iwrite_shared_f(fh,buf,count,datatype,request,ierror) & - BIND(C, name="pompi_file_iwrite_shared_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: fh - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_iwrite_shared_f - -subroutine pompi_file_open_f(comm,filename,amode,info,fh,ierror,filename_len) & - BIND(C, name="pompi_file_open_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - INTEGER, INTENT(IN) :: comm - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: filename - INTEGER, INTENT(IN) :: amode - INTEGER, INTENT(IN) :: info - INTEGER, INTENT(OUT) :: fh - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: filename_len -end subroutine pompi_file_open_f - -subroutine pompi_file_preallocate_f(fh,size,ierror) & - BIND(C, name="pompi_file_preallocate_f") - use :: mpi_f08_types, only : MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: size - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_preallocate_f - -subroutine pompi_file_read_f(fh,buf,count,datatype,status,ierror) & - BIND(C, name="pompi_file_read_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_read_f - -subroutine pompi_file_read_all_f(fh,buf,count,datatype,status,ierror) & - BIND(C, name="pompi_file_read_all_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_read_all_f - -subroutine pompi_file_read_all_begin_f(fh,buf,count,datatype,ierror) & - BIND(C, name="pompi_file_read_all_begin_f") - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_read_all_begin_f - -subroutine pompi_file_read_all_end_f(fh,buf,status,ierror) & - BIND(C, name="pompi_file_read_all_end_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_read_all_end_f - -subroutine pompi_file_read_at_f(fh,offset,buf,count,datatype,status,ierror) & - BIND(C, name="pompi_file_read_at_f") - use :: mpi_f08_types, only : MPI_Status, MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_read_at_f - -subroutine pompi_file_read_at_all_f(fh,offset,buf,count,datatype,status,ierror) & - BIND(C, name="pompi_file_read_at_all_f") - use :: mpi_f08_types, only : MPI_Status, MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_read_at_all_f - -subroutine pompi_file_read_at_all_begin_f(fh,offset,buf,count,datatype,ierror) & - BIND(C, name="pompi_file_read_at_all_begin_f") - use :: mpi_f08_types, only : MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_read_at_all_begin_f - -subroutine pompi_file_read_at_all_end_f(fh,buf,status,ierror) & - BIND(C, name="pompi_file_read_at_all_end_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_read_at_all_end_f - -subroutine pompi_file_read_ordered_f(fh,buf,count,datatype,status,ierror) & - BIND(C, name="pompi_file_read_ordered_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_read_ordered_f - -subroutine pompi_file_read_ordered_begin_f(fh,buf,count,datatype,ierror) & - BIND(C, name="pompi_file_read_ordered_begin_f") - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_read_ordered_begin_f - -subroutine pompi_file_read_ordered_end_f(fh,buf,status,ierror) & - BIND(C, name="pompi_file_read_ordered_end_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_read_ordered_end_f - -subroutine pompi_file_read_shared_f(fh,buf,count,datatype,status,ierror) & - BIND(C, name="pompi_file_read_shared_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_read_shared_f - -subroutine pompi_file_seek_f(fh,offset,whence,ierror) & - BIND(C, name="pompi_file_seek_f") - use :: mpi_f08_types, only : MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset - INTEGER, INTENT(IN) :: whence - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_seek_f - -subroutine pompi_file_seek_shared_f(fh,offset,whence,ierror) & - BIND(C, name="pompi_file_seek_shared_f") - use :: mpi_f08_types, only : MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset - INTEGER, INTENT(IN) :: whence - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_seek_shared_f - -subroutine pompi_file_set_info_f(fh,info,ierror) & - BIND(C, name="pompi_file_set_info_f") - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER, INTENT(IN) :: info - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_set_info_f - -subroutine pompi_file_set_size_f(fh,size,ierror) & - BIND(C, name="pompi_file_set_size_f") - use :: mpi_f08_types, only : MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: size - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_set_size_f - -subroutine pompi_file_set_view_f(fh,disp,etype,filetype,datarep,info,ierror,datarep_len) & - BIND(C, name="pompi_file_set_view_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - use :: mpi_f08_types, only : MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: disp - INTEGER, INTENT(IN) :: etype - INTEGER, INTENT(IN) :: filetype - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: datarep - INTEGER, INTENT(IN) :: info - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: datarep_len -end subroutine pompi_file_set_view_f - -subroutine pompi_file_sync_f(fh,ierror) & - BIND(C, name="pompi_file_sync_f") - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_sync_f - -subroutine pompi_file_write_f(fh,buf,count,datatype,status,ierror) & - BIND(C, name="pompi_file_write_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_write_f - -subroutine pompi_file_write_all_f(fh,buf,count,datatype,status,ierror) & - BIND(C, name="pompi_file_write_all_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_write_all_f - -subroutine pompi_file_write_all_begin_f(fh,buf,count,datatype,ierror) & - BIND(C, name="pompi_file_write_all_begin_f") - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_write_all_begin_f - -subroutine pompi_file_write_all_end_f(fh,buf,status,ierror) & - BIND(C, name="pompi_file_write_all_end_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_write_all_end_f - -subroutine pompi_file_write_at_f(fh,offset,buf,count,datatype,status,ierror) & - BIND(C, name="pompi_file_write_at_f") - use :: mpi_f08_types, only : MPI_Status, MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_write_at_f - -subroutine pompi_file_write_at_all_f(fh,offset,buf,count,datatype,status,ierror) & - BIND(C, name="pompi_file_write_at_all_f") - use :: mpi_f08_types, only : MPI_Status, MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_write_at_all_f - -subroutine pompi_file_write_at_all_begin_f(fh,offset,buf,count,datatype,ierror) & - BIND(C, name="pompi_file_write_at_all_begin_f") - use :: mpi_f08_types, only : MPI_OFFSET_KIND - implicit none - INTEGER, INTENT(IN) :: fh - INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_write_at_all_begin_f - -subroutine pompi_file_write_at_all_end_f(fh,buf,status,ierror) & - BIND(C, name="pompi_file_write_at_all_end_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_write_at_all_end_f - -subroutine pompi_file_write_ordered_f(fh,buf,count,datatype,status,ierror) & - BIND(C, name="pompi_file_write_ordered_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_write_ordered_f - -subroutine pompi_file_write_ordered_begin_f(fh,buf,count,datatype,ierror) & - BIND(C, name="pompi_file_write_ordered_begin_f") - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_write_ordered_begin_f - -subroutine pompi_file_write_ordered_end_f(fh,buf,status,ierror) & - BIND(C, name="pompi_file_write_ordered_end_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_write_ordered_end_f - -subroutine pompi_file_write_shared_f(fh,buf,count,datatype,status,ierror) & - BIND(C, name="pompi_file_write_shared_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: fh - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_file_write_shared_f - -subroutine pompi_register_datarep_f(datarep,read_conversion_fn, & - write_conversion_fn,dtype_file_extent_fn, & - extra_state,ierror,datarep_len) & - BIND(C, name="pompi_register_datarep_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - use :: mpi_f08_types, only : MPI_ADDRESS_KIND - use, intrinsic :: iso_c_binding, only: c_funptr - implicit none - type(c_funptr), value :: read_conversion_fn - type(c_funptr), value :: write_conversion_fn - type(c_funptr), value :: dtype_file_extent_fn - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: datarep - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: datarep_len -end subroutine pompi_register_datarep_f - -! -! MPI_Sizeof is generic for numeric types. This ignore TKR interface -! is replaced by the specific generics. -! -!subroutine pompi_sizeof(x,size,ierror) & -! BIND(C, name="pompi_sizeof_f") -! implicit none -! OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: x -! INTEGER, INTENT(OUT) :: size -! INTEGER, INTENT(OUT) :: ierror -!end subroutine pompi_sizeof - -subroutine pompi_type_create_f90_complex_f(p,r,newtype,ierror) & - BIND(C, name="pompi_type_create_f90_complex_f") - implicit none - INTEGER, INTENT(IN) :: p, r - INTEGER, INTENT(OUT) :: newtype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_create_f90_complex_f - -subroutine pompi_type_create_f90_integer_f(r,newtype,ierror) & - BIND(C, name="pompi_type_create_f90_integer_f") - implicit none - INTEGER, INTENT(IN) :: r - INTEGER, INTENT(OUT) :: newtype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_create_f90_integer_f - -subroutine pompi_type_create_f90_real_f(p,r,newtype,ierror) & - BIND(C, name="pompi_type_create_f90_real_f") - implicit none - INTEGER, INTENT(IN) :: p, r - INTEGER, INTENT(OUT) :: newtype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_create_f90_real_f - -subroutine pompi_type_match_size_f(typeclass,size,datatype,ierror) & - BIND(C, name="pompi_type_match_size_f") - implicit none - INTEGER, INTENT(IN) :: typeclass, size - INTEGER, INTENT(OUT) :: datatype - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_type_match_size_f - -subroutine pompi_pcontrol_f(level) & - BIND(C, name="pompi_pcontrol_f") - implicit none - INTEGER, INTENT(IN) :: level -end subroutine pompi_pcontrol_f - - -!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -! New routines to MPI-3 -! - -subroutine pompi_comm_split_type_f(comm,split_type,key,info,newcomm,ierror) & - BIND(C, name="pompi_comm_split_type_f") - implicit none - 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 pompi_comm_split_type_f - -subroutine pompi_f_sync_reg_f(buf) & - BIND(C, name="pompi_f_sync_reg_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf -end subroutine pompi_f_sync_reg_f - -subroutine pompi_get_library_version_f(name,resultlen,ierror,name_len) & - BIND(C, name="pompi_get_library_version_f") - use, intrinsic :: ISO_C_BINDING, only : C_CHAR - implicit none - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: name - INTEGER, INTENT(OUT) :: resultlen - INTEGER, INTENT(OUT) :: ierror - INTEGER, VALUE, INTENT(IN) :: name_len -end subroutine pompi_get_library_version_f - -subroutine pompi_mprobe_f(source,tag,comm,message,status,ierror) & - BIND(C, name="pompi_mprobe_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - INTEGER, INTENT(IN) :: source, tag - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: message - TYPE(MPI_Status), INTENT(OUT) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_mprobe_f - -subroutine pompi_imrecv_f(buf,count,datatype,message,request,ierror) & - BIND(C, name="pompi_imrecv_f") - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(INOUT) :: message - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_imrecv_f - -subroutine pompi_mrecv_f(buf,count,datatype,message,status,ierror) & - BIND(C, name="pompi_mrecv_f") - use :: mpi_f08_types, only : MPI_Status - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf - INTEGER, INTENT(IN) :: count - INTEGER, INTENT(IN) :: datatype - INTEGER, INTENT(INOUT) :: message - TYPE(MPI_Status) :: status - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_mrecv_f - -subroutine pompi_neighbor_allgather_f(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype, & - comm,ierror) & - BIND(C, name="pompi_neighbor_allgather_f") - use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf - INTEGER, INTENT(IN) :: sendcount, recvcount - INTEGER, INTENT(IN) :: sendtype, recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_neighbor_allgather_f - -subroutine pompi_ineighbor_allgather_f(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype, & - comm,request,ierror) & - BIND(C, name="pompi_ineighbor_allgather_f") - use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf - INTEGER, INTENT(IN) :: sendcount, recvcount - INTEGER, INTENT(IN) :: sendtype, recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_ineighbor_allgather_f - -subroutine pompi_neighbor_allgatherv_f(sendbuf,sendcount,sendtype,recvbuf,recvcounts,displs, & - recvtype,comm,ierror) & - BIND(C, name="pompi_neighbor_allgatherv_f") - use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf - INTEGER, INTENT(IN) :: sendcount - INTEGER, INTENT(IN) :: recvcounts(*), displs(*) - INTEGER, INTENT(IN) :: sendtype, recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_neighbor_allgatherv_f - -subroutine pompi_ineighbor_allgatherv_f(sendbuf,sendcount,sendtype,recvbuf,recvcounts,displs, & - recvtype,comm,request,ierror) & - BIND(C, name="pompi_ineighbor_allgatherv_f") - use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf - INTEGER, INTENT(IN) :: sendcount - INTEGER, INTENT(IN) :: recvcounts(*), displs(*) - INTEGER, INTENT(IN) :: sendtype, recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_ineighbor_allgatherv_f - -subroutine pompi_neighbor_alltoall_f(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype, & - comm,ierror) & - BIND(C, name="pompi_neighbor_alltoall_f") - use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf - INTEGER, INTENT(IN) :: sendcount, recvcount - INTEGER, INTENT(IN) :: sendtype, recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_neighbor_alltoall_f - -subroutine pompi_ineighbor_alltoall_f(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype, & - comm,request,ierror) & - BIND(C, name="pompi_ineighbor_alltoall_f") - use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf - INTEGER, INTENT(IN) :: sendcount, recvcount - INTEGER, INTENT(IN) :: sendtype, recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_ineighbor_alltoall_f - -subroutine pompi_neighbor_alltoallv_f(sendbuf,sendcounts,sdispls,sendtype,recvbuf,recvcounts, & - rdispls,recvtype,comm,ierror) & - BIND(C, name="pompi_neighbor_alltoallv_f") - use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf - INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) - INTEGER, INTENT(IN) :: sendtype, recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_neighbor_alltoallv_f - -subroutine pompi_ineighbor_alltoallv_f(sendbuf,sendcounts,sdispls,sendtype,recvbuf,recvcounts, & - rdispls,recvtype,comm,request,ierror) & - BIND(C, name="pompi_ineighbor_alltoallv_f") - use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf - INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) - INTEGER, INTENT(IN) :: sendtype, recvtype - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_ineighbor_alltoallv_f - -subroutine pompi_neighbor_alltoallw_f(sendbuf,sendcounts,sdispls,sendtypes,recvbuf,recvcounts, & - rdispls,recvtypes,comm,ierror) & - BIND(C, name="pompi_neighbor_alltoallw_f") - use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_ADDRESS_KIND - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf - INTEGER, INTENT(IN) :: sendcounts(*), recvcounts(*) - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: sdispls(*), rdispls(*) - INTEGER, INTENT(IN) :: sendtypes, recvtypes - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_neighbor_alltoallw_f - -subroutine pompi_ineighbor_alltoallw_f(sendbuf,sendcounts,sdispls,sendtypes,recvbuf,recvcounts, & - rdispls,recvtypes,comm,request,ierror) & - BIND(C, name="pompi_ineighbor_alltoallw_f") - use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request, MPI_ADDRESS_KIND - implicit none - OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf - OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf - INTEGER, INTENT(IN) :: sendcounts(*), recvcounts(*) - INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: sdispls(*), rdispls(*) - INTEGER, INTENT(IN) :: sendtypes, recvtypes - INTEGER, INTENT(IN) :: comm - INTEGER, INTENT(OUT) :: request - INTEGER, INTENT(OUT) :: ierror -end subroutine pompi_ineighbor_alltoallw_f - -end interface From d0a0fe818fd10aabc9eaa3221469060003172b4f Mon Sep 17 00:00:00 2001 From: Gilles Gouaillardet Date: Wed, 19 Sep 2018 11:27:39 +0900 Subject: [PATCH 4/4] fortran/use-mpi-f08: use bindings from ompi_mpifh_bindings Signed-off-by: Gilles Gouaillardet (cherry picked from commit open-mpi/ompi@c4ce01d104bb5ccb4bfda82f9492da194d1dc671) --- ompi/mpi/fortran/use-mpi-f08/abort_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/accumulate_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/add_error_class_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/add_error_code_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/add_error_string_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/aint_add_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/aint_diff_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/allgather_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/allgatherv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/alloc_mem_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/allreduce_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/alltoall_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/alltoallv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/alltoallw_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/barrier_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/bcast_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/bsend_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/bsend_init_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/buffer_attach_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/buffer_detach_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/cancel_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/cart_coords_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/cart_rank_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/cart_shift_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/cartdim_get_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/close_port_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_accept_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_call_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_compare_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_connect_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_create_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_create_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_create_group_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_create_keyval_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_delete_attr_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_disconnect_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_dup_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_dup_with_info_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_free_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_free_keyval_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_get_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_get_info_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_get_name_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_get_parent_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_group_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_idup_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_join_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_rank_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_remote_group_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_remote_size_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_set_attr_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_set_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_set_info_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_set_name_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_size_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_spawn_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_spawn_multiple_f08.F90 | 4 ++-- ompi/mpi/fortran/use-mpi-f08/comm_split_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/comm_split_type_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/compare_and_swap_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/dims_create_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/dist_graph_neighbors_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/errhandler_free_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/error_class_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/error_string_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/exscan_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/f_sync_reg_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/fetch_and_op_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_call_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_close_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_create_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_delete_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_get_amode_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_get_byte_offset_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_get_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_get_group_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_get_info_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_get_position_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_get_position_shared_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_get_size_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_get_type_extent_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_get_view_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_iread_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_iread_at_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_iread_at_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_iread_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_iread_shared_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_iwrite_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_iwrite_at_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_iwrite_at_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_iwrite_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_iwrite_shared_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_open_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_preallocate_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_read_all_begin_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_read_all_end_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_read_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_read_at_all_begin_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_read_at_all_end_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_read_at_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_read_at_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_read_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_read_ordered_begin_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_read_ordered_end_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_read_ordered_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_read_shared_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_seek_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_seek_shared_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_set_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_set_info_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_set_size_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_set_view_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_sync_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_write_all_begin_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_write_all_end_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_write_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_write_at_all_begin_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_write_at_all_end_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_write_at_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_write_at_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_write_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_write_ordered_begin_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_write_ordered_end_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_write_ordered_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/file_write_shared_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/finalize_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/free_mem_f08.F90 | 4 ++-- ompi/mpi/fortran/use-mpi-f08/gather_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/gatherv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/get_accumulate_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/get_address_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/get_count_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/get_elements_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/get_elements_x_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/get_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/get_library_version_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/get_processor_name_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/get_version_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/graph_get_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/graph_map_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/graph_neighbors_count_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/graph_neighbors_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/graphdims_get_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/grequest_complete_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/grequest_start_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/group_compare_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/group_difference_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/group_excl_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/group_free_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/group_incl_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/group_intersection_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/group_range_excl_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/group_range_incl_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/group_rank_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/group_size_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/group_translate_ranks_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/group_union_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/iallgather_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/iallgatherv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/iallreduce_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/ialltoall_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/ialltoallv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/ialltoallw_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/ibarrier_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/ibcast_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/ibsend_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/iexscan_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/igather_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/igatherv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/imrecv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/ineighbor_allgather_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/ineighbor_allgatherv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoall_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoallv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoallw_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/info_create_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/info_delete_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/info_dup_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/info_free_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/info_get_nkeys_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/info_get_nthkey_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/info_set_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/init_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/init_thread_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/intercomm_create_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/irecv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/ireduce_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/ireduce_scatter_block_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/ireduce_scatter_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/irsend_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/iscan_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/iscatter_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/iscatterv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/isend_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/issend_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/lookup_name_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/mprobe_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/mrecv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/neighbor_allgather_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/neighbor_allgatherv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/neighbor_alltoall_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/neighbor_alltoallv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/neighbor_alltoallw_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/op_free_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/open_port_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/pack_external_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/pack_external_size_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/pack_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/pack_size_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/pcontrol_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/probe_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pabort_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/paccumulate_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/padd_error_class_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/padd_error_code_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/padd_error_string_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/paint_add_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/paint_diff_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pallgather_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pallgatherv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/palloc_mem_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pallreduce_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/palltoall_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/palltoallv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/palltoallw_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pbarrier_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pbcast_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pbsend_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pbsend_init_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pbuffer_attach_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pbuffer_detach_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcancel_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcart_coords_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcart_rank_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcart_shift_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcartdim_get_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pclose_port_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_accept_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pcomm_call_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_compare_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_connect_f08.F90 | 4 +++- .../use-mpi-f08/profile/pcomm_create_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pcomm_create_group_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pcomm_create_keyval_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/pcomm_delete_attr_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_disconnect_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_dup_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pcomm_dup_with_info_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_free_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/pcomm_free_keyval_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pcomm_get_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_info_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_name_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_parent_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_group_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_idup_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_join_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_rank_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pcomm_remote_group_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/pcomm_remote_size_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_attr_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pcomm_set_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_info_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_name_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_size_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_spawn_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pcomm_spawn_multiple_f08.F90 | 4 ++-- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_split_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pcomm_split_type_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/pcompare_and_swap_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pdims_create_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pdist_graph_neighbors_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/perrhandler_free_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/perror_class_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/perror_string_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pexscan_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pf_sync_reg_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfetch_and_op_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_call_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_close_f08.F90 | 4 +++- .../use-mpi-f08/profile/pfile_create_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_delete_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_amode_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_get_byte_offset_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_get_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_group_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_info_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_get_position_f08.F90 | 4 +++- .../use-mpi-f08/profile/pfile_get_position_shared_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_size_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_get_type_extent_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_view_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_all_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_iread_at_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_at_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_iread_shared_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_all_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_iwrite_at_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_at_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_iwrite_shared_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_open_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/pfile_preallocate_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_read_all_begin_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_read_all_end_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_all_f08.F90 | 4 +++- .../use-mpi-f08/profile/pfile_read_at_all_begin_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_read_at_all_end_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/pfile_read_at_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_at_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_f08.F90 | 4 +++- .../use-mpi-f08/profile/pfile_read_ordered_begin_f08.F90 | 4 +++- .../use-mpi-f08/profile/pfile_read_ordered_end_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_read_ordered_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/pfile_read_shared_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_seek_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/pfile_seek_shared_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_set_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_info_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_size_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_view_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_sync_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_write_all_begin_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_write_all_end_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_all_f08.F90 | 4 +++- .../use-mpi-f08/profile/pfile_write_at_all_begin_f08.F90 | 4 +++- .../use-mpi-f08/profile/pfile_write_at_all_end_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_write_at_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_at_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_f08.F90 | 4 +++- .../use-mpi-f08/profile/pfile_write_ordered_begin_f08.F90 | 4 +++- .../use-mpi-f08/profile/pfile_write_ordered_end_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_write_ordered_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pfile_write_shared_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfinalize_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pfree_mem_f08.F90 | 4 ++-- ompi/mpi/fortran/use-mpi-f08/profile/pgather_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pgatherv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pget_accumulate_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pget_address_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pget_count_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pget_elements_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pget_elements_x_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pget_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pget_library_version_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pget_processor_name_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pget_version_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pgraph_get_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pgraph_map_f08.F90 | 4 +++- .../use-mpi-f08/profile/pgraph_neighbors_count_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pgraph_neighbors_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pgraphdims_get_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pgrequest_complete_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pgrequest_start_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pgroup_compare_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/pgroup_difference_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pgroup_excl_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pgroup_free_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pgroup_incl_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pgroup_intersection_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/pgroup_range_excl_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/pgroup_range_incl_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pgroup_rank_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pgroup_size_f08.F90 | 4 +++- .../use-mpi-f08/profile/pgroup_translate_ranks_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pgroup_union_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/piallgather_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/piallgatherv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/piallreduce_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pialltoall_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pialltoallv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pialltoallw_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pibarrier_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pibcast_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pibsend_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/piexscan_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pigather_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pigatherv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pimrecv_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pineighbor_allgather_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pineighbor_allgatherv_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pineighbor_alltoall_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pineighbor_alltoallv_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pineighbor_alltoallw_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pinfo_create_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pinfo_delete_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pinfo_dup_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pinfo_free_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pinfo_get_nkeys_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pinfo_get_nthkey_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pinfo_set_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pinit_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pinit_thread_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/pintercomm_create_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pirecv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pireduce_f08.F90 | 4 +++- .../use-mpi-f08/profile/pireduce_scatter_block_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pireduce_scatter_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pirsend_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/piscan_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/piscatter_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/piscatterv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pisend_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pissend_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/plookup_name_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pmprobe_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pmrecv_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pneighbor_allgather_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pneighbor_allgatherv_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pneighbor_alltoall_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pneighbor_alltoallv_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pneighbor_alltoallw_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pop_free_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/popen_port_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/ppack_external_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/ppack_external_size_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/ppack_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/ppack_size_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/ppcontrol_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pprobe_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/ppublish_name_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pput_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pquery_thread_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/praccumulate_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/precv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/precv_init_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/preduce_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/preduce_local_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/preduce_scatter_block_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/preduce_scatter_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/pregister_datarep_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/prequest_free_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/prget_accumulate_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/prget_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/prput_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/prsend_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/prsend_init_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pscan_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pscatter_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pscatterv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/psend_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/psend_init_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/psendrecv_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/psendrecv_replace_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pssend_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pssend_init_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pstart_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pstartall_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pstatus_set_elements_f08.F90 | 4 +++- .../use-mpi-f08/profile/pstatus_set_elements_x_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/ptopo_test_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/ptype_commit_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/ptype_contiguous_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/ptype_create_darray_f08.F90 | 4 +++- .../use-mpi-f08/profile/ptype_create_f90_complex_f08.F90 | 4 +++- .../use-mpi-f08/profile/ptype_create_f90_integer_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/ptype_create_f90_real_f08.F90 | 4 +++- .../use-mpi-f08/profile/ptype_create_hindexed_block_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/ptype_create_hindexed_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/ptype_create_hvector_f08.F90 | 4 +++- .../use-mpi-f08/profile/ptype_create_indexed_block_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/ptype_create_keyval_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/ptype_create_resized_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/ptype_create_struct_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/ptype_create_subarray_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/ptype_delete_attr_f08.F90 | 2 +- ompi/mpi/fortran/use-mpi-f08/profile/ptype_dup_f08.F90 | 2 +- ompi/mpi/fortran/use-mpi-f08/profile/ptype_free_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/ptype_free_keyval_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/ptype_get_contents_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/ptype_get_envelope_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_extent_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/ptype_get_extent_x_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_name_f08.F90 | 2 +- .../fortran/use-mpi-f08/profile/ptype_get_true_extent_f08.F90 | 4 +++- .../use-mpi-f08/profile/ptype_get_true_extent_x_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/ptype_indexed_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/ptype_match_size_f08.F90 | 2 +- ompi/mpi/fortran/use-mpi-f08/profile/ptype_set_attr_f08.F90 | 2 +- ompi/mpi/fortran/use-mpi-f08/profile/ptype_set_name_f08.F90 | 2 +- ompi/mpi/fortran/use-mpi-f08/profile/ptype_size_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/ptype_size_x_f08.F90 | 4 ++-- ompi/mpi/fortran/use-mpi-f08/profile/ptype_vector_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/punpack_external_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/punpack_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/punpublish_name_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwait_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwaitall_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwaitany_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwaitsome_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_allocate_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pwin_allocate_shared_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_attach_f08.F90 | 4 ++-- .../fortran/use-mpi-f08/profile/pwin_call_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_complete_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pwin_create_dynamic_f08.F90 | 4 ++-- .../use-mpi-f08/profile/pwin_create_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_create_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pwin_create_keyval_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_delete_attr_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_detach_f08.F90 | 4 ++-- ompi/mpi/fortran/use-mpi-f08/profile/pwin_fence_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pwin_flush_local_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_local_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_free_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_free_keyval_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pwin_get_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_group_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_info_f08.F90 | 4 ++-- ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_name_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_lock_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_lock_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_post_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_attr_f08.F90 | 4 +++- .../fortran/use-mpi-f08/profile/pwin_set_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_info_f08.F90 | 4 ++-- ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_name_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/profile/pwin_shared_query_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_start_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_sync_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_unlock_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_unlock_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/profile/pwin_wait_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/publish_name_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/put_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/query_thread_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/raccumulate_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/recv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/recv_init_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/reduce_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/reduce_local_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/reduce_scatter_block_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/reduce_scatter_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/register_datarep_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/request_free_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/rget_accumulate_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/rget_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/rput_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/rsend_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/rsend_init_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/scan_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/scatter_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/scatterv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/send_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/send_init_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/sendrecv_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/sendrecv_replace_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/ssend_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/ssend_init_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/start_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/startall_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/status_set_elements_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/status_set_elements_x_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/topo_test_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_commit_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_contiguous_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_create_darray_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_create_f90_complex_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_create_f90_integer_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_create_f90_real_f08.F90 | 4 +++- .../fortran/use-mpi-f08/type_create_hindexed_block_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_create_hindexed_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_create_hvector_f08.F90 | 4 +++- .../mpi/fortran/use-mpi-f08/type_create_indexed_block_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_create_keyval_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_create_resized_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_create_struct_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_create_subarray_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_delete_attr_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_dup_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_free_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_free_keyval_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_get_contents_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_get_envelope_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_get_extent_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_get_extent_x_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_get_name_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_get_true_extent_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_get_true_extent_x_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_indexed_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_match_size_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_set_attr_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_set_name_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_size_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/type_size_x_f08.F90 | 4 ++-- ompi/mpi/fortran/use-mpi-f08/type_vector_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/unpack_external_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/unpack_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/unpublish_name_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/wait_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/waitall_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/waitany_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/waitsome_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_allocate_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_allocate_shared_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_attach_f08.F90 | 4 ++-- ompi/mpi/fortran/use-mpi-f08/win_call_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_complete_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_create_dynamic_f08.F90 | 4 ++-- ompi/mpi/fortran/use-mpi-f08/win_create_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_create_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_create_keyval_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_delete_attr_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_detach_f08.F90 | 4 ++-- ompi/mpi/fortran/use-mpi-f08/win_fence_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_flush_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_flush_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_flush_local_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_flush_local_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_free_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_free_keyval_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_get_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_get_group_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_get_info_f08.F90 | 4 ++-- ompi/mpi/fortran/use-mpi-f08/win_get_name_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_lock_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_lock_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_post_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_set_attr_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_set_errhandler_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_set_info_f08.F90 | 4 ++-- ompi/mpi/fortran/use-mpi-f08/win_set_name_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_shared_query_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_start_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_sync_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_unlock_all_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_unlock_f08.F90 | 4 +++- ompi/mpi/fortran/use-mpi-f08/win_wait_f08.F90 | 4 +++- 632 files changed, 1868 insertions(+), 648 deletions(-) diff --git a/ompi/mpi/fortran/use-mpi-f08/abort_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/abort_f08.F90 index d88d548943..7e7240bbb5 100644 --- a/ompi/mpi/fortran/use-mpi-f08/abort_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/abort_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Abort_f08(comm,errorcode,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_abort_f + use :: ompi_mpifh_bindings, only : ompi_abort_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: errorcode diff --git a/ompi/mpi/fortran/use-mpi-f08/accumulate_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/accumulate_f08.F90 index 67d9941441..3b702236cd 100644 --- a/ompi/mpi/fortran/use-mpi-f08/accumulate_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/accumulate_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -11,7 +13,7 @@ subroutine MPI_Accumulate_f08(origin_addr,origin_count,origin_datatype,& target_rank,target_disp,target_count, & target_datatype,op,win,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_accumulate_f + use :: ompi_mpifh_bindings, only : ompi_accumulate_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: origin_addr INTEGER, INTENT(IN) :: origin_count, target_rank, target_count diff --git a/ompi/mpi/fortran/use-mpi-f08/add_error_class_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/add_error_class_f08.F90 index 073e445cc3..db1e1aeabb 100644 --- a/ompi/mpi/fortran/use-mpi-f08/add_error_class_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/add_error_class_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Add_error_class_f08(errorclass,ierror) - use :: mpi_f08, only : ompi_add_error_class_f + use :: ompi_mpifh_bindings, only : ompi_add_error_class_f implicit none INTEGER, INTENT(OUT) :: errorclass INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/add_error_code_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/add_error_code_f08.F90 index 9e6c093c5d..7945fcbf98 100644 --- a/ompi/mpi/fortran/use-mpi-f08/add_error_code_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/add_error_code_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Add_error_code_f08(errorclass,errorcode,ierror) - use :: mpi_f08, only : ompi_add_error_code_f + use :: ompi_mpifh_bindings, only : ompi_add_error_code_f implicit none INTEGER, INTENT(IN) :: errorclass INTEGER, INTENT(OUT) :: errorcode diff --git a/ompi/mpi/fortran/use-mpi-f08/add_error_string_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/add_error_string_f08.F90 index d987bdce0e..2d6a52e149 100644 --- a/ompi/mpi/fortran/use-mpi-f08/add_error_string_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/add_error_string_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2011 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Add_error_string_f08(errorcode,string,ierror) - use :: mpi_f08, only : ompi_add_error_string_f + use :: ompi_mpifh_bindings, only : ompi_add_error_string_f implicit none integer, intent(in) :: errorcode character(len=*), intent(in) :: string diff --git a/ompi/mpi/fortran/use-mpi-f08/aint_add_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/aint_add_f08.F90 index afe3874d03..59dc78231e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/aint_add_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/aint_add_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2015 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2015 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" function MPI_Aint_add_f08(addr1, addr2) use :: mpi_f08_types, only : MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_aint_add_f + use :: ompi_mpifh_bindings, only : ompi_aint_add_f implicit none INTEGER(MPI_ADDRESS_KIND) :: MPI_Aint_add_f08 INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: addr1 diff --git a/ompi/mpi/fortran/use-mpi-f08/aint_diff_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/aint_diff_f08.F90 index 97919f1da9..c03bf04975 100644 --- a/ompi/mpi/fortran/use-mpi-f08/aint_diff_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/aint_diff_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2015 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2015 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" function MPI_Aint_diff_f08(addr1, addr2) use :: mpi_f08_types, only : MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_aint_diff_f + use :: ompi_mpifh_bindings, only : ompi_aint_diff_f implicit none INTEGER(MPI_ADDRESS_KIND) :: MPI_Aint_diff_f08 INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: addr1 diff --git a/ompi/mpi/fortran/use-mpi-f08/allgather_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/allgather_f08.F90 index 4b3d30607f..86adb405cb 100644 --- a/ompi/mpi/fortran/use-mpi-f08/allgather_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/allgather_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Allgather_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_allgather_f + use :: ompi_mpifh_bindings, only : ompi_allgather_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/allgatherv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/allgatherv_f08.F90 index 8d84343c1f..a8f0f07279 100644 --- a/ompi/mpi/fortran/use-mpi-f08/allgatherv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/allgatherv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Allgatherv_f08(sendbuf,sendcount,sendtype,recvbuf,recvcounts,& displs,recvtype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_allgatherv_f + use :: ompi_mpifh_bindings, only : ompi_allgatherv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount diff --git a/ompi/mpi/fortran/use-mpi-f08/alloc_mem_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/alloc_mem_f08.F90 index bdd52af015..4d01edf236 100644 --- a/ompi/mpi/fortran/use-mpi-f08/alloc_mem_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/alloc_mem_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Alloc_mem_f08(size,info,baseptr,ierror) use, intrinsic :: ISO_C_BINDING, only : C_PTR use :: mpi_f08_types, only : MPI_Info, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_alloc_mem_f + use :: ompi_mpifh_bindings, only : ompi_alloc_mem_f implicit none INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/allreduce_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/allreduce_f08.F90 index a5ca83aeb0..5a5cb66ef1 100644 --- a/ompi/mpi/fortran/use-mpi-f08/allreduce_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/allreduce_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Allreduce_f08(sendbuf,recvbuf,count,datatype,op,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm - use :: mpi_f08, only : ompi_allreduce_f + use :: ompi_mpifh_bindings, only : ompi_allreduce_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/alltoall_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/alltoall_f08.F90 index b013c90748..a72e31d281 100644 --- a/ompi/mpi/fortran/use-mpi-f08/alltoall_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/alltoall_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Alltoall_f08(sendbuf,sendcount,sendtype,recvbuf,& recvcount,recvtype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_alltoall_f + use :: ompi_mpifh_bindings, only : ompi_alltoall_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/alltoallv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/alltoallv_f08.F90 index e73326182f..a9faa8cdd7 100644 --- a/ompi/mpi/fortran/use-mpi-f08/alltoallv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/alltoallv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Alltoallv_f08(sendbuf,sendcounts,sdispls,sendtype,recvbuf,& recvcounts,rdispls,recvtype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_alltoallv_f + use :: ompi_mpifh_bindings, only : ompi_alltoallv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/alltoallw_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/alltoallw_f08.F90 index 9654057730..10684b03c9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/alltoallw_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/alltoallw_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Alltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,& recvbuf,recvcounts,rdispls,recvtypes,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_alltoallw_f + use :: ompi_mpifh_bindings, only : ompi_alltoallw_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/barrier_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/barrier_f08.F90 index e3f507b49f..b97a647de2 100644 --- a/ompi/mpi/fortran/use-mpi-f08/barrier_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/barrier_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Barrier_f08(comm,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_barrier_f + use :: ompi_mpifh_bindings, only : ompi_barrier_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/bcast_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/bcast_f08.F90 index e83decdd1b..1ecc54dc08 100644 --- a/ompi/mpi/fortran/use-mpi-f08/bcast_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/bcast_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Bcast_f08(buffer,count,datatype,root,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_bcast_f + use :: ompi_mpifh_bindings, only : ompi_bcast_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer INTEGER, INTENT(IN) :: count, root diff --git a/ompi/mpi/fortran/use-mpi-f08/bsend_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/bsend_f08.F90 index d2ae74e7c4..ce7479b9dd 100644 --- a/ompi/mpi/fortran/use-mpi-f08/bsend_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/bsend_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Bsend_f08(buf,count,datatype,dest,tag,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_bsend_f + use :: ompi_mpifh_bindings, only : ompi_bsend_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/bsend_init_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/bsend_init_f08.F90 index 6826f6dc9e..7f5ed2c507 100644 --- a/ompi/mpi/fortran/use-mpi-f08/bsend_init_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/bsend_init_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Bsend_init_f08(buf,count,datatype,dest,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_bsend_init_f + use :: ompi_mpifh_bindings, only : ompi_bsend_init_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/buffer_attach_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/buffer_attach_f08.F90 index 0a3fd8e066..31e958bc58 100644 --- a/ompi/mpi/fortran/use-mpi-f08/buffer_attach_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/buffer_attach_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Buffer_attach_f08(buffer,size,ierror) - use :: mpi_f08, only : ompi_buffer_attach_f + use :: ompi_mpifh_bindings, only : ompi_buffer_attach_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer INTEGER, INTENT(IN) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/buffer_detach_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/buffer_detach_f08.F90 index 7c7815175d..a0da19933c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/buffer_detach_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/buffer_detach_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2015 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Buffer_detach_f08(buffer_addr,size,ierror) - use :: mpi_f08, only : ompi_buffer_detach_f + use :: ompi_mpifh_bindings, only : ompi_buffer_detach_f USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR implicit none TYPE(C_PTR), INTENT(OUT) :: buffer_addr diff --git a/ompi/mpi/fortran/use-mpi-f08/cancel_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/cancel_f08.F90 index dc4d9d06c0..33dfa7037a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/cancel_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/cancel_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Cancel_f08(request,ierror) use :: mpi_f08_types, only : MPI_Request - use :: mpi_f08, only : ompi_cancel_f + use :: ompi_mpifh_bindings, only : ompi_cancel_f implicit none TYPE(MPI_Request), INTENT(IN) :: request INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/cart_coords_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/cart_coords_f08.F90 index 7ec50650e1..ec2b11dd5d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/cart_coords_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/cart_coords_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Cart_coords_f08(comm,rank,maxdims,coords,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_cart_coords_f + use :: ompi_mpifh_bindings, only : ompi_cart_coords_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: rank, maxdims diff --git a/ompi/mpi/fortran/use-mpi-f08/cart_rank_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/cart_rank_f08.F90 index 7cdf8ae299..26b8282263 100644 --- a/ompi/mpi/fortran/use-mpi-f08/cart_rank_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/cart_rank_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Cart_rank_f08(comm,coords,rank,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_cart_rank_f + use :: ompi_mpifh_bindings, only : ompi_cart_rank_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: coords(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/cart_shift_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/cart_shift_f08.F90 index 6c5e1528d2..783fcddc7f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/cart_shift_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/cart_shift_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Cart_shift_f08(comm,direction,disp,rank_source,rank_dest,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_cart_shift_f + use :: ompi_mpifh_bindings, only : ompi_cart_shift_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: direction, disp diff --git a/ompi/mpi/fortran/use-mpi-f08/cartdim_get_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/cartdim_get_f08.F90 index bd2b4e8e9b..bf840dad1c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/cartdim_get_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/cartdim_get_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Cartdim_get_f08(comm,ndims,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_cartdim_get_f + use :: ompi_mpifh_bindings, only : ompi_cartdim_get_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(OUT) :: ndims diff --git a/ompi/mpi/fortran/use-mpi-f08/close_port_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/close_port_f08.F90 index ce3c8d2479..8de5ea548a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/close_port_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/close_port_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Close_port_f08(port_name,ierror) - use :: mpi_f08, only : ompi_close_port_f + use :: ompi_mpifh_bindings, only : ompi_close_port_f implicit none CHARACTER(LEN=*), INTENT(IN) :: port_name INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_accept_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_accept_f08.F90 index a5ffda0b86..0c0a533350 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_accept_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_accept_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_accept_f08(port_name,info,root,comm,newcomm,ierror) use :: mpi_f08_types, only : MPI_Info, MPI_Comm - use :: mpi_f08, only : ompi_comm_accept_f + use :: ompi_mpifh_bindings, only : ompi_comm_accept_f implicit none CHARACTER(LEN=*), INTENT(IN) :: port_name TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_call_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_call_errhandler_f08.F90 index 4370f40490..9ba084cf19 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_call_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_call_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_call_errhandler_f08(comm,errorcode,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_call_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_comm_call_errhandler_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: errorcode diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_compare_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_compare_f08.F90 index 353e17b7f0..7244bcff9e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_compare_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_compare_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_compare_f08(comm1,comm2,result,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_compare_f + use :: ompi_mpifh_bindings, only : ompi_comm_compare_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm1 TYPE(MPI_Comm), INTENT(IN) :: comm2 diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_connect_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_connect_f08.F90 index d92855256c..f7e5d244a1 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_connect_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_connect_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_connect_f08(port_name,info,root,comm,newcomm,ierror) use :: mpi_f08_types, only : MPI_Info, MPI_Comm - use :: mpi_f08, only : ompi_comm_connect_f + use :: ompi_mpifh_bindings, only : ompi_comm_connect_f implicit none CHARACTER(LEN=*), INTENT(IN) :: port_name TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_create_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_create_errhandler_f08.F90 index 7f7b7a68a7..0db3920e19 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_create_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_create_errhandler_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -11,7 +13,7 @@ subroutine MPI_Comm_create_errhandler_f08(comm_errhandler_fn,errhandler,ierror) use, intrinsic :: iso_c_binding, only: c_funptr, c_funloc use :: mpi_f08_types, only : MPI_Errhandler use :: mpi_f08_interfaces_callbacks, only : MPI_Comm_errhandler_function - use :: mpi_f08, only : ompi_comm_create_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_comm_create_errhandler_f implicit none PROCEDURE(MPI_Comm_errhandler_function) :: comm_errhandler_fn TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_create_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_create_f08.F90 index 4fc2419185..c4dbaedf8d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_create_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_create_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_create_f08(comm,group,newcomm,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Group - use :: mpi_f08, only : ompi_comm_create_f + use :: ompi_mpifh_bindings, only : ompi_comm_create_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Group), INTENT(IN) :: group diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_create_group_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_create_group_f08.F90 index 61ce4f185c..a930829c2f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_create_group_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_create_group_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_create_group_f08(comm,group,tag,newcomm,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Group - use :: mpi_f08, only : ompi_comm_create_group_f + use :: ompi_mpifh_bindings, only : ompi_comm_create_group_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Group), INTENT(IN) :: group diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_create_keyval_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_create_keyval_f08.F90 index 3503c38b8b..a73475bc9f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_create_keyval_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_create_keyval_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -13,7 +15,7 @@ subroutine MPI_Comm_create_keyval_f08(comm_copy_attr_fn,comm_delete_attr_fn,& use :: mpi_f08_types, only : MPI_ADDRESS_KIND use :: mpi_f08_interfaces_callbacks, only : MPI_Comm_copy_attr_function use :: mpi_f08_interfaces_callbacks, only : MPI_Comm_delete_attr_function - use :: mpi_f08, only : ompi_comm_create_keyval_f + use :: ompi_mpifh_bindings, only : ompi_comm_create_keyval_f implicit none PROCEDURE(MPI_Comm_copy_attr_function) :: comm_copy_attr_fn PROCEDURE(MPI_Comm_delete_attr_function) :: comm_delete_attr_fn diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_delete_attr_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_delete_attr_f08.F90 index 1e1b1dceb3..67abf233c2 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_delete_attr_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_delete_attr_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_delete_attr_f08(comm,comm_keyval,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_delete_attr_f + use :: ompi_mpifh_bindings, only : ompi_comm_delete_attr_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: comm_keyval diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_disconnect_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_disconnect_f08.F90 index e8671bce31..9a7106a87f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_disconnect_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_disconnect_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_disconnect_f08(comm,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_disconnect_f + use :: ompi_mpifh_bindings, only : ompi_comm_disconnect_f implicit none TYPE(MPI_Comm), INTENT(INOUT) :: comm INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_dup_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_dup_f08.F90 index f60bb03b2e..a495a41ffc 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_dup_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_dup_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_dup_f08(comm,newcomm,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_dup_f + use :: ompi_mpifh_bindings, only : ompi_comm_dup_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Comm), INTENT(OUT) :: newcomm diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_dup_with_info_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_dup_with_info_f08.F90 index 887323a7f9..379874a1dc 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_dup_with_info_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_dup_with_info_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_dup_with_info_f08(comm,info,newcomm,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Info - use :: mpi_f08, only : ompi_comm_dup_with_info_f + use :: ompi_mpifh_bindings, only : ompi_comm_dup_with_info_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_free_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_free_f08.F90 index e4385ca4ed..992548889c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_free_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_free_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_free_f08(comm,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_free_f + use :: ompi_mpifh_bindings, only : ompi_comm_free_f implicit none TYPE(MPI_Comm), INTENT(INOUT) :: comm INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_free_keyval_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_free_keyval_f08.F90 index 774a2c291e..af9c3c1608 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_free_keyval_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_free_keyval_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_free_keyval_f08(comm_keyval,ierror) - use :: mpi_f08, only : ompi_comm_free_keyval_f + use :: ompi_mpifh_bindings, only : ompi_comm_free_keyval_f implicit none INTEGER, INTENT(INOUT) :: comm_keyval INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_get_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_get_errhandler_f08.F90 index 87d96c47ca..7960b500ac 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_get_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_get_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_get_errhandler_f08(comm,errhandler,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Errhandler - use :: mpi_f08, only : ompi_comm_get_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_comm_get_errhandler_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_get_info_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_get_info_f08.F90 index 734b2493a9..4d95947243 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_get_info_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_get_info_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_get_info_f08(comm,info_used,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Info - use :: mpi_f08, only : ompi_comm_get_info_f + use :: ompi_mpifh_bindings, only : ompi_comm_get_info_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Info), INTENT(OUT) :: info_used diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_get_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_get_name_f08.F90 index e39b2ee41b..8e9af5bff1 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_get_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_get_name_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_get_name_f08(comm,comm_name,resultlen,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_MAX_OBJECT_NAME - use :: mpi_f08, only : ompi_comm_get_name_f + use :: ompi_mpifh_bindings, only : ompi_comm_get_name_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm CHARACTER(LEN=*), INTENT(OUT) :: comm_name diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_get_parent_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_get_parent_f08.F90 index afc4972f63..f9294f6970 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_get_parent_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_get_parent_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_get_parent_f08(parent,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_get_parent_f + use :: ompi_mpifh_bindings, only : ompi_comm_get_parent_f implicit none TYPE(MPI_Comm), INTENT(OUT) :: parent INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_group_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_group_f08.F90 index 2dd8bc4d01..375625c898 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_group_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_group_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_group_f08(comm,group,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Group - use :: mpi_f08, only : ompi_comm_group_f + use :: ompi_mpifh_bindings, only : ompi_comm_group_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Group), INTENT(OUT) :: group diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_idup_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_idup_f08.F90 index 0c7a5818bb..d9a6ce0090 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_idup_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_idup_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_idup_f08(comm,newcomm,request,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_comm_idup_f + use :: ompi_mpifh_bindings, only : ompi_comm_idup_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Comm), INTENT(OUT) :: newcomm diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_join_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_join_f08.F90 index 589a9c4ccb..cb4bd79de6 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_join_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_join_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_join_f08(fd,intercomm,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_join_f + use :: ompi_mpifh_bindings, only : ompi_comm_join_f implicit none INTEGER, INTENT(IN) :: fd TYPE(MPI_Comm), INTENT(OUT) :: intercomm diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_rank_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_rank_f08.F90 index debdff5bd6..8fc8c4ed9b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_rank_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_rank_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_rank_f08(comm,rank,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_rank_f + use :: ompi_mpifh_bindings, only : ompi_comm_rank_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(OUT) :: rank diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_remote_group_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_remote_group_f08.F90 index 13ca736471..7a9e17538d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_remote_group_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_remote_group_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_remote_group_f08(comm,group,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Group - use :: mpi_f08, only : ompi_comm_remote_group_f + use :: ompi_mpifh_bindings, only : ompi_comm_remote_group_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Group), INTENT(OUT) :: group diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_remote_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_remote_size_f08.F90 index 40ad0487b1..f21b70051c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_remote_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_remote_size_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_remote_size_f08(comm,size,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_remote_size_f + use :: ompi_mpifh_bindings, only : ompi_comm_remote_size_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(OUT) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_set_attr_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_set_attr_f08.F90 index 0797d88fb0..cc7833b36a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_set_attr_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_set_attr_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_set_attr_f08(comm,comm_keyval,attribute_val,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_comm_set_attr_f + use :: ompi_mpifh_bindings, only : ompi_comm_set_attr_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: comm_keyval diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_set_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_set_errhandler_f08.F90 index 0cd58914ef..05d4d81758 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_set_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_set_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_set_errhandler_f08(comm,errhandler,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Errhandler - use :: mpi_f08, only : ompi_comm_set_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_comm_set_errhandler_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Errhandler), INTENT(IN) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_set_info_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_set_info_f08.F90 index e70f544aa0..47c0fddd81 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_set_info_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_set_info_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_set_info_f08(comm,info,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Info - use :: mpi_f08, only : ompi_comm_set_info_f + use :: ompi_mpifh_bindings, only : ompi_comm_set_info_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_set_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_set_name_f08.F90 index 908a2d1949..d1a0c0860b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_set_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_set_name_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_set_name_f08(comm,comm_name,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_set_name_f + use :: ompi_mpifh_bindings, only : ompi_comm_set_name_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm CHARACTER(LEN=*), INTENT(IN) :: comm_name diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_size_f08.F90 index 1158c89360..c00911e451 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_size_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_size_f08(comm,size,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_size_f + use :: ompi_mpifh_bindings, only : ompi_comm_size_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(OUT) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_spawn_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_spawn_f08.F90 index bec26101c3..a360d66b82 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_spawn_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_spawn_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_spawn_f08(command,argv,maxprocs,info,root,comm,intercomm, & array_of_errcodes,ierror) use :: mpi_f08_types, only : MPI_Info, MPI_Comm - use :: mpi_f08, only : ompi_comm_spawn_f + use :: ompi_mpifh_bindings, only : ompi_comm_spawn_f implicit none CHARACTER(LEN=*), INTENT(IN) :: command, argv INTEGER, INTENT(IN) :: maxprocs, root diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_spawn_multiple_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_spawn_multiple_f08.F90 index b3842eac64..d6d4ae37c3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_spawn_multiple_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_spawn_multiple_f08.F90 @@ -3,7 +3,7 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. -! Copyright (c) 2015 Research Organization for Information Science +! Copyright (c) 2015-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ @@ -11,7 +11,7 @@ subroutine MPI_Comm_spawn_multiple_f08(count,array_of_commands,array_of_argv, & array_of_maxprocs,array_of_info,root, & comm,intercomm,array_of_errcodes,ierror) use :: mpi_f08_types, only : MPI_Info, MPI_Comm - use :: mpi_f08, only : ompi_comm_spawn_multiple_f + use :: ompi_mpifh_bindings, only : ompi_comm_spawn_multiple_f implicit none INTEGER, INTENT(IN) :: count, root INTEGER, INTENT(IN) :: array_of_maxprocs(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_split_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_split_f08.F90 index 8c8b28698e..f2cd99d290 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_split_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_split_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_split_f08(comm,color,key,newcomm,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_split_f + use :: ompi_mpifh_bindings, only : ompi_comm_split_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: color, key diff --git a/ompi/mpi/fortran/use-mpi-f08/comm_split_type_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/comm_split_type_f08.F90 index 59bdf0ff53..f2ba532028 100644 --- a/ompi/mpi/fortran/use-mpi-f08/comm_split_type_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/comm_split_type_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Comm_split_type_f08(comm,split_type,key,info,newcomm,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Info - use :: mpi_f08, only : ompi_comm_split_type_f + use :: ompi_mpifh_bindings, only : ompi_comm_split_type_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: split_type diff --git a/ompi/mpi/fortran/use-mpi-f08/compare_and_swap_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/compare_and_swap_f08.F90 index f9acb19e60..93c1f1a32e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/compare_and_swap_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/compare_and_swap_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -11,7 +13,7 @@ subroutine MPI_Compare_and_swap_f08(origin_addr,compare_addr,result_addr,& datatype,target_rank,target_disp,win,& ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_compare_and_swap_f + use :: ompi_mpifh_bindings, only : ompi_compare_and_swap_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: origin_addr, compare_addr OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: result_addr diff --git a/ompi/mpi/fortran/use-mpi-f08/dims_create_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/dims_create_f08.F90 index 776bb75e3d..0f0d138527 100644 --- a/ompi/mpi/fortran/use-mpi-f08/dims_create_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/dims_create_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Dims_create_f08(nnodes,ndims,dims,ierror) - use :: mpi_f08, only : ompi_dims_create_f + use :: ompi_mpifh_bindings, only : ompi_dims_create_f implicit none INTEGER, INTENT(IN) :: nnodes, ndims INTEGER, INTENT(INOUT) :: dims(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/dist_graph_neighbors_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/dist_graph_neighbors_f08.F90 index 78a4a7a4a4..f47f21bb2c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/dist_graph_neighbors_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/dist_graph_neighbors_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Dist_graph_neighbors_f08(comm,maxindegree,sources,sourceweights,& maxoutdegree,destinations,destweights,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_dist_graph_neighbors_f + use :: ompi_mpifh_bindings, only : ompi_dist_graph_neighbors_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: maxindegree, maxoutdegree diff --git a/ompi/mpi/fortran/use-mpi-f08/errhandler_free_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/errhandler_free_f08.F90 index fb512d9d6c..a0d6baccba 100644 --- a/ompi/mpi/fortran/use-mpi-f08/errhandler_free_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/errhandler_free_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Errhandler_free_f08(errhandler,ierror) use :: mpi_f08_types, only : MPI_Errhandler - use :: mpi_f08, only : ompi_errhandler_free_f + use :: ompi_mpifh_bindings, only : ompi_errhandler_free_f implicit none TYPE(MPI_Errhandler), INTENT(INOUT) :: errhandler INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/error_class_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/error_class_f08.F90 index d83792f513..ca901818b3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/error_class_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/error_class_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Error_class_f08(errorcode,errorclass,ierror) - use :: mpi_f08, only : ompi_error_class_f + use :: ompi_mpifh_bindings, only : ompi_error_class_f implicit none INTEGER, INTENT(IN) :: errorcode INTEGER, INTENT(OUT) :: errorclass diff --git a/ompi/mpi/fortran/use-mpi-f08/error_string_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/error_string_f08.F90 index 1af4fe8763..fb0e2d8bff 100644 --- a/ompi/mpi/fortran/use-mpi-f08/error_string_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/error_string_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Error_string_f08(errorcode,string,resultlen,ierror) - use :: mpi_f08, only : ompi_error_string_f + use :: ompi_mpifh_bindings, only : ompi_error_string_f implicit none integer, intent(in) :: errorcode character(len=*), intent(out) :: string diff --git a/ompi/mpi/fortran/use-mpi-f08/exscan_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/exscan_f08.F90 index 2e513ef6b0..d628eb3143 100644 --- a/ompi/mpi/fortran/use-mpi-f08/exscan_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/exscan_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Exscan_f08(sendbuf,recvbuf,count,datatype,op,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm - use :: mpi_f08, only : ompi_exscan_f + use :: ompi_mpifh_bindings, only : ompi_exscan_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/f_sync_reg_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/f_sync_reg_f08.F90 index 913804155d..4643cb2b16 100644 --- a/ompi/mpi/fortran/use-mpi-f08/f_sync_reg_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/f_sync_reg_f08.F90 @@ -4,12 +4,14 @@ ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. ! Copyright (c) 2012 University of Oregon. All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_F_sync_reg_f08(buf) - use :: mpi_f08, only : ompi_f_sync_reg_f + use :: ompi_mpifh_bindings, only : ompi_f_sync_reg_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/fetch_and_op_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/fetch_and_op_f08.F90 index 6ef6ed56b2..d1ab502417 100644 --- a/ompi/mpi/fortran/use-mpi-f08/fetch_and_op_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/fetch_and_op_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Fetch_and_op_f08(origin_addr,result_addr,datatype,target_rank, & target_disp,op,win,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_fetch_and_op_f + use :: ompi_mpifh_bindings, only : ompi_fetch_and_op_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: origin_addr OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: result_addr diff --git a/ompi/mpi/fortran/use-mpi-f08/file_call_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_call_errhandler_f08.F90 index 404fe65814..b075e65d66 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_call_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_call_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_call_errhandler_f08(fh,errorcode,ierror) use :: mpi_f08_types, only : MPI_File - use :: mpi_f08, only : ompi_file_call_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_file_call_errhandler_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER, INTENT(IN) :: errorcode diff --git a/ompi/mpi/fortran/use-mpi-f08/file_close_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_close_f08.F90 index a5a52579cb..ab3b6e3b7c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_close_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_close_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_close_f08(fh,ierror) use :: mpi_f08_types, only : MPI_File - use :: mpi_f08, only : ompi_file_close_f + use :: ompi_mpifh_bindings, only : ompi_file_close_f implicit none TYPE(MPI_File), INTENT(INOUT) :: fh INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/file_create_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_create_errhandler_f08.F90 index e779537af8..199d2f25cd 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_create_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_create_errhandler_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -11,7 +13,7 @@ subroutine MPI_File_create_errhandler_f08(file_errhandler_fn,errhandler,ierror) use, intrinsic :: iso_c_binding, only: c_funptr, c_funloc use :: mpi_f08_types, only : MPI_Errhandler use :: mpi_f08_interfaces_callbacks, only : MPI_File_errhandler_function - use :: mpi_f08, only : ompi_file_create_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_file_create_errhandler_f implicit none PROCEDURE(MPI_File_errhandler_function) :: file_errhandler_fn TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/file_delete_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_delete_f08.F90 index 120bd91445..853f2c3957 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_delete_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_delete_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_delete_f08(filename,info,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_file_delete_f + use :: ompi_mpifh_bindings, only : ompi_file_delete_f implicit none CHARACTER(LEN=*), INTENT(IN) :: filename TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/file_get_amode_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_get_amode_f08.F90 index 36e500e440..bed5bd5bd3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_get_amode_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_get_amode_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_get_amode_f08(fh,amode,ierror) use :: mpi_f08_types, only : MPI_File - use :: mpi_f08, only : ompi_file_get_amode_f + use :: ompi_mpifh_bindings, only : ompi_file_get_amode_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER, INTENT(OUT) :: amode diff --git a/ompi/mpi/fortran/use-mpi-f08/file_get_byte_offset_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_get_byte_offset_f08.F90 index d9755df7a5..53ff9633e7 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_get_byte_offset_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_get_byte_offset_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_get_byte_offset_f08(fh,offset,disp,ierror) use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_get_byte_offset_f + use :: ompi_mpifh_bindings, only : ompi_file_get_byte_offset_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/file_get_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_get_errhandler_f08.F90 index 65c2e54112..330db63fb0 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_get_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_get_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_get_errhandler_f08(file,errhandler,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Errhandler - use :: mpi_f08, only : ompi_file_get_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_file_get_errhandler_f implicit none TYPE(MPI_File), INTENT(IN) :: file TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/file_get_group_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_get_group_f08.F90 index a9833b1837..ead59f69f9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_get_group_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_get_group_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_get_group_f08(fh,group,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Group - use :: mpi_f08, only : ompi_file_get_group_f + use :: ompi_mpifh_bindings, only : ompi_file_get_group_f implicit none TYPE(MPI_File), INTENT(IN) :: fh TYPE(MPI_Group), INTENT(OUT) :: group diff --git a/ompi/mpi/fortran/use-mpi-f08/file_get_info_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_get_info_f08.F90 index ba86bd5576..17e0285939 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_get_info_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_get_info_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_get_info_f08(fh,info_used,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Info - use :: mpi_f08, only : ompi_file_get_info_f + use :: ompi_mpifh_bindings, only : ompi_file_get_info_f implicit none TYPE(MPI_File), INTENT(IN) :: fh TYPE(MPI_Info), INTENT(OUT) :: info_used diff --git a/ompi/mpi/fortran/use-mpi-f08/file_get_position_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_get_position_f08.F90 index c70f955982..bc4a85e721 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_get_position_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_get_position_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_get_position_f08(fh,offset,ierror) use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_get_position_f + use :: ompi_mpifh_bindings, only : ompi_file_get_position_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/file_get_position_shared_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_get_position_shared_f08.F90 index 6d29a8f581..11bffdc749 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_get_position_shared_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_get_position_shared_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_get_position_shared_f08(fh,offset,ierror) use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_get_position_shared_f + use :: ompi_mpifh_bindings, only : ompi_file_get_position_shared_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/file_get_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_get_size_f08.F90 index 0f3359bd6d..d134f090f4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_get_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_get_size_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_get_size_f08(fh,size,ierror) use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_get_size_f + use :: ompi_mpifh_bindings, only : ompi_file_get_size_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/file_get_type_extent_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_get_type_extent_f08.F90 index e98ccba530..0aa04b6e9f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_get_type_extent_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_get_type_extent_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_get_type_extent_f08(fh,datatype,extent,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_file_get_type_extent_f + use :: ompi_mpifh_bindings, only : ompi_file_get_type_extent_f implicit none TYPE(MPI_File), INTENT(IN) :: fh TYPE(MPI_Datatype), INTENT(IN) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-f08/file_get_view_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_get_view_f08.F90 index 4edc99e775..1d4db13d87 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_get_view_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_get_view_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_get_view_f08(fh,disp,etype,filetype,datarep,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_get_view_f + use :: ompi_mpifh_bindings, only : ompi_file_get_view_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: disp diff --git a/ompi/mpi/fortran/use-mpi-f08/file_iread_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_iread_all_f08.F90 index f280e911c3..2a02a3cdb1 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_iread_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_iread_all_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_iread_all_f08(fh,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request - use :: mpi_f08, only : ompi_file_iread_all_f + use :: ompi_mpifh_bindings, only : ompi_file_iread_all_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_iread_at_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_iread_at_all_f08.F90 index 9cc7f317df..b326561754 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_iread_at_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_iread_at_all_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_iread_at_all_f08(fh,offset,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_iread_at_all_f + use :: ompi_mpifh_bindings, only : ompi_file_iread_at_all_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/file_iread_at_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_iread_at_f08.F90 index fd6835e6dc..c382b602c6 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_iread_at_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_iread_at_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_iread_at_f08(fh,offset,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_iread_at_f + use :: ompi_mpifh_bindings, only : ompi_file_iread_at_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/file_iread_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_iread_f08.F90 index 0d6b42220f..3bc13693a7 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_iread_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_iread_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_iread_f08(fh,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request - use :: mpi_f08, only : ompi_file_iread_f + use :: ompi_mpifh_bindings, only : ompi_file_iread_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_iread_shared_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_iread_shared_f08.F90 index 90059cfcae..b5eabf4843 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_iread_shared_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_iread_shared_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_iread_shared_f08(fh,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request - use :: mpi_f08, only : ompi_file_iread_shared_f + use :: ompi_mpifh_bindings, only : ompi_file_iread_shared_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_iwrite_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_iwrite_all_f08.F90 index c36c68abf1..04499250c1 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_iwrite_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_iwrite_all_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_iwrite_all_f08(fh,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request - use :: mpi_f08, only : ompi_file_iwrite_all_f + use :: ompi_mpifh_bindings, only : ompi_file_iwrite_all_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_iwrite_at_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_iwrite_at_all_f08.F90 index 315b466ffe..792f591731 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_iwrite_at_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_iwrite_at_all_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_iwrite_at_all_f08(fh,offset,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_iwrite_at_all_f + use :: ompi_mpifh_bindings, only : ompi_file_iwrite_at_all_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/file_iwrite_at_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_iwrite_at_f08.F90 index 8c789f2706..c67f5e17a0 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_iwrite_at_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_iwrite_at_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_iwrite_at_f08(fh,offset,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_iwrite_at_f + use :: ompi_mpifh_bindings, only : ompi_file_iwrite_at_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/file_iwrite_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_iwrite_f08.F90 index c0a9d99fee..f2f420597b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_iwrite_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_iwrite_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_iwrite_f08(fh,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request - use :: mpi_f08, only : ompi_file_iwrite_f + use :: ompi_mpifh_bindings, only : ompi_file_iwrite_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_iwrite_shared_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_iwrite_shared_f08.F90 index fe8b1af847..3e61aec7f6 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_iwrite_shared_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_iwrite_shared_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_iwrite_shared_f08(fh,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request - use :: mpi_f08, only : ompi_file_iwrite_shared_f + use :: ompi_mpifh_bindings, only : ompi_file_iwrite_shared_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf TYPE(MPI_File), INTENT(IN) :: fh diff --git a/ompi/mpi/fortran/use-mpi-f08/file_open_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_open_f08.F90 index df606aa77f..d785593949 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_open_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_open_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_open_f08(comm,filename,amode,info,fh,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Info, MPI_File - use :: mpi_f08, only : ompi_file_open_f + use :: ompi_mpifh_bindings, only : ompi_file_open_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm CHARACTER(LEN=*), INTENT(IN) :: filename diff --git a/ompi/mpi/fortran/use-mpi-f08/file_preallocate_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_preallocate_f08.F90 index 9d153c75a6..36cf7e918a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_preallocate_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_preallocate_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_preallocate_f08(fh,size,ierror) use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_preallocate_f + use :: ompi_mpifh_bindings, only : ompi_file_preallocate_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/file_read_all_begin_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_read_all_begin_f08.F90 index 9003540f28..ba5f3f8d45 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_read_all_begin_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_read_all_begin_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_read_all_begin_f08(fh,buf,count,datatype,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype - use :: mpi_f08, only : ompi_file_read_all_begin_f + use :: ompi_mpifh_bindings, only : ompi_file_read_all_begin_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_read_all_end_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_read_all_end_f08.F90 index f51fb6951a..be7da0df91 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_read_all_end_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_read_all_end_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_read_all_end_f08(fh,buf,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Status - use :: mpi_f08, only : ompi_file_read_all_end_f + use :: ompi_mpifh_bindings, only : ompi_file_read_all_end_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_read_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_read_all_f08.F90 index 149bd77d83..6805adb571 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_read_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_read_all_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_read_all_f08(fh,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status - use :: mpi_f08, only : ompi_file_read_all_f + use :: ompi_mpifh_bindings, only : ompi_file_read_all_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_read_at_all_begin_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_read_at_all_begin_f08.F90 index cecdd10992..41bb7d6d17 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_read_at_all_begin_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_read_at_all_begin_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_read_at_all_begin_f08(fh,offset,buf,count,datatype,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_read_at_all_begin_f + use :: ompi_mpifh_bindings, only : ompi_file_read_at_all_begin_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/file_read_at_all_end_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_read_at_all_end_f08.F90 index 5a00cf214f..2173c5091a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_read_at_all_end_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_read_at_all_end_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_read_at_all_end_f08(fh,buf,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Status - use :: mpi_f08, only : ompi_file_read_at_all_end_f + use :: ompi_mpifh_bindings, only : ompi_file_read_at_all_end_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_read_at_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_read_at_all_f08.F90 index 2786cb2ad1..88efb71740 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_read_at_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_read_at_all_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_read_at_all_f08(fh,offset,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_read_at_all_f + use :: ompi_mpifh_bindings, only : ompi_file_read_at_all_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/file_read_at_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_read_at_f08.F90 index 74f056be66..bd5964c776 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_read_at_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_read_at_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_read_at_f08(fh,offset,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_read_at_f + use :: ompi_mpifh_bindings, only : ompi_file_read_at_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/file_read_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_read_f08.F90 index c089704d97..9e517bcf48 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_read_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_read_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_read_f08(fh,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status - use :: mpi_f08, only : ompi_file_read_f + use :: ompi_mpifh_bindings, only : ompi_file_read_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_read_ordered_begin_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_read_ordered_begin_f08.F90 index 558caabe83..814ac47b8c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_read_ordered_begin_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_read_ordered_begin_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_read_ordered_begin_f08(fh,buf,count,datatype,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype - use :: mpi_f08, only : ompi_file_read_ordered_begin_f + use :: ompi_mpifh_bindings, only : ompi_file_read_ordered_begin_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_read_ordered_end_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_read_ordered_end_f08.F90 index b87c7fac4e..dfc6ceea1e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_read_ordered_end_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_read_ordered_end_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_read_ordered_end_f08(fh,buf,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Status - use :: mpi_f08, only : ompi_file_read_ordered_end_f + use :: ompi_mpifh_bindings, only : ompi_file_read_ordered_end_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_read_ordered_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_read_ordered_f08.F90 index af250d9050..e929589523 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_read_ordered_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_read_ordered_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_read_ordered_f08(fh,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status - use :: mpi_f08, only : ompi_file_read_ordered_f + use :: ompi_mpifh_bindings, only : ompi_file_read_ordered_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_read_shared_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_read_shared_f08.F90 index 664b2f0f5c..b6d3fcb468 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_read_shared_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_read_shared_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_read_shared_f08(fh,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status - use :: mpi_f08, only : ompi_file_read_shared_f + use :: ompi_mpifh_bindings, only : ompi_file_read_shared_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_seek_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_seek_f08.F90 index 62321512b0..46b1fa23e9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_seek_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_seek_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_seek_f08(fh,offset,whence,ierror) use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_seek_f + use :: ompi_mpifh_bindings, only : ompi_file_seek_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/file_seek_shared_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_seek_shared_f08.F90 index 4f32feb586..1b660da3c3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_seek_shared_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_seek_shared_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_seek_shared_f08(fh,offset,whence,ierror) use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_seek_shared_f + use :: ompi_mpifh_bindings, only : ompi_file_seek_shared_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/file_set_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_set_errhandler_f08.F90 index c944466de8..18ac24dc91 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_set_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_set_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_set_errhandler_f08(file,errhandler,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Errhandler - use :: mpi_f08, only : ompi_file_set_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_file_set_errhandler_f implicit none TYPE(MPI_File), INTENT(IN) :: file TYPE(MPI_Errhandler), INTENT(IN) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/file_set_info_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_set_info_f08.F90 index 2812278a56..6828f22295 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_set_info_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_set_info_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_set_info_f08(fh,info,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Info - use :: mpi_f08, only : ompi_file_set_info_f + use :: ompi_mpifh_bindings, only : ompi_file_set_info_f implicit none TYPE(MPI_File), INTENT(IN) :: fh TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/file_set_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_set_size_f08.F90 index 1d73046802..917d9ac4bd 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_set_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_set_size_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_set_size_f08(fh,size,ierror) use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_set_size_f + use :: ompi_mpifh_bindings, only : ompi_file_set_size_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/file_set_view_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_set_view_f08.F90 index 817ebab4b0..3f4bb690f5 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_set_view_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_set_view_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_set_view_f08(fh,disp,etype,filetype,datarep,info,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Info, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_set_view_f + use :: ompi_mpifh_bindings, only : ompi_file_set_view_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: disp diff --git a/ompi/mpi/fortran/use-mpi-f08/file_sync_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_sync_f08.F90 index cbd6efea6f..2963ec0e2a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_sync_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_sync_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_File_sync_f08(fh,ierror) use :: mpi_f08_types, only : MPI_File - use :: mpi_f08, only : ompi_file_sync_f + use :: ompi_mpifh_bindings, only : ompi_file_sync_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/file_write_all_begin_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_write_all_begin_f08.F90 index 01385f86b1..8f94cf04b8 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_write_all_begin_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_write_all_begin_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_write_all_begin_f08(fh,buf,count,datatype,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype - use :: mpi_f08, only : ompi_file_write_all_begin_f + use :: ompi_mpifh_bindings, only : ompi_file_write_all_begin_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_write_all_end_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_write_all_end_f08.F90 index d658876c29..3ebc884662 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_write_all_end_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_write_all_end_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_write_all_end_f08(fh,buf,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Status - use :: mpi_f08, only : ompi_file_write_all_end_f + use :: ompi_mpifh_bindings, only : ompi_file_write_all_end_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_write_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_write_all_f08.F90 index 99d2caf06c..9521b02ae3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_write_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_write_all_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_write_all_f08(fh,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status - use :: mpi_f08, only : ompi_file_write_all_f + use :: ompi_mpifh_bindings, only : ompi_file_write_all_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_write_at_all_begin_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_write_at_all_begin_f08.F90 index 54239edd1f..1e535cb26b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_write_at_all_begin_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_write_at_all_begin_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_write_at_all_begin_f08(fh,offset,buf,count,datatype,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_write_at_all_begin_f + use :: ompi_mpifh_bindings, only : ompi_file_write_at_all_begin_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/file_write_at_all_end_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_write_at_all_end_f08.F90 index 09d12cd2ab..a4bb87bb0d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_write_at_all_end_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_write_at_all_end_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_write_at_all_end_f08(fh,buf,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Status - use :: mpi_f08, only : ompi_file_write_at_all_end_f + use :: ompi_mpifh_bindings, only : ompi_file_write_at_all_end_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_write_at_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_write_at_all_f08.F90 index 8935fd95d6..2976bb6318 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_write_at_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_write_at_all_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_write_at_all_f08(fh,offset,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_write_at_all_f + use :: ompi_mpifh_bindings, only : ompi_file_write_at_all_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/file_write_at_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_write_at_f08.F90 index f1da8a9416..d4beed26de 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_write_at_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_write_at_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_write_at_f08(fh,offset,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_write_at_f + use :: ompi_mpifh_bindings, only : ompi_file_write_at_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/file_write_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_write_f08.F90 index a5c9fe246a..073198ca00 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_write_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_write_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_write_f08(fh,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status - use :: mpi_f08, only : ompi_file_write_f + use :: ompi_mpifh_bindings, only : ompi_file_write_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_write_ordered_begin_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_write_ordered_begin_f08.F90 index 3565f0e9f9..0a8f798672 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_write_ordered_begin_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_write_ordered_begin_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_write_ordered_begin_f08(fh,buf,count,datatype,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype - use :: mpi_f08, only : ompi_file_write_ordered_begin_f + use :: ompi_mpifh_bindings, only : ompi_file_write_ordered_begin_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_write_ordered_end_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_write_ordered_end_f08.F90 index f8b05302e1..19ad37e827 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_write_ordered_end_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_write_ordered_end_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_write_ordered_end_f08(fh,buf,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Status - use :: mpi_f08, only : ompi_file_write_ordered_end_f + use :: ompi_mpifh_bindings, only : ompi_file_write_ordered_end_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_write_ordered_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_write_ordered_f08.F90 index c57a4f595e..3e06e606c9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_write_ordered_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_write_ordered_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_write_ordered_f08(fh,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status - use :: mpi_f08, only : ompi_file_write_ordered_f + use :: ompi_mpifh_bindings, only : ompi_file_write_ordered_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/file_write_shared_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/file_write_shared_f08.F90 index 3aafd18f2d..239cd0d499 100644 --- a/ompi/mpi/fortran/use-mpi-f08/file_write_shared_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/file_write_shared_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_File_write_shared_f08(fh,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status - use :: mpi_f08, only : ompi_file_write_shared_f + use :: ompi_mpifh_bindings, only : ompi_file_write_shared_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/finalize_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/finalize_f08.F90 index 01a733ad4d..f61b2d56b4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/finalize_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/finalize_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Finalize_f08(ierror) - use :: mpi_f08, only : ompi_finalize_f + use :: ompi_mpifh_bindings, only : ompi_finalize_f implicit none INTEGER, OPTIONAL, INTENT(OUT) :: ierror integer :: c_ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/free_mem_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/free_mem_f08.F90 index cf67c56a56..fc84c6cdef 100644 --- a/ompi/mpi/fortran/use-mpi-f08/free_mem_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/free_mem_f08.F90 @@ -1,14 +1,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. -! Copyright (c) 2015 Research Organization for Information Science +! Copyright (c) 2015-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Free_mem_f08(base,ierror) - use :: mpi_f08, only : ompi_free_mem_f + use :: ompi_mpifh_bindings, only : ompi_free_mem_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/gather_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/gather_f08.F90 index fbba2cb2c6..bba9a5cdc3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/gather_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/gather_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Gather_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,& recvtype,root,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_gather_f + use :: ompi_mpifh_bindings, only : ompi_gather_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount, root diff --git a/ompi/mpi/fortran/use-mpi-f08/gatherv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/gatherv_f08.F90 index 6eff37b5ea..abdcb7ca55 100644 --- a/ompi/mpi/fortran/use-mpi-f08/gatherv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/gatherv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Gatherv_f08(sendbuf,sendcount,sendtype,recvbuf,recvcounts,& displs,recvtype,root,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_gatherv_f + use :: ompi_mpifh_bindings, only : ompi_gatherv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, root diff --git a/ompi/mpi/fortran/use-mpi-f08/get_accumulate_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/get_accumulate_f08.F90 index 0302058a2c..561e389a73 100644 --- a/ompi/mpi/fortran/use-mpi-f08/get_accumulate_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/get_accumulate_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -12,7 +14,7 @@ subroutine MPI_Get_accumulate_f08(origin_addr,origin_count,origin_datatype,& target_rank,target_disp,target_count, & target_datatype,op,win,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_get_accumulate_f + use :: ompi_mpifh_bindings, only : ompi_get_accumulate_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: origin_addr INTEGER, INTENT(IN) :: origin_count, result_count, target_rank, target_count diff --git a/ompi/mpi/fortran/use-mpi-f08/get_address_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/get_address_f08.F90 index 0d33b22f55..5aa1542037 100644 --- a/ompi/mpi/fortran/use-mpi-f08/get_address_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/get_address_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Get_address_f08(location,address,ierror) use :: mpi_f08_types, only : MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_get_address_f + use :: ompi_mpifh_bindings, only : ompi_get_address_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: location INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: address diff --git a/ompi/mpi/fortran/use-mpi-f08/get_count_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/get_count_f08.F90 index f9b2379589..d2fbc1eeda 100644 --- a/ompi/mpi/fortran/use-mpi-f08/get_count_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/get_count_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Get_count_f08(status,datatype,count,ierror) use :: mpi_f08_types, only : MPI_Status, MPI_Datatype - use :: mpi_f08, only : ompi_get_count_f + use :: ompi_mpifh_bindings, only : ompi_get_count_f implicit none TYPE(MPI_Status), INTENT(IN) :: status TYPE(MPI_Datatype), INTENT(IN) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-f08/get_elements_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/get_elements_f08.F90 index ba5e50bc7e..b6914f0e1b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/get_elements_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/get_elements_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Get_elements_f08(status,datatype,count,ierror) use :: mpi_f08_types, only : MPI_Status, MPI_Datatype - use :: mpi_f08, only : ompi_get_elements_f + use :: ompi_mpifh_bindings, only : ompi_get_elements_f implicit none TYPE(MPI_Status), INTENT(IN) :: status TYPE(MPI_Datatype), INTENT(IN) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-f08/get_elements_x_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/get_elements_x_f08.F90 index 437bbca822..c01b6ffc1f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/get_elements_x_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/get_elements_x_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Get_elements_x_f08(status,datatype,count,ierror) use :: mpi_f08_types, only : MPI_Status, MPI_Datatype, MPI_COUNT_KIND - use :: mpi_f08, only : ompi_get_elements_x_f + use :: ompi_mpifh_bindings, only : ompi_get_elements_x_f implicit none TYPE(MPI_Status), INTENT(IN) :: status TYPE(MPI_Datatype), INTENT(IN) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-f08/get_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/get_f08.F90 index 075a0f71dd..5baf555534 100644 --- a/ompi/mpi/fortran/use-mpi-f08/get_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/get_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2018 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Get_f08(origin_addr,origin_count,origin_datatype,target_rank,& target_disp,target_count,target_datatype,win,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_get_f + use :: ompi_mpifh_bindings, only : ompi_get_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: origin_addr INTEGER, INTENT(IN) :: origin_count, target_rank, target_count diff --git a/ompi/mpi/fortran/use-mpi-f08/get_library_version_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/get_library_version_f08.F90 index 037c38dac2..d916c5994c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/get_library_version_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/get_library_version_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2010-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Get_library_version_f08(version,resultlen,ierror) use :: mpi_f08_types, only : MPI_MAX_LIBRARY_VERSION_STRING - use :: mpi_f08, only : ompi_get_library_version_f + use :: ompi_mpifh_bindings, only : ompi_get_library_version_f implicit none character(len=MPI_MAX_LIBRARY_VERSION_STRING), intent(out) :: version integer, intent(out) :: resultlen diff --git a/ompi/mpi/fortran/use-mpi-f08/get_processor_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/get_processor_name_f08.F90 index 1b47c20354..fe7e3545df 100644 --- a/ompi/mpi/fortran/use-mpi-f08/get_processor_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/get_processor_name_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Get_processor_name_f08(name,resultlen,ierror) - use :: mpi_f08, only : ompi_get_processor_name_f + use :: ompi_mpifh_bindings, only : ompi_get_processor_name_f implicit none character(len=*), intent(out) :: name integer, intent(out) :: resultlen diff --git a/ompi/mpi/fortran/use-mpi-f08/get_version_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/get_version_f08.F90 index c6452d300d..1aaf04c060 100644 --- a/ompi/mpi/fortran/use-mpi-f08/get_version_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/get_version_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Get_version_f08(version,subversion,ierror) - use :: mpi_f08, only : ompi_get_version_f + use :: ompi_mpifh_bindings, only : ompi_get_version_f implicit none INTEGER, INTENT(OUT) :: version, subversion INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/graph_get_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/graph_get_f08.F90 index d90d03854b..0d42f42d4b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/graph_get_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/graph_get_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Graph_get_f08(comm,maxindex,maxedges,index,edges,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_graph_get_f + use :: ompi_mpifh_bindings, only : ompi_graph_get_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: maxindex, maxedges diff --git a/ompi/mpi/fortran/use-mpi-f08/graph_map_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/graph_map_f08.F90 index e52628687e..43f788df61 100644 --- a/ompi/mpi/fortran/use-mpi-f08/graph_map_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/graph_map_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Graph_map_f08(comm,nnodes,index,edges,newrank,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_graph_map_f + use :: ompi_mpifh_bindings, only : ompi_graph_map_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: nnodes diff --git a/ompi/mpi/fortran/use-mpi-f08/graph_neighbors_count_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/graph_neighbors_count_f08.F90 index 76f988f6f2..9ae6905ce8 100644 --- a/ompi/mpi/fortran/use-mpi-f08/graph_neighbors_count_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/graph_neighbors_count_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Graph_neighbors_count_f08(comm,rank,nneighbors,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_graph_neighbors_count_f + use :: ompi_mpifh_bindings, only : ompi_graph_neighbors_count_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: rank diff --git a/ompi/mpi/fortran/use-mpi-f08/graph_neighbors_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/graph_neighbors_f08.F90 index 8b89a085ec..3470b6c7aa 100644 --- a/ompi/mpi/fortran/use-mpi-f08/graph_neighbors_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/graph_neighbors_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Graph_neighbors_f08(comm,rank,maxneighbors,neighbors,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_graph_neighbors_f + use :: ompi_mpifh_bindings, only : ompi_graph_neighbors_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: rank, maxneighbors diff --git a/ompi/mpi/fortran/use-mpi-f08/graphdims_get_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/graphdims_get_f08.F90 index ed86574216..e64b250b00 100644 --- a/ompi/mpi/fortran/use-mpi-f08/graphdims_get_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/graphdims_get_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Graphdims_get_f08(comm,nnodes,nedges,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_graphdims_get_f + use :: ompi_mpifh_bindings, only : ompi_graphdims_get_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(OUT) :: nnodes, nedges diff --git a/ompi/mpi/fortran/use-mpi-f08/grequest_complete_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/grequest_complete_f08.F90 index 3c56e728da..374ed639c8 100644 --- a/ompi/mpi/fortran/use-mpi-f08/grequest_complete_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/grequest_complete_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Grequest_complete_f08(request,ierror) use :: mpi_f08_types, only : MPI_Request - use :: mpi_f08, only : ompi_grequest_complete_f + use :: ompi_mpifh_bindings, only : ompi_grequest_complete_f implicit none TYPE(MPI_Request), INTENT(IN) :: request INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/grequest_start_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/grequest_start_f08.F90 index c39d9470db..505c98ec9c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/grequest_start_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/grequest_start_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -14,7 +16,7 @@ subroutine MPI_Grequest_start_f08(query_fn,free_fn,cancel_fn,& use :: mpi_f08_interfaces_callbacks, only : MPI_Grequest_query_function use :: mpi_f08_interfaces_callbacks, only : MPI_Grequest_free_function use :: mpi_f08_interfaces_callbacks, only : MPI_Grequest_cancel_function - use :: mpi_f08, only : ompi_grequest_start_f + use :: ompi_mpifh_bindings, only : ompi_grequest_start_f implicit none PROCEDURE(MPI_Grequest_query_function) :: query_fn PROCEDURE(MPI_Grequest_free_function) :: free_fn diff --git a/ompi/mpi/fortran/use-mpi-f08/group_compare_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/group_compare_f08.F90 index b5cb7b7dc0..51c805085e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/group_compare_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/group_compare_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Group_compare_f08(group1,group2,result,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_compare_f + use :: ompi_mpifh_bindings, only : ompi_group_compare_f implicit none TYPE(MPI_Group), INTENT(IN) :: group1 TYPE(MPI_Group), INTENT(IN) :: group2 diff --git a/ompi/mpi/fortran/use-mpi-f08/group_difference_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/group_difference_f08.F90 index 115738b762..cb89f8f6c0 100644 --- a/ompi/mpi/fortran/use-mpi-f08/group_difference_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/group_difference_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Group_difference_f08(group1,group2,newgroup,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_difference_f + use :: ompi_mpifh_bindings, only : ompi_group_difference_f implicit none TYPE(MPI_Group), INTENT(IN) :: group1 TYPE(MPI_Group), INTENT(IN) :: group2 diff --git a/ompi/mpi/fortran/use-mpi-f08/group_excl_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/group_excl_f08.F90 index de74f04a21..52f1bd2975 100644 --- a/ompi/mpi/fortran/use-mpi-f08/group_excl_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/group_excl_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Group_excl_f08(group,n,ranks,newgroup,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_excl_f + use :: ompi_mpifh_bindings, only : ompi_group_excl_f implicit none TYPE(MPI_Group), INTENT(IN) :: group INTEGER, INTENT(IN) :: n diff --git a/ompi/mpi/fortran/use-mpi-f08/group_free_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/group_free_f08.F90 index 3558bae029..6e63efefdb 100644 --- a/ompi/mpi/fortran/use-mpi-f08/group_free_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/group_free_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Group_free_f08(group,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_free_f + use :: ompi_mpifh_bindings, only : ompi_group_free_f implicit none TYPE(MPI_Group), INTENT(INOUT) :: group INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/group_incl_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/group_incl_f08.F90 index 4e35ef516c..9447b45157 100644 --- a/ompi/mpi/fortran/use-mpi-f08/group_incl_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/group_incl_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Group_incl_f08(group,n,ranks,newgroup,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_incl_f + use :: ompi_mpifh_bindings, only : ompi_group_incl_f implicit none INTEGER, INTENT(IN) :: n INTEGER, INTENT(IN) :: ranks(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/group_intersection_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/group_intersection_f08.F90 index 6576a19c15..b260b61a4f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/group_intersection_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/group_intersection_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Group_intersection_f08(group1,group2,newgroup,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_intersection_f + use :: ompi_mpifh_bindings, only : ompi_group_intersection_f implicit none TYPE(MPI_Group), INTENT(IN) :: group1 TYPE(MPI_Group), INTENT(IN) :: group2 diff --git a/ompi/mpi/fortran/use-mpi-f08/group_range_excl_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/group_range_excl_f08.F90 index 52eb6ad9d1..c437959255 100644 --- a/ompi/mpi/fortran/use-mpi-f08/group_range_excl_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/group_range_excl_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Group_range_excl_f08(group,n,ranges,newgroup,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_range_excl_f + use :: ompi_mpifh_bindings, only : ompi_group_range_excl_f implicit none TYPE(MPI_Group), INTENT(IN) :: group INTEGER, INTENT(IN) :: n diff --git a/ompi/mpi/fortran/use-mpi-f08/group_range_incl_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/group_range_incl_f08.F90 index b267ed9942..c236800d13 100644 --- a/ompi/mpi/fortran/use-mpi-f08/group_range_incl_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/group_range_incl_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Group_range_incl_f08(group,n,ranges,newgroup,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_range_incl_f + use :: ompi_mpifh_bindings, only : ompi_group_range_incl_f implicit none TYPE(MPI_Group), INTENT(IN) :: group INTEGER, INTENT(IN) :: n diff --git a/ompi/mpi/fortran/use-mpi-f08/group_rank_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/group_rank_f08.F90 index e269fef7dd..097e730e39 100644 --- a/ompi/mpi/fortran/use-mpi-f08/group_rank_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/group_rank_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Group_rank_f08(group,rank,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_rank_f + use :: ompi_mpifh_bindings, only : ompi_group_rank_f implicit none TYPE(MPI_Group), INTENT(IN) :: group INTEGER, INTENT(OUT) :: rank diff --git a/ompi/mpi/fortran/use-mpi-f08/group_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/group_size_f08.F90 index d075743c22..ff88547125 100644 --- a/ompi/mpi/fortran/use-mpi-f08/group_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/group_size_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Group_size_f08(group,size,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_size_f + use :: ompi_mpifh_bindings, only : ompi_group_size_f implicit none TYPE(MPI_Group), INTENT(IN) :: group INTEGER, INTENT(OUT) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/group_translate_ranks_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/group_translate_ranks_f08.F90 index b87a1a7070..07a4a2e82e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/group_translate_ranks_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/group_translate_ranks_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Group_translate_ranks_f08(group1,n,ranks1,group2,ranks2,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_translate_ranks_f + use :: ompi_mpifh_bindings, only : ompi_group_translate_ranks_f implicit none TYPE(MPI_Group), INTENT(IN) :: group1, group2 INTEGER, INTENT(IN) :: n diff --git a/ompi/mpi/fortran/use-mpi-f08/group_union_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/group_union_f08.F90 index 9a8692dce7..b752fc5b45 100644 --- a/ompi/mpi/fortran/use-mpi-f08/group_union_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/group_union_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Group_union_f08(group1,group2,newgroup,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_union_f + use :: ompi_mpifh_bindings, only : ompi_group_union_f implicit none TYPE(MPI_Group), INTENT(IN) :: group1, group2 TYPE(MPI_Group), INTENT(OUT) :: newgroup diff --git a/ompi/mpi/fortran/use-mpi-f08/iallgather_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/iallgather_f08.F90 index 5ed85f2926..a3de86565c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/iallgather_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/iallgather_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Iallgather_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_iallgather_f + use :: ompi_mpifh_bindings, only : ompi_iallgather_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/iallgatherv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/iallgatherv_f08.F90 index f83974a569..abc9dfa7b7 100644 --- a/ompi/mpi/fortran/use-mpi-f08/iallgatherv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/iallgatherv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Iallgatherv_f08(sendbuf,sendcount,sendtype,recvbuf,recvcounts,& displs,recvtype,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_iallgatherv_f + use :: ompi_mpifh_bindings, only : ompi_iallgatherv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount diff --git a/ompi/mpi/fortran/use-mpi-f08/iallreduce_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/iallreduce_f08.F90 index c39150aeae..eabdccce9e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/iallreduce_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/iallreduce_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Iallreduce_f08(sendbuf,recvbuf,count,datatype,op,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_iallreduce_f + use :: ompi_mpifh_bindings, only : ompi_iallreduce_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/ialltoall_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/ialltoall_f08.F90 index 7cf319c58a..a9b97e37ad 100644 --- a/ompi/mpi/fortran/use-mpi-f08/ialltoall_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/ialltoall_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Ialltoall_f08(sendbuf,sendcount,sendtype,recvbuf,& recvcount,recvtype,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ialltoall_f + use :: ompi_mpifh_bindings, only : ompi_ialltoall_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/ialltoallv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/ialltoallv_f08.F90 index 661cada65e..9f72a82153 100644 --- a/ompi/mpi/fortran/use-mpi-f08/ialltoallv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/ialltoallv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Ialltoallv_f08(sendbuf,sendcounts,sdispls,sendtype,recvbuf,& recvcounts,rdispls,recvtype,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ialltoallv_f + use :: ompi_mpifh_bindings, only : ompi_ialltoallv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/ialltoallw_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/ialltoallw_f08.F90 index f3ce01e643..64f35b0699 100644 --- a/ompi/mpi/fortran/use-mpi-f08/ialltoallw_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/ialltoallw_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Ialltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,& recvbuf,recvcounts,rdispls,recvtypes,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ialltoallw_f + use :: ompi_mpifh_bindings, only : ompi_ialltoallw_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/ibarrier_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/ibarrier_f08.F90 index 8d4be9e372..a8034a36d4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/ibarrier_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/ibarrier_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Ibarrier_f08(comm,request,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ibarrier_f + use :: ompi_mpifh_bindings, only : ompi_ibarrier_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Request), INTENT(OUT) :: request diff --git a/ompi/mpi/fortran/use-mpi-f08/ibcast_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/ibcast_f08.F90 index a715745ce2..ef098a630d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/ibcast_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/ibcast_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Ibcast_f08(buffer,count,datatype,root,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ibcast_f + use :: ompi_mpifh_bindings, only : ompi_ibcast_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer INTEGER, INTENT(IN) :: count, root diff --git a/ompi/mpi/fortran/use-mpi-f08/ibsend_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/ibsend_f08.F90 index fa2f05fb58..2700e67760 100644 --- a/ompi/mpi/fortran/use-mpi-f08/ibsend_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/ibsend_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Ibsend_f08(buf,count,datatype,dest,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ibsend_f + use :: ompi_mpifh_bindings, only : ompi_ibsend_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/iexscan_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/iexscan_f08.F90 index a3fc6c7112..306afedb9a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/iexscan_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/iexscan_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Iexscan_f08(sendbuf,recvbuf,count,datatype,op,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_iexscan_f + use :: ompi_mpifh_bindings, only : ompi_iexscan_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/igather_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/igather_f08.F90 index 6f989197f1..05659dedcf 100644 --- a/ompi/mpi/fortran/use-mpi-f08/igather_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/igather_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Igather_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,& recvtype,root,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_igather_f + use :: ompi_mpifh_bindings, only : ompi_igather_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount, root diff --git a/ompi/mpi/fortran/use-mpi-f08/igatherv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/igatherv_f08.F90 index 8af2fbfcd3..81914b8b98 100644 --- a/ompi/mpi/fortran/use-mpi-f08/igatherv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/igatherv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Igatherv_f08(sendbuf,sendcount,sendtype,recvbuf,recvcounts,& displs,recvtype,root,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_igatherv_f + use :: ompi_mpifh_bindings, only : ompi_igatherv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, root diff --git a/ompi/mpi/fortran/use-mpi-f08/imrecv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/imrecv_f08.F90 index 4ce58e4d6d..17763bcc42 100644 --- a/ompi/mpi/fortran/use-mpi-f08/imrecv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/imrecv_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Imrecv_f08(buf,count,datatype,message,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Message, MPI_Request - use :: mpi_f08, only : ompi_imrecv_f + use :: ompi_mpifh_bindings, only : ompi_imrecv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/ineighbor_allgather_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/ineighbor_allgather_f08.F90 index e1e7091d53..a7879534d5 100644 --- a/ompi/mpi/fortran/use-mpi-f08/ineighbor_allgather_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/ineighbor_allgather_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Ineighbor_allgather_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ineighbor_allgather_f + use :: ompi_mpifh_bindings, only : ompi_ineighbor_allgather_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/ineighbor_allgatherv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/ineighbor_allgatherv_f08.F90 index 04d8995990..de8d30a04a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/ineighbor_allgatherv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/ineighbor_allgatherv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Ineighbor_allgatherv_f08(sendbuf,sendcount,sendtype,recvbuf,recvcounts,& displs,recvtype,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ineighbor_allgatherv_f + use :: ompi_mpifh_bindings, only : ompi_ineighbor_allgatherv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount diff --git a/ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoall_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoall_f08.F90 index d19b153458..4b1fc585f0 100644 --- a/ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoall_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoall_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Ineighbor_alltoall_f08(sendbuf,sendcount,sendtype,recvbuf,& recvcount,recvtype,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ineighbor_alltoall_f + use :: ompi_mpifh_bindings, only : ompi_ineighbor_alltoall_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoallv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoallv_f08.F90 index fc7a2d53b5..654bec7917 100644 --- a/ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoallv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoallv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Ineighbor_alltoallv_f08(sendbuf,sendcounts,sdispls,sendtype,recvbuf,& recvcounts,rdispls,recvtype,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ineighbor_alltoallv_f + use :: ompi_mpifh_bindings, only : ompi_ineighbor_alltoallv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoallw_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoallw_f08.F90 index c4e7a2050b..750f0fad30 100644 --- a/ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoallw_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/ineighbor_alltoallw_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Ineighbor_alltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,& recvbuf,recvcounts,rdispls,recvtypes,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_ineighbor_alltoallw_f + use :: ompi_mpifh_bindings, only : ompi_ineighbor_alltoallw_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf diff --git a/ompi/mpi/fortran/use-mpi-f08/info_create_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/info_create_f08.F90 index c6147a9de3..0e17545988 100644 --- a/ompi/mpi/fortran/use-mpi-f08/info_create_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/info_create_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Info_create_f08(info,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_info_create_f + use :: ompi_mpifh_bindings, only : ompi_info_create_f implicit none TYPE(MPI_Info), INTENT(OUT) :: info INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/info_delete_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/info_delete_f08.F90 index 1714443c76..5ed9a68531 100644 --- a/ompi/mpi/fortran/use-mpi-f08/info_delete_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/info_delete_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Info_delete_f08(info,key,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_info_delete_f + use :: ompi_mpifh_bindings, only : ompi_info_delete_f implicit none TYPE(MPI_Info), INTENT(IN) :: info CHARACTER(LEN=*), INTENT(IN) :: key diff --git a/ompi/mpi/fortran/use-mpi-f08/info_dup_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/info_dup_f08.F90 index bbf89bf87c..b5ce0e0fa4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/info_dup_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/info_dup_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Info_dup_f08(info,newinfo,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_info_dup_f + use :: ompi_mpifh_bindings, only : ompi_info_dup_f implicit none TYPE(MPI_Info), INTENT(IN) :: info TYPE(MPI_Info), INTENT(OUT) :: newinfo diff --git a/ompi/mpi/fortran/use-mpi-f08/info_free_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/info_free_f08.F90 index c34b59e329..201dbd3f5d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/info_free_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/info_free_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Info_free_f08(info,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_info_free_f + use :: ompi_mpifh_bindings, only : ompi_info_free_f implicit none TYPE(MPI_Info), INTENT(INOUT) :: info INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/info_get_nkeys_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/info_get_nkeys_f08.F90 index 75a06d69d6..2368bba327 100644 --- a/ompi/mpi/fortran/use-mpi-f08/info_get_nkeys_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/info_get_nkeys_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Info_get_nkeys_f08(info,nkeys,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_info_get_nkeys_f + use :: ompi_mpifh_bindings, only : ompi_info_get_nkeys_f implicit none TYPE(MPI_Info), INTENT(IN) :: info INTEGER, INTENT(OUT) :: nkeys diff --git a/ompi/mpi/fortran/use-mpi-f08/info_get_nthkey_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/info_get_nthkey_f08.F90 index 7996ae9805..0941bb7350 100644 --- a/ompi/mpi/fortran/use-mpi-f08/info_get_nthkey_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/info_get_nthkey_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Info_get_nthkey_f08(info,n,key,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_info_get_nthkey_f + use :: ompi_mpifh_bindings, only : ompi_info_get_nthkey_f implicit none TYPE(MPI_Info), INTENT(IN) :: info INTEGER, INTENT(IN) :: n diff --git a/ompi/mpi/fortran/use-mpi-f08/info_set_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/info_set_f08.F90 index b6c93252ca..dc71caf3bb 100644 --- a/ompi/mpi/fortran/use-mpi-f08/info_set_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/info_set_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Info_set_f08(info,key,value,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_info_set_f + use :: ompi_mpifh_bindings, only : ompi_info_set_f implicit none TYPE(MPI_Info), INTENT(IN) :: info CHARACTER(LEN=*), INTENT(IN) :: key, value diff --git a/ompi/mpi/fortran/use-mpi-f08/init_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/init_f08.F90 index 1b1471d3f3..5cdc84830a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/init_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/init_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Init_f08(ierror) - use :: mpi_f08, only : ompi_init_f + use :: ompi_mpifh_bindings, only : ompi_init_f implicit none INTEGER, OPTIONAL, INTENT(OUT) :: ierror integer :: c_ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/init_thread_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/init_thread_f08.F90 index 876d49b1dc..c8e25c45dd 100644 --- a/ompi/mpi/fortran/use-mpi-f08/init_thread_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/init_thread_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Init_thread_f08(required,provided,ierror) - use :: mpi_f08, only : ompi_init_thread_f + use :: ompi_mpifh_bindings, only : ompi_init_thread_f implicit none INTEGER, INTENT(IN) :: required INTEGER, INTENT(OUT) :: provided diff --git a/ompi/mpi/fortran/use-mpi-f08/intercomm_create_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/intercomm_create_f08.F90 index 19bf877c5c..c5ebac96d3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/intercomm_create_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/intercomm_create_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Intercomm_create_f08(local_comm,local_leader,peer_comm,& remote_leader,tag,newintercomm,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_intercomm_create_f + use :: ompi_mpifh_bindings, only : ompi_intercomm_create_f implicit none TYPE(MPI_Comm), INTENT(IN) :: local_comm, peer_comm INTEGER, INTENT(IN) :: local_leader, remote_leader, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/irecv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/irecv_f08.F90 index 9908444457..db607bcbb7 100644 --- a/ompi/mpi/fortran/use-mpi-f08/irecv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/irecv_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Irecv_f08(buf,count,datatype,source,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_irecv_f + use :: ompi_mpifh_bindings, only : ompi_irecv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf INTEGER, INTENT(IN) :: count, source, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/ireduce_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/ireduce_f08.F90 index 55e6297565..fc71d76817 100644 --- a/ompi/mpi/fortran/use-mpi-f08/ireduce_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/ireduce_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Ireduce_f08(sendbuf,recvbuf,count,datatype,op,root,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ireduce_f + use :: ompi_mpifh_bindings, only : ompi_ireduce_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: count, root diff --git a/ompi/mpi/fortran/use-mpi-f08/ireduce_scatter_block_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/ireduce_scatter_block_f08.F90 index 7a3c9b6040..009e3a005e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/ireduce_scatter_block_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/ireduce_scatter_block_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Ireduce_scatter_block_f08(sendbuf,recvbuf,recvcount,datatype,op,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ireduce_scatter_block_f + use :: ompi_mpifh_bindings, only : ompi_ireduce_scatter_block_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/ireduce_scatter_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/ireduce_scatter_f08.F90 index 923429d3cd..efd696fbd9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/ireduce_scatter_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/ireduce_scatter_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Ireduce_scatter_f08(sendbuf,recvbuf,recvcounts,datatype,op,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ireduce_scatter_f + use :: ompi_mpifh_bindings, only : ompi_ireduce_scatter_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: recvcounts(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/irsend_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/irsend_f08.F90 index 464134b025..e1b5f1ef35 100644 --- a/ompi/mpi/fortran/use-mpi-f08/irsend_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/irsend_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Irsend_f08(buf,count,datatype,dest,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_irsend_f + use :: ompi_mpifh_bindings, only : ompi_irsend_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/iscan_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/iscan_f08.F90 index f0b5c7b4ba..2eccaa0596 100644 --- a/ompi/mpi/fortran/use-mpi-f08/iscan_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/iscan_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Iscan_f08(sendbuf,recvbuf,count,datatype,op,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_iscan_f + use :: ompi_mpifh_bindings, only : ompi_iscan_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/iscatter_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/iscatter_f08.F90 index b53c2b90de..10259580af 100644 --- a/ompi/mpi/fortran/use-mpi-f08/iscatter_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/iscatter_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Iscatter_f08(sendbuf,sendcount,sendtype,recvbuf,& recvcount,recvtype,root,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_iscatter_f + use :: ompi_mpifh_bindings, only : ompi_iscatter_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount, root diff --git a/ompi/mpi/fortran/use-mpi-f08/iscatterv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/iscatterv_f08.F90 index a5d2df13b5..b53b0896ee 100644 --- a/ompi/mpi/fortran/use-mpi-f08/iscatterv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/iscatterv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Iscatterv_f08(sendbuf,sendcounts,displs,sendtype,recvbuf,& recvcount,recvtype,root,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_iscatterv_f + use :: ompi_mpifh_bindings, only : ompi_iscatterv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: recvcount, root diff --git a/ompi/mpi/fortran/use-mpi-f08/isend_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/isend_f08.F90 index 0d85d15167..cbf92d820a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/isend_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/isend_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Isend_f08(buf,count,datatype,dest,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_isend_f + use :: ompi_mpifh_bindings, only : ompi_isend_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/issend_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/issend_f08.F90 index 675552fc4f..3ff0cb895e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/issend_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/issend_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Issend_f08(buf,count,datatype,dest,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_issend_f + use :: ompi_mpifh_bindings, only : ompi_issend_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/lookup_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/lookup_name_f08.F90 index eb2a6e68ce..21a9b48486 100644 --- a/ompi/mpi/fortran/use-mpi-f08/lookup_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/lookup_name_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Lookup_name_f08(service_name,info,port_name,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_lookup_name_f + use :: ompi_mpifh_bindings, only : ompi_lookup_name_f implicit none CHARACTER(LEN=*), INTENT(IN) :: service_name TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/mprobe_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/mprobe_f08.F90 index f1f9cb5de4..c1a39889e4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/mprobe_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/mprobe_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2010-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Mprobe_f08(source,tag,comm,message,status,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Message, MPI_Status - use :: mpi_f08, only : ompi_mprobe_f + use :: ompi_mpifh_bindings, only : ompi_mprobe_f implicit none INTEGER, INTENT(IN) :: source, tag TYPE(MPI_Comm), INTENT(IN) :: comm diff --git a/ompi/mpi/fortran/use-mpi-f08/mrecv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/mrecv_f08.F90 index e3c9fd0a8a..157a52d36f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/mrecv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/mrecv_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Mrecv_f08(buf,count,datatype,message,status,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Message, MPI_Status - use :: mpi_f08, only : ompi_mrecv_f + use :: ompi_mpifh_bindings, only : ompi_mrecv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/neighbor_allgather_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/neighbor_allgather_f08.F90 index fbf0e50e00..77ebbcb049 100644 --- a/ompi/mpi/fortran/use-mpi-f08/neighbor_allgather_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/neighbor_allgather_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Neighbor_allgather_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_neighbor_allgather_f + use :: ompi_mpifh_bindings, only : ompi_neighbor_allgather_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/neighbor_allgatherv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/neighbor_allgatherv_f08.F90 index bf9b8130e4..93facd3c66 100644 --- a/ompi/mpi/fortran/use-mpi-f08/neighbor_allgatherv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/neighbor_allgatherv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Neighbor_allgatherv_f08(sendbuf,sendcount,sendtype,recvbuf,recvcounts,& displs,recvtype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_neighbor_allgatherv_f + use :: ompi_mpifh_bindings, only : ompi_neighbor_allgatherv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount diff --git a/ompi/mpi/fortran/use-mpi-f08/neighbor_alltoall_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/neighbor_alltoall_f08.F90 index f91fb11dea..77aea7d9b4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/neighbor_alltoall_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/neighbor_alltoall_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Neighbor_alltoall_f08(sendbuf,sendcount,sendtype,recvbuf,& recvcount,recvtype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_neighbor_alltoall_f + use :: ompi_mpifh_bindings, only : ompi_neighbor_alltoall_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/neighbor_alltoallv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/neighbor_alltoallv_f08.F90 index f97a2bbef7..5836540f32 100644 --- a/ompi/mpi/fortran/use-mpi-f08/neighbor_alltoallv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/neighbor_alltoallv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Neighbor_alltoallv_f08(sendbuf,sendcounts,sdispls,sendtype,recvbuf,& recvcounts,rdispls,recvtype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_neighbor_alltoallv_f + use :: ompi_mpifh_bindings, only : ompi_neighbor_alltoallv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/neighbor_alltoallw_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/neighbor_alltoallw_f08.F90 index 62f3db57cf..292b846acd 100644 --- a/ompi/mpi/fortran/use-mpi-f08/neighbor_alltoallw_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/neighbor_alltoallw_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Neighbor_alltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,& recvbuf,recvcounts,rdispls,recvtypes,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_neighbor_alltoallw_f + use :: ompi_mpifh_bindings, only : ompi_neighbor_alltoallw_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf diff --git a/ompi/mpi/fortran/use-mpi-f08/op_free_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/op_free_f08.F90 index c056ac69ab..d8e36c75b4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/op_free_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/op_free_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Op_free_f08(op,ierror) use :: mpi_f08_types, only : MPI_Op - use :: mpi_f08, only : ompi_op_free_f + use :: ompi_mpifh_bindings, only : ompi_op_free_f implicit none TYPE(MPI_Op), INTENT(INOUT) :: op INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/open_port_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/open_port_f08.F90 index b07d968ceb..558f084253 100644 --- a/ompi/mpi/fortran/use-mpi-f08/open_port_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/open_port_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Open_port_f08(info,port_name,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_open_port_f + use :: ompi_mpifh_bindings, only : ompi_open_port_f implicit none TYPE(MPI_Info), INTENT(IN) :: info CHARACTER(LEN=*), INTENT(OUT) :: port_name diff --git a/ompi/mpi/fortran/use-mpi-f08/pack_external_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/pack_external_f08.F90 index d336f9ccbd..99c09a9a55 100644 --- a/ompi/mpi/fortran/use-mpi-f08/pack_external_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/pack_external_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Pack_external_f08(datarep,inbuf,incount,datatype,outbuf,outsize, & position,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_pack_external_f + use :: ompi_mpifh_bindings, only : ompi_pack_external_f implicit none CHARACTER(LEN=*), INTENT(IN) :: datarep OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf diff --git a/ompi/mpi/fortran/use-mpi-f08/pack_external_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/pack_external_size_f08.F90 index 2aa2475658..3c7393f13e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/pack_external_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/pack_external_size_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Pack_external_size_f08(datarep,incount,datatype,size,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_pack_external_size_f + use :: ompi_mpifh_bindings, only : ompi_pack_external_size_f implicit none CHARACTER(LEN=*), INTENT(IN) :: datarep INTEGER, INTENT(IN) :: incount diff --git a/ompi/mpi/fortran/use-mpi-f08/pack_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/pack_f08.F90 index 2cd89a98a1..02f5de2512 100644 --- a/ompi/mpi/fortran/use-mpi-f08/pack_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/pack_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Pack_f08(inbuf,incount,datatype,outbuf,outsize,position,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_pack_f + use :: ompi_mpifh_bindings, only : ompi_pack_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf INTEGER, INTENT(IN) :: incount, outsize diff --git a/ompi/mpi/fortran/use-mpi-f08/pack_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/pack_size_f08.F90 index da7691c5e3..502c7dfee8 100644 --- a/ompi/mpi/fortran/use-mpi-f08/pack_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/pack_size_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Pack_size_f08(incount,datatype,comm,size,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_pack_size_f + use :: ompi_mpifh_bindings, only : ompi_pack_size_f implicit none INTEGER, INTENT(IN) :: incount TYPE(MPI_Datatype), INTENT(IN) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-f08/pcontrol_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/pcontrol_f08.F90 index b90a8a406e..6f9f728706 100644 --- a/ompi/mpi/fortran/use-mpi-f08/pcontrol_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/pcontrol_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Pcontrol_f08(level) - use :: mpi_f08, only : ompi_pcontrol_f + use :: ompi_mpifh_bindings, only : ompi_pcontrol_f implicit none INTEGER, INTENT(IN) :: level diff --git a/ompi/mpi/fortran/use-mpi-f08/probe_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/probe_f08.F90 index 2753ee953e..d4e8d180d4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/probe_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/probe_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Probe_f08(source,tag,comm,status,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Status - use :: mpi_f08, only : ompi_probe_f + use :: ompi_mpifh_bindings, only : ompi_probe_f implicit none INTEGER, INTENT(IN) :: source, tag TYPE(MPI_Comm), INTENT(IN) :: comm diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pabort_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pabort_f08.F90 index fa79665ca5..93725caef4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pabort_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pabort_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Abort_f08(comm,errorcode,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_abort_f + use :: ompi_mpifh_bindings, only : ompi_abort_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: errorcode diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/paccumulate_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/paccumulate_f08.F90 index 08e2d54a1e..a8f1b366f2 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/paccumulate_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/paccumulate_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -11,7 +13,7 @@ subroutine PMPI_Accumulate_f08(origin_addr,origin_count,origin_datatype,& target_rank,target_disp,target_count, & target_datatype,op,win,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_accumulate_f + use :: ompi_mpifh_bindings, only : ompi_accumulate_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr INTEGER, INTENT(IN) :: origin_count, target_rank, target_count diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/padd_error_class_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/padd_error_class_f08.F90 index 10504aaf52..a5bb25bd57 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/padd_error_class_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/padd_error_class_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Add_error_class_f08(errorclass,ierror) - use :: mpi_f08, only : ompi_add_error_class_f + use :: ompi_mpifh_bindings, only : ompi_add_error_class_f implicit none INTEGER, INTENT(OUT) :: errorclass INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/padd_error_code_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/padd_error_code_f08.F90 index 15760498fc..4667a58722 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/padd_error_code_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/padd_error_code_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Add_error_code_f08(errorclass,errorcode,ierror) - use :: mpi_f08, only : ompi_add_error_code_f + use :: ompi_mpifh_bindings, only : ompi_add_error_code_f implicit none INTEGER, INTENT(IN) :: errorclass INTEGER, INTENT(OUT) :: errorcode diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/padd_error_string_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/padd_error_string_f08.F90 index 42b016d7cb..05a3a0e250 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/padd_error_string_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/padd_error_string_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2011 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Add_error_string_f08(errorcode,string,ierror) - use :: mpi_f08, only : ompi_add_error_string_f + use :: ompi_mpifh_bindings, only : ompi_add_error_string_f implicit none integer, intent(in) :: errorcode character(len=*), intent(in) :: string diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/paint_add_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/paint_add_f08.F90 index d07e786568..08d65da8c5 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/paint_add_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/paint_add_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2015 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2015 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" function PMPI_Aint_add_f08(base, diff) use :: mpi_f08_types, only : MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_aint_add_f + use :: ompi_mpifh_bindings, only : ompi_aint_add_f implicit none INTEGER(MPI_ADDRESS_KIND) :: PMPI_Aint_add_f08 INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: base diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/paint_diff_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/paint_diff_f08.F90 index 0d46dee769..c7673f5341 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/paint_diff_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/paint_diff_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2015 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2015 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" function PMPI_Aint_diff_f08(addr1, addr2) use :: mpi_f08_types, only : MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_aint_diff_f + use :: ompi_mpifh_bindings, only : ompi_aint_diff_f implicit none INTEGER(MPI_ADDRESS_KIND) :: PMPI_Aint_diff_f08 INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: addr1 diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pallgather_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pallgather_f08.F90 index afcc7c3118..710cfb44be 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pallgather_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pallgather_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Allgather_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_allgather_f + use :: ompi_mpifh_bindings, only : ompi_allgather_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pallgatherv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pallgatherv_f08.F90 index 7d9b99e3c4..319e912614 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pallgatherv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pallgatherv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Allgatherv_f08(sendbuf,sendcount,sendtype,recvbuf,recvcounts,& displs,recvtype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_allgatherv_f + use :: ompi_mpifh_bindings, only : ompi_allgatherv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/palloc_mem_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/palloc_mem_f08.F90 index 0c4c14a194..db79bb3d9b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/palloc_mem_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/palloc_mem_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Alloc_mem_f08(size,info,baseptr,ierror) use, intrinsic :: ISO_C_BINDING, only : C_PTR use :: mpi_f08_types, only : MPI_Info, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_alloc_mem_f + use :: ompi_mpifh_bindings, only : ompi_alloc_mem_f implicit none INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pallreduce_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pallreduce_f08.F90 index 0965cf0abf..1ff22c8a3f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pallreduce_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pallreduce_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Allreduce_f08(sendbuf,recvbuf,count,datatype,op,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm - use :: mpi_f08, only : ompi_allreduce_f + use :: ompi_mpifh_bindings, only : ompi_allreduce_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/palltoall_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/palltoall_f08.F90 index 47f7fa7a88..2b7a396a83 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/palltoall_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/palltoall_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Alltoall_f08(sendbuf,sendcount,sendtype,recvbuf,& recvcount,recvtype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_alltoall_f + use :: ompi_mpifh_bindings, only : ompi_alltoall_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/palltoallv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/palltoallv_f08.F90 index c73982dcf9..ed6abb2d45 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/palltoallv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/palltoallv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Alltoallv_f08(sendbuf,sendcounts,sdispls,sendtype,recvbuf,& recvcounts,rdispls,recvtype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_alltoallv_f + use :: ompi_mpifh_bindings, only : ompi_alltoallv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/palltoallw_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/palltoallw_f08.F90 index ad94bb5925..afdd41808e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/palltoallw_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/palltoallw_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Alltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,& recvbuf,recvcounts,rdispls,recvtypes,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_alltoallw_f + use :: ompi_mpifh_bindings, only : ompi_alltoallw_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pbarrier_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pbarrier_f08.F90 index 4208123305..bb1d9c5b7f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pbarrier_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pbarrier_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Barrier_f08(comm,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_barrier_f + use :: ompi_mpifh_bindings, only : ompi_barrier_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pbcast_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pbcast_f08.F90 index b7b2cf4215..2adc0721dc 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pbcast_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pbcast_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Bcast_f08(buffer,count,datatype,root,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_bcast_f + use :: ompi_mpifh_bindings, only : ompi_bcast_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer INTEGER, INTENT(IN) :: count, root diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pbsend_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pbsend_f08.F90 index 84e4a515e4..a443f9b901 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pbsend_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pbsend_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Bsend_f08(buf,count,datatype,dest,tag,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_bsend_f + use :: ompi_mpifh_bindings, only : ompi_bsend_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pbsend_init_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pbsend_init_f08.F90 index c2da8b41ff..488bce1bb7 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pbsend_init_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pbsend_init_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Bsend_init_f08(buf,count,datatype,dest,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_bsend_init_f + use :: ompi_mpifh_bindings, only : ompi_bsend_init_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pbuffer_attach_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pbuffer_attach_f08.F90 index 0c94454770..e684548629 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pbuffer_attach_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pbuffer_attach_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Buffer_attach_f08(buffer,size,ierror) - use :: mpi_f08, only : ompi_buffer_attach_f + use :: ompi_mpifh_bindings, only : ompi_buffer_attach_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer INTEGER, INTENT(IN) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pbuffer_detach_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pbuffer_detach_f08.F90 index 28125b9034..e1f5cdbc44 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pbuffer_detach_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pbuffer_detach_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2015 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Buffer_detach_f08(buffer_addr,size,ierror) USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR - use :: mpi_f08, only : ompi_buffer_detach_f + use :: ompi_mpifh_bindings, only : ompi_buffer_detach_f implicit none TYPE(C_PTR), INTENT(OUT) :: buffer_addr INTEGER, INTENT(OUT) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcancel_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcancel_f08.F90 index 8bfc3d82c1..99bfd9c86e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcancel_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcancel_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Cancel_f08(request,ierror) use :: mpi_f08_types, only : MPI_Request - use :: mpi_f08, only : ompi_cancel_f + use :: ompi_mpifh_bindings, only : ompi_cancel_f implicit none TYPE(MPI_Request), INTENT(IN) :: request INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcart_coords_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcart_coords_f08.F90 index 3d3070499f..1bd33bd149 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcart_coords_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcart_coords_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Cart_coords_f08(comm,rank,maxdims,coords,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_cart_coords_f + use :: ompi_mpifh_bindings, only : ompi_cart_coords_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: rank, maxdims diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcart_rank_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcart_rank_f08.F90 index 6cec48591a..b0979cb061 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcart_rank_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcart_rank_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Cart_rank_f08(comm,coords,rank,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_cart_rank_f + use :: ompi_mpifh_bindings, only : ompi_cart_rank_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: coords(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcart_shift_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcart_shift_f08.F90 index 1f2a9c3c6f..092cc179d0 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcart_shift_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcart_shift_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Cart_shift_f08(comm,direction,disp,rank_source,rank_dest,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_cart_shift_f + use :: ompi_mpifh_bindings, only : ompi_cart_shift_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: direction, disp diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcartdim_get_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcartdim_get_f08.F90 index 505453dd0a..367325f48e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcartdim_get_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcartdim_get_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Cartdim_get_f08(comm,ndims,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_cartdim_get_f + use :: ompi_mpifh_bindings, only : ompi_cartdim_get_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(OUT) :: ndims diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pclose_port_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pclose_port_f08.F90 index 8ffdeb2a91..a04dfff10c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pclose_port_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pclose_port_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Close_port_f08(port_name,ierror) - use :: mpi_f08, only : ompi_close_port_f + use :: ompi_mpifh_bindings, only : ompi_close_port_f implicit none CHARACTER(LEN=*), INTENT(IN) :: port_name INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_accept_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_accept_f08.F90 index 0bc3e68f7c..8cc7c41f14 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_accept_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_accept_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_accept_f08(port_name,info,root,comm,newcomm,ierror) use :: mpi_f08_types, only : MPI_Info, MPI_Comm - use :: mpi_f08, only : ompi_comm_accept_f + use :: ompi_mpifh_bindings, only : ompi_comm_accept_f implicit none CHARACTER(LEN=*), INTENT(IN) :: port_name TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_call_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_call_errhandler_f08.F90 index 42af582343..c49d22cf71 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_call_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_call_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_call_errhandler_f08(comm,errorcode,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_call_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_comm_call_errhandler_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: errorcode diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_compare_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_compare_f08.F90 index 4a2d030fe1..652630fe2b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_compare_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_compare_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_compare_f08(comm1,comm2,result,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_compare_f + use :: ompi_mpifh_bindings, only : ompi_comm_compare_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm1 TYPE(MPI_Comm), INTENT(IN) :: comm2 diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_connect_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_connect_f08.F90 index de45199cc9..10108547b4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_connect_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_connect_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_connect_f08(port_name,info,root,comm,newcomm,ierror) use :: mpi_f08_types, only : MPI_Info, MPI_Comm - use :: mpi_f08, only : ompi_comm_connect_f + use :: ompi_mpifh_bindings, only : ompi_comm_connect_f implicit none CHARACTER(LEN=*), INTENT(IN) :: port_name TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_errhandler_f08.F90 index 86cf28dd48..4fb5620828 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_errhandler_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -11,7 +13,7 @@ subroutine PMPI_Comm_create_errhandler_f08(comm_errhandler_fn,errhandler,ierror) use, intrinsic :: iso_c_binding, only: c_funptr, c_funloc use :: mpi_f08_types, only : MPI_Errhandler use :: mpi_f08_interfaces_callbacks, only : MPI_Comm_errhandler_function - use :: mpi_f08, only : ompi_comm_create_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_comm_create_errhandler_f implicit none PROCEDURE(MPI_Comm_errhandler_function) :: comm_errhandler_fn TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_f08.F90 index 08fd7614bf..393ee0ffdf 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_create_f08(comm,group,newcomm,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Group - use :: mpi_f08, only : ompi_comm_create_f + use :: ompi_mpifh_bindings, only : ompi_comm_create_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Group), INTENT(IN) :: group diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_group_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_group_f08.F90 index 99492efabe..db55ae3529 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_group_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_group_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_create_group_f08(comm,group,tag,newcomm,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Group - use :: mpi_f08, only : ompi_comm_create_group_f + use :: ompi_mpifh_bindings, only : ompi_comm_create_group_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Group), INTENT(IN) :: group diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_keyval_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_keyval_f08.F90 index d0642a214d..bd50696b61 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_keyval_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_create_keyval_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -13,7 +15,7 @@ subroutine PMPI_Comm_create_keyval_f08(comm_copy_attr_fn,comm_delete_attr_fn,& use :: mpi_f08_types, only : MPI_ADDRESS_KIND use :: mpi_f08_interfaces_callbacks, only : MPI_Comm_copy_attr_function use :: mpi_f08_interfaces_callbacks, only : MPI_Comm_delete_attr_function - use :: mpi_f08, only : ompi_comm_create_keyval_f + use :: ompi_mpifh_bindings, only : ompi_comm_create_keyval_f implicit none PROCEDURE(MPI_Comm_copy_attr_function) :: comm_copy_attr_fn PROCEDURE(MPI_Comm_delete_attr_function) :: comm_delete_attr_fn diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_delete_attr_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_delete_attr_f08.F90 index 9549cee3b4..dab6e70e22 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_delete_attr_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_delete_attr_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_delete_attr_f08(comm,comm_keyval,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_delete_attr_f + use :: ompi_mpifh_bindings, only : ompi_comm_delete_attr_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: comm_keyval diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_disconnect_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_disconnect_f08.F90 index 2adcb18bc2..05f8240f93 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_disconnect_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_disconnect_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_disconnect_f08(comm,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_disconnect_f + use :: ompi_mpifh_bindings, only : ompi_comm_disconnect_f implicit none TYPE(MPI_Comm), INTENT(INOUT) :: comm INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_dup_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_dup_f08.F90 index a29b9c2903..c6bd8d5275 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_dup_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_dup_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_dup_f08(comm,newcomm,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_dup_f + use :: ompi_mpifh_bindings, only : ompi_comm_dup_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Comm), INTENT(OUT) :: newcomm diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_dup_with_info_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_dup_with_info_f08.F90 index a03d664210..f511fe0148 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_dup_with_info_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_dup_with_info_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_dup_with_info_f08(comm,info,newcomm,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Info - use :: mpi_f08, only : ompi_comm_dup_with_info_f + use :: ompi_mpifh_bindings, only : ompi_comm_dup_with_info_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_free_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_free_f08.F90 index 9b5af7cf8b..b5b79e2d4e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_free_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_free_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_free_f08(comm,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_free_f + use :: ompi_mpifh_bindings, only : ompi_comm_free_f implicit none TYPE(MPI_Comm), INTENT(INOUT) :: comm INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_free_keyval_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_free_keyval_f08.F90 index 580934bce4..510bd8d8f7 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_free_keyval_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_free_keyval_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_free_keyval_f08(comm_keyval,ierror) - use :: mpi_f08, only : ompi_comm_free_keyval_f + use :: ompi_mpifh_bindings, only : ompi_comm_free_keyval_f implicit none INTEGER, INTENT(INOUT) :: comm_keyval INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_errhandler_f08.F90 index cc3dae7061..c76ed79b23 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_get_errhandler_f08(comm,errhandler,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Errhandler - use :: mpi_f08, only : ompi_comm_get_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_comm_get_errhandler_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_info_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_info_f08.F90 index 11e58ed802..a9fc173300 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_info_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_info_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_get_info_f08(comm,info_used,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Info - use :: mpi_f08, only : ompi_comm_get_info_f + use :: ompi_mpifh_bindings, only : ompi_comm_get_info_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Info), INTENT(OUT) :: info_used diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_name_f08.F90 index a3b030b1f1..bd6417c256 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_name_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2011 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_get_name_f08(comm,comm_name,resultlen,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_MAX_OBJECT_NAME - use :: mpi_f08, only : ompi_comm_get_name_f + use :: ompi_mpifh_bindings, only : ompi_comm_get_name_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm CHARACTER(LEN=*), INTENT(OUT) :: comm_name diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_parent_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_parent_f08.F90 index 78fc45b51a..f30633b5b4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_parent_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_get_parent_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_get_parent_f08(parent,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_get_parent_f + use :: ompi_mpifh_bindings, only : ompi_comm_get_parent_f implicit none TYPE(MPI_Comm), INTENT(OUT) :: parent INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_group_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_group_f08.F90 index 450c8638bf..4905f9c872 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_group_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_group_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_group_f08(comm,group,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Group - use :: mpi_f08, only : ompi_comm_group_f + use :: ompi_mpifh_bindings, only : ompi_comm_group_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Group), INTENT(OUT) :: group diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_idup_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_idup_f08.F90 index c5f2287c8b..7c93d18d90 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_idup_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_idup_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_idup_f08(comm,newcomm,request,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_comm_idup_f + use :: ompi_mpifh_bindings, only : ompi_comm_idup_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Comm), INTENT(OUT) :: newcomm diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_join_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_join_f08.F90 index 4a04e6b621..c52bcff451 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_join_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_join_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_join_f08(fd,intercomm,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_join_f + use :: ompi_mpifh_bindings, only : ompi_comm_join_f implicit none INTEGER, INTENT(IN) :: fd TYPE(MPI_Comm), INTENT(OUT) :: intercomm diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_rank_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_rank_f08.F90 index 2248eac342..357a376ea3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_rank_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_rank_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_rank_f08(comm,rank,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_rank_f + use :: ompi_mpifh_bindings, only : ompi_comm_rank_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(OUT) :: rank diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_remote_group_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_remote_group_f08.F90 index 807ea7fed4..965b0d8c84 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_remote_group_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_remote_group_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_remote_group_f08(comm,group,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Group - use :: mpi_f08, only : ompi_comm_remote_group_f + use :: ompi_mpifh_bindings, only : ompi_comm_remote_group_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Group), INTENT(OUT) :: group diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_remote_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_remote_size_f08.F90 index f2d85fcf30..b804695488 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_remote_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_remote_size_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_remote_size_f08(comm,size,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_remote_size_f + use :: ompi_mpifh_bindings, only : ompi_comm_remote_size_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(OUT) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_attr_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_attr_f08.F90 index 996f512c17..1e46ebae7d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_attr_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_attr_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_set_attr_f08(comm,comm_keyval,attribute_val,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_comm_set_attr_f + use :: ompi_mpifh_bindings, only : ompi_comm_set_attr_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: comm_keyval diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_errhandler_f08.F90 index ae4e51b782..89404e7e68 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_set_errhandler_f08(comm,errhandler,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Errhandler - use :: mpi_f08, only : ompi_comm_set_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_comm_set_errhandler_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Errhandler), INTENT(IN) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_info_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_info_f08.F90 index 9ddc643ad4..2ebfbcee4f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_info_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_info_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_set_info_f08(comm,info,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Info - use :: mpi_f08, only : ompi_comm_set_info_f + use :: ompi_mpifh_bindings, only : ompi_comm_set_info_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_name_f08.F90 index 9a21745b87..f82d27128a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_set_name_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_set_name_f08(comm,comm_name,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_set_name_f + use :: ompi_mpifh_bindings, only : ompi_comm_set_name_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm CHARACTER(LEN=*), INTENT(IN) :: comm_name diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_size_f08.F90 index 0cc3722334..896044707c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_size_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_size_f08(comm,size,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_size_f + use :: ompi_mpifh_bindings, only : ompi_comm_size_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(OUT) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_spawn_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_spawn_f08.F90 index 89968377c1..f87155ba1e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_spawn_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_spawn_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_spawn_f08(command,argv,maxprocs,info,root,comm,intercomm, & array_of_errcodes,ierror) use :: mpi_f08_types, only : MPI_Info, MPI_Comm - use :: mpi_f08, only : ompi_comm_spawn_f + use :: ompi_mpifh_bindings, only : ompi_comm_spawn_f implicit none CHARACTER(LEN=*), INTENT(IN) :: command, argv INTEGER, INTENT(IN) :: maxprocs, root diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_spawn_multiple_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_spawn_multiple_f08.F90 index 6f9e2acd7f..dea1f169a6 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_spawn_multiple_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_spawn_multiple_f08.F90 @@ -4,7 +4,7 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. -! Copyright (c) 2015 Research Organization for Information Science +! Copyright (c) 2015-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ @@ -12,7 +12,7 @@ subroutine PMPI_Comm_spawn_multiple_f08(count,array_of_commands,array_of_argv, & array_of_maxprocs,array_of_info,root, & comm,intercomm,array_of_errcodes,ierror) use :: mpi_f08_types, only : MPI_Info, MPI_Comm - use :: mpi_f08, only : ompi_comm_spawn_multiple_f + use :: ompi_mpifh_bindings, only : ompi_comm_spawn_multiple_f implicit none INTEGER, INTENT(IN) :: count, root INTEGER, INTENT(IN) :: array_of_maxprocs(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_split_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_split_f08.F90 index e1c2a557f3..75419a6bca 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_split_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_split_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_split_f08(comm,color,key,newcomm,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_comm_split_f + use :: ompi_mpifh_bindings, only : ompi_comm_split_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: color, key diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_split_type_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_split_type_f08.F90 index 6b65c1b5b5..8d23fb0613 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_split_type_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcomm_split_type_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Comm_split_type_f08(comm,split_type,key,info,newcomm,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Info - use :: mpi_f08, only : ompi_comm_split_type_f + use :: ompi_mpifh_bindings, only : ompi_comm_split_type_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: split_type diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pcompare_and_swap_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pcompare_and_swap_f08.F90 index c80bbb326b..0232cecff0 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pcompare_and_swap_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pcompare_and_swap_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -11,7 +13,7 @@ subroutine PMPI_Compare_and_swap_f08(origin_addr,compare_addr,result_addr,& datatype,target_rank,target_disp,win,& ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_compare_and_swap_f + use :: ompi_mpifh_bindings, only : ompi_compare_and_swap_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr, compare_addr OMPI_FORTRAN_IGNORE_TKR_TYPE :: result_addr diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pdims_create_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pdims_create_f08.F90 index 3ef9786489..be34c01724 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pdims_create_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pdims_create_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Dims_create_f08(nnodes,ndims,dims,ierror) - use :: mpi_f08, only : ompi_dims_create_f + use :: ompi_mpifh_bindings, only : ompi_dims_create_f implicit none INTEGER, INTENT(IN) :: nnodes, ndims INTEGER, INTENT(INOUT) :: dims(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pdist_graph_neighbors_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pdist_graph_neighbors_f08.F90 index 808cefb8ba..fb63a8d976 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pdist_graph_neighbors_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pdist_graph_neighbors_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Dist_graph_neighbors_f08(comm,maxindegree,sources,sourceweights,& maxoutdegree,destinations,destweights,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_dist_graph_neighbors_f + use :: ompi_mpifh_bindings, only : ompi_dist_graph_neighbors_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: maxindegree, maxoutdegree diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/perrhandler_free_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/perrhandler_free_f08.F90 index 31d015f6d0..09e6dfbc69 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/perrhandler_free_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/perrhandler_free_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Errhandler_free_f08(errhandler,ierror) use :: mpi_f08_types, only : MPI_Errhandler - use :: mpi_f08, only : ompi_errhandler_free_f + use :: ompi_mpifh_bindings, only : ompi_errhandler_free_f implicit none TYPE(MPI_Errhandler), INTENT(INOUT) :: errhandler INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/perror_class_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/perror_class_f08.F90 index 9bdcb537ef..203d119929 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/perror_class_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/perror_class_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Error_class_f08(errorcode,errorclass,ierror) - use :: mpi_f08, only : ompi_error_class_f + use :: ompi_mpifh_bindings, only : ompi_error_class_f implicit none INTEGER, INTENT(IN) :: errorcode INTEGER, INTENT(OUT) :: errorclass diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/perror_string_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/perror_string_f08.F90 index b2a5177c45..c78a5e557f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/perror_string_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/perror_string_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Error_string_f08(errorcode,string,resultlen,ierror) - use :: mpi_f08, only : ompi_error_string_f + use :: ompi_mpifh_bindings, only : ompi_error_string_f implicit none integer, intent(in) :: errorcode character(len=*), intent(out) :: string diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pexscan_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pexscan_f08.F90 index 60f28860b8..0e863f9fe1 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pexscan_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pexscan_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Exscan_f08(sendbuf,recvbuf,count,datatype,op,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm - use :: mpi_f08, only : ompi_exscan_f + use :: ompi_mpifh_bindings, only : ompi_exscan_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pf_sync_reg_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pf_sync_reg_f08.F90 index 902ef03183..f7f03e0fe3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pf_sync_reg_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pf_sync_reg_f08.F90 @@ -4,12 +4,14 @@ ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. ! Copyright (c) 2012 University of Oregon. All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_F_sync_reg_f08(buf) - use :: mpi_f08, only : ompi_f_sync_reg_f + use :: ompi_mpifh_bindings, only : ompi_f_sync_reg_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfetch_and_op_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfetch_and_op_f08.F90 index 5173d99afe..7e031aedee 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfetch_and_op_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfetch_and_op_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Fetch_and_op_f08(origin_addr,result_addr,datatype,target_rank, & target_disp,op,win,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_fetch_and_op_f + use :: ompi_mpifh_bindings, only : ompi_fetch_and_op_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr OMPI_FORTRAN_IGNORE_TKR_TYPE :: result_addr diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_call_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_call_errhandler_f08.F90 index 0f9d04f257..ac45688ef2 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_call_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_call_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_call_errhandler_f08(fh,errorcode,ierror) use :: mpi_f08_types, only : MPI_File - use :: mpi_f08, only : ompi_file_call_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_file_call_errhandler_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER, INTENT(IN) :: errorcode diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_close_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_close_f08.F90 index a5dfb200e6..290f687ee8 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_close_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_close_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_close_f08(fh,ierror) use :: mpi_f08_types, only : MPI_File - use :: mpi_f08, only : ompi_file_close_f + use :: ompi_mpifh_bindings, only : ompi_file_close_f implicit none TYPE(MPI_File), INTENT(INOUT) :: fh INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_create_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_create_errhandler_f08.F90 index e521185dc0..8daba5d8d3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_create_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_create_errhandler_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -11,7 +13,7 @@ subroutine PMPI_File_create_errhandler_f08(file_errhandler_fn,errhandler,ierror) use, intrinsic :: iso_c_binding, only: c_funptr, c_funloc use :: mpi_f08_types, only : MPI_Errhandler use :: mpi_f08_interfaces_callbacks, only : MPI_File_errhandler_function - use :: mpi_f08, only : ompi_file_create_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_file_create_errhandler_f implicit none PROCEDURE(MPI_File_errhandler_function) :: file_errhandler_fn TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_delete_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_delete_f08.F90 index b0b1f8e67d..031e545bf0 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_delete_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_delete_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_delete_f08(filename,info,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_file_delete_f + use :: ompi_mpifh_bindings, only : ompi_file_delete_f implicit none CHARACTER(LEN=*), INTENT(IN) :: filename TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_amode_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_amode_f08.F90 index 387066e073..fa04303627 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_amode_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_amode_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_get_amode_f08(fh,amode,ierror) use :: mpi_f08_types, only : MPI_File - use :: mpi_f08, only : ompi_file_get_amode_f + use :: ompi_mpifh_bindings, only : ompi_file_get_amode_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER, INTENT(OUT) :: amode diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_byte_offset_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_byte_offset_f08.F90 index bf97154535..fa4d6efd14 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_byte_offset_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_byte_offset_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_get_byte_offset_f08(fh,offset,disp,ierror) use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_get_byte_offset_f + use :: ompi_mpifh_bindings, only : ompi_file_get_byte_offset_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_errhandler_f08.F90 index feaccf1206..6efdb7d12f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_get_errhandler_f08(file,errhandler,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Errhandler - use :: mpi_f08, only : ompi_file_get_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_file_get_errhandler_f implicit none TYPE(MPI_File), INTENT(IN) :: file TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_group_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_group_f08.F90 index deaf8e5494..a6e885915c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_group_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_group_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_get_group_f08(fh,group,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Group - use :: mpi_f08, only : ompi_file_get_group_f + use :: ompi_mpifh_bindings, only : ompi_file_get_group_f implicit none TYPE(MPI_File), INTENT(IN) :: fh TYPE(MPI_Group), INTENT(OUT) :: group diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_info_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_info_f08.F90 index d22e2eb6d2..8bd7be4a6f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_info_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_info_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_get_info_f08(fh,info_used,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Info - use :: mpi_f08, only : ompi_file_get_info_f + use :: ompi_mpifh_bindings, only : ompi_file_get_info_f implicit none TYPE(MPI_File), INTENT(IN) :: fh TYPE(MPI_Info), INTENT(OUT) :: info_used diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_position_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_position_f08.F90 index e4f45f56c5..1ec18cedf5 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_position_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_position_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_get_position_f08(fh,offset,ierror) use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_get_position_f + use :: ompi_mpifh_bindings, only : ompi_file_get_position_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_position_shared_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_position_shared_f08.F90 index a985fc9629..ec59baccbc 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_position_shared_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_position_shared_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_get_position_shared_f08(fh,offset,ierror) use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_get_position_shared_f + use :: ompi_mpifh_bindings, only : ompi_file_get_position_shared_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_size_f08.F90 index 8b4eb2b721..f76664ae73 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_size_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_get_size_f08(fh,size,ierror) use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_get_size_f + use :: ompi_mpifh_bindings, only : ompi_file_get_size_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_type_extent_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_type_extent_f08.F90 index d2eca05a15..055921897a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_type_extent_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_type_extent_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_get_type_extent_f08(fh,datatype,extent,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_file_get_type_extent_f + use :: ompi_mpifh_bindings, only : ompi_file_get_type_extent_f implicit none TYPE(MPI_File), INTENT(IN) :: fh TYPE(MPI_Datatype), INTENT(IN) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_view_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_view_f08.F90 index 8256db56a0..037de339c7 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_view_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_get_view_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_get_view_f08(fh,disp,etype,filetype,datarep,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_get_view_f + use :: ompi_mpifh_bindings, only : ompi_file_get_view_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(OUT) :: disp diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_all_f08.F90 index 3d935f98ae..ba12743a93 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_all_f08.F90 @@ -4,13 +4,15 @@ ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. ! Copyright (c) 2017 FUJITSU LIMITED. All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_iread_all_f08(fh,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request - use :: mpi_f08, only : ompi_file_iread_all_f + use :: ompi_mpifh_bindings, only : ompi_file_iread_all_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_at_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_at_all_f08.F90 index 1a627fd739..276e917591 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_at_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_at_all_f08.F90 @@ -4,13 +4,15 @@ ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. ! Copyright (c) 2017 FUJITSU LIMITED. All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_iread_at_all_f08(fh,offset,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_iread_at_all_f + use :: ompi_mpifh_bindings, only : ompi_file_iread_at_all_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_at_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_at_f08.F90 index 8cbbf9f7a9..62c2aedf2c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_at_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_at_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_iread_at_f08(fh,offset,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_iread_at_f + use :: ompi_mpifh_bindings, only : ompi_file_iread_at_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_f08.F90 index d216542feb..173361f083 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_iread_f08(fh,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request - use :: mpi_f08, only : ompi_file_iread_f + use :: ompi_mpifh_bindings, only : ompi_file_iread_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_shared_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_shared_f08.F90 index 034c381fc0..a6e17c928d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_shared_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iread_shared_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_iread_shared_f08(fh,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request - use :: mpi_f08, only : ompi_file_iread_shared_f + use :: ompi_mpifh_bindings, only : ompi_file_iread_shared_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_all_f08.F90 index f176b17d9e..59124a9089 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_all_f08.F90 @@ -4,13 +4,15 @@ ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. ! Copyright (c) 2017 FUJITSU LIMITED. All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_iwrite_all_f08(fh,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request - use :: mpi_f08, only : ompi_file_iwrite_all_f + use :: ompi_mpifh_bindings, only : ompi_file_iwrite_all_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_at_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_at_all_f08.F90 index ff5116f5d8..ef557c46b8 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_at_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_at_all_f08.F90 @@ -4,13 +4,15 @@ ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. ! Copyright (c) 2017 FUJITSU LIMITED. All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_iwrite_at_all_f08(fh,offset,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_iwrite_at_all_f + use :: ompi_mpifh_bindings, only : ompi_file_iwrite_at_all_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_at_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_at_f08.F90 index bf7812d6a6..67b67fe1dc 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_at_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_at_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_iwrite_at_f08(fh,offset,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_iwrite_at_f + use :: ompi_mpifh_bindings, only : ompi_file_iwrite_at_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_f08.F90 index 8e96a96679..e128db458d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_iwrite_f08(fh,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request - use :: mpi_f08, only : ompi_file_iwrite_f + use :: ompi_mpifh_bindings, only : ompi_file_iwrite_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_shared_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_shared_f08.F90 index c07659ead7..77d03ac532 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_shared_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_iwrite_shared_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_iwrite_shared_f08(fh,buf,count,datatype,request,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request - use :: mpi_f08, only : ompi_file_iwrite_shared_f + use :: ompi_mpifh_bindings, only : ompi_file_iwrite_shared_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf TYPE(MPI_File), INTENT(IN) :: fh diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_open_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_open_f08.F90 index 2977abfe9c..1325d00e7a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_open_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_open_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_open_f08(comm,filename,amode,info,fh,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Info, MPI_File - use :: mpi_f08, only : ompi_file_open_f + use :: ompi_mpifh_bindings, only : ompi_file_open_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm CHARACTER(LEN=*), INTENT(IN) :: filename diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_preallocate_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_preallocate_f08.F90 index c44de460d6..a6e6d4bee9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_preallocate_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_preallocate_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_preallocate_f08(fh,size,ierror) use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_preallocate_f + use :: ompi_mpifh_bindings, only : ompi_file_preallocate_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_all_begin_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_all_begin_f08.F90 index eceadf26d2..4b7998597a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_all_begin_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_all_begin_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_read_all_begin_f08(fh,buf,count,datatype,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype - use :: mpi_f08, only : ompi_file_read_all_begin_f + use :: ompi_mpifh_bindings, only : ompi_file_read_all_begin_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_all_end_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_all_end_f08.F90 index b9cfdd4701..6cebaee138 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_all_end_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_all_end_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_read_all_end_f08(fh,buf,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Status - use :: mpi_f08, only : ompi_file_read_all_end_f + use :: ompi_mpifh_bindings, only : ompi_file_read_all_end_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_all_f08.F90 index caf3e78661..11c6ec3ff4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_all_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_read_all_f08(fh,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status - use :: mpi_f08, only : ompi_file_read_all_f + use :: ompi_mpifh_bindings, only : ompi_file_read_all_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_at_all_begin_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_at_all_begin_f08.F90 index 850315dfae..03548e738a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_at_all_begin_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_at_all_begin_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_read_at_all_begin_f08(fh,offset,buf,count,datatype,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_read_at_all_begin_f + use :: ompi_mpifh_bindings, only : ompi_file_read_at_all_begin_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_at_all_end_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_at_all_end_f08.F90 index ee6631f8e2..2454a723f2 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_at_all_end_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_at_all_end_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_read_at_all_end_f08(fh,buf,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Status - use :: mpi_f08, only : ompi_file_read_at_all_end_f + use :: ompi_mpifh_bindings, only : ompi_file_read_at_all_end_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_at_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_at_all_f08.F90 index 237dfef0ad..308c0288a6 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_at_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_at_all_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_read_at_all_f08(fh,offset,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_read_at_all_f + use :: ompi_mpifh_bindings, only : ompi_file_read_at_all_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_at_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_at_f08.F90 index 55d265752b..369749cc88 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_at_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_at_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_read_at_f08(fh,offset,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_read_at_f + use :: ompi_mpifh_bindings, only : ompi_file_read_at_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_f08.F90 index 2b405dbee8..8f5c1a32fc 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_read_f08(fh,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status - use :: mpi_f08, only : ompi_file_read_f + use :: ompi_mpifh_bindings, only : ompi_file_read_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_ordered_begin_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_ordered_begin_f08.F90 index 9c714f4d16..f36ecd396d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_ordered_begin_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_ordered_begin_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_read_ordered_begin_f08(fh,buf,count,datatype,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype - use :: mpi_f08, only : ompi_file_read_ordered_begin_f + use :: ompi_mpifh_bindings, only : ompi_file_read_ordered_begin_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_ordered_end_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_ordered_end_f08.F90 index b7e156d5f7..19ee13308e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_ordered_end_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_ordered_end_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_read_ordered_end_f08(fh,buf,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Status - use :: mpi_f08, only : ompi_file_read_ordered_end_f + use :: ompi_mpifh_bindings, only : ompi_file_read_ordered_end_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_ordered_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_ordered_f08.F90 index 2073c503a8..07f144d621 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_ordered_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_ordered_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_read_ordered_f08(fh,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status - use :: mpi_f08, only : ompi_file_read_ordered_f + use :: ompi_mpifh_bindings, only : ompi_file_read_ordered_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_shared_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_shared_f08.F90 index 8b7a3905ca..d198dfe7cf 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_shared_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_read_shared_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_read_shared_f08(fh,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status - use :: mpi_f08, only : ompi_file_read_shared_f + use :: ompi_mpifh_bindings, only : ompi_file_read_shared_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_seek_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_seek_f08.F90 index 73016436b8..01f1697381 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_seek_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_seek_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_seek_f08(fh,offset,whence,ierror) use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_seek_f + use :: ompi_mpifh_bindings, only : ompi_file_seek_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_seek_shared_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_seek_shared_f08.F90 index fd53045892..3d0fee10c1 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_seek_shared_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_seek_shared_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_seek_shared_f08(fh,offset,whence,ierror) use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_seek_shared_f + use :: ompi_mpifh_bindings, only : ompi_file_seek_shared_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_errhandler_f08.F90 index 4f168ce620..5c2b4892b8 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_set_errhandler_f08(file,errhandler,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Errhandler - use :: mpi_f08, only : ompi_file_set_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_file_set_errhandler_f implicit none TYPE(MPI_File), INTENT(IN) :: file TYPE(MPI_Errhandler), INTENT(IN) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_info_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_info_f08.F90 index c536bca9d9..17f9222fe2 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_info_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_info_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_set_info_f08(fh,info,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Info - use :: mpi_f08, only : ompi_file_set_info_f + use :: ompi_mpifh_bindings, only : ompi_file_set_info_f implicit none TYPE(MPI_File), INTENT(IN) :: fh TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_size_f08.F90 index 93e9f910a6..bc0ac14527 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_size_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_set_size_f08(fh,size,ierror) use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_set_size_f + use :: ompi_mpifh_bindings, only : ompi_file_set_size_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_view_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_view_f08.F90 index df26ac07ee..3be7bcf327 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_view_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_set_view_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_set_view_f08(fh,disp,etype,filetype,datarep,info,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Info, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_set_view_f + use :: ompi_mpifh_bindings, only : ompi_file_set_view_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: disp diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_sync_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_sync_f08.F90 index 916ee1c943..d098f572e3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_sync_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_sync_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_File_sync_f08(fh,ierror) use :: mpi_f08_types, only : MPI_File - use :: mpi_f08, only : ompi_file_sync_f + use :: ompi_mpifh_bindings, only : ompi_file_sync_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_all_begin_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_all_begin_f08.F90 index d144ff1f0e..0762164139 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_all_begin_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_all_begin_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_write_all_begin_f08(fh,buf,count,datatype,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype - use :: mpi_f08, only : ompi_file_write_all_begin_f + use :: ompi_mpifh_bindings, only : ompi_file_write_all_begin_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_all_end_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_all_end_f08.F90 index 1a2b06187d..c27b759bf2 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_all_end_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_all_end_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_write_all_end_f08(fh,buf,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Status - use :: mpi_f08, only : ompi_file_write_all_end_f + use :: ompi_mpifh_bindings, only : ompi_file_write_all_end_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_all_f08.F90 index 43421d0122..c3b270de14 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_all_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_write_all_f08(fh,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status - use :: mpi_f08, only : ompi_file_write_all_f + use :: ompi_mpifh_bindings, only : ompi_file_write_all_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_at_all_begin_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_at_all_begin_f08.F90 index e8bf0f3dfc..64438ae696 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_at_all_begin_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_at_all_begin_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_write_at_all_begin_f08(fh,offset,buf,count,datatype,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_write_at_all_begin_f + use :: ompi_mpifh_bindings, only : ompi_file_write_at_all_begin_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_at_all_end_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_at_all_end_f08.F90 index f9efd90068..8db21a6b10 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_at_all_end_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_at_all_end_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_write_at_all_end_f08(fh,buf,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Status - use :: mpi_f08, only : ompi_file_write_at_all_end_f + use :: ompi_mpifh_bindings, only : ompi_file_write_at_all_end_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_at_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_at_all_f08.F90 index c5d278a67b..0ea870a8c8 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_at_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_at_all_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_write_at_all_f08(fh,offset,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_write_at_all_f + use :: ompi_mpifh_bindings, only : ompi_file_write_at_all_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_at_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_at_f08.F90 index f65976b1a6..b89101e3f0 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_at_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_at_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_write_at_f08(fh,offset,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status, MPI_OFFSET_KIND - use :: mpi_f08, only : ompi_file_write_at_f + use :: ompi_mpifh_bindings, only : ompi_file_write_at_f implicit none TYPE(MPI_File), INTENT(IN) :: fh INTEGER(MPI_OFFSET_KIND), INTENT(IN) :: offset diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_f08.F90 index e3a765ee0c..64d62bd2bb 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_write_f08(fh,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status - use :: mpi_f08, only : ompi_file_write_f + use :: ompi_mpifh_bindings, only : ompi_file_write_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_ordered_begin_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_ordered_begin_f08.F90 index 1d17034009..be44d72e99 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_ordered_begin_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_ordered_begin_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_write_ordered_begin_f08(fh,buf,count,datatype,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype - use :: mpi_f08, only : ompi_file_write_ordered_begin_f + use :: ompi_mpifh_bindings, only : ompi_file_write_ordered_begin_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_ordered_end_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_ordered_end_f08.F90 index a48d3be886..41f5a7672f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_ordered_end_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_ordered_end_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_write_ordered_end_f08(fh,buf,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Status - use :: mpi_f08, only : ompi_file_write_ordered_end_f + use :: ompi_mpifh_bindings, only : ompi_file_write_ordered_end_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_ordered_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_ordered_f08.F90 index 030cb76524..7fe51236db 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_ordered_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_ordered_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_write_ordered_f08(fh,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status - use :: mpi_f08, only : ompi_file_write_ordered_f + use :: ompi_mpifh_bindings, only : ompi_file_write_ordered_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_shared_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_shared_f08.F90 index b3fdc02198..f3bf683e3e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_shared_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfile_write_shared_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_File_write_shared_f08(fh,buf,count,datatype,status,ierror) use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Status - use :: mpi_f08, only : ompi_file_write_shared_f + use :: ompi_mpifh_bindings, only : ompi_file_write_shared_f implicit none TYPE(MPI_File), INTENT(IN) :: fh OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfinalize_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfinalize_f08.F90 index 8a70859146..782609b5ad 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfinalize_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfinalize_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Finalize_f08(ierror) - use :: mpi_f08, only : ompi_finalize_f + use :: ompi_mpifh_bindings, only : ompi_finalize_f implicit none INTEGER, OPTIONAL, INTENT(OUT) :: ierror integer :: c_ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pfree_mem_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pfree_mem_f08.F90 index 0a542b9321..c99160b0ac 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pfree_mem_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pfree_mem_f08.F90 @@ -3,14 +3,14 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. -! Copyright (c) 2015 Research Organization for Information Science +! Copyright (c) 2015-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Free_mem_f08(base,ierror) - use :: mpi_f08, only : ompi_free_mem_f + use :: ompi_mpifh_bindings, only : ompi_free_mem_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE,INTENT(IN) :: base INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgather_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgather_f08.F90 index 7a4b07ac28..3f5ff4f0cc 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgather_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgather_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Gather_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,& recvtype,root,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_gather_f + use :: ompi_mpifh_bindings, only : ompi_gather_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount, root diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgatherv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgatherv_f08.F90 index ba20681f29..6c7605a189 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgatherv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgatherv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Gatherv_f08(sendbuf,sendcount,sendtype,recvbuf,recvcounts,& displs,recvtype,root,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_gatherv_f + use :: ompi_mpifh_bindings, only : ompi_gatherv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, root diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pget_accumulate_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pget_accumulate_f08.F90 index 929fd43756..66b223c257 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pget_accumulate_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pget_accumulate_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -12,7 +14,7 @@ subroutine PMPI_Get_accumulate_f08(origin_addr,origin_count,origin_datatype,& target_rank,target_disp,target_count, & target_datatype,op,win,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_get_accumulate_f + use :: ompi_mpifh_bindings, only : ompi_get_accumulate_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr INTEGER, INTENT(IN) :: origin_count, result_count, target_rank, target_count diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pget_address_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pget_address_f08.F90 index c01821806f..eb2283a801 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pget_address_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pget_address_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Get_address_f08(location,address,ierror) use :: mpi_f08_types, only : MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_get_address_f + use :: ompi_mpifh_bindings, only : ompi_get_address_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: location INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: address diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pget_count_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pget_count_f08.F90 index 56ca18568c..0378b64c16 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pget_count_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pget_count_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Get_count_f08(status,datatype,count,ierror) use :: mpi_f08_types, only : MPI_Status, MPI_Datatype - use :: mpi_f08, only : ompi_get_count_f + use :: ompi_mpifh_bindings, only : ompi_get_count_f implicit none TYPE(MPI_Status), INTENT(IN) :: status TYPE(MPI_Datatype), INTENT(IN) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pget_elements_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pget_elements_f08.F90 index 747d4c3bb5..ef2c0dbc24 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pget_elements_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pget_elements_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Get_elements_f08(status,datatype,count,ierror) use :: mpi_f08_types, only : MPI_Status, MPI_Datatype - use :: mpi_f08, only : ompi_get_elements_f + use :: ompi_mpifh_bindings, only : ompi_get_elements_f implicit none TYPE(MPI_Status), INTENT(IN) :: status TYPE(MPI_Datatype), INTENT(IN) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pget_elements_x_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pget_elements_x_f08.F90 index eb1ba97edf..aa323c2556 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pget_elements_x_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pget_elements_x_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Get_elements_x_f08(status,datatype,count,ierror) use :: mpi_f08_types, only : MPI_Status, MPI_Datatype, MPI_COUNT_KIND - use :: mpi_f08, only : ompi_get_elements_x_f + use :: ompi_mpifh_bindings, only : ompi_get_elements_x_f implicit none TYPE(MPI_Status), INTENT(IN) :: status TYPE(MPI_Datatype), INTENT(IN) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pget_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pget_f08.F90 index d57da0b9e8..9b77132f18 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pget_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pget_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Get_f08(origin_addr,origin_count,origin_datatype,target_rank,& target_disp,target_count,target_datatype,win,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_get_f + use :: ompi_mpifh_bindings, only : ompi_get_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr INTEGER, INTENT(IN) :: origin_count, target_rank, target_count diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pget_library_version_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pget_library_version_f08.F90 index 9ed2b1650a..fb7d8536db 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pget_library_version_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pget_library_version_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2010-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Get_library_version_f08(version,resultlen,ierror) use :: mpi_f08_types, only : MPI_MAX_LIBRARY_VERSION_STRING - use :: mpi_f08, only : ompi_get_library_version_f + use :: ompi_mpifh_bindings, only : ompi_get_library_version_f implicit none character(len=MPI_MAX_LIBRARY_VERSION_STRING), intent(out) :: version integer, intent(out) :: resultlen diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pget_processor_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pget_processor_name_f08.F90 index 13c951fb3a..f05919d3f1 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pget_processor_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pget_processor_name_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Get_processor_name_f08(name,resultlen,ierror) - use :: mpi_f08, only : ompi_get_processor_name_f + use :: ompi_mpifh_bindings, only : ompi_get_processor_name_f implicit none character(len=*), intent(out) :: name integer, intent(out) :: resultlen diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pget_version_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pget_version_f08.F90 index 28da38994c..196ffcc079 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pget_version_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pget_version_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Get_version_f08(version,subversion,ierror) - use :: mpi_f08, only : ompi_get_version_f + use :: ompi_mpifh_bindings, only : ompi_get_version_f implicit none INTEGER, INTENT(OUT) :: version, subversion INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgraph_get_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgraph_get_f08.F90 index ce3d61f11f..d8adffd864 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgraph_get_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgraph_get_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Graph_get_f08(comm,maxindex,maxedges,index,edges,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_graph_get_f + use :: ompi_mpifh_bindings, only : ompi_graph_get_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: maxindex, maxedges diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgraph_map_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgraph_map_f08.F90 index a8faf9b9f4..6b617977b1 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgraph_map_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgraph_map_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Graph_map_f08(comm,nnodes,index,edges,newrank,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_graph_map_f + use :: ompi_mpifh_bindings, only : ompi_graph_map_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: nnodes diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgraph_neighbors_count_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgraph_neighbors_count_f08.F90 index 4832c4d79e..677de5fd10 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgraph_neighbors_count_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgraph_neighbors_count_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Graph_neighbors_count_f08(comm,rank,nneighbors,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_graph_neighbors_count_f + use :: ompi_mpifh_bindings, only : ompi_graph_neighbors_count_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: rank diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgraph_neighbors_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgraph_neighbors_f08.F90 index 49910e0d77..df483ca9dc 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgraph_neighbors_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgraph_neighbors_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Graph_neighbors_f08(comm,rank,maxneighbors,neighbors,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_graph_neighbors_f + use :: ompi_mpifh_bindings, only : ompi_graph_neighbors_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(IN) :: rank, maxneighbors diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgraphdims_get_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgraphdims_get_f08.F90 index 76f6d75c79..38e7f20f9e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgraphdims_get_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgraphdims_get_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Graphdims_get_f08(comm,nnodes,nedges,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_graphdims_get_f + use :: ompi_mpifh_bindings, only : ompi_graphdims_get_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(OUT) :: nnodes, nedges diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgrequest_complete_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgrequest_complete_f08.F90 index 5bb23de04b..40ed64842d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgrequest_complete_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgrequest_complete_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Grequest_complete_f08(request,ierror) use :: mpi_f08_types, only : MPI_Request - use :: mpi_f08, only : ompi_grequest_complete_f + use :: ompi_mpifh_bindings, only : ompi_grequest_complete_f implicit none TYPE(MPI_Request), INTENT(IN) :: request INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgrequest_start_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgrequest_start_f08.F90 index bc48837480..7bb64b34f1 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgrequest_start_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgrequest_start_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -14,7 +16,7 @@ subroutine PMPI_Grequest_start_f08(query_fn,free_fn,cancel_fn,& use :: mpi_f08_interfaces_callbacks, only : MPI_Grequest_query_function use :: mpi_f08_interfaces_callbacks, only : MPI_Grequest_free_function use :: mpi_f08_interfaces_callbacks, only : MPI_Grequest_cancel_function - use :: mpi_f08, only : ompi_grequest_start_f + use :: ompi_mpifh_bindings, only : ompi_grequest_start_f implicit none PROCEDURE(MPI_Grequest_query_function) :: query_fn PROCEDURE(MPI_Grequest_free_function) :: free_fn diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_compare_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_compare_f08.F90 index e4ee847571..4354e14154 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_compare_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_compare_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Group_compare_f08(group1,group2,result,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_compare_f + use :: ompi_mpifh_bindings, only : ompi_group_compare_f implicit none TYPE(MPI_Group), INTENT(IN) :: group1 TYPE(MPI_Group), INTENT(IN) :: group2 diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_difference_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_difference_f08.F90 index 433c4d75be..7f3ebe8f60 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_difference_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_difference_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Group_difference_f08(group1,group2,newgroup,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_difference_f + use :: ompi_mpifh_bindings, only : ompi_group_difference_f implicit none TYPE(MPI_Group), INTENT(IN) :: group1 TYPE(MPI_Group), INTENT(IN) :: group2 diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_excl_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_excl_f08.F90 index 0715063210..8481e4d9a0 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_excl_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_excl_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Group_excl_f08(group,n,ranks,newgroup,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_excl_f + use :: ompi_mpifh_bindings, only : ompi_group_excl_f implicit none TYPE(MPI_Group), INTENT(IN) :: group INTEGER, INTENT(IN) :: n diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_free_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_free_f08.F90 index 22abe98c51..b7591ea596 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_free_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_free_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Group_free_f08(group,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_free_f + use :: ompi_mpifh_bindings, only : ompi_group_free_f implicit none TYPE(MPI_Group), INTENT(INOUT) :: group INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_incl_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_incl_f08.F90 index 85b2c91189..21c20b845e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_incl_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_incl_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Group_incl_f08(group,n,ranks,newgroup,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_incl_f + use :: ompi_mpifh_bindings, only : ompi_group_incl_f implicit none INTEGER, INTENT(IN) :: n INTEGER, INTENT(IN) :: ranks(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_intersection_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_intersection_f08.F90 index ecb4da0160..2e5f5962bf 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_intersection_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_intersection_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Group_intersection_f08(group1,group2,newgroup,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_intersection_f + use :: ompi_mpifh_bindings, only : ompi_group_intersection_f implicit none TYPE(MPI_Group), INTENT(IN) :: group1 TYPE(MPI_Group), INTENT(IN) :: group2 diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_range_excl_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_range_excl_f08.F90 index 4c6205738f..ab30540016 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_range_excl_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_range_excl_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Group_range_excl_f08(group,n,ranges,newgroup,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_range_excl_f + use :: ompi_mpifh_bindings, only : ompi_group_range_excl_f implicit none TYPE(MPI_Group), INTENT(IN) :: group INTEGER, INTENT(IN) :: n diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_range_incl_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_range_incl_f08.F90 index 8b5276da7f..b46e0864ba 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_range_incl_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_range_incl_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Group_range_incl_f08(group,n,ranges,newgroup,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_range_incl_f + use :: ompi_mpifh_bindings, only : ompi_group_range_incl_f implicit none TYPE(MPI_Group), INTENT(IN) :: group INTEGER, INTENT(IN) :: n diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_rank_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_rank_f08.F90 index 94d6cd357f..cd7e16157c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_rank_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_rank_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Group_rank_f08(group,rank,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_rank_f + use :: ompi_mpifh_bindings, only : ompi_group_rank_f implicit none TYPE(MPI_Group), INTENT(IN) :: group INTEGER, INTENT(OUT) :: rank diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_size_f08.F90 index 20b428f199..50bb58c836 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_size_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Group_size_f08(group,size,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_size_f + use :: ompi_mpifh_bindings, only : ompi_group_size_f implicit none TYPE(MPI_Group), INTENT(IN) :: group INTEGER, INTENT(OUT) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_translate_ranks_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_translate_ranks_f08.F90 index c776a3223a..739bdce56d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_translate_ranks_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_translate_ranks_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Group_translate_ranks_f08(group1,n,ranks1,group2,ranks2,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_translate_ranks_f + use :: ompi_mpifh_bindings, only : ompi_group_translate_ranks_f implicit none TYPE(MPI_Group), INTENT(IN) :: group1, group2 INTEGER, INTENT(IN) :: n diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_union_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_union_f08.F90 index d771ae9ea1..a11070156b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_union_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pgroup_union_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Group_union_f08(group1,group2,newgroup,ierror) use :: mpi_f08_types, only : MPI_Group - use :: mpi_f08, only : ompi_group_union_f + use :: ompi_mpifh_bindings, only : ompi_group_union_f implicit none TYPE(MPI_Group), INTENT(IN) :: group1, group2 TYPE(MPI_Group), INTENT(OUT) :: newgroup diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/piallgather_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/piallgather_f08.F90 index a77672b585..62367cb1c3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/piallgather_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/piallgather_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Iallgather_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_iallgather_f + use :: ompi_mpifh_bindings, only : ompi_iallgather_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/piallgatherv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/piallgatherv_f08.F90 index edf2f1ae92..83946b5e35 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/piallgatherv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/piallgatherv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Iallgatherv_f08(sendbuf,sendcount,sendtype,recvbuf,recvcounts,& displs,recvtype,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_iallgatherv_f + use :: ompi_mpifh_bindings, only : ompi_iallgatherv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/piallreduce_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/piallreduce_f08.F90 index cf06d67589..2a350b8de7 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/piallreduce_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/piallreduce_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Iallreduce_f08(sendbuf,recvbuf,count,datatype,op,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_iallreduce_f + use :: ompi_mpifh_bindings, only : ompi_iallreduce_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pialltoall_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pialltoall_f08.F90 index 85de5aad44..78247b4a17 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pialltoall_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pialltoall_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Ialltoall_f08(sendbuf,sendcount,sendtype,recvbuf,& recvcount,recvtype,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ialltoall_f + use :: ompi_mpifh_bindings, only : ompi_ialltoall_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pialltoallv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pialltoallv_f08.F90 index ae1004189a..71763ffe06 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pialltoallv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pialltoallv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Ialltoallv_f08(sendbuf,sendcounts,sdispls,sendtype,recvbuf,& recvcounts,rdispls,recvtype,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ialltoallv_f + use :: ompi_mpifh_bindings, only : ompi_ialltoallv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pialltoallw_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pialltoallw_f08.F90 index aee9d842b4..f49faf9ce5 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pialltoallw_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pialltoallw_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Ialltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,& recvbuf,recvcounts,rdispls,recvtypes,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ialltoallw_f + use :: ompi_mpifh_bindings, only : ompi_ialltoallw_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pibarrier_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pibarrier_f08.F90 index 3a0d99f94f..7d2d9d1611 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pibarrier_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pibarrier_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Ibarrier_f08(comm,request,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ibarrier_f + use :: ompi_mpifh_bindings, only : ompi_ibarrier_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm TYPE(MPI_Request), INTENT(OUT) :: request diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pibcast_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pibcast_f08.F90 index 867a43bda0..859864b79c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pibcast_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pibcast_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Ibcast_f08(buffer,count,datatype,root,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ibcast_f + use :: ompi_mpifh_bindings, only : ompi_ibcast_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buffer INTEGER, INTENT(IN) :: count, root diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pibsend_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pibsend_f08.F90 index 27641b6329..06bf415e9c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pibsend_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pibsend_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Ibsend_f08(buf,count,datatype,dest,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ibsend_f + use :: ompi_mpifh_bindings, only : ompi_ibsend_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/piexscan_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/piexscan_f08.F90 index 9946708587..4fa0589907 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/piexscan_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/piexscan_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Iexscan_f08(sendbuf,recvbuf,count,datatype,op,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_iexscan_f + use :: ompi_mpifh_bindings, only : ompi_iexscan_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pigather_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pigather_f08.F90 index 8c447ddc20..15cf889402 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pigather_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pigather_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Igather_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,& recvtype,root,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_igather_f + use :: ompi_mpifh_bindings, only : ompi_igather_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount, root diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pigatherv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pigatherv_f08.F90 index cde575f979..4f5230ed38 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pigatherv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pigatherv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Igatherv_f08(sendbuf,sendcount,sendtype,recvbuf,recvcounts,& displs,recvtype,root,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_igatherv_f + use :: ompi_mpifh_bindings, only : ompi_igatherv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, root diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pimrecv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pimrecv_f08.F90 index 8161477589..12e197c08c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pimrecv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pimrecv_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Imrecv_f08(buf,count,datatype,message,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Message, MPI_Request - use :: mpi_f08, only : ompi_imrecv_f + use :: ompi_mpifh_bindings, only : ompi_imrecv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_allgather_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_allgather_f08.F90 index f14fed6aa8..d77c9e4942 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_allgather_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_allgather_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Ineighbor_allgather_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ineighbor_allgather_f + use :: ompi_mpifh_bindings, only : ompi_ineighbor_allgather_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_allgatherv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_allgatherv_f08.F90 index e0a59aa5d9..1968c2272e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_allgatherv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_allgatherv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Ineighbor_allgatherv_f08(sendbuf,sendcount,sendtype,recvbuf,recvcounts,& displs,recvtype,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ineighbor_allgatherv_f + use :: ompi_mpifh_bindings, only : ompi_ineighbor_allgatherv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_alltoall_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_alltoall_f08.F90 index 2241001d4e..63519f24bc 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_alltoall_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_alltoall_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Ineighbor_alltoall_f08(sendbuf,sendcount,sendtype,recvbuf,& recvcount,recvtype,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ineighbor_alltoall_f + use :: ompi_mpifh_bindings, only : ompi_ineighbor_alltoall_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_alltoallv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_alltoallv_f08.F90 index a2be1d6447..5efdd0089d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_alltoallv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_alltoallv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Ineighbor_alltoallv_f08(sendbuf,sendcounts,sdispls,sendtype,recvbuf,& recvcounts,rdispls,recvtype,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ineighbor_alltoallv_f + use :: ompi_mpifh_bindings, only : ompi_ineighbor_alltoallv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_alltoallw_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_alltoallw_f08.F90 index 8f33c1a60f..2b5cd0a5cd 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_alltoallw_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pineighbor_alltoallw_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Ineighbor_alltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,& recvbuf,recvcounts,rdispls,recvtypes,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_ineighbor_alltoallw_f + use :: ompi_mpifh_bindings, only : ompi_ineighbor_alltoallw_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), recvcounts(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_create_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_create_f08.F90 index bca54c96fb..91d826d557 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_create_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_create_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Info_create_f08(info,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_info_create_f + use :: ompi_mpifh_bindings, only : ompi_info_create_f implicit none TYPE(MPI_Info), INTENT(OUT) :: info INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_delete_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_delete_f08.F90 index e6d783498d..ab92a99f36 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_delete_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_delete_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Info_delete_f08(info,key,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_info_delete_f + use :: ompi_mpifh_bindings, only : ompi_info_delete_f implicit none TYPE(MPI_Info), INTENT(IN) :: info CHARACTER(LEN=*), INTENT(IN) :: key diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_dup_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_dup_f08.F90 index 4ec07a1e84..7d542dc02c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_dup_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_dup_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Info_dup_f08(info,newinfo,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_info_dup_f + use :: ompi_mpifh_bindings, only : ompi_info_dup_f implicit none TYPE(MPI_Info), INTENT(IN) :: info TYPE(MPI_Info), INTENT(OUT) :: newinfo diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_free_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_free_f08.F90 index 411c299700..cccbf57f26 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_free_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_free_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Info_free_f08(info,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_info_free_f + use :: ompi_mpifh_bindings, only : ompi_info_free_f implicit none TYPE(MPI_Info), INTENT(INOUT) :: info INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_get_nkeys_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_get_nkeys_f08.F90 index 91f819457e..e5db42815c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_get_nkeys_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_get_nkeys_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Info_get_nkeys_f08(info,nkeys,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_info_get_nkeys_f + use :: ompi_mpifh_bindings, only : ompi_info_get_nkeys_f implicit none TYPE(MPI_Info), INTENT(IN) :: info INTEGER, INTENT(OUT) :: nkeys diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_get_nthkey_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_get_nthkey_f08.F90 index 22c75d1a27..ec10bf4298 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_get_nthkey_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_get_nthkey_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Info_get_nthkey_f08(info,n,key,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_info_get_nthkey_f + use :: ompi_mpifh_bindings, only : ompi_info_get_nthkey_f implicit none TYPE(MPI_Info), INTENT(IN) :: info INTEGER, INTENT(IN) :: n diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_set_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_set_f08.F90 index f168b4a68a..c9a67b4b5f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_set_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pinfo_set_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Info_set_f08(info,key,value,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_info_set_f + use :: ompi_mpifh_bindings, only : ompi_info_set_f implicit none TYPE(MPI_Info), INTENT(IN) :: info CHARACTER(LEN=*), INTENT(IN) :: key, value diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pinit_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pinit_f08.F90 index 875f6462a3..54b2ba7737 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pinit_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pinit_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Init_f08(ierror) - use :: mpi_f08, only : ompi_init_f + use :: ompi_mpifh_bindings, only : ompi_init_f implicit none INTEGER, OPTIONAL, INTENT(OUT) :: ierror integer :: c_ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pinit_thread_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pinit_thread_f08.F90 index 2e2bf5beb8..628bc8e971 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pinit_thread_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pinit_thread_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Init_thread_f08(required,provided,ierror) - use :: mpi_f08, only : ompi_init_thread_f + use :: ompi_mpifh_bindings, only : ompi_init_thread_f implicit none INTEGER, INTENT(IN) :: required INTEGER, INTENT(OUT) :: provided diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pintercomm_create_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pintercomm_create_f08.F90 index 4414bc145a..c6647c605f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pintercomm_create_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pintercomm_create_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Intercomm_create_f08(local_comm,local_leader,peer_comm,& remote_leader,tag,newintercomm,ierror) use :: mpi_f08_types, only : MPI_Comm - use :: mpi_f08, only : ompi_intercomm_create_f + use :: ompi_mpifh_bindings, only : ompi_intercomm_create_f implicit none TYPE(MPI_Comm), INTENT(IN) :: local_comm, peer_comm INTEGER, INTENT(IN) :: local_leader, remote_leader, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pirecv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pirecv_f08.F90 index 6ab6c9f5a8..1fc53d7853 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pirecv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pirecv_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Irecv_f08(buf,count,datatype,source,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_irecv_f + use :: ompi_mpifh_bindings, only : ompi_irecv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: buf INTEGER, INTENT(IN) :: count, source, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pireduce_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pireduce_f08.F90 index 90addb4c1d..9db0bbd228 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pireduce_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pireduce_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Ireduce_f08(sendbuf,recvbuf,count,datatype,op,root,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ireduce_f + use :: ompi_mpifh_bindings, only : ompi_ireduce_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: count, root diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pireduce_scatter_block_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pireduce_scatter_block_f08.F90 index 5cec9d887f..6c990007e3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pireduce_scatter_block_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pireduce_scatter_block_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Ireduce_scatter_block_f08(sendbuf,recvbuf,recvcount,datatype,op,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ireduce_scatter_block_f + use :: ompi_mpifh_bindings, only : ompi_ireduce_scatter_block_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pireduce_scatter_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pireduce_scatter_f08.F90 index f726d6bbfb..c7fd5b6cf1 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pireduce_scatter_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pireduce_scatter_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Ireduce_scatter_f08(sendbuf,recvbuf,recvcounts,datatype,op,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ireduce_scatter_f + use :: ompi_mpifh_bindings, only : ompi_ireduce_scatter_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: recvcounts(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pirsend_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pirsend_f08.F90 index 3b60db7a26..fe449809df 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pirsend_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pirsend_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Irsend_f08(buf,count,datatype,dest,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_irsend_f + use :: ompi_mpifh_bindings, only : ompi_irsend_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/piscan_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/piscan_f08.F90 index 24f72c2e4d..f4b422a205 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/piscan_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/piscan_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Iscan_f08(sendbuf,recvbuf,count,datatype,op,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_iscan_f + use :: ompi_mpifh_bindings, only : ompi_iscan_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/piscatter_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/piscatter_f08.F90 index 5c29b6bc13..5755d0cfea 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/piscatter_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/piscatter_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Iscatter_f08(sendbuf,sendcount,sendtype,recvbuf,& recvcount,recvtype,root,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_iscatter_f + use :: ompi_mpifh_bindings, only : ompi_iscatter_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount, root diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/piscatterv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/piscatterv_f08.F90 index 513e445e7c..853c489b1d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/piscatterv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/piscatterv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Iscatterv_f08(sendbuf,sendcounts,displs,sendtype,recvbuf,& recvcount,recvtype,root,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_iscatterv_f + use :: ompi_mpifh_bindings, only : ompi_iscatterv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: recvcount, root diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pisend_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pisend_f08.F90 index 3f5e864abe..0d9cd32ea6 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pisend_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pisend_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Isend_f08(buf,count,datatype,dest,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_isend_f + use :: ompi_mpifh_bindings, only : ompi_isend_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pissend_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pissend_f08.F90 index dbe252e9ba..77a03003f7 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pissend_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pissend_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Issend_f08(buf,count,datatype,dest,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_issend_f + use :: ompi_mpifh_bindings, only : ompi_issend_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/plookup_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/plookup_name_f08.F90 index 9096820a1e..c121b0f5d9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/plookup_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/plookup_name_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Lookup_name_f08(service_name,info,port_name,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_lookup_name_f + use :: ompi_mpifh_bindings, only : ompi_lookup_name_f implicit none CHARACTER(LEN=*), INTENT(IN) :: service_name TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pmprobe_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pmprobe_f08.F90 index e87680c799..23f9c74fd9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pmprobe_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pmprobe_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2010-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Mprobe_f08(source,tag,comm,message,status,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Message, MPI_Status - use :: mpi_f08, only : ompi_mprobe_f + use :: ompi_mpifh_bindings, only : ompi_mprobe_f implicit none INTEGER, INTENT(IN) :: source, tag TYPE(MPI_Comm), INTENT(IN) :: comm diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pmrecv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pmrecv_f08.F90 index a38704af0d..35d085520b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pmrecv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pmrecv_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Mrecv_f08(buf,count,datatype,message,status,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Message, MPI_Status - use :: mpi_f08, only : ompi_mrecv_f + use :: ompi_mpifh_bindings, only : ompi_mrecv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_allgather_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_allgather_f08.F90 index b983dbc169..10f7d3ab2a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_allgather_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_allgather_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Neighbor_allgather_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_neighbor_allgather_f + use :: ompi_mpifh_bindings, only : ompi_neighbor_allgather_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_allgatherv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_allgatherv_f08.F90 index 601a6e4b38..48d25a43d3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_allgatherv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_allgatherv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Neighbor_allgatherv_f08(sendbuf,sendcount,sendtype,recvbuf,recvcounts,& displs,recvtype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_neighbor_allgatherv_f + use :: ompi_mpifh_bindings, only : ompi_neighbor_allgatherv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_alltoall_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_alltoall_f08.F90 index 90e3872b0d..844173d121 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_alltoall_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_alltoall_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Neighbor_alltoall_f08(sendbuf,sendcount,sendtype,recvbuf,& recvcount,recvtype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_neighbor_alltoall_f + use :: ompi_mpifh_bindings, only : ompi_neighbor_alltoall_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_alltoallv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_alltoallv_f08.F90 index ff66ea28e9..58a1a1cff1 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_alltoallv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_alltoallv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Neighbor_alltoallv_f08(sendbuf,sendcounts,sdispls,sendtype,recvbuf,& recvcounts,rdispls,recvtype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_neighbor_alltoallv_f + use :: ompi_mpifh_bindings, only : ompi_neighbor_alltoallv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), sdispls(*), recvcounts(*), rdispls(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_alltoallw_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_alltoallw_f08.F90 index e1a26ad871..7d5535afda 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_alltoallw_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pneighbor_alltoallw_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Neighbor_alltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,& recvbuf,recvcounts,rdispls,recvtypes,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_neighbor_alltoallw_f + use :: ompi_mpifh_bindings, only : ompi_neighbor_alltoallw_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcounts(*), recvcounts(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pop_free_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pop_free_f08.F90 index f1446d73a2..f190ae7007 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pop_free_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pop_free_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Op_free_f08(op,ierror) use :: mpi_f08_types, only : MPI_Op - use :: mpi_f08, only : ompi_op_free_f + use :: ompi_mpifh_bindings, only : ompi_op_free_f implicit none TYPE(MPI_Op), INTENT(INOUT) :: op INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/popen_port_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/popen_port_f08.F90 index 76d570a296..399e4991a4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/popen_port_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/popen_port_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Open_port_f08(info,port_name,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_open_port_f + use :: ompi_mpifh_bindings, only : ompi_open_port_f implicit none TYPE(MPI_Info), INTENT(IN) :: info CHARACTER(LEN=*), INTENT(OUT) :: port_name diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ppack_external_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ppack_external_f08.F90 index 960ab782d7..a5bf98e41f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ppack_external_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ppack_external_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Pack_external_f08(datarep,inbuf,incount,datatype,outbuf,outsize, & position,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_pack_external_f + use :: ompi_mpifh_bindings, only : ompi_pack_external_f implicit none CHARACTER(LEN=*), INTENT(IN) :: datarep OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ppack_external_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ppack_external_size_f08.F90 index 013999e0a1..a6b4e2e7b6 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ppack_external_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ppack_external_size_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Pack_external_size_f08(datarep,incount,datatype,size,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_pack_external_size_f + use :: ompi_mpifh_bindings, only : ompi_pack_external_size_f implicit none CHARACTER(LEN=*), INTENT(IN) :: datarep INTEGER, INTENT(IN) :: incount diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ppack_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ppack_f08.F90 index 92f58f2556..7860b1cce9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ppack_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ppack_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Pack_f08(inbuf,incount,datatype,outbuf,outsize,position,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_pack_f + use :: ompi_mpifh_bindings, only : ompi_pack_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf INTEGER, INTENT(IN) :: incount, outsize diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ppack_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ppack_size_f08.F90 index 5f13e7908e..eb67787774 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ppack_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ppack_size_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Pack_size_f08(incount,datatype,comm,size,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_pack_size_f + use :: ompi_mpifh_bindings, only : ompi_pack_size_f implicit none INTEGER, INTENT(IN) :: incount TYPE(MPI_Datatype), INTENT(IN) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ppcontrol_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ppcontrol_f08.F90 index 23cbabf35b..3322dae9a6 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ppcontrol_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ppcontrol_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Pcontrol_f08(level) - use :: mpi_f08, only : ompi_pcontrol_f + use :: ompi_mpifh_bindings, only : ompi_pcontrol_f implicit none INTEGER, INTENT(IN) :: level diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pprobe_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pprobe_f08.F90 index 6a3f5b64ce..ef2697c242 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pprobe_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pprobe_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Probe_f08(source,tag,comm,status,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Status - use :: mpi_f08, only : ompi_probe_f + use :: ompi_mpifh_bindings, only : ompi_probe_f implicit none INTEGER, INTENT(IN) :: source, tag TYPE(MPI_Comm), INTENT(IN) :: comm diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ppublish_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ppublish_name_f08.F90 index cb122fff1b..714b059797 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ppublish_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ppublish_name_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Publish_name_f08(service_name,info,port_name,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_publish_name_f + use :: ompi_mpifh_bindings, only : ompi_publish_name_f implicit none TYPE(MPI_Info), INTENT(IN) :: info CHARACTER(LEN=*), INTENT(IN) :: service_name, port_name diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pput_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pput_f08.F90 index 8cdbf00ab7..ced762447f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pput_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pput_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Put_f08(origin_addr,origin_count,origin_datatype,target_rank,& target_disp,target_count,target_datatype,win,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_put_f + use :: ompi_mpifh_bindings, only : ompi_put_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr INTEGER, INTENT(IN) :: origin_count, target_rank, target_count diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pquery_thread_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pquery_thread_f08.F90 index a614b8e3d0..a74fea3f95 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pquery_thread_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pquery_thread_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Query_thread_f08(provided,ierror) - use :: mpi_f08, only : ompi_query_thread_f + use :: ompi_mpifh_bindings, only : ompi_query_thread_f implicit none INTEGER, INTENT(OUT) :: provided INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/praccumulate_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/praccumulate_f08.F90 index 6c54f8b19a..cea5d2f2dc 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/praccumulate_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/praccumulate_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -11,7 +13,7 @@ subroutine PMPI_Raccumulate_f08(origin_addr,origin_count,origin_datatype,& target_rank,target_disp,target_count, & target_datatype,op,win,request, ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Win, MPI_Request, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_raccumulate_f + use :: ompi_mpifh_bindings, only : ompi_raccumulate_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr INTEGER, INTENT(IN) :: origin_count, target_rank, target_count diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/precv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/precv_f08.F90 index 51b9f39f40..0baccbcf63 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/precv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/precv_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Recv_f08(buf,count,datatype,source,tag,comm,status,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Status - use :: mpi_f08, only : ompi_recv_f + use :: ompi_mpifh_bindings, only : ompi_recv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf INTEGER, INTENT(IN) :: count, source, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/precv_init_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/precv_init_f08.F90 index c88b56a2bc..ac3a8da188 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/precv_init_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/precv_init_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Recv_init_f08(buf,count,datatype,source,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_recv_init_f + use :: ompi_mpifh_bindings, only : ompi_recv_init_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, source, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/preduce_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/preduce_f08.F90 index 512d71e34b..c97fa6aa96 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/preduce_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/preduce_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Reduce_f08(sendbuf,recvbuf,count,datatype,op,root,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm - use :: mpi_f08, only : ompi_reduce_f + use :: ompi_mpifh_bindings, only : ompi_reduce_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: count, root diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/preduce_local_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/preduce_local_f08.F90 index 00cdba8859..2a0cc23507 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/preduce_local_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/preduce_local_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Reduce_local_f08(inbuf,inoutbuf,count,datatype,op,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op - use :: mpi_f08, only : ompi_reduce_local_f + use :: ompi_mpifh_bindings, only : ompi_reduce_local_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, inoutbuf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/preduce_scatter_block_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/preduce_scatter_block_f08.F90 index 0204e6e2ed..d4c52a6355 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/preduce_scatter_block_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/preduce_scatter_block_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Reduce_scatter_block_f08(sendbuf,recvbuf,recvcount,datatype,op,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm - use :: mpi_f08, only : ompi_reduce_scatter_block_f + use :: ompi_mpifh_bindings, only : ompi_reduce_scatter_block_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/preduce_scatter_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/preduce_scatter_f08.F90 index 63fcf0b8a2..5f3d1fdfc1 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/preduce_scatter_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/preduce_scatter_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Reduce_scatter_f08(sendbuf,recvbuf,recvcounts,datatype,op,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm - use :: mpi_f08, only : ompi_reduce_scatter_f + use :: ompi_mpifh_bindings, only : ompi_reduce_scatter_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: recvcounts(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pregister_datarep_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pregister_datarep_f08.F90 index e64f0511de..8d635342c7 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pregister_datarep_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pregister_datarep_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -13,7 +15,7 @@ subroutine PMPI_Register_datarep_f08(datarep,read_conversion_fn,write_conversion use :: mpi_f08_types, only : MPI_ADDRESS_KIND use :: mpi_f08_interfaces_callbacks, only : MPI_Datarep_conversion_function use :: mpi_f08_interfaces_callbacks, only : MPI_Datarep_extent_function - use :: mpi_f08, only : ompi_register_datarep_f + use :: ompi_mpifh_bindings, only : ompi_register_datarep_f implicit none PROCEDURE(MPI_Datarep_conversion_function) :: read_conversion_fn PROCEDURE(MPI_Datarep_conversion_function) :: write_conversion_fn diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/prequest_free_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/prequest_free_f08.F90 index 1cbb37a011..24a80ce9ce 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/prequest_free_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/prequest_free_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Request_free_f08(request,ierror) use :: mpi_f08_types, only : MPI_Request - use :: mpi_f08, only : ompi_request_free_f + use :: ompi_mpifh_bindings, only : ompi_request_free_f implicit none TYPE(MPI_Request), INTENT(INOUT) :: request INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/prget_accumulate_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/prget_accumulate_f08.F90 index 1a40ebc470..90eb3ffd8c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/prget_accumulate_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/prget_accumulate_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -12,7 +14,7 @@ subroutine PMPI_Rget_accumulate_f08(origin_addr,origin_count,origin_datatype,& target_rank,target_disp,target_count, & target_datatype,op,win,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Win, MPI_Request, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_rget_accumulate_f + use :: ompi_mpifh_bindings, only : ompi_rget_accumulate_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr INTEGER, INTENT(IN) :: origin_count, result_count, target_rank, target_count diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/prget_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/prget_f08.F90 index 89f76323ec..24982b4388 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/prget_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/prget_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Rget_f08(origin_addr,origin_count,origin_datatype,target_rank,& target_disp,target_count,target_datatype,win,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Win, MPI_Request, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_rget_f + use :: ompi_mpifh_bindings, only : ompi_rget_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr INTEGER, INTENT(IN) :: origin_count, target_rank, target_count diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/prput_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/prput_f08.F90 index d95742816c..bf0eb59270 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/prput_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/prput_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Rput_f08(origin_addr,origin_count,origin_datatype,target_rank,& target_disp,target_count,target_datatype,win,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Win, MPI_Request, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_rput_f + use :: ompi_mpifh_bindings, only : ompi_rput_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: origin_addr INTEGER, INTENT(IN) :: origin_count, target_rank, target_count diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/prsend_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/prsend_f08.F90 index c7899dd84a..66cb5d0e5a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/prsend_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/prsend_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Rsend_f08(buf,count,datatype,dest,tag,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_rsend_f + use :: ompi_mpifh_bindings, only : ompi_rsend_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/prsend_init_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/prsend_init_f08.F90 index 1366c8fe2f..1b65ed987d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/prsend_init_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/prsend_init_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Rsend_init_f08(buf,count,datatype,dest,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_rsend_init_f + use :: ompi_mpifh_bindings, only : ompi_rsend_init_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pscan_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pscan_f08.F90 index 96a49f6c61..73e5cf2a74 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pscan_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pscan_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Scan_f08(sendbuf,recvbuf,count,datatype,op,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm - use :: mpi_f08, only : ompi_scan_f + use :: ompi_mpifh_bindings, only : ompi_scan_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pscatter_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pscatter_f08.F90 index 6751eec5a7..eaf46d6f75 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pscatter_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pscatter_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Scatter_f08(sendbuf,sendcount,sendtype,recvbuf,& recvcount,recvtype,root,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_scatter_f + use :: ompi_mpifh_bindings, only : ompi_scatter_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount, root diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pscatterv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pscatterv_f08.F90 index 35abe9d778..7fcbd0df39 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pscatterv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pscatterv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Scatterv_f08(sendbuf,sendcounts,displs,sendtype,recvbuf,& recvcount,recvtype,root,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_scatterv_f + use :: ompi_mpifh_bindings, only : ompi_scatterv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: recvcount, root diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/psend_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/psend_f08.F90 index 12b884fb3f..6467dbced7 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/psend_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/psend_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Send_f08(buf,count,datatype,dest,tag,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_send_f + use :: ompi_mpifh_bindings, only : ompi_send_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/psend_init_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/psend_init_f08.F90 index 77fb89de0f..7ca1544ee3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/psend_init_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/psend_init_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Send_init_f08(buf,count,datatype,dest,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_send_init_f + use :: ompi_mpifh_bindings, only : ompi_send_init_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/psendrecv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/psendrecv_f08.F90 index 8e79346539..b01fe08be7 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/psendrecv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/psendrecv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Sendrecv_f08(sendbuf,sendcount,sendtype,dest,sendtag,recvbuf, & recvcount,recvtype,source,recvtag,comm,status,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Status - use :: mpi_f08, only : ompi_sendrecv_f + use :: ompi_mpifh_bindings, only : ompi_sendrecv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, dest, sendtag, recvcount, source, recvtag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/psendrecv_replace_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/psendrecv_replace_f08.F90 index 73d4e6fcdc..1bf25cffe0 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/psendrecv_replace_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/psendrecv_replace_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine PMPI_Sendrecv_replace_f08(buf,count,datatype,dest,sendtag,source, & recvtag,comm,status,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Status - use :: mpi_f08, only : ompi_sendrecv_replace_f + use :: ompi_mpifh_bindings, only : ompi_sendrecv_replace_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, sendtag, source, recvtag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pssend_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pssend_f08.F90 index db40bb2757..970d9f9def 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pssend_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pssend_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Ssend_f08(buf,count,datatype,dest,tag,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_ssend_f + use :: ompi_mpifh_bindings, only : ompi_ssend_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pssend_init_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pssend_init_f08.F90 index 83c3806a9b..f1f89d533f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pssend_init_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pssend_init_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Ssend_init_f08(buf,count,datatype,dest,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ssend_init_f + use :: ompi_mpifh_bindings, only : ompi_ssend_init_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pstart_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pstart_f08.F90 index ff0470c119..86acfc5b5d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pstart_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pstart_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Start_f08(request,ierror) use :: mpi_f08_types, only : MPI_Request - use :: mpi_f08, only : ompi_start_f + use :: ompi_mpifh_bindings, only : ompi_start_f implicit none TYPE(MPI_Request), INTENT(INOUT) :: request INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pstartall_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pstartall_f08.F90 index fb5e9e4858..d4b7bacf44 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pstartall_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pstartall_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Startall_f08(count,array_of_requests,ierror) use :: mpi_f08_types, only : MPI_Request - use :: mpi_f08, only : ompi_startall_f + use :: ompi_mpifh_bindings, only : ompi_startall_f implicit none INTEGER, INTENT(IN) :: count TYPE(MPI_Request), INTENT(INOUT) :: array_of_requests(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pstatus_set_elements_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pstatus_set_elements_f08.F90 index 851da900d3..42d5a85ffe 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pstatus_set_elements_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pstatus_set_elements_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Status_set_elements_f08(status,datatype,count,ierror) use :: mpi_f08_types, only : MPI_Status, MPI_Datatype - use :: mpi_f08, only : ompi_status_set_elements_f + use :: ompi_mpifh_bindings, only : ompi_status_set_elements_f implicit none TYPE(MPI_Status), INTENT(INOUT) :: status TYPE(MPI_Datatype), INTENT(IN) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pstatus_set_elements_x_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pstatus_set_elements_x_f08.F90 index 26590973ab..82b63714b8 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pstatus_set_elements_x_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pstatus_set_elements_x_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Status_set_elements_x_f08(status,datatype,count,ierror) use :: mpi_f08_types, only : MPI_Status, MPI_Datatype, MPI_COUNT_KIND - use :: mpi_f08, only : ompi_status_set_elements_x_f + use :: ompi_mpifh_bindings, only : ompi_status_set_elements_x_f implicit none TYPE(MPI_Status), INTENT(INOUT) :: status TYPE(MPI_Datatype), INTENT(IN) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptopo_test_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptopo_test_f08.F90 index 8bd474d47f..e4c0228dda 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptopo_test_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptopo_test_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Topo_test_f08(comm,status,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Status - use :: mpi_f08, only : ompi_topo_test_f + use :: ompi_mpifh_bindings, only : ompi_topo_test_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(OUT) :: status diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_commit_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_commit_f08.F90 index d608e1afd8..33b880c851 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_commit_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_commit_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_commit_f08(datatype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_commit_f + use :: ompi_mpifh_bindings, only : ompi_type_commit_f implicit none TYPE(MPI_Datatype), INTENT(INOUT) :: datatype INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_contiguous_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_contiguous_f08.F90 index 829fb56ef5..eabcecae48 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_contiguous_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_contiguous_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_contiguous_f08(count,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_contiguous_f + use :: ompi_mpifh_bindings, only : ompi_type_contiguous_f implicit none INTEGER, INTENT(IN) :: count TYPE(MPI_Datatype), INTENT(IN) :: oldtype diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_darray_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_darray_f08.F90 index e6137066bd..aff0716869 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_darray_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_darray_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_create_darray_f08(size,rank,ndims,& array_of_gsizes,array_of_distribs,array_of_dargs,array_of_psizes,& order,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_create_darray_f + use :: ompi_mpifh_bindings, only : ompi_type_create_darray_f implicit none INTEGER, INTENT(IN) :: size, rank, ndims, order INTEGER, INTENT(IN) :: array_of_gsizes(*), array_of_distribs(*), array_of_dargs(*), array_of_psizes(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_f90_complex_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_f90_complex_f08.F90 index b523cf61ab..6400d8a63e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_f90_complex_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_f90_complex_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_create_f90_complex_f08(p,r,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_create_f90_complex_f + use :: ompi_mpifh_bindings, only : ompi_type_create_f90_complex_f implicit none INTEGER, INTENT(IN) :: p, r TYPE(MPI_Datatype), INTENT(OUT) :: newtype diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_f90_integer_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_f90_integer_f08.F90 index def575100d..4a5b5de7a8 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_f90_integer_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_f90_integer_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_create_f90_integer_f08(r,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_create_f90_integer_f + use :: ompi_mpifh_bindings, only : ompi_type_create_f90_integer_f implicit none INTEGER, INTENT(IN) :: r TYPE(MPI_Datatype), INTENT(OUT) :: newtype diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_f90_real_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_f90_real_f08.F90 index 5ef39303ad..1dc6aa3da0 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_f90_real_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_f90_real_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_create_f90_real_f08(p,r,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_create_f90_real_f + use :: ompi_mpifh_bindings, only : ompi_type_create_f90_real_f implicit none INTEGER, INTENT(IN) :: p, r TYPE(MPI_Datatype), INTENT(OUT) :: newtype diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_hindexed_block_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_hindexed_block_f08.F90 index 7d9de21c68..af73a97edc 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_hindexed_block_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_hindexed_block_f08.F90 @@ -5,12 +5,14 @@ ! reserved. ! Copyright (c) 2012 Inria. All rights reserved. ! Copyright (c) 2012 Cisco Systems, Inc. All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_create_hindexed_block_f08(count,blocklength, & array_of_displacements,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_create_hindexed_block_f + use :: ompi_mpifh_bindings, only : ompi_type_create_hindexed_block_f implicit none INTEGER, INTENT(IN) :: count, blocklength INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: array_of_displacements(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_hindexed_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_hindexed_f08.F90 index 3b5b905cf1..766309222f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_hindexed_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_hindexed_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_create_hindexed_f08(count,array_of_blocklengths, & array_of_displacements,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_create_hindexed_f + use :: ompi_mpifh_bindings, only : ompi_type_create_hindexed_f implicit none INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: array_of_blocklengths(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_hvector_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_hvector_f08.F90 index 7d3841f5fd..39c150fd8b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_hvector_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_hvector_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_create_hvector_f08(count,blocklength,stride,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_create_hvector_f + use :: ompi_mpifh_bindings, only : ompi_type_create_hvector_f implicit none INTEGER, INTENT(IN) :: count, blocklength INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: stride diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_indexed_block_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_indexed_block_f08.F90 index 18c1c900a8..af902e64dd 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_indexed_block_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_indexed_block_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_create_indexed_block_f08(count,blocklength, & array_of_displacements,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_create_indexed_block_f + use :: ompi_mpifh_bindings, only : ompi_type_create_indexed_block_f implicit none INTEGER, INTENT(IN) :: count, blocklength INTEGER, INTENT(IN) :: array_of_displacements(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_keyval_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_keyval_f08.F90 index 86afbd9283..3b9205ad69 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_keyval_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_keyval_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -13,7 +15,7 @@ subroutine PMPI_Type_create_keyval_f08(type_copy_attr_fn,type_delete_attr_fn,& use :: mpi_f08_types, only : MPI_ADDRESS_KIND use :: mpi_f08_interfaces_callbacks, only : MPI_Type_copy_attr_function use :: mpi_f08_interfaces_callbacks, only : MPI_Type_delete_attr_function - use :: mpi_f08, only : ompi_type_create_keyval_f + use :: ompi_mpifh_bindings, only : ompi_type_create_keyval_f implicit none PROCEDURE(MPI_Type_copy_attr_function) :: type_copy_attr_fn PROCEDURE(MPI_Type_delete_attr_function) :: type_delete_attr_fn diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_resized_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_resized_f08.F90 index 75a38ea0f7..d6e8af8cd5 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_resized_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_resized_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_create_resized_f08(oldtype,lb,extent,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_create_resized_f + use :: ompi_mpifh_bindings, only : ompi_type_create_resized_f implicit none INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: lb, extent TYPE(MPI_Datatype), INTENT(IN) :: oldtype diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_struct_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_struct_f08.F90 index 419f91265b..32aef15576 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_struct_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_struct_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_create_struct_f08(count,array_of_blocklengths,array_of_displacements, & array_of_types,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_create_struct_f + use :: ompi_mpifh_bindings, only : ompi_type_create_struct_f implicit none INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: array_of_blocklengths(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_subarray_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_subarray_f08.F90 index 089c037736..5e77c98232 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_subarray_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_create_subarray_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_create_subarray_f08(ndims,array_of_sizes,array_of_subsizes, & array_of_starts,order,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_create_subarray_f + use :: ompi_mpifh_bindings, only : ompi_type_create_subarray_f implicit none INTEGER, INTENT(IN) :: ndims, order INTEGER, INTENT(IN) :: array_of_sizes(*), array_of_subsizes(*), array_of_starts(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_delete_attr_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_delete_attr_f08.F90 index 7a862f5265..c0996b74fc 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_delete_attr_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_delete_attr_f08.F90 @@ -9,7 +9,7 @@ subroutine PMPI_Type_delete_attr_f08(datatype,type_keyval,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_delete_attr_f + use :: ompi_mpifh_bindings, only : ompi_type_delete_attr_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER, INTENT(IN) :: type_keyval diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_dup_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_dup_f08.F90 index 1afa8e3d0c..b2751ba74e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_dup_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_dup_f08.F90 @@ -9,7 +9,7 @@ subroutine PMPI_Type_dup_f08(oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_dup_f + use :: ompi_mpifh_bindings, only : ompi_type_dup_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: oldtype TYPE(MPI_Datatype), INTENT(OUT) :: newtype diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_free_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_free_f08.F90 index 5a2409563e..4a649af19e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_free_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_free_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_free_f08(datatype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_free_f + use :: ompi_mpifh_bindings, only : ompi_type_free_f implicit none TYPE(MPI_Datatype), INTENT(INOUT) :: datatype INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_free_keyval_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_free_keyval_f08.F90 index 4067ef5b2b..079d902d0f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_free_keyval_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_free_keyval_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_free_keyval_f08(type_keyval,ierror) - use :: mpi_f08, only : ompi_type_free_keyval_f + use :: ompi_mpifh_bindings, only : ompi_type_free_keyval_f implicit none INTEGER, INTENT(INOUT) :: type_keyval INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_contents_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_contents_f08.F90 index 9758e37537..d6b200560a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_contents_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_contents_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_get_contents_f08(datatype,max_integers,max_addresses, & max_datatypes,array_of_integers,array_of_addresses, & array_of_datatypes,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_get_contents_f + use :: ompi_mpifh_bindings, only : ompi_type_get_contents_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER, INTENT(IN) :: max_integers, max_addresses, max_datatypes diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_envelope_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_envelope_f08.F90 index 9de0e0c44f..042a92c012 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_envelope_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_envelope_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_get_envelope_f08(datatype,num_integers,num_addresses, & num_datatypes,combiner,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_get_envelope_f + use :: ompi_mpifh_bindings, only : ompi_type_get_envelope_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER, INTENT(OUT) :: num_integers, num_addresses, num_datatypes, combiner diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_extent_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_extent_f08.F90 index cdc7c73b26..7a034233c0 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_extent_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_extent_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_get_extent_f08(datatype,lb,extent,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_get_extent_f + use :: ompi_mpifh_bindings, only : ompi_type_get_extent_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: lb, extent diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_extent_x_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_extent_x_f08.F90 index 94b777379d..5e8e270eba 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_extent_x_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_extent_x_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_get_extent_x_f08(datatype,lb,extent,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND, MPI_COUNT_KIND - use :: mpi_f08, only : ompi_type_get_extent_x_f + use :: ompi_mpifh_bindings, only : ompi_type_get_extent_x_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: lb, extent diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_name_f08.F90 index 8947f690ab..18398f7c36 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_name_f08.F90 @@ -9,7 +9,7 @@ subroutine PMPI_Type_get_name_f08(datatype,type_name,resultlen,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_MAX_OBJECT_NAME - use :: mpi_f08, only : ompi_type_get_name_f + use :: ompi_mpifh_bindings, only : ompi_type_get_name_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype CHARACTER(LEN=*), INTENT(OUT) :: type_name diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_true_extent_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_true_extent_f08.F90 index d74bdbd5c2..fcf3fb64fb 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_true_extent_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_true_extent_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_get_true_extent_f08(datatype,true_lb,true_extent,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_get_true_extent_f + use :: ompi_mpifh_bindings, only : ompi_type_get_true_extent_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: true_lb, true_extent diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_true_extent_x_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_true_extent_x_f08.F90 index cf8ed24d5b..a4efb6f3fe 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_true_extent_x_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_get_true_extent_x_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_get_true_extent_x_f08(datatype,true_lb,true_extent,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND, MPI_COUNT_KIND - use :: mpi_f08, only : ompi_type_get_true_extent_x_f + use :: ompi_mpifh_bindings, only : ompi_type_get_true_extent_x_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: true_lb, true_extent diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_indexed_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_indexed_f08.F90 index 2c0afa10b2..a3a1f21b71 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_indexed_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_indexed_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_indexed_f08(count,array_of_blocklengths, & array_of_displacements,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_indexed_f + use :: ompi_mpifh_bindings, only : ompi_type_indexed_f implicit none INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: array_of_blocklengths(count), array_of_displacements(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_match_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_match_size_f08.F90 index 1b4219760e..162137ada6 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_match_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_match_size_f08.F90 @@ -9,7 +9,7 @@ subroutine PMPI_Type_match_size_f08(typeclass,size,datatype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_match_size_f + use :: ompi_mpifh_bindings, only : ompi_type_match_size_f implicit none INTEGER, INTENT(IN) :: typeclass, size TYPE(MPI_Datatype), INTENT(OUT) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_set_attr_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_set_attr_f08.F90 index 92db37557a..525f1ea03e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_set_attr_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_set_attr_f08.F90 @@ -9,7 +9,7 @@ subroutine PMPI_Type_set_attr_f08(datatype,type_keyval,attribute_val,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_set_attr_f + use :: ompi_mpifh_bindings, only : ompi_type_set_attr_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER, INTENT(IN) :: type_keyval diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_set_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_set_name_f08.F90 index a6ae8a17ce..0b0b7b9927 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_set_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_set_name_f08.F90 @@ -9,7 +9,7 @@ subroutine PMPI_Type_set_name_f08(datatype,type_name,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_set_name_f + use :: ompi_mpifh_bindings, only : ompi_type_set_name_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype CHARACTER(LEN=*), INTENT(IN) :: type_name diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_size_f08.F90 index 7c44708b22..fa4725bb9c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_size_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_size_f08(datatype,size,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_size_f + use :: ompi_mpifh_bindings, only : ompi_type_size_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER, INTENT(OUT) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_size_x_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_size_x_f08.F90 index e5344f50c2..3739b278ce 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_size_x_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_size_x_f08.F90 @@ -3,13 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. -! Copyright (c) 2015 Research Organization for Information Science +! Copyright (c) 2015-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_size_x_f08(datatype,size,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_COUNT_KIND - use :: mpi_f08, only : ompi_type_size_x_f + use :: ompi_mpifh_bindings, only : ompi_type_size_x_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_vector_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_vector_f08.F90 index de3edb5a13..0a6b554f3e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/ptype_vector_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/ptype_vector_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Type_vector_f08(count,blocklength,stride,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_vector_f + use :: ompi_mpifh_bindings, only : ompi_type_vector_f implicit none INTEGER, INTENT(IN) :: count, blocklength, stride TYPE(MPI_Datatype), INTENT(IN) :: oldtype diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/punpack_external_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/punpack_external_f08.F90 index 5331b7952e..c089ece2e3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/punpack_external_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/punpack_external_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Unpack_external_f08(datarep,inbuf,insize,position,outbuf,outcount,datatype,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_unpack_external_f + use :: ompi_mpifh_bindings, only : ompi_unpack_external_f implicit none CHARACTER(LEN=*), INTENT(IN) :: datarep OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/punpack_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/punpack_f08.F90 index 0ced2e6f26..f22b87610d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/punpack_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/punpack_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Unpack_f08(inbuf,insize,position,outbuf,outcount,datatype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_unpack_f + use :: ompi_mpifh_bindings, only : ompi_unpack_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf INTEGER, INTENT(IN) :: insize, outcount diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/punpublish_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/punpublish_name_f08.F90 index 6c2ced41f2..d000993ee2 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/punpublish_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/punpublish_name_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Unpublish_name_f08(service_name,info,port_name,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_unpublish_name_f + use :: ompi_mpifh_bindings, only : ompi_unpublish_name_f implicit none CHARACTER(LEN=*), INTENT(IN) :: service_name, port_name TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwait_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwait_f08.F90 index 7ac141735b..9e41083603 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwait_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwait_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Wait_f08(request,status,ierror) use :: mpi_f08_types, only : MPI_Request, MPI_Status - use :: mpi_f08, only : ompi_wait_f + use :: ompi_mpifh_bindings, only : ompi_wait_f implicit none TYPE(MPI_Request), INTENT(INOUT) :: request TYPE(MPI_Status), INTENT(OUT) :: status diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwaitall_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwaitall_f08.F90 index 2768fb3088..2617340584 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwaitall_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwaitall_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Waitall_f08(count,array_of_requests,array_of_statuses,ierror) use :: mpi_f08_types, only : MPI_Request, MPI_Status - use :: mpi_f08, only : ompi_waitall_f + use :: ompi_mpifh_bindings, only : ompi_waitall_f implicit none INTEGER, INTENT(IN) :: count TYPE(MPI_Request), INTENT(INOUT) :: array_of_requests(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwaitany_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwaitany_f08.F90 index 54956d8092..5b4420b66d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwaitany_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwaitany_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Waitany_f08(count,array_of_requests,index,status,ierror) use :: mpi_f08_types, only : MPI_Request, MPI_Status - use :: mpi_f08, only : ompi_waitany_f + use :: ompi_mpifh_bindings, only : ompi_waitany_f implicit none INTEGER, INTENT(IN) :: count TYPE(MPI_Request), INTENT(INOUT) :: array_of_requests(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwaitsome_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwaitsome_f08.F90 index 71e368f534..d68bf7eea0 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwaitsome_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwaitsome_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Waitsome_f08(incount,array_of_requests,outcount, & array_of_indices,array_of_statuses,ierror) use :: mpi_f08_types, only : MPI_Request, MPI_Status - use :: mpi_f08, only : ompi_waitsome_f + use :: ompi_mpifh_bindings, only : ompi_waitsome_f implicit none INTEGER, INTENT(IN) :: incount TYPE(MPI_Request), INTENT(INOUT) :: array_of_requests(incount) diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_allocate_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_allocate_f08.F90 index e03dfc23fb..418be004d3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_allocate_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_allocate_f08.F90 @@ -5,13 +5,15 @@ ! All Rights reserved. ! Copyright (c) 2004-2014 High Performance Computing Center Stuttgart, ! University of Stuttgart. All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_allocate_f08(size, disp_unit, info, comm, & baseptr, win, ierror) USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR use :: mpi_f08_types, only : MPI_Info, MPI_Comm, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_win_allocate_f + use :: ompi_mpifh_bindings, only : ompi_win_allocate_f implicit none INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(IN) :: size INTEGER, INTENT(IN) :: disp_unit diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_allocate_shared_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_allocate_shared_f08.F90 index 1372b17354..1d11b7e3c1 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_allocate_shared_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_allocate_shared_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_allocate_shared_f08(size, disp_unit, info, comm, & baseptr, win, ierror) USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR use :: mpi_f08_types, only : MPI_Info, MPI_Comm, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_win_allocate_shared_f + use :: ompi_mpifh_bindings, only : ompi_win_allocate_shared_f implicit none INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(IN) :: size INTEGER, INTENT(IN) :: disp_unit diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_attach_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_attach_f08.F90 index 4114a822d0..9cde0bf422 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_attach_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_attach_f08.F90 @@ -1,6 +1,6 @@ ! -*- f90 -*- ! -! Copyright (c) 2015 Research Organization for Information Science +! Copyright (c) 2015-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ @@ -8,7 +8,7 @@ subroutine PMPI_Win_attach_f08(win,base,size,ierror) use :: mpi_f08_types, only : MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_win_attach_f + use :: ompi_mpifh_bindings, only : ompi_win_attach_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_call_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_call_errhandler_f08.F90 index 8b42520611..879e5ad774 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_call_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_call_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_call_errhandler_f08(win,errorcode,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_call_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_win_call_errhandler_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, INTENT(IN) :: errorcode diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_complete_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_complete_f08.F90 index 3effdf0673..7481c80240 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_complete_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_complete_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_complete_f08(win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_complete_f + use :: ompi_mpifh_bindings, only : ompi_win_complete_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_create_dynamic_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_create_dynamic_f08.F90 index b36900dcbb..f00b05c6e6 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_create_dynamic_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_create_dynamic_f08.F90 @@ -1,6 +1,6 @@ ! -*- f90 -*- ! -! Copyright (c) 2015 Research Organization for Information Science +! Copyright (c) 2015-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ @@ -8,7 +8,7 @@ subroutine PMPI_Win_create_dynamic_f08(info,comm,win,ierror) use :: mpi_f08_types, only : MPI_Info, MPI_Comm, MPI_Win - use :: mpi_f08, only : ompi_win_create_dynamic_f + use :: ompi_mpifh_bindings, only : ompi_win_create_dynamic_f implicit none TYPE(MPI_Info), INTENT(IN) :: info TYPE(MPI_Comm), INTENT(IN) :: comm diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_create_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_create_errhandler_f08.F90 index af4a7eabeb..f38c6be6f8 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_create_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_create_errhandler_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -11,7 +13,7 @@ subroutine PMPI_Win_create_errhandler_f08(win_errhandler_fn,errhandler,ierror) use, intrinsic :: iso_c_binding, only: c_funptr, c_funloc use :: mpi_f08_types, only : MPI_Errhandler use :: mpi_f08_interfaces_callbacks, only : MPI_Win_errhandler_function - use :: mpi_f08, only : ompi_win_create_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_win_create_errhandler_f implicit none PROCEDURE(MPI_Win_errhandler_function) :: win_errhandler_fn TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_create_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_create_f08.F90 index 0e2bf17539..6c0d72609d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_create_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_create_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine PMPI_Win_create_f08(base,size,disp_unit,info,comm,win,ierror) use :: mpi_f08_types, only : MPI_Info, MPI_Comm, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_win_create_f + use :: ompi_mpifh_bindings, only : ompi_win_create_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_create_keyval_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_create_keyval_f08.F90 index 1eda763ffa..d911fff5f7 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_create_keyval_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_create_keyval_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -13,7 +15,7 @@ subroutine PMPI_Win_create_keyval_f08(win_copy_attr_fn,win_delete_attr_fn,& use :: mpi_f08_types, only : MPI_ADDRESS_KIND use :: mpi_f08_interfaces_callbacks, only : MPI_Win_copy_attr_function use :: mpi_f08_interfaces_callbacks, only : MPI_Win_delete_attr_function - use :: mpi_f08, only : ompi_win_create_keyval_f + use :: ompi_mpifh_bindings, only : ompi_win_create_keyval_f implicit none PROCEDURE(MPI_Win_copy_attr_function) :: win_copy_attr_fn PROCEDURE(MPI_Win_delete_attr_function) :: win_delete_attr_fn diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_delete_attr_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_delete_attr_f08.F90 index a8fd0b0996..b2786d01ab 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_delete_attr_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_delete_attr_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_delete_attr_f08(win,win_keyval,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_delete_attr_f + use :: ompi_mpifh_bindings, only : ompi_win_delete_attr_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, INTENT(IN) :: win_keyval diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_detach_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_detach_f08.F90 index 67beec7596..26202444b4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_detach_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_detach_f08.F90 @@ -1,6 +1,6 @@ ! -*- f90 -*- ! -! Copyright (c) 2015 Research Organization for Information Science +! Copyright (c) 2015-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ @@ -8,7 +8,7 @@ subroutine PMPI_Win_detach_f08(win,base,ierror) use :: mpi_f08_types, only : MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_win_detach_f + use :: ompi_mpifh_bindings, only : ompi_win_detach_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base TYPE(MPI_Win), INTENT(IN) :: win diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_fence_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_fence_f08.F90 index da6d572b20..2dd924125e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_fence_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_fence_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_fence_f08(assert,win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_fence_f + use :: ompi_mpifh_bindings, only : ompi_win_fence_f implicit none INTEGER, INTENT(IN) :: assert TYPE(MPI_Win), INTENT(IN) :: win diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_all_f08.F90 index 2a4ea7304e..4ccd00bf65 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_all_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_flush_all_f08(win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_flush_all_f + use :: ompi_mpifh_bindings, only : ompi_win_flush_all_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_f08.F90 index e78448821f..3893ff6ee5 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_flush_f08(rank,win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_flush_f + use :: ompi_mpifh_bindings, only : ompi_win_flush_f implicit none INTEGER, INTENT(IN) :: rank TYPE(MPI_Win), INTENT(IN) :: win diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_local_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_local_all_f08.F90 index 5e2819dc66..a43ff46013 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_local_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_local_all_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_flush_local_all_f08(win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_flush_local_all_f + use :: ompi_mpifh_bindings, only : ompi_win_flush_local_all_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_local_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_local_f08.F90 index 4b215a75be..8e80552a29 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_local_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_flush_local_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_flush_local_f08(rank,win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_flush_local_f + use :: ompi_mpifh_bindings, only : ompi_win_flush_local_f implicit none INTEGER, INTENT(IN) :: rank TYPE(MPI_Win), INTENT(IN) :: win diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_free_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_free_f08.F90 index aebb2214a2..6a5fba6e40 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_free_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_free_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_free_f08(win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_free_f + use :: ompi_mpifh_bindings, only : ompi_win_free_f implicit none TYPE(MPI_Win), INTENT(INOUT) :: win INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_free_keyval_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_free_keyval_f08.F90 index 16fe0d49f9..9846436f82 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_free_keyval_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_free_keyval_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_free_keyval_f08(win_keyval,ierror) - use :: mpi_f08, only : ompi_win_free_keyval_f + use :: ompi_mpifh_bindings, only : ompi_win_free_keyval_f implicit none INTEGER, INTENT(INOUT) :: win_keyval INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_errhandler_f08.F90 index af5dc0e87e..c5809ce0f2 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_get_errhandler_f08(win,errhandler,ierror) use :: mpi_f08_types, only : MPI_Win, MPI_Errhandler - use :: mpi_f08, only : ompi_win_get_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_win_get_errhandler_f implicit none TYPE(MPI_Win), INTENT(IN) :: win TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_group_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_group_f08.F90 index e455c44098..0f505d76e5 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_group_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_group_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_get_group_f08(win,group,ierror) use :: mpi_f08_types, only : MPI_Win, MPI_Group - use :: mpi_f08, only : ompi_win_get_group_f + use :: ompi_mpifh_bindings, only : ompi_win_get_group_f implicit none TYPE(MPI_Win), INTENT(IN) :: win TYPE(MPI_Group), INTENT(OUT) :: group diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_info_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_info_f08.F90 index a9f137badf..cdb5b982d9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_info_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_info_f08.F90 @@ -1,12 +1,12 @@ ! -*- f90 -*- ! -! Copyright (c) 2015 Research Organization for Information Science +! Copyright (c) 2015-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_get_info_f08(win,info,ierror) use :: mpi_f08_types, only : MPI_Win, MPI_Info - use :: mpi_f08, only : ompi_win_get_info_f + use :: ompi_mpifh_bindings, only : ompi_win_get_info_f implicit none TYPE(MPI_Win), INTENT(IN) :: win TYPE(MPI_Info), INTENT(OUT) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_name_f08.F90 index 5284700462..14a290db1e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_get_name_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2010-2011 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_get_name_f08(win,win_name,resultlen,ierror) use, intrinsic :: ISO_C_BINDING, only : C_CHAR use :: mpi_f08_types, only : MPI_Win, MPI_MAX_OBJECT_NAME - use :: mpi_f08, only : ompi_win_get_name_f + use :: ompi_mpifh_bindings, only : ompi_win_get_name_f implicit none TYPE(MPI_Win), INTENT(IN) :: win CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: win_name diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_lock_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_lock_all_f08.F90 index cf5ed33eab..7c55df952b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_lock_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_lock_all_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_lock_all_f08(assert,win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_lock_all_f + use :: ompi_mpifh_bindings, only : ompi_win_lock_all_f implicit none INTEGER, INTENT(IN) :: assert TYPE(MPI_Win), INTENT(IN) :: win diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_lock_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_lock_f08.F90 index 7655d60b32..ec2af3dfd9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_lock_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_lock_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_lock_f08(lock_type,rank,assert,win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_lock_f + use :: ompi_mpifh_bindings, only : ompi_win_lock_f implicit none INTEGER, INTENT(IN) :: lock_type, rank, assert TYPE(MPI_Win), INTENT(IN) :: win diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_post_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_post_f08.F90 index 9cd97bdb7d..1bf8732a7f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_post_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_post_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_post_f08(group,assert,win,ierror) use :: mpi_f08_types, only : MPI_Group, MPI_Win - use :: mpi_f08, only : ompi_win_post_f + use :: ompi_mpifh_bindings, only : ompi_win_post_f implicit none TYPE(MPI_Group), INTENT(IN) :: group INTEGER, INTENT(IN) :: assert diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_attr_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_attr_f08.F90 index a23ba0d344..0cff6690b6 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_attr_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_attr_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_set_attr_f08(win,win_keyval,attribute_val,ierror) use :: mpi_f08_types, only : MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_win_set_attr_f + use :: ompi_mpifh_bindings, only : ompi_win_set_attr_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, INTENT(IN) :: win_keyval diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_errhandler_f08.F90 index 6a638edebe..8d27af3359 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_set_errhandler_f08(win,errhandler,ierror) use :: mpi_f08_types, only : MPI_Win, MPI_Errhandler - use :: mpi_f08, only : ompi_win_set_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_win_set_errhandler_f implicit none TYPE(MPI_Win), INTENT(IN) :: win TYPE(MPI_Errhandler), INTENT(IN) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_info_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_info_f08.F90 index c8c3fff371..2d0324d329 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_info_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_info_f08.F90 @@ -1,12 +1,12 @@ ! -*- f90 -*- ! -! Copyright (c) 2015 Research Organization for Information Science +! Copyright (c) 2015-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_set_info_f08(win,info,ierror) use :: mpi_f08_types, only : MPI_Win, MPI_Info - use :: mpi_f08, only : ompi_win_set_info_f + use :: ompi_mpifh_bindings, only : ompi_win_set_info_f implicit none TYPE(MPI_Win), INTENT(IN) :: win TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_name_f08.F90 index 31dbc8eb2b..69ef6f59dd 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_set_name_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_set_name_f08(win,win_name,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_set_name_f + use :: ompi_mpifh_bindings, only : ompi_win_set_name_f implicit none TYPE(MPI_Win), INTENT(IN) :: win CHARACTER(LEN=*), INTENT(IN) :: win_name diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_shared_query_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_shared_query_f08.F90 index a6a168942d..c0b92ff6c9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_shared_query_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_shared_query_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_shared_query_f08(win, rank, size, disp_unit, baseptr,& ierror) USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR use :: mpi_f08_types, only : MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_win_shared_query_f + use :: ompi_mpifh_bindings, only : ompi_win_shared_query_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, INTENT(IN) :: rank diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_start_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_start_f08.F90 index ffc7be649b..22d05cf015 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_start_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_start_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_start_f08(group,assert,win,ierror) use :: mpi_f08_types, only : MPI_Group, MPI_Win - use :: mpi_f08, only : ompi_win_start_f + use :: ompi_mpifh_bindings, only : ompi_win_start_f implicit none TYPE(MPI_Group), INTENT(IN) :: group INTEGER, INTENT(IN) :: assert diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_sync_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_sync_f08.F90 index 99164715c4..ba8050b0f5 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_sync_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_sync_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_sync_f08(win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_sync_f + use :: ompi_mpifh_bindings, only : ompi_win_sync_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_unlock_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_unlock_all_f08.F90 index 4c028b09bb..98cbfa090e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_unlock_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_unlock_all_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_unlock_all_f08(win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_unlock_all_f + use :: ompi_mpifh_bindings, only : ompi_win_unlock_all_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_unlock_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_unlock_f08.F90 index 436a2ca9fd..974f9c3696 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_unlock_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_unlock_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_unlock_f08(rank,win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_unlock_f + use :: ompi_mpifh_bindings, only : ompi_win_unlock_f implicit none INTEGER, INTENT(IN) :: rank TYPE(MPI_Win), INTENT(IN) :: win diff --git a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_wait_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_wait_f08.F90 index 462b3d1383..2ec3b80281 100644 --- a/ompi/mpi/fortran/use-mpi-f08/profile/pwin_wait_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/profile/pwin_wait_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine PMPI_Win_wait_f08(win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_wait_f + use :: ompi_mpifh_bindings, only : ompi_win_wait_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/publish_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/publish_name_f08.F90 index a8a69b0d9b..d22b5463d2 100644 --- a/ompi/mpi/fortran/use-mpi-f08/publish_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/publish_name_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Publish_name_f08(service_name,info,port_name,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_publish_name_f + use :: ompi_mpifh_bindings, only : ompi_publish_name_f implicit none TYPE(MPI_Info), INTENT(IN) :: info CHARACTER(LEN=*), INTENT(IN) :: service_name, port_name diff --git a/ompi/mpi/fortran/use-mpi-f08/put_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/put_f08.F90 index aa9a4fb88b..7466053239 100644 --- a/ompi/mpi/fortran/use-mpi-f08/put_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/put_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Put_f08(origin_addr,origin_count,origin_datatype,target_rank,& target_disp,target_count,target_datatype,win,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_put_f + use :: ompi_mpifh_bindings, only : ompi_put_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: origin_addr INTEGER, INTENT(IN) :: origin_count, target_rank, target_count diff --git a/ompi/mpi/fortran/use-mpi-f08/query_thread_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/query_thread_f08.F90 index cda1ec2236..3d06e211c5 100644 --- a/ompi/mpi/fortran/use-mpi-f08/query_thread_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/query_thread_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Query_thread_f08(provided,ierror) - use :: mpi_f08, only : ompi_query_thread_f + use :: ompi_mpifh_bindings, only : ompi_query_thread_f implicit none INTEGER, INTENT(OUT) :: provided INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/raccumulate_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/raccumulate_f08.F90 index 3c51b689b3..8ec0eabe2c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/raccumulate_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/raccumulate_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -11,7 +13,7 @@ subroutine MPI_Raccumulate_f08(origin_addr,origin_count,origin_datatype,& target_rank,target_disp,target_count, & target_datatype,op,win,request, ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Win, MPI_Request, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_raccumulate_f + use :: ompi_mpifh_bindings, only : ompi_raccumulate_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN),ASYNCHRONOUS :: origin_addr INTEGER, INTENT(IN) :: origin_count, target_rank, target_count diff --git a/ompi/mpi/fortran/use-mpi-f08/recv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/recv_f08.F90 index cc1f53cfa3..17a32d644b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/recv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/recv_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Recv_f08(buf,count,datatype,source,tag,comm,status,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Status - use :: mpi_f08, only : ompi_recv_f + use :: ompi_mpifh_bindings, only : ompi_recv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE :: buf INTEGER, INTENT(IN) :: count, source, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/recv_init_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/recv_init_f08.F90 index a06e08687b..877e7da859 100644 --- a/ompi/mpi/fortran/use-mpi-f08/recv_init_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/recv_init_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Recv_init_f08(buf,count,datatype,source,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_recv_init_f + use :: ompi_mpifh_bindings, only : ompi_recv_init_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, source, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/reduce_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/reduce_f08.F90 index fd36b9439a..848974253e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/reduce_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/reduce_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Reduce_f08(sendbuf,recvbuf,count,datatype,op,root,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm - use :: mpi_f08, only : ompi_reduce_f + use :: ompi_mpifh_bindings, only : ompi_reduce_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: count, root diff --git a/ompi/mpi/fortran/use-mpi-f08/reduce_local_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/reduce_local_f08.F90 index 9a1749fc63..bdbe32e4b4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/reduce_local_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/reduce_local_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Reduce_local_f08(inbuf,inoutbuf,count,datatype,op,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op - use :: mpi_f08, only : ompi_reduce_local_f + use :: ompi_mpifh_bindings, only : ompi_reduce_local_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, inoutbuf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/reduce_scatter_block_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/reduce_scatter_block_f08.F90 index f145264e5d..b85cb92d35 100644 --- a/ompi/mpi/fortran/use-mpi-f08/reduce_scatter_block_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/reduce_scatter_block_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Reduce_scatter_block_f08(sendbuf,recvbuf,recvcount,datatype,op,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm - use :: mpi_f08, only : ompi_reduce_scatter_block_f + use :: ompi_mpifh_bindings, only : ompi_reduce_scatter_block_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: recvcount diff --git a/ompi/mpi/fortran/use-mpi-f08/reduce_scatter_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/reduce_scatter_f08.F90 index 6b8ecb9063..49f97d01a8 100644 --- a/ompi/mpi/fortran/use-mpi-f08/reduce_scatter_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/reduce_scatter_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Reduce_scatter_f08(sendbuf,recvbuf,recvcounts,datatype,op,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm - use :: mpi_f08, only : ompi_reduce_scatter_f + use :: ompi_mpifh_bindings, only : ompi_reduce_scatter_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: recvcounts(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/register_datarep_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/register_datarep_f08.F90 index 316ec2b236..10b82e395b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/register_datarep_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/register_datarep_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -13,7 +15,7 @@ subroutine MPI_Register_datarep_f08(datarep,read_conversion_fn,write_conversion_ use :: mpi_f08_types, only : MPI_ADDRESS_KIND use :: mpi_f08_interfaces_callbacks, only : MPI_Datarep_conversion_function use :: mpi_f08_interfaces_callbacks, only : MPI_Datarep_extent_function - use :: mpi_f08, only : ompi_register_datarep_f + use :: ompi_mpifh_bindings, only : ompi_register_datarep_f implicit none PROCEDURE(MPI_Datarep_conversion_function) :: read_conversion_fn PROCEDURE(MPI_Datarep_conversion_function) :: write_conversion_fn diff --git a/ompi/mpi/fortran/use-mpi-f08/request_free_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/request_free_f08.F90 index 222c1fbc10..c8e1b818b8 100644 --- a/ompi/mpi/fortran/use-mpi-f08/request_free_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/request_free_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Request_free_f08(request,ierror) use :: mpi_f08_types, only : MPI_Request - use :: mpi_f08, only : ompi_request_free_f + use :: ompi_mpifh_bindings, only : ompi_request_free_f implicit none TYPE(MPI_Request), INTENT(INOUT) :: request INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/rget_accumulate_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/rget_accumulate_f08.F90 index a8ba2c9553..3eec2c60d9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/rget_accumulate_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/rget_accumulate_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -12,7 +14,7 @@ subroutine MPI_Rget_accumulate_f08(origin_addr,origin_count,origin_datatype,& target_rank,target_disp,target_count, & target_datatype,op,win,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Win, MPI_Request, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_rget_accumulate_f + use :: ompi_mpifh_bindings, only : ompi_rget_accumulate_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: origin_addr INTEGER, INTENT(IN) :: origin_count, result_count, target_rank, target_count diff --git a/ompi/mpi/fortran/use-mpi-f08/rget_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/rget_f08.F90 index 5d398fe436..6947329ba3 100644 --- a/ompi/mpi/fortran/use-mpi-f08/rget_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/rget_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Rget_f08(origin_addr,origin_count,origin_datatype,target_rank,& target_disp,target_count,target_datatype,win,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Win, MPI_Request, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_rget_f + use :: ompi_mpifh_bindings, only : ompi_rget_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, ASYNCHRONOUS :: origin_addr INTEGER, INTENT(IN) :: origin_count, target_rank, target_count diff --git a/ompi/mpi/fortran/use-mpi-f08/rput_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/rput_f08.F90 index f0007699af..e0104c97de 100644 --- a/ompi/mpi/fortran/use-mpi-f08/rput_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/rput_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Rput_f08(origin_addr,origin_count,origin_datatype,target_rank,& target_disp,target_count,target_datatype,win,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Win, MPI_Request, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_rput_f + use :: ompi_mpifh_bindings, only : ompi_rput_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: origin_addr INTEGER, INTENT(IN) :: origin_count, target_rank, target_count diff --git a/ompi/mpi/fortran/use-mpi-f08/rsend_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/rsend_f08.F90 index 002722a958..06b08e30fa 100644 --- a/ompi/mpi/fortran/use-mpi-f08/rsend_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/rsend_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Rsend_f08(buf,count,datatype,dest,tag,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_rsend_f + use :: ompi_mpifh_bindings, only : ompi_rsend_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/rsend_init_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/rsend_init_f08.F90 index cc962c9c32..7945d6d757 100644 --- a/ompi/mpi/fortran/use-mpi-f08/rsend_init_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/rsend_init_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Rsend_init_f08(buf,count,datatype,dest,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_rsend_init_f + use :: ompi_mpifh_bindings, only : ompi_rsend_init_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/scan_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/scan_f08.F90 index 21e7b46ff4..86d57b9133 100644 --- a/ompi/mpi/fortran/use-mpi-f08/scan_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/scan_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Scan_f08(sendbuf,recvbuf,count,datatype,op,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm - use :: mpi_f08, only : ompi_scan_f + use :: ompi_mpifh_bindings, only : ompi_scan_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: count diff --git a/ompi/mpi/fortran/use-mpi-f08/scatter_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/scatter_f08.F90 index 0cf3f25aff..915629611a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/scatter_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/scatter_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Scatter_f08(sendbuf,sendcount,sendtype,recvbuf,& recvcount,recvtype,root,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_scatter_f + use :: ompi_mpifh_bindings, only : ompi_scatter_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, recvcount, root diff --git a/ompi/mpi/fortran/use-mpi-f08/scatterv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/scatterv_f08.F90 index 3c42d93d9d..f734fc11ad 100644 --- a/ompi/mpi/fortran/use-mpi-f08/scatterv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/scatterv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Scatterv_f08(sendbuf,sendcounts,displs,sendtype,recvbuf,& recvcount,recvtype,root,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_scatterv_f + use :: ompi_mpifh_bindings, only : ompi_scatterv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: recvcount, root diff --git a/ompi/mpi/fortran/use-mpi-f08/send_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/send_f08.F90 index 3ab4b9a2c1..ff2903b2c5 100644 --- a/ompi/mpi/fortran/use-mpi-f08/send_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/send_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Send_f08(buf,count,datatype,dest,tag,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_send_f + use :: ompi_mpifh_bindings, only : ompi_send_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/send_init_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/send_init_f08.F90 index 8fa4b3db65..84ab38e604 100644 --- a/ompi/mpi/fortran/use-mpi-f08/send_init_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/send_init_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Send_init_f08(buf,count,datatype,dest,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_send_init_f + use :: ompi_mpifh_bindings, only : ompi_send_init_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/sendrecv_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/sendrecv_f08.F90 index 51984e1f15..8166e663a6 100644 --- a/ompi/mpi/fortran/use-mpi-f08/sendrecv_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/sendrecv_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Sendrecv_f08(sendbuf,sendcount,sendtype,dest,sendtag,recvbuf, & recvcount,recvtype,source,recvtag,comm,status,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Status - use :: mpi_f08, only : ompi_sendrecv_f + use :: ompi_mpifh_bindings, only : ompi_sendrecv_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf, recvbuf INTEGER, INTENT(IN) :: sendcount, dest, sendtag, recvcount, source, recvtag diff --git a/ompi/mpi/fortran/use-mpi-f08/sendrecv_replace_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/sendrecv_replace_f08.F90 index 5a262cb68f..2fbad9427e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/sendrecv_replace_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/sendrecv_replace_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -10,7 +12,7 @@ subroutine MPI_Sendrecv_replace_f08(buf,count,datatype,dest,sendtag,source, & recvtag,comm,status,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Status - use :: mpi_f08, only : ompi_sendrecv_replace_f + use :: ompi_mpifh_bindings, only : ompi_sendrecv_replace_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, sendtag, source, recvtag diff --git a/ompi/mpi/fortran/use-mpi-f08/ssend_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/ssend_f08.F90 index 88c698dec1..5c235e4aec 100644 --- a/ompi/mpi/fortran/use-mpi-f08/ssend_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/ssend_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Ssend_f08(buf,count,datatype,dest,tag,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_ssend_f + use :: ompi_mpifh_bindings, only : ompi_ssend_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/ssend_init_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/ssend_init_f08.F90 index 38699f45e6..b95680ed60 100644 --- a/ompi/mpi/fortran/use-mpi-f08/ssend_init_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/ssend_init_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Ssend_init_f08(buf,count,datatype,dest,tag,comm,request,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request - use :: mpi_f08, only : ompi_ssend_init_f + use :: ompi_mpifh_bindings, only : ompi_ssend_init_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: buf INTEGER, INTENT(IN) :: count, dest, tag diff --git a/ompi/mpi/fortran/use-mpi-f08/start_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/start_f08.F90 index 4b93cb5384..8129b6132d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/start_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/start_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Start_f08(request,ierror) use :: mpi_f08_types, only : MPI_Request - use :: mpi_f08, only : ompi_start_f + use :: ompi_mpifh_bindings, only : ompi_start_f implicit none TYPE(MPI_Request), INTENT(INOUT) :: request INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/startall_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/startall_f08.F90 index 956cc1b00b..256d02ceba 100644 --- a/ompi/mpi/fortran/use-mpi-f08/startall_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/startall_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Startall_f08(count,array_of_requests,ierror) use :: mpi_f08_types, only : MPI_Request - use :: mpi_f08, only : ompi_startall_f + use :: ompi_mpifh_bindings, only : ompi_startall_f implicit none INTEGER, INTENT(IN) :: count TYPE(MPI_Request), INTENT(INOUT) :: array_of_requests(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/status_set_elements_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/status_set_elements_f08.F90 index 8fa2bf415d..cbf35d9cbf 100644 --- a/ompi/mpi/fortran/use-mpi-f08/status_set_elements_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/status_set_elements_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Status_set_elements_f08(status,datatype,count,ierror) use :: mpi_f08_types, only : MPI_Status, MPI_Datatype - use :: mpi_f08, only : ompi_status_set_elements_f + use :: ompi_mpifh_bindings, only : ompi_status_set_elements_f implicit none TYPE(MPI_Status), INTENT(INOUT) :: status TYPE(MPI_Datatype), INTENT(IN) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-f08/status_set_elements_x_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/status_set_elements_x_f08.F90 index 385e1500af..02752bd58b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/status_set_elements_x_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/status_set_elements_x_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Status_set_elements_x_f08(status,datatype,count,ierror) use :: mpi_f08_types, only : MPI_Status, MPI_Datatype, MPI_COUNT_KIND - use :: mpi_f08, only : ompi_status_set_elements_x_f + use :: ompi_mpifh_bindings, only : ompi_status_set_elements_x_f implicit none TYPE(MPI_Status), INTENT(INOUT) :: status TYPE(MPI_Datatype), INTENT(IN) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-f08/topo_test_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/topo_test_f08.F90 index 748c2a57cd..fc4d5f2295 100644 --- a/ompi/mpi/fortran/use-mpi-f08/topo_test_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/topo_test_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Topo_test_f08(comm,status,ierror) use :: mpi_f08_types, only : MPI_Comm, MPI_Status - use :: mpi_f08, only : ompi_topo_test_f + use :: ompi_mpifh_bindings, only : ompi_topo_test_f implicit none TYPE(MPI_Comm), INTENT(IN) :: comm INTEGER, INTENT(OUT) :: status diff --git a/ompi/mpi/fortran/use-mpi-f08/type_commit_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_commit_f08.F90 index 39f577af72..a1c6d35a85 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_commit_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_commit_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_commit_f08(datatype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_commit_f + use :: ompi_mpifh_bindings, only : ompi_type_commit_f implicit none TYPE(MPI_Datatype), INTENT(INOUT) :: datatype INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/type_contiguous_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_contiguous_f08.F90 index 0e2873c861..efc93cc0fe 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_contiguous_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_contiguous_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_contiguous_f08(count,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_contiguous_f + use :: ompi_mpifh_bindings, only : ompi_type_contiguous_f implicit none INTEGER, INTENT(IN) :: count TYPE(MPI_Datatype), INTENT(IN) :: oldtype diff --git a/ompi/mpi/fortran/use-mpi-f08/type_create_darray_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_create_darray_f08.F90 index 232d5a716d..abb21464b7 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_create_darray_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_create_darray_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_create_darray_f08(size,rank,ndims,& array_of_gsizes,array_of_distribs,array_of_dargs,array_of_psizes,& order,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_create_darray_f + use :: ompi_mpifh_bindings, only : ompi_type_create_darray_f implicit none INTEGER, INTENT(IN) :: size, rank, ndims, order INTEGER, INTENT(IN) :: array_of_gsizes(*), array_of_distribs(*), array_of_dargs(*), array_of_psizes(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/type_create_f90_complex_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_create_f90_complex_f08.F90 index cf0f76f6c9..60be9f0bad 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_create_f90_complex_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_create_f90_complex_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_create_f90_complex_f08(p,r,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_create_f90_complex_f + use :: ompi_mpifh_bindings, only : ompi_type_create_f90_complex_f implicit none INTEGER, INTENT(IN) :: p, r TYPE(MPI_Datatype), INTENT(OUT) :: newtype diff --git a/ompi/mpi/fortran/use-mpi-f08/type_create_f90_integer_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_create_f90_integer_f08.F90 index 702284b597..7622b9c610 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_create_f90_integer_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_create_f90_integer_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_create_f90_integer_f08(r,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_create_f90_integer_f + use :: ompi_mpifh_bindings, only : ompi_type_create_f90_integer_f implicit none INTEGER, INTENT(IN) :: r TYPE(MPI_Datatype), INTENT(OUT) :: newtype diff --git a/ompi/mpi/fortran/use-mpi-f08/type_create_f90_real_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_create_f90_real_f08.F90 index c512bb820a..2477d51848 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_create_f90_real_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_create_f90_real_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_create_f90_real_f08(p,r,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_create_f90_real_f + use :: ompi_mpifh_bindings, only : ompi_type_create_f90_real_f implicit none INTEGER, INTENT(IN) :: p, r TYPE(MPI_Datatype), INTENT(OUT) :: newtype diff --git a/ompi/mpi/fortran/use-mpi-f08/type_create_hindexed_block_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_create_hindexed_block_f08.F90 index 7623488209..1e668ed298 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_create_hindexed_block_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_create_hindexed_block_f08.F90 @@ -5,12 +5,14 @@ ! reserved. ! Copyright (c) 2012 Inria. All rights reserved. ! Copyright (c) 2012 Cisco Systems, Inc. All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_create_hindexed_block_f08(count,blocklength, & array_of_displacements,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_create_hindexed_block_f + use :: ompi_mpifh_bindings, only : ompi_type_create_hindexed_block_f implicit none INTEGER, INTENT(IN) :: count, blocklength INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: array_of_displacements(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/type_create_hindexed_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_create_hindexed_f08.F90 index 275abde1bc..2bf23df1af 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_create_hindexed_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_create_hindexed_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_create_hindexed_f08(count,array_of_blocklengths, & array_of_displacements,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_create_hindexed_f + use :: ompi_mpifh_bindings, only : ompi_type_create_hindexed_f implicit none INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: array_of_blocklengths(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/type_create_hvector_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_create_hvector_f08.F90 index 881bd6447b..92c0d0a391 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_create_hvector_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_create_hvector_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_create_hvector_f08(count,blocklength,stride,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_create_hvector_f + use :: ompi_mpifh_bindings, only : ompi_type_create_hvector_f implicit none INTEGER, INTENT(IN) :: count, blocklength INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: stride diff --git a/ompi/mpi/fortran/use-mpi-f08/type_create_indexed_block_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_create_indexed_block_f08.F90 index ebfc8d0a52..70a6e29d7f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_create_indexed_block_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_create_indexed_block_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_create_indexed_block_f08(count,blocklength, & array_of_displacements,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_create_indexed_block_f + use :: ompi_mpifh_bindings, only : ompi_type_create_indexed_block_f implicit none INTEGER, INTENT(IN) :: count, blocklength INTEGER, INTENT(IN) :: array_of_displacements(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/type_create_keyval_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_create_keyval_f08.F90 index abc057ee11..ed7090d5c4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_create_keyval_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_create_keyval_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -13,7 +15,7 @@ subroutine MPI_Type_create_keyval_f08(type_copy_attr_fn,type_delete_attr_fn,& use :: mpi_f08_types, only : MPI_ADDRESS_KIND use :: mpi_f08_interfaces_callbacks, only : MPI_Type_copy_attr_function use :: mpi_f08_interfaces_callbacks, only : MPI_Type_delete_attr_function - use :: mpi_f08, only : ompi_type_create_keyval_f + use :: ompi_mpifh_bindings, only : ompi_type_create_keyval_f implicit none PROCEDURE(MPI_Type_copy_attr_function) :: type_copy_attr_fn PROCEDURE(MPI_Type_delete_attr_function) :: type_delete_attr_fn diff --git a/ompi/mpi/fortran/use-mpi-f08/type_create_resized_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_create_resized_f08.F90 index 9093320bb2..820e5b86de 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_create_resized_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_create_resized_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_create_resized_f08(oldtype,lb,extent,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_create_resized_f + use :: ompi_mpifh_bindings, only : ompi_type_create_resized_f implicit none INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: lb, extent TYPE(MPI_Datatype), INTENT(IN) :: oldtype diff --git a/ompi/mpi/fortran/use-mpi-f08/type_create_struct_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_create_struct_f08.F90 index 53c9eb16a0..80fccb9fdd 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_create_struct_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_create_struct_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_create_struct_f08(count,array_of_blocklengths,array_of_displacements, & array_of_types,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_create_struct_f + use :: ompi_mpifh_bindings, only : ompi_type_create_struct_f implicit none INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: array_of_blocklengths(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/type_create_subarray_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_create_subarray_f08.F90 index 6de352fd78..2356c592c9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_create_subarray_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_create_subarray_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_create_subarray_f08(ndims,array_of_sizes,array_of_subsizes, & array_of_starts,order,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_create_subarray_f + use :: ompi_mpifh_bindings, only : ompi_type_create_subarray_f implicit none INTEGER, INTENT(IN) :: ndims, order INTEGER, INTENT(IN) :: array_of_sizes(*), array_of_subsizes(*), array_of_starts(*) diff --git a/ompi/mpi/fortran/use-mpi-f08/type_delete_attr_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_delete_attr_f08.F90 index 794f0e4b41..441e0fe1f9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_delete_attr_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_delete_attr_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2018 Cisco Systems, Inc. All rights reserved ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_delete_attr_f08(datatype,type_keyval,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_delete_attr_f + use :: ompi_mpifh_bindings, only : ompi_type_delete_attr_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER, INTENT(IN) :: type_keyval diff --git a/ompi/mpi/fortran/use-mpi-f08/type_dup_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_dup_f08.F90 index 589068bc7d..5a9b13c5d8 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_dup_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_dup_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2018 Cisco Systems, Inc. All rights reserved ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_dup_f08(datatype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_dup_f + use :: ompi_mpifh_bindings, only : ompi_type_dup_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype TYPE(MPI_Datatype), INTENT(OUT) :: newtype diff --git a/ompi/mpi/fortran/use-mpi-f08/type_free_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_free_f08.F90 index 71cf2f41d1..5e8af8af4f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_free_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_free_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_free_f08(datatype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_free_f + use :: ompi_mpifh_bindings, only : ompi_type_free_f implicit none TYPE(MPI_Datatype), INTENT(INOUT) :: datatype INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/type_free_keyval_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_free_keyval_f08.F90 index 818f4ebafe..7d9757b66c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_free_keyval_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_free_keyval_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_free_keyval_f08(type_keyval,ierror) - use :: mpi_f08, only : ompi_type_free_keyval_f + use :: ompi_mpifh_bindings, only : ompi_type_free_keyval_f implicit none INTEGER, INTENT(INOUT) :: type_keyval INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/type_get_contents_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_get_contents_f08.F90 index 7ef9ade100..16e42a3875 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_get_contents_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_get_contents_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_get_contents_f08(datatype,max_integers,max_addresses, & max_datatypes,array_of_integers,array_of_addresses, & array_of_datatypes,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_get_contents_f + use :: ompi_mpifh_bindings, only : ompi_type_get_contents_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER, INTENT(IN) :: max_integers, max_addresses, max_datatypes diff --git a/ompi/mpi/fortran/use-mpi-f08/type_get_envelope_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_get_envelope_f08.F90 index 433921ce2d..fcd591e422 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_get_envelope_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_get_envelope_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_get_envelope_f08(datatype,num_integers,num_addresses, & num_datatypes,combiner,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_get_envelope_f + use :: ompi_mpifh_bindings, only : ompi_type_get_envelope_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER, INTENT(OUT) :: num_integers, num_addresses, num_datatypes, combiner diff --git a/ompi/mpi/fortran/use-mpi-f08/type_get_extent_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_get_extent_f08.F90 index 44b7ee70be..1e7805344a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_get_extent_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_get_extent_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_get_extent_f08(datatype,lb,extent,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_get_extent_f + use :: ompi_mpifh_bindings, only : ompi_type_get_extent_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: lb, extent diff --git a/ompi/mpi/fortran/use-mpi-f08/type_get_extent_x_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_get_extent_x_f08.F90 index 74f9e2152a..63d6184553 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_get_extent_x_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_get_extent_x_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_get_extent_x_f08(datatype,lb,extent,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND, MPI_COUNT_KIND - use :: mpi_f08, only : ompi_type_get_extent_x_f + use :: ompi_mpifh_bindings, only : ompi_type_get_extent_x_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: lb, extent diff --git a/ompi/mpi/fortran/use-mpi-f08/type_get_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_get_name_f08.F90 index abf1af3530..86a9639ed5 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_get_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_get_name_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2018 Cisco Systems, Inc. All rights reserved ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_get_name_f08(datatype,type_name,resultlen,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_MAX_OBJECT_NAME - use :: mpi_f08, only : ompi_type_get_name_f + use :: ompi_mpifh_bindings, only : ompi_type_get_name_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype CHARACTER(LEN=*), INTENT(OUT) :: type_name diff --git a/ompi/mpi/fortran/use-mpi-f08/type_get_true_extent_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_get_true_extent_f08.F90 index 7bcabf4bcd..28d69bfd4f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_get_true_extent_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_get_true_extent_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_get_true_extent_f08(datatype,true_lb,true_extent,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_get_true_extent_f + use :: ompi_mpifh_bindings, only : ompi_type_get_true_extent_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER(MPI_ADDRESS_KIND), INTENT(OUT) :: true_lb, true_extent diff --git a/ompi/mpi/fortran/use-mpi-f08/type_get_true_extent_x_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_get_true_extent_x_f08.F90 index d2364b2d18..7197f2bc4b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_get_true_extent_x_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_get_true_extent_x_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_get_true_extent_x_f08(datatype,true_lb,true_extent,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND, MPI_COUNT_KIND - use :: mpi_f08, only : ompi_type_get_true_extent_x_f + use :: ompi_mpifh_bindings, only : ompi_type_get_true_extent_x_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: true_lb, true_extent diff --git a/ompi/mpi/fortran/use-mpi-f08/type_indexed_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_indexed_f08.F90 index 33dc638109..fed67730b0 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_indexed_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_indexed_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_indexed_f08(count,array_of_blocklengths, & array_of_displacements,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_indexed_f + use :: ompi_mpifh_bindings, only : ompi_type_indexed_f implicit none INTEGER, INTENT(IN) :: count INTEGER, INTENT(IN) :: array_of_blocklengths(count), array_of_displacements(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/type_match_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_match_size_f08.F90 index a5839d563c..cd33116c6f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_match_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_match_size_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2018 Cisco Systems, Inc. All rights reserved ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_match_size_f08(typeclass,size,datatype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_match_size_f + use :: ompi_mpifh_bindings, only : ompi_type_match_size_f implicit none INTEGER, INTENT(IN) :: typeclass, size TYPE(MPI_Datatype), INTENT(OUT) :: datatype diff --git a/ompi/mpi/fortran/use-mpi-f08/type_set_attr_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_set_attr_f08.F90 index 3b52871460..12e1a14b69 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_set_attr_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_set_attr_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2018 Cisco Systems, Inc. All rights reserved ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_set_attr_f08(datatype,type_keyval,attribute_val,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_set_attr_f + use :: ompi_mpifh_bindings, only : ompi_type_set_attr_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER, INTENT(IN) :: type_keyval diff --git a/ompi/mpi/fortran/use-mpi-f08/type_set_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_set_name_f08.F90 index 1b0167aaa1..c06a08863b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_set_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_set_name_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2018 Cisco Systems, Inc. All rights reserved ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_set_name_f08(datatype,type_name,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_set_name_f + use :: ompi_mpifh_bindings, only : ompi_type_set_name_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype CHARACTER(LEN=*), INTENT(IN) :: type_name diff --git a/ompi/mpi/fortran/use-mpi-f08/type_size_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_size_f08.F90 index 9697347c3c..e9f9a0eb6e 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_size_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_size_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_size_f08(datatype,size,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_type_size_f + use :: ompi_mpifh_bindings, only : ompi_type_size_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER, INTENT(OUT) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/type_size_x_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_size_x_f08.F90 index d70553b918..d7e38bd553 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_size_x_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_size_x_f08.F90 @@ -3,13 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2013 Los Alamos National Security, LLC. ! All rights reserved. -! Copyright (c) 2015 Research Organization for Information Science +! Copyright (c) 2015-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_size_x_f08(datatype,size,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_COUNT_KIND - use :: mpi_f08, only : ompi_type_size_x_f + use :: ompi_mpifh_bindings, only : ompi_type_size_x_f implicit none TYPE(MPI_Datatype), INTENT(IN) :: datatype INTEGER(MPI_COUNT_KIND), INTENT(OUT) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/type_vector_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/type_vector_f08.F90 index 3a5aac8d46..9328d80734 100644 --- a/ompi/mpi/fortran/use-mpi-f08/type_vector_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/type_vector_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Type_vector_f08(count,blocklength,stride,oldtype,newtype,ierror) use :: mpi_f08_types, only : MPI_Datatype - use :: mpi_f08, only : ompi_type_vector_f + use :: ompi_mpifh_bindings, only : ompi_type_vector_f implicit none INTEGER, INTENT(IN) :: count, blocklength, stride TYPE(MPI_Datatype), INTENT(IN) :: oldtype diff --git a/ompi/mpi/fortran/use-mpi-f08/unpack_external_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/unpack_external_f08.F90 index 9ccbb69b8b..c77178240b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/unpack_external_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/unpack_external_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Unpack_external_f08(datarep,inbuf,insize,position,outbuf,outcount,datatype,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_unpack_external_f + use :: ompi_mpifh_bindings, only : ompi_unpack_external_f implicit none CHARACTER(LEN=*), INTENT(IN) :: datarep OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf diff --git a/ompi/mpi/fortran/use-mpi-f08/unpack_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/unpack_f08.F90 index f024014580..4e1b6719b7 100644 --- a/ompi/mpi/fortran/use-mpi-f08/unpack_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/unpack_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Unpack_f08(inbuf,insize,position,outbuf,outcount,datatype,comm,ierror) use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm - use :: mpi_f08, only : ompi_unpack_f + use :: ompi_mpifh_bindings, only : ompi_unpack_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: inbuf, outbuf INTEGER, INTENT(IN) :: insize, outcount diff --git a/ompi/mpi/fortran/use-mpi-f08/unpublish_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/unpublish_name_f08.F90 index 382f541682..59de5151fc 100644 --- a/ompi/mpi/fortran/use-mpi-f08/unpublish_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/unpublish_name_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Unpublish_name_f08(service_name,info,port_name,ierror) use :: mpi_f08_types, only : MPI_Info - use :: mpi_f08, only : ompi_unpublish_name_f + use :: ompi_mpifh_bindings, only : ompi_unpublish_name_f implicit none CHARACTER(LEN=*), INTENT(IN) :: service_name, port_name TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/wait_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/wait_f08.F90 index d0f4254319..611080881b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/wait_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/wait_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Wait_f08(request,status,ierror) use :: mpi_f08_types, only : MPI_Request, MPI_Status - use :: mpi_f08, only : ompi_wait_f + use :: ompi_mpifh_bindings, only : ompi_wait_f implicit none TYPE(MPI_Request), INTENT(INOUT) :: request TYPE(MPI_Status), INTENT(OUT) :: status diff --git a/ompi/mpi/fortran/use-mpi-f08/waitall_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/waitall_f08.F90 index 2530d31f56..8086278527 100644 --- a/ompi/mpi/fortran/use-mpi-f08/waitall_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/waitall_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Waitall_f08(count,array_of_requests,array_of_statuses,ierror) use :: mpi_f08_types, only : MPI_Request, MPI_Status - use :: mpi_f08, only : ompi_waitall_f + use :: ompi_mpifh_bindings, only : ompi_waitall_f implicit none INTEGER, INTENT(IN) :: count TYPE(MPI_Request), INTENT(INOUT) :: array_of_requests(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/waitany_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/waitany_f08.F90 index ef44f82d18..0545fd1c75 100644 --- a/ompi/mpi/fortran/use-mpi-f08/waitany_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/waitany_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Waitany_f08(count,array_of_requests,index,status,ierror) use :: mpi_f08_types, only : MPI_Request, MPI_Status - use :: mpi_f08, only : ompi_waitany_f + use :: ompi_mpifh_bindings, only : ompi_waitany_f implicit none INTEGER, INTENT(IN) :: count TYPE(MPI_Request), INTENT(INOUT) :: array_of_requests(count) diff --git a/ompi/mpi/fortran/use-mpi-f08/waitsome_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/waitsome_f08.F90 index afef44722c..208c547aa6 100644 --- a/ompi/mpi/fortran/use-mpi-f08/waitsome_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/waitsome_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Waitsome_f08(incount,array_of_requests,outcount, & array_of_indices,array_of_statuses,ierror) use :: mpi_f08_types, only : MPI_Request, MPI_Status - use :: mpi_f08, only : ompi_waitsome_f + use :: ompi_mpifh_bindings, only : ompi_waitsome_f implicit none INTEGER, INTENT(IN) :: incount TYPE(MPI_Request), INTENT(INOUT) :: array_of_requests(incount) diff --git a/ompi/mpi/fortran/use-mpi-f08/win_allocate_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_allocate_f08.F90 index 0e9aa2765a..e55216e5e0 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_allocate_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_allocate_f08.F90 @@ -5,13 +5,15 @@ ! All Rights reserved. ! Copyright (c) 2004-2014 High Performance Computing Center Stuttgart, ! University of Stuttgart. All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_allocate_f08(size, disp_unit, info, comm, & baseptr, win, ierror) USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR use :: mpi_f08_types, only : MPI_Info, MPI_Comm, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_win_allocate_f + use :: ompi_mpifh_bindings, only : ompi_win_allocate_f implicit none INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(IN) :: size INTEGER, INTENT(IN) :: disp_unit diff --git a/ompi/mpi/fortran/use-mpi-f08/win_allocate_shared_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_allocate_shared_f08.F90 index 0a104c7d58..a9d2e7f21c 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_allocate_shared_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_allocate_shared_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_allocate_shared_f08(size, disp_unit, info, comm, & baseptr, win, ierror) USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR use :: mpi_f08_types, only : MPI_Info, MPI_Comm, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_win_allocate_shared_f + use :: ompi_mpifh_bindings, only : ompi_win_allocate_shared_f implicit none INTEGER(KIND=MPI_ADDRESS_KIND), INTENT(IN) :: size INTEGER, INTENT(IN) :: disp_unit diff --git a/ompi/mpi/fortran/use-mpi-f08/win_attach_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_attach_f08.F90 index 2c8160f3ae..bad1e0d1df 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_attach_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_attach_f08.F90 @@ -1,6 +1,6 @@ ! -*- f90 -*- ! -! Copyright (c) 2015 Research Organization for Information Science +! Copyright (c) 2015-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ @@ -8,7 +8,7 @@ subroutine MPI_Win_attach_f08(win,base,size,ierror) use :: mpi_f08_types, only : MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_win_attach_f + use :: ompi_mpifh_bindings, only : ompi_win_attach_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/win_call_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_call_errhandler_f08.F90 index c1d1bd6bf2..746d3a4fe9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_call_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_call_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_call_errhandler_f08(win,errorcode,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_call_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_win_call_errhandler_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, INTENT(IN) :: errorcode diff --git a/ompi/mpi/fortran/use-mpi-f08/win_complete_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_complete_f08.F90 index d46e571a8d..910593058b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_complete_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_complete_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_complete_f08(win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_complete_f + use :: ompi_mpifh_bindings, only : ompi_win_complete_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/win_create_dynamic_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_create_dynamic_f08.F90 index 576aa1a0e5..fe534eeebb 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_create_dynamic_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_create_dynamic_f08.F90 @@ -1,6 +1,6 @@ ! -*- f90 -*- ! -! Copyright (c) 2015 Research Organization for Information Science +! Copyright (c) 2015-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ @@ -8,7 +8,7 @@ subroutine MPI_Win_create_dynamic_f08(info,comm,win,ierror) use :: mpi_f08_types, only : MPI_Info, MPI_Comm, MPI_Win - use :: mpi_f08, only : ompi_win_create_dynamic_f + use :: ompi_mpifh_bindings, only : ompi_win_create_dynamic_f implicit none TYPE(MPI_Info), INTENT(IN) :: info TYPE(MPI_Comm), INTENT(IN) :: comm diff --git a/ompi/mpi/fortran/use-mpi-f08/win_create_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_create_errhandler_f08.F90 index 604fe2cb50..ad0c19be69 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_create_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_create_errhandler_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -11,7 +13,7 @@ subroutine MPI_Win_create_errhandler_f08(win_errhandler_fn,errhandler,ierror) use, intrinsic :: iso_c_binding, only: c_funptr, c_funloc use :: mpi_f08_types, only : MPI_Errhandler use :: mpi_f08_interfaces_callbacks, only : MPI_Win_errhandler_function - use :: mpi_f08, only : ompi_win_create_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_win_create_errhandler_f implicit none PROCEDURE(MPI_Win_errhandler_function) :: win_errhandler_fn TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/win_create_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_create_f08.F90 index cfb657fbb8..19236d8499 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_create_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_create_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" subroutine MPI_Win_create_f08(base,size,disp_unit,info,comm,win,ierror) use :: mpi_f08_types, only : MPI_Info, MPI_Comm, MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_win_create_f + use :: ompi_mpifh_bindings, only : ompi_win_create_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: size diff --git a/ompi/mpi/fortran/use-mpi-f08/win_create_keyval_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_create_keyval_f08.F90 index b18860d7d3..4e90aae360 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_create_keyval_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_create_keyval_f08.F90 @@ -3,6 +3,8 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ #include "ompi/mpi/fortran/configure-fortran-output.h" @@ -13,7 +15,7 @@ subroutine MPI_Win_create_keyval_f08(win_copy_attr_fn,win_delete_attr_fn,& use :: mpi_f08_types, only : MPI_ADDRESS_KIND use :: mpi_f08_interfaces_callbacks, only : MPI_Win_copy_attr_function use :: mpi_f08_interfaces_callbacks, only : MPI_Win_delete_attr_function - use :: mpi_f08, only : ompi_win_create_keyval_f + use :: ompi_mpifh_bindings, only : ompi_win_create_keyval_f implicit none PROCEDURE(MPI_Win_copy_attr_function) :: win_copy_attr_fn PROCEDURE(MPI_Win_delete_attr_function) :: win_delete_attr_fn diff --git a/ompi/mpi/fortran/use-mpi-f08/win_delete_attr_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_delete_attr_f08.F90 index 9651254c91..1b4cddaed6 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_delete_attr_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_delete_attr_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_delete_attr_f08(win,win_keyval,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_delete_attr_f + use :: ompi_mpifh_bindings, only : ompi_win_delete_attr_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, INTENT(IN) :: win_keyval diff --git a/ompi/mpi/fortran/use-mpi-f08/win_detach_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_detach_f08.F90 index 88135ea874..9ed8549161 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_detach_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_detach_f08.F90 @@ -1,6 +1,6 @@ ! -*- f90 -*- ! -! Copyright (c) 2015 Research Organization for Information Science +! Copyright (c) 2015-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ @@ -8,7 +8,7 @@ subroutine MPI_Win_detach_f08(win,base,ierror) use :: mpi_f08_types, only : MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_win_detach_f + use :: ompi_mpifh_bindings, only : ompi_win_detach_f implicit none OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: base TYPE(MPI_Win), INTENT(IN) :: win diff --git a/ompi/mpi/fortran/use-mpi-f08/win_fence_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_fence_f08.F90 index a310b72be3..0afe8ad39a 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_fence_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_fence_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_fence_f08(assert,win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_fence_f + use :: ompi_mpifh_bindings, only : ompi_win_fence_f implicit none INTEGER, INTENT(IN) :: assert TYPE(MPI_Win), INTENT(IN) :: win diff --git a/ompi/mpi/fortran/use-mpi-f08/win_flush_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_flush_all_f08.F90 index 6c54f8a4f5..90b22a1f44 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_flush_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_flush_all_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_flush_all_f08(win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_flush_all_f + use :: ompi_mpifh_bindings, only : ompi_win_flush_all_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/win_flush_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_flush_f08.F90 index 890783481e..4642213bf1 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_flush_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_flush_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_flush_f08(rank,win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_flush_f + use :: ompi_mpifh_bindings, only : ompi_win_flush_f implicit none INTEGER, INTENT(IN) :: rank TYPE(MPI_Win), INTENT(IN) :: win diff --git a/ompi/mpi/fortran/use-mpi-f08/win_flush_local_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_flush_local_all_f08.F90 index 0dc10aa44d..31e3074f02 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_flush_local_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_flush_local_all_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_flush_local_all_f08(win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_flush_local_all_f + use :: ompi_mpifh_bindings, only : ompi_win_flush_local_all_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/win_flush_local_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_flush_local_f08.F90 index b244c2b60f..2cadfa601f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_flush_local_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_flush_local_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2014 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_flush_local_f08(rank,win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_flush_local_f + use :: ompi_mpifh_bindings, only : ompi_win_flush_local_f implicit none INTEGER, INTENT(IN) :: rank TYPE(MPI_Win), INTENT(IN) :: win diff --git a/ompi/mpi/fortran/use-mpi-f08/win_free_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_free_f08.F90 index 012988ba90..812011817b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_free_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_free_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_free_f08(win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_free_f + use :: ompi_mpifh_bindings, only : ompi_win_free_f implicit none TYPE(MPI_Win), INTENT(INOUT) :: win INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/win_free_keyval_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_free_keyval_f08.F90 index 9491a040d2..f7f8af9fbb 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_free_keyval_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_free_keyval_f08.F90 @@ -3,10 +3,12 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_free_keyval_f08(win_keyval,ierror) - use :: mpi_f08, only : ompi_win_free_keyval_f + use :: ompi_mpifh_bindings, only : ompi_win_free_keyval_f implicit none INTEGER, INTENT(INOUT) :: win_keyval INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/win_get_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_get_errhandler_f08.F90 index 762def2b1d..ff33f9dfec 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_get_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_get_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_get_errhandler_f08(win,errhandler,ierror) use :: mpi_f08_types, only : MPI_Win, MPI_Errhandler - use :: mpi_f08, only : ompi_win_get_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_win_get_errhandler_f implicit none TYPE(MPI_Win), INTENT(IN) :: win TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/win_get_group_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_get_group_f08.F90 index f15e52773d..dec2160d07 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_get_group_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_get_group_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_get_group_f08(win,group,ierror) use :: mpi_f08_types, only : MPI_Win, MPI_Group - use :: mpi_f08, only : ompi_win_get_group_f + use :: ompi_mpifh_bindings, only : ompi_win_get_group_f implicit none TYPE(MPI_Win), INTENT(IN) :: win TYPE(MPI_Group), INTENT(OUT) :: group diff --git a/ompi/mpi/fortran/use-mpi-f08/win_get_info_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_get_info_f08.F90 index 07e09cd86e..e090282ad4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_get_info_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_get_info_f08.F90 @@ -1,12 +1,12 @@ ! -*- f90 -*- ! -! Copyright (c) 2015 Research Organization for Information Science +! Copyright (c) 2015-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_get_info_f08(win,info,ierror) use :: mpi_f08_types, only : MPI_Win, MPI_Info - use :: mpi_f08, only : ompi_win_get_info_f + use :: ompi_mpifh_bindings, only : ompi_win_get_info_f implicit none TYPE(MPI_Win), INTENT(IN) :: win TYPE(MPI_Info), INTENT(OUT) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/win_get_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_get_name_f08.F90 index 96d02f758f..6d177039d5 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_get_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_get_name_f08.F90 @@ -3,12 +3,14 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_get_name_f08(win,win_name,resultlen,ierror) use, intrinsic :: ISO_C_BINDING, only : C_CHAR use :: mpi_f08_types, only : MPI_Win, MPI_MAX_OBJECT_NAME - use :: mpi_f08, only : ompi_win_get_name_f + use :: ompi_mpifh_bindings, only : ompi_win_get_name_f implicit none TYPE(MPI_Win), INTENT(IN) :: win CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(OUT) :: win_name diff --git a/ompi/mpi/fortran/use-mpi-f08/win_lock_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_lock_all_f08.F90 index 0ebe9b84af..e4ec9eb014 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_lock_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_lock_all_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_lock_all_f08(assert,win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_lock_all_f + use :: ompi_mpifh_bindings, only : ompi_win_lock_all_f implicit none INTEGER, INTENT(IN) :: assert TYPE(MPI_Win), INTENT(IN) :: win diff --git a/ompi/mpi/fortran/use-mpi-f08/win_lock_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_lock_f08.F90 index e90745fbf5..a0c54d183b 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_lock_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_lock_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_lock_f08(lock_type,rank,assert,win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_lock_f + use :: ompi_mpifh_bindings, only : ompi_win_lock_f implicit none INTEGER, INTENT(IN) :: lock_type, rank, assert TYPE(MPI_Win), INTENT(IN) :: win diff --git a/ompi/mpi/fortran/use-mpi-f08/win_post_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_post_f08.F90 index 7f874ade28..35ff323d3f 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_post_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_post_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_post_f08(group,assert,win,ierror) use :: mpi_f08_types, only : MPI_Group, MPI_Win - use :: mpi_f08, only : ompi_win_post_f + use :: ompi_mpifh_bindings, only : ompi_win_post_f implicit none TYPE(MPI_Group), INTENT(IN) :: group INTEGER, INTENT(IN) :: assert diff --git a/ompi/mpi/fortran/use-mpi-f08/win_set_attr_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_set_attr_f08.F90 index 80333e9e0d..26c3fb6bcb 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_set_attr_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_set_attr_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_set_attr_f08(win,win_keyval,attribute_val,ierror) use :: mpi_f08_types, only : MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_win_set_attr_f + use :: ompi_mpifh_bindings, only : ompi_win_set_attr_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, INTENT(IN) :: win_keyval diff --git a/ompi/mpi/fortran/use-mpi-f08/win_set_errhandler_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_set_errhandler_f08.F90 index f665433dd7..c9b32763be 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_set_errhandler_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_set_errhandler_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_set_errhandler_f08(win,errhandler,ierror) use :: mpi_f08_types, only : MPI_Win, MPI_Errhandler - use :: mpi_f08, only : ompi_win_set_errhandler_f + use :: ompi_mpifh_bindings, only : ompi_win_set_errhandler_f implicit none TYPE(MPI_Win), INTENT(IN) :: win TYPE(MPI_Errhandler), INTENT(IN) :: errhandler diff --git a/ompi/mpi/fortran/use-mpi-f08/win_set_info_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_set_info_f08.F90 index 5151ba6089..99342ab155 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_set_info_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_set_info_f08.F90 @@ -1,12 +1,12 @@ ! -*- f90 -*- ! -! Copyright (c) 2015 Research Organization for Information Science +! Copyright (c) 2015-2018 Research Organization for Information Science ! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_set_info_f08(win,info,ierror) use :: mpi_f08_types, only : MPI_Win, MPI_Info - use :: mpi_f08, only : ompi_win_set_info_f + use :: ompi_mpifh_bindings, only : ompi_win_set_info_f implicit none TYPE(MPI_Win), INTENT(IN) :: win TYPE(MPI_Info), INTENT(IN) :: info diff --git a/ompi/mpi/fortran/use-mpi-f08/win_set_name_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_set_name_f08.F90 index cec7da1d3c..2902ecdba9 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_set_name_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_set_name_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_set_name_f08(win,win_name,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_set_name_f + use :: ompi_mpifh_bindings, only : ompi_win_set_name_f implicit none TYPE(MPI_Win), INTENT(IN) :: win CHARACTER(LEN=*), INTENT(IN) :: win_name diff --git a/ompi/mpi/fortran/use-mpi-f08/win_shared_query_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_shared_query_f08.F90 index e9f8018ce8..c8579f5d0d 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_shared_query_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_shared_query_f08.F90 @@ -3,13 +3,15 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_shared_query_f08(win, rank, size, disp_unit, baseptr,& ierror) USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR use :: mpi_f08_types, only : MPI_Win, MPI_ADDRESS_KIND - use :: mpi_f08, only : ompi_win_shared_query_f + use :: ompi_mpifh_bindings, only : ompi_win_shared_query_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, INTENT(IN) :: rank diff --git a/ompi/mpi/fortran/use-mpi-f08/win_start_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_start_f08.F90 index 6ce8031771..cef75e4007 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_start_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_start_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_start_f08(group,assert,win,ierror) use :: mpi_f08_types, only : MPI_Group, MPI_Win - use :: mpi_f08, only : ompi_win_start_f + use :: ompi_mpifh_bindings, only : ompi_win_start_f implicit none TYPE(MPI_Group), INTENT(IN) :: group INTEGER, INTENT(IN) :: assert diff --git a/ompi/mpi/fortran/use-mpi-f08/win_sync_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_sync_f08.F90 index 932ccd11f4..8d9cb324c4 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_sync_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_sync_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_sync_f08(win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_sync_f + use :: ompi_mpifh_bindings, only : ompi_win_sync_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/win_unlock_all_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_unlock_all_f08.F90 index 979581fe5d..6cd653b817 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_unlock_all_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_unlock_all_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_unlock_all_f08(win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_unlock_all_f + use :: ompi_mpifh_bindings, only : ompi_win_unlock_all_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, OPTIONAL, INTENT(OUT) :: ierror diff --git a/ompi/mpi/fortran/use-mpi-f08/win_unlock_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_unlock_f08.F90 index e08777fdab..a7395a0f60 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_unlock_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_unlock_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_unlock_f08(rank,win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_unlock_f + use :: ompi_mpifh_bindings, only : ompi_win_unlock_f implicit none INTEGER, INTENT(IN) :: rank TYPE(MPI_Win), INTENT(IN) :: win diff --git a/ompi/mpi/fortran/use-mpi-f08/win_wait_f08.F90 b/ompi/mpi/fortran/use-mpi-f08/win_wait_f08.F90 index b9849d0f47..e959088207 100644 --- a/ompi/mpi/fortran/use-mpi-f08/win_wait_f08.F90 +++ b/ompi/mpi/fortran/use-mpi-f08/win_wait_f08.F90 @@ -3,11 +3,13 @@ ! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved. ! Copyright (c) 2009-2012 Los Alamos National Security, LLC. ! All Rights reserved. +! Copyright (c) 2018 Research Organization for Information Science +! and Technology (RIST). All rights reserved. ! $COPYRIGHT$ subroutine MPI_Win_wait_f08(win,ierror) use :: mpi_f08_types, only : MPI_Win - use :: mpi_f08, only : ompi_win_wait_f + use :: ompi_mpifh_bindings, only : ompi_win_wait_f implicit none TYPE(MPI_Win), INTENT(IN) :: win INTEGER, OPTIONAL, INTENT(OUT) :: ierror