8
type(ARMCI_slice) :: src_slice, dst_slice
9
! integer(kind=I4), pointer :: a1(:)
11
integer :: remote_proc
12
integer :: lb(7), ub(7), rc, i, j,me, nproc
19
call mpi_comm_rank(mpi_comm_world, me, ierr)
20
call mpi_comm_size(mpi_comm_world, nproc, ierr)
22
remote_proc = nproc -1 -me
30
extent(:) = extent(:) + ub(:) - lb(:)
33
asize(m) = asize(m-1)*extent(m)
36
call testanb_i4(nproc,me,remote_proc)
37
call testanb_i8(nproc,me,remote_proc)
38
call testanb_r4(nproc,me,remote_proc)
39
call testanb_r8(nproc,me,remote_proc)
40
call testanb_c4(nproc,me,remote_proc)
41
call testanb_c8(nproc,me,remote_proc)
43
call ARMCI_Arr_finalize()
44
call mpi_finalize(ierr)