46 PROGRAM test_xmap_dist_dir_intercomm_parallel
48 USE test_xmap_common_intercomm_parallel,
ONLY: &
49 xmap_intercomm_parallel_test_main
52 FUNCTION xmap_dist_dir_intercomm_wrap(src_idxlist, dst_idxlist, &
53 inter_comm)
RESULT(xmap)
54 USE yaxt,
ONLY: xt_xmap, xt_idxlist
55 TYPE(xt_idxlist),
INTENT(in) :: src_idxlist, dst_idxlist
56 INTEGER,
VALUE,
INTENT(in) :: inter_comm
58 END FUNCTION xmap_dist_dir_intercomm_wrap
61 call_finalize=.false.)
62 CALL xmap_intercomm_parallel_test_main(xmap_dist_dir_intercomm_wrap, &
63 call_initialize=.false.)
64 END PROGRAM test_xmap_dist_dir_intercomm_parallel
66 FUNCTION xmap_dist_dir_intercomm_wrap(src_idxlist, dst_idxlist, inter_comm) &
69 USE test_xmap_common_intercomm_parallel,
ONLY: intra_group_comm
70 TYPE(xt_idxlist),
INTENT(in) :: src_idxlist, dst_idxlist
71 INTEGER,
VALUE,
INTENT(in) :: inter_comm
74 inter_comm, intra_group_comm)
75 END FUNCTION xmap_dist_dir_intercomm_wrap
Xt_xmap xt_xmap_dist_dir_new(Xt_idxlist src_idxlist, Xt_idxlist dst_idxlist, MPI_Comm comm)
Xt_xmap xt_xmap_dist_dir_intercomm_new(Xt_idxlist src_idxlist, Xt_idxlist dst_idxlist, MPI_Comm inter_comm, MPI_Comm intra_comm)