Assume we always have fortran PROCEDURE support
Per #4590, we now ''require'' the PROCEDURE keyword support in Fortran for the mpi_f08 module. So if the Fortran compiler doesn't support it, then we won't build the mpi_f08 module. Fixes trac:4590 This commit was SVN r31588. The following Trac tickets were found above: Ticket 4590 --> https://svn.open-mpi.org/trac/ompi/ticket/4590
This commit is contained in:
parent
08cf16e14f
commit
0fac9781b3
@ -1361,7 +1361,7 @@ subroutine MPI_Op_create_f08(user_fn,commute,op,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Op
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_User_function
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_User_function) :: user_fn
|
||||
PROCEDURE(MPI_User_function) :: user_fn
|
||||
LOGICAL, INTENT(IN) :: commute
|
||||
TYPE(MPI_Op), INTENT(OUT) :: op
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
@ -1676,8 +1676,8 @@ subroutine MPI_Comm_create_keyval_f08(comm_copy_attr_fn,comm_delete_attr_fn,comm
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Comm_copy_attr_function
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Comm_delete_attr_function
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Comm_copy_attr_function) :: comm_copy_attr_fn
|
||||
OMPI_PROCEDURE(MPI_Comm_delete_attr_function) :: comm_delete_attr_fn
|
||||
PROCEDURE(MPI_Comm_copy_attr_function) :: comm_copy_attr_fn
|
||||
PROCEDURE(MPI_Comm_delete_attr_function) :: comm_delete_attr_fn
|
||||
INTEGER, INTENT(OUT) :: comm_keyval
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
@ -2033,8 +2033,8 @@ subroutine MPI_Type_create_keyval_f08(type_copy_attr_fn,type_delete_attr_fn,type
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Type_copy_attr_function
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Type_delete_attr_function
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Type_copy_attr_function) :: type_copy_attr_fn
|
||||
OMPI_PROCEDURE(MPI_Type_delete_attr_function) :: type_delete_attr_fn
|
||||
PROCEDURE(MPI_Type_copy_attr_function) :: type_copy_attr_fn
|
||||
PROCEDURE(MPI_Type_delete_attr_function) :: type_delete_attr_fn
|
||||
INTEGER, INTENT(OUT) :: type_keyval
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
@ -2110,8 +2110,8 @@ subroutine MPI_Win_create_keyval_f08(win_copy_attr_fn,win_delete_attr_fn,win_key
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Win_copy_attr_function
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Win_delete_attr_function
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Win_copy_attr_function) :: win_copy_attr_fn
|
||||
OMPI_PROCEDURE(MPI_Win_delete_attr_function) :: win_delete_attr_fn
|
||||
PROCEDURE(MPI_Win_copy_attr_function) :: win_copy_attr_fn
|
||||
PROCEDURE(MPI_Win_delete_attr_function) :: win_delete_attr_fn
|
||||
INTEGER, INTENT(OUT) :: win_keyval
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
@ -2493,7 +2493,7 @@ subroutine MPI_Comm_create_errhandler_f08(comm_errhandler_fn,errhandler,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Errhandler
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Comm_errhandler_function
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Comm_errhandler_function) :: comm_errhandler_fn
|
||||
PROCEDURE(MPI_Comm_errhandler_function) :: comm_errhandler_fn
|
||||
TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
end subroutine MPI_Comm_create_errhandler_f08
|
||||
@ -2565,7 +2565,7 @@ subroutine MPI_File_create_errhandler_f08(file_errhandler_fn,errhandler,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Errhandler
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_File_errhandler_function
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_File_errhandler_function) :: file_errhandler_fn
|
||||
PROCEDURE(MPI_File_errhandler_function) :: file_errhandler_fn
|
||||
TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
end subroutine MPI_File_create_errhandler_f08
|
||||
@ -2675,7 +2675,7 @@ subroutine MPI_Win_create_errhandler_f08(win_errhandler_fn,errhandler,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Errhandler
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Win_errhandler_function
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Win_errhandler_function) :: win_errhandler_fn
|
||||
PROCEDURE(MPI_Win_errhandler_function) :: win_errhandler_fn
|
||||
TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
end subroutine MPI_Win_create_errhandler_f08
|
||||
@ -3318,9 +3318,9 @@ subroutine MPI_Grequest_start_f08(query_fn,free_fn,cancel_fn,extra_state,request
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Grequest_free_function
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Grequest_cancel_function
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Grequest_query_function) :: query_fn
|
||||
OMPI_PROCEDURE(MPI_Grequest_free_function) :: free_fn
|
||||
OMPI_PROCEDURE(MPI_Grequest_cancel_function) :: cancel_fn
|
||||
PROCEDURE(MPI_Grequest_query_function) :: query_fn
|
||||
PROCEDURE(MPI_Grequest_free_function) :: free_fn
|
||||
PROCEDURE(MPI_Grequest_cancel_function) :: cancel_fn
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
@ -4149,9 +4149,9 @@ subroutine MPI_Register_datarep_f08(datarep,read_conversion_fn,write_conversion_
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Datarep_extent_function
|
||||
implicit none
|
||||
CHARACTER(LEN=*), INTENT(IN) :: datarep
|
||||
OMPI_PROCEDURE(MPI_Datarep_conversion_function) :: read_conversion_fn
|
||||
OMPI_PROCEDURE(MPI_Datarep_conversion_function) :: write_conversion_fn
|
||||
OMPI_PROCEDURE(MPI_Datarep_extent_function) :: dtype_file_extent_fn
|
||||
PROCEDURE(MPI_Datarep_conversion_function) :: read_conversion_fn
|
||||
PROCEDURE(MPI_Datarep_conversion_function) :: write_conversion_fn
|
||||
PROCEDURE(MPI_Datarep_extent_function) :: dtype_file_extent_fn
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
end subroutine MPI_Register_datarep_f08
|
||||
|
@ -1361,7 +1361,7 @@ subroutine PMPI_Op_create_f08(user_fn,commute,op,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Op
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_User_function
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_User_function) :: user_fn
|
||||
PROCEDURE(MPI_User_function) :: user_fn
|
||||
LOGICAL, INTENT(IN) :: commute
|
||||
TYPE(MPI_Op), INTENT(OUT) :: op
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
@ -1676,8 +1676,8 @@ subroutine PMPI_Comm_create_keyval_f08(comm_copy_attr_fn,comm_delete_attr_fn,com
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Comm_copy_attr_function
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Comm_delete_attr_function
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Comm_copy_attr_function) :: comm_copy_attr_fn
|
||||
OMPI_PROCEDURE(MPI_Comm_delete_attr_function) :: comm_delete_attr_fn
|
||||
PROCEDURE(MPI_Comm_copy_attr_function) :: comm_copy_attr_fn
|
||||
PROCEDURE(MPI_Comm_delete_attr_function) :: comm_delete_attr_fn
|
||||
INTEGER, INTENT(OUT) :: comm_keyval
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
@ -2033,8 +2033,8 @@ subroutine PMPI_Type_create_keyval_f08(type_copy_attr_fn,type_delete_attr_fn,typ
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Type_copy_attr_function
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Type_delete_attr_function
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Type_copy_attr_function) :: type_copy_attr_fn
|
||||
OMPI_PROCEDURE(MPI_Type_delete_attr_function) :: type_delete_attr_fn
|
||||
PROCEDURE(MPI_Type_copy_attr_function) :: type_copy_attr_fn
|
||||
PROCEDURE(MPI_Type_delete_attr_function) :: type_delete_attr_fn
|
||||
INTEGER, INTENT(OUT) :: type_keyval
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
@ -2110,8 +2110,8 @@ subroutine PMPI_Win_create_keyval_f08(win_copy_attr_fn,win_delete_attr_fn,win_ke
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Win_copy_attr_function
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Win_delete_attr_function
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Win_copy_attr_function) :: win_copy_attr_fn
|
||||
OMPI_PROCEDURE(MPI_Win_delete_attr_function) :: win_delete_attr_fn
|
||||
PROCEDURE(MPI_Win_copy_attr_function) :: win_copy_attr_fn
|
||||
PROCEDURE(MPI_Win_delete_attr_function) :: win_delete_attr_fn
|
||||
INTEGER, INTENT(OUT) :: win_keyval
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
@ -2493,7 +2493,7 @@ subroutine PMPI_Comm_create_errhandler_f08(comm_errhandler_fn,errhandler,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Errhandler
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Comm_errhandler_function
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Comm_errhandler_function) :: comm_errhandler_fn
|
||||
PROCEDURE(MPI_Comm_errhandler_function) :: comm_errhandler_fn
|
||||
TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
end subroutine PMPI_Comm_create_errhandler_f08
|
||||
@ -2565,7 +2565,7 @@ subroutine PMPI_File_create_errhandler_f08(file_errhandler_fn,errhandler,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Errhandler
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_File_errhandler_function
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_File_errhandler_function) :: file_errhandler_fn
|
||||
PROCEDURE(MPI_File_errhandler_function) :: file_errhandler_fn
|
||||
TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
end subroutine PMPI_File_create_errhandler_f08
|
||||
@ -2676,7 +2676,7 @@ subroutine PMPI_Win_create_errhandler_f08(win_errhandler_fn,errhandler,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Errhandler
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Win_errhandler_function
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Win_errhandler_function) :: win_errhandler_fn
|
||||
PROCEDURE(MPI_Win_errhandler_function) :: win_errhandler_fn
|
||||
TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
end subroutine PMPI_Win_create_errhandler_f08
|
||||
@ -3319,9 +3319,9 @@ subroutine PMPI_Grequest_start_f08(query_fn,free_fn,cancel_fn,extra_state,reques
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Grequest_free_function
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Grequest_cancel_function
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Grequest_query_function) :: query_fn
|
||||
OMPI_PROCEDURE(MPI_Grequest_free_function) :: free_fn
|
||||
OMPI_PROCEDURE(MPI_Grequest_cancel_function) :: cancel_fn
|
||||
PROCEDURE(MPI_Grequest_query_function) :: query_fn
|
||||
PROCEDURE(MPI_Grequest_free_function) :: free_fn
|
||||
PROCEDURE(MPI_Grequest_cancel_function) :: cancel_fn
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
@ -4150,9 +4150,9 @@ subroutine PMPI_Register_datarep_f08(datarep,read_conversion_fn,write_conversion
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Datarep_extent_function
|
||||
implicit none
|
||||
CHARACTER(LEN=*), INTENT(IN) :: datarep
|
||||
OMPI_PROCEDURE(MPI_Datarep_conversion_function) :: read_conversion_fn
|
||||
OMPI_PROCEDURE(MPI_Datarep_conversion_function) :: write_conversion_fn
|
||||
OMPI_PROCEDURE(MPI_Datarep_extent_function) :: dtype_file_extent_fn
|
||||
PROCEDURE(MPI_Datarep_conversion_function) :: read_conversion_fn
|
||||
PROCEDURE(MPI_Datarep_conversion_function) :: write_conversion_fn
|
||||
PROCEDURE(MPI_Datarep_extent_function) :: dtype_file_extent_fn
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
end subroutine PMPI_Register_datarep_f08
|
||||
|
@ -17,13 +17,6 @@
|
||||
#ifndef OMPI_FORTRAN_CONFIGURE_OUTPUT_BOTTOM_H
|
||||
#define OMPI_FORTRAN_CONFIGURE_OUTPUT_BOTTOM_H
|
||||
|
||||
! PROCEDURE or not
|
||||
#if OMPI_FORTRAN_HAVE_PROCEDURE
|
||||
#define OMPI_PROCEDURE(name) PROCEDURE(name)
|
||||
#else
|
||||
#define OMPI_PROCEDURE(name) EXTERNAL
|
||||
#endif
|
||||
|
||||
! ABSTRACT or not
|
||||
#if OMPI_FORTRAN_HAVE_ABSTRACT
|
||||
#define OMPI_ABSTRACT ABSTRACT
|
||||
|
@ -35,9 +35,6 @@
|
||||
! Whether we have ASYNCHRONOUS or not
|
||||
#define OMPI_FORTRAN_HAVE_ASYNCHRONOUS @OMPI_FORTRAN_HAVE_ASYNCHRONOUS@
|
||||
|
||||
! Whether we have PROCEDURE or not
|
||||
#define OMPI_FORTRAN_HAVE_PROCEDURE @OMPI_FORTRAN_HAVE_PROCEDURE@
|
||||
|
||||
! Whether we are building the MPI F08 bindings with subarray support or not
|
||||
#define OMPI_FORTRAN_SUBARRAYS_SUPPORTED @OMPI_FORTRAN_SUBARRAYS_SUPPORTED@
|
||||
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -13,7 +13,7 @@ subroutine MPI_Comm_create_errhandler_f08(comm_errhandler_fn,errhandler,ierror)
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Comm_errhandler_function
|
||||
use :: mpi_f08, only : ompi_comm_create_errhandler_f
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Comm_errhandler_function) :: comm_errhandler_fn
|
||||
PROCEDURE(MPI_Comm_errhandler_function) :: comm_errhandler_fn
|
||||
TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
@ -15,8 +15,8 @@ subroutine MPI_Comm_create_keyval_f08(comm_copy_attr_fn,comm_delete_attr_fn,&
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Comm_delete_attr_function
|
||||
use :: mpi_f08, only : ompi_comm_create_keyval_f
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Comm_copy_attr_function) :: comm_copy_attr_fn
|
||||
OMPI_PROCEDURE(MPI_Comm_delete_attr_function) :: comm_delete_attr_fn
|
||||
PROCEDURE(MPI_Comm_copy_attr_function) :: comm_copy_attr_fn
|
||||
PROCEDURE(MPI_Comm_delete_attr_function) :: comm_delete_attr_fn
|
||||
INTEGER, INTENT(OUT) :: comm_keyval
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -13,7 +13,7 @@ subroutine MPI_File_create_errhandler_f08(file_errhandler_fn,errhandler,ierror)
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_File_errhandler_function
|
||||
use :: mpi_f08, only : ompi_file_create_errhandler_f
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_File_errhandler_function) :: file_errhandler_fn
|
||||
PROCEDURE(MPI_File_errhandler_function) :: file_errhandler_fn
|
||||
TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -16,9 +16,9 @@ subroutine MPI_Grequest_start_f08(query_fn,free_fn,cancel_fn,&
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Grequest_cancel_function
|
||||
use :: mpi_f08, only : ompi_grequest_start_f
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Grequest_query_function) :: query_fn
|
||||
OMPI_PROCEDURE(MPI_Grequest_free_function) :: free_fn
|
||||
OMPI_PROCEDURE(MPI_Grequest_cancel_function) :: cancel_fn
|
||||
PROCEDURE(MPI_Grequest_query_function) :: query_fn
|
||||
PROCEDURE(MPI_Grequest_free_function) :: free_fn
|
||||
PROCEDURE(MPI_Grequest_cancel_function) :: cancel_fn
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -14,7 +14,7 @@ subroutine MPI_Op_create_f08(user_fn,commute,op,ierror)
|
||||
! call a PMPI_* subroutine below.
|
||||
use :: mpi, only : PMPI_Op_create
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_User_function) :: user_fn
|
||||
PROCEDURE(MPI_User_function) :: user_fn
|
||||
LOGICAL, INTENT(IN) :: commute
|
||||
TYPE(MPI_Op), INTENT(OUT) :: op
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -13,7 +13,7 @@ subroutine PMPI_Comm_create_errhandler_f08(comm_errhandler_fn,errhandler,ierror)
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Comm_errhandler_function
|
||||
use :: mpi_f08, only : ompi_comm_create_errhandler_f
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Comm_errhandler_function) :: comm_errhandler_fn
|
||||
PROCEDURE(MPI_Comm_errhandler_function) :: comm_errhandler_fn
|
||||
TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -15,8 +15,8 @@ subroutine PMPI_Comm_create_keyval_f08(comm_copy_attr_fn,comm_delete_attr_fn,&
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Comm_delete_attr_function
|
||||
use :: mpi_f08, only : ompi_comm_create_keyval_f
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Comm_copy_attr_function) :: comm_copy_attr_fn
|
||||
OMPI_PROCEDURE(MPI_Comm_delete_attr_function) :: comm_delete_attr_fn
|
||||
PROCEDURE(MPI_Comm_copy_attr_function) :: comm_copy_attr_fn
|
||||
PROCEDURE(MPI_Comm_delete_attr_function) :: comm_delete_attr_fn
|
||||
INTEGER, INTENT(OUT) :: comm_keyval
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -13,7 +13,7 @@ subroutine PMPI_File_create_errhandler_f08(file_errhandler_fn,errhandler,ierror)
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_File_errhandler_function
|
||||
use :: mpi_f08, only : ompi_file_create_errhandler_f
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_File_errhandler_function) :: file_errhandler_fn
|
||||
PROCEDURE(MPI_File_errhandler_function) :: file_errhandler_fn
|
||||
TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -16,9 +16,9 @@ subroutine PMPI_Grequest_start_f08(query_fn,free_fn,cancel_fn,&
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Grequest_cancel_function
|
||||
use :: mpi_f08, only : ompi_grequest_start_f
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Grequest_query_function) :: query_fn
|
||||
OMPI_PROCEDURE(MPI_Grequest_free_function) :: free_fn
|
||||
OMPI_PROCEDURE(MPI_Grequest_cancel_function) :: cancel_fn
|
||||
PROCEDURE(MPI_Grequest_query_function) :: query_fn
|
||||
PROCEDURE(MPI_Grequest_free_function) :: free_fn
|
||||
PROCEDURE(MPI_Grequest_cancel_function) :: cancel_fn
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
TYPE(MPI_Request), INTENT(OUT) :: request
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -14,7 +14,7 @@ subroutine PMPI_Op_create_f08(user_fn,commute,op,ierror)
|
||||
! call a PMPI_* subroutine below.
|
||||
use :: mpi, only : PMPI_Op_create
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_User_function) :: user_fn
|
||||
PROCEDURE(MPI_User_function) :: user_fn
|
||||
LOGICAL, INTENT(IN) :: commute
|
||||
TYPE(MPI_Op), INTENT(OUT) :: op
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -15,9 +15,9 @@ subroutine PMPI_Register_datarep_f08(datarep,read_conversion_fn,write_conversion
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Datarep_extent_function
|
||||
use :: mpi_f08, only : ompi_register_datarep_f
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Datarep_conversion_function) :: read_conversion_fn
|
||||
OMPI_PROCEDURE(MPI_Datarep_conversion_function) :: write_conversion_fn
|
||||
OMPI_PROCEDURE(MPI_Datarep_extent_function) :: dtype_file_extent_fn
|
||||
PROCEDURE(MPI_Datarep_conversion_function) :: read_conversion_fn
|
||||
PROCEDURE(MPI_Datarep_conversion_function) :: write_conversion_fn
|
||||
PROCEDURE(MPI_Datarep_extent_function) :: dtype_file_extent_fn
|
||||
CHARACTER(LEN=*), INTENT(IN) :: datarep
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -15,8 +15,8 @@ subroutine PMPI_Type_create_keyval_f08(type_copy_attr_fn,type_delete_attr_fn,&
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Type_delete_attr_function
|
||||
use :: mpi_f08, only : ompi_type_create_keyval_f
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Type_copy_attr_function) :: type_copy_attr_fn
|
||||
OMPI_PROCEDURE(MPI_Type_delete_attr_function) :: type_delete_attr_fn
|
||||
PROCEDURE(MPI_Type_copy_attr_function) :: type_copy_attr_fn
|
||||
PROCEDURE(MPI_Type_delete_attr_function) :: type_delete_attr_fn
|
||||
INTEGER, INTENT(OUT) :: type_keyval
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -13,7 +13,7 @@ subroutine PMPI_Win_create_errhandler_f08(win_errhandler_fn,errhandler,ierror)
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Win_errhandler_function
|
||||
use :: mpi_f08, only : ompi_win_create_errhandler_f
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Win_errhandler_function) :: win_errhandler_fn
|
||||
PROCEDURE(MPI_Win_errhandler_function) :: win_errhandler_fn
|
||||
TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -15,8 +15,8 @@ subroutine PMPI_Win_create_keyval_f08(win_copy_attr_fn,win_delete_attr_fn,&
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Win_delete_attr_function
|
||||
use :: mpi_f08, only : ompi_win_create_keyval_f
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Win_copy_attr_function) :: win_copy_attr_fn
|
||||
OMPI_PROCEDURE(MPI_Win_delete_attr_function) :: win_delete_attr_fn
|
||||
PROCEDURE(MPI_Win_copy_attr_function) :: win_copy_attr_fn
|
||||
PROCEDURE(MPI_Win_delete_attr_function) :: win_delete_attr_fn
|
||||
INTEGER, INTENT(OUT) :: win_keyval
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -15,9 +15,9 @@ subroutine MPI_Register_datarep_f08(datarep,read_conversion_fn,write_conversion_
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Datarep_extent_function
|
||||
use :: mpi_f08, only : ompi_register_datarep_f
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Datarep_conversion_function) :: read_conversion_fn
|
||||
OMPI_PROCEDURE(MPI_Datarep_conversion_function) :: write_conversion_fn
|
||||
OMPI_PROCEDURE(MPI_Datarep_extent_function) :: dtype_file_extent_fn
|
||||
PROCEDURE(MPI_Datarep_conversion_function) :: read_conversion_fn
|
||||
PROCEDURE(MPI_Datarep_conversion_function) :: write_conversion_fn
|
||||
PROCEDURE(MPI_Datarep_extent_function) :: dtype_file_extent_fn
|
||||
CHARACTER(LEN=*), INTENT(IN) :: datarep
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -15,8 +15,8 @@ subroutine MPI_Type_create_keyval_f08(type_copy_attr_fn,type_delete_attr_fn,&
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Type_delete_attr_function
|
||||
use :: mpi_f08, only : ompi_type_create_keyval_f
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Type_copy_attr_function) :: type_copy_attr_fn
|
||||
OMPI_PROCEDURE(MPI_Type_delete_attr_function) :: type_delete_attr_fn
|
||||
PROCEDURE(MPI_Type_copy_attr_function) :: type_copy_attr_fn
|
||||
PROCEDURE(MPI_Type_delete_attr_function) :: type_delete_attr_fn
|
||||
INTEGER, INTENT(OUT) :: type_keyval
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -13,7 +13,7 @@ subroutine MPI_Win_create_errhandler_f08(win_errhandler_fn,errhandler,ierror)
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Win_errhandler_function
|
||||
use :: mpi_f08, only : ompi_win_create_errhandler_f
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Win_errhandler_function) :: win_errhandler_fn
|
||||
PROCEDURE(MPI_Win_errhandler_function) :: win_errhandler_fn
|
||||
TYPE(MPI_Errhandler), INTENT(OUT) :: errhandler
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
integer :: c_ierror
|
||||
|
@ -1,6 +1,6 @@
|
||||
! -*- f90 -*-
|
||||
!
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
@ -15,8 +15,8 @@ subroutine MPI_Win_create_keyval_f08(win_copy_attr_fn,win_delete_attr_fn,&
|
||||
use :: mpi_f08_interfaces_callbacks, only : MPI_Win_delete_attr_function
|
||||
use :: mpi_f08, only : ompi_win_create_keyval_f
|
||||
implicit none
|
||||
OMPI_PROCEDURE(MPI_Win_copy_attr_function) :: win_copy_attr_fn
|
||||
OMPI_PROCEDURE(MPI_Win_delete_attr_function) :: win_delete_attr_fn
|
||||
PROCEDURE(MPI_Win_copy_attr_function) :: win_copy_attr_fn
|
||||
PROCEDURE(MPI_Win_delete_attr_function) :: win_delete_attr_fn
|
||||
INTEGER, INTENT(OUT) :: win_keyval
|
||||
INTEGER(MPI_ADDRESS_KIND), INTENT(IN) :: extra_state
|
||||
INTEGER, OPTIONAL, INTENT(OUT) :: ierror
|
||||
|
Loading…
Reference in New Issue
Block a user