6 ! Copied from assumed_type_1.f90
12 subroutine MPI_Send (buf
, count
, datatype
, dest
, tag
, comm
, ierr
)
13 !GCC$ attributes NO_ARG_CHECK :: buf
14 integer, intent(in
) :: buf
15 integer, intent(in
) :: count
16 integer, intent(in
) :: datatype
17 integer, intent(in
) :: dest
18 integer, intent(in
) :: tag
19 integer, intent(in
) :: comm
20 integer, intent(out
):: ierr
25 subroutine MPI_Send2 (buf
, count
, datatype
, dest
, tag
, comm
, ierr
)
26 !GCC$ attributes NO_ARG_CHECK :: buf
27 type(*), intent(in
) :: buf(*)
28 integer, intent(in
) :: count
29 integer, intent(in
) :: datatype
30 integer, intent(in
) :: dest
31 integer, intent(in
) :: tag
32 integer, intent(in
) :: comm
33 integer, intent(out
):: ierr
46 call MPI_Send(a
, 1, 1,1,1,j
,i
)
47 call MPI_Send(b
, 1, 1,1,1,j
,i
)
48 call MPI_Send2(a
, 1, 1,1,1,j
,i
)
49 call MPI_Send2(b
, 1, 1,1,1,j
,i
)
52 !GCC$ attributes NO_ARG_CHECK :: x
54 call MPI_Send2(x
, 1, 1,1,1,j
,i
)