Skip to content

Commit e240420

Browse files
jsquyresjsquyres
committed
mpi-f-interfaces-bind.h: remove superflous imports
Signed-off-by: Jeff Squyres <jsquyres@cisco.com>
1 parent 80a7996 commit e240420

File tree

1 file changed

+3
-15
lines changed

1 file changed

+3
-15
lines changed

‎ompi/mpi/fortran/use-mpi-f08/bindings/mpi-f-interfaces-bind.h‎

Lines changed: 3 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -3679,7 +3679,6 @@ end subroutine ompi_mrecv_f
36793679
subroutine ompi_neighbor_allgather_f(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype, &
36803680
comm,ierror) &
36813681
BIND(C, name="ompi_neighbor_allgather_f")
3682-
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
36833682
implicit none
36843683
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
36853684
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
@@ -3692,7 +3691,6 @@ end subroutine ompi_neighbor_allgather_f
36923691
subroutine ompi_ineighbor_allgather_f(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype, &
36933692
comm,request,ierror) &
36943693
BIND(C, name="ompi_ineighbor_allgather_f")
3695-
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
36963694
implicit none
36973695
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: sendbuf
36983696
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: recvbuf
@@ -3706,7 +3704,6 @@ end subroutine ompi_ineighbor_allgather_f
37063704
subroutine ompi_neighbor_allgather_init_f(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype, &
37073705
comm,info,request,ierror) &
37083706
BIND(C, name="ompi_neighbor_allgather_init_f")
3709-
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
37103707
implicit none
37113708
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
37123709
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
@@ -3721,7 +3718,6 @@ end subroutine ompi_neighbor_allgather_init_f
37213718
subroutine ompi_neighbor_allgatherv_f(sendbuf,sendcount,sendtype,recvbuf,recvcounts,displs, &
37223719
recvtype,comm,ierror) &
37233720
BIND(C, name="ompi_neighbor_allgatherv_f")
3724-
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
37253721
implicit none
37263722
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
37273723
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
@@ -3735,7 +3731,6 @@ end subroutine ompi_neighbor_allgatherv_f
37353731
subroutine ompi_ineighbor_allgatherv_f(sendbuf,sendcount,sendtype,recvbuf,recvcounts,displs, &
37363732
recvtype,comm,request,ierror) &
37373733
BIND(C, name="ompi_ineighbor_allgatherv_f")
3738-
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
37393734
implicit none
37403735
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: sendbuf
37413736
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: recvbuf
@@ -3750,7 +3745,6 @@ end subroutine ompi_ineighbor_allgatherv_f
37503745
subroutine ompi_neighbor_allgatherv_init_f(sendbuf,sendcount,sendtype,recvbuf,recvcounts,displs, &
37513746
recvtype,comm,info,request,ierror) &
37523747
BIND(C, name="ompi_neighbor_allgatherv_init_f")
3753-
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
37543748
implicit none
37553749
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
37563750
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
@@ -3766,7 +3760,6 @@ end subroutine ompi_neighbor_allgatherv_init_f
37663760
subroutine ompi_neighbor_alltoall_f(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype, &
37673761
comm,ierror) &
37683762
BIND(C, name="ompi_neighbor_alltoall_f")
3769-
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
37703763
implicit none
37713764
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
37723765
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
@@ -3779,7 +3772,6 @@ end subroutine ompi_neighbor_alltoall_f
37793772
subroutine ompi_ineighbor_alltoall_f(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype, &
37803773
comm,request,ierror) &
37813774
BIND(C, name="ompi_ineighbor_alltoall_f")
3782-
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
37833775
implicit none
37843776
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: sendbuf
37853777
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: recvbuf
@@ -3793,7 +3785,6 @@ end subroutine ompi_ineighbor_alltoall_f
37933785
subroutine ompi_neighbor_alltoall_init_f(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype, &
37943786
comm,info,request,ierror) &
37953787
BIND(C, name="ompi_neighbor_alltoall_init_f")
3796-
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
37973788
implicit none
37983789
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
37993790
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
@@ -3808,7 +3799,6 @@ end subroutine ompi_neighbor_alltoall_init_f
38083799
subroutine ompi_neighbor_alltoallv_f(sendbuf,sendcounts,sdispls,sendtype,recvbuf,recvcounts, &
38093800
rdispls,recvtype,comm,ierror) &
38103801
BIND(C, name="ompi_neighbor_alltoallv_f")
3811-
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
38123802
implicit none
38133803
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
38143804
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
@@ -3821,7 +3811,6 @@ end subroutine ompi_neighbor_alltoallv_f
38213811
subroutine ompi_ineighbor_alltoallv_f(sendbuf,sendcounts,sdispls,sendtype,recvbuf,recvcounts, &
38223812
rdispls,recvtype,comm,request,ierror) &
38233813
BIND(C, name="ompi_ineighbor_alltoallv_f")
3824-
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
38253814
implicit none
38263815
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: sendbuf
38273816
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: recvbuf
@@ -3835,7 +3824,6 @@ end subroutine ompi_ineighbor_alltoallv_f
38353824
subroutine ompi_neighbor_alltoallv_init_f(sendbuf,sendcounts,sdispls,sendtype,recvbuf,recvcounts, &
38363825
rdispls,recvtype,comm,info,request,ierror) &
38373826
BIND(C, name="ompi_neighbor_alltoallv_init_f")
3838-
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
38393827
implicit none
38403828
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
38413829
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
@@ -3850,7 +3838,7 @@ end subroutine ompi_neighbor_alltoallv_init_f
38503838
subroutine ompi_neighbor_alltoallw_f(sendbuf,sendcounts,sdispls,sendtypes,recvbuf,recvcounts, &
38513839
rdispls,recvtypes,comm,ierror) &
38523840
BIND(C, name="ompi_neighbor_alltoallw_f")
3853-
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_ADDRESS_KIND
3841+
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
38543842
implicit none
38553843
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
38563844
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf
@@ -3864,7 +3852,7 @@ end subroutine ompi_neighbor_alltoallw_f
38643852
subroutine ompi_ineighbor_alltoallw_f(sendbuf,sendcounts,sdispls,sendtypes,recvbuf,recvcounts, &
38653853
rdispls,recvtypes,comm,request,ierror) &
38663854
BIND(C, name="ompi_ineighbor_alltoallw_f")
3867-
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request, MPI_ADDRESS_KIND
3855+
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
38683856
implicit none
38693857
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) OMPI_ASYNCHRONOUS :: sendbuf
38703858
OMPI_FORTRAN_IGNORE_TKR_TYPE OMPI_ASYNCHRONOUS :: recvbuf
@@ -3879,7 +3867,7 @@ end subroutine ompi_ineighbor_alltoallw_f
38793867
subroutine ompi_neighbor_alltoallw_init_f(sendbuf,sendcounts,sdispls,sendtypes,recvbuf,recvcounts, &
38803868
rdispls,recvtypes,comm,info,request,ierror) &
38813869
BIND(C, name="ompi_neighbor_alltoallw_init_f")
3882-
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request, MPI_ADDRESS_KIND
3870+
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
38833871
implicit none
38843872
OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN) :: sendbuf
38853873
OMPI_FORTRAN_IGNORE_TKR_TYPE :: recvbuf

0 commit comments

Comments
 (0)