Yet Another eXchange Tool 0.11.3
Loading...
Searching...
No Matches
test_xmap_dist_dir_intercomm_parallel_f.f90
1!>
2!! @file test_xmap_dist_dir_intercomm_parallel_f.f90
3!!
4!! @copyright Copyright (C) 2013 Jörg Behrens <behrens@dkrz.de>
5!! Moritz Hanke <hanke@dkrz.de>
6!! Thomas Jahns <jahns@dkrz.de>
7!!
8!! @author Jörg Behrens <behrens@dkrz.de>
9!! Moritz Hanke <hanke@dkrz.de>
10!! Thomas Jahns <jahns@dkrz.de>
11!!
12!
13! Keywords:
14! Maintainer: Jörg Behrens <behrens@dkrz.de>
15! Moritz Hanke <hanke@dkrz.de>
16! Thomas Jahns <jahns@dkrz.de>
17! URL: https://dkrz-sw.gitlab-pages.dkrz.de/yaxt/
18!
19! Redistribution and use in source and binary forms, with or without
20! modification, are permitted provided that the following conditions are
21! met:
22!
23! Redistributions of source code must retain the above copyright notice,
24! this list of conditions and the following disclaimer.
25!
26! Redistributions in binary form must reproduce the above copyright
27! notice, this list of conditions and the following disclaimer in the
28! documentation and/or other materials provided with the distribution.
29!
30! Neither the name of the DKRZ GmbH nor the names of its contributors
31! may be used to endorse or promote products derived from this software
32! without specific prior written permission.
33!
34! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
35! IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
36! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
37! PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
38! OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
39! EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
40! PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
41! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
42! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
43! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
44! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
45!
46#include "fc_feature_defs.inc"
47PROGRAM test_xmap_dist_dir_intercomm_parallel
48 USE xt_xmap_abstract, ONLY: xt_xmap_dist_dir_new
49 USE test_xmap_common_intercomm_parallel, ONLY: &
50 xmap_intercomm_parallel_test_main
51 IMPLICIT NONE
52 INTERFACE
53 FUNCTION xmap_dist_dir_intercomm_wrap(src_idxlist, dst_idxlist, &
54 inter_comm) RESULT(xmap)
55 USE yaxt, ONLY: xt_xmap, xt_idxlist
56 TYPE(xt_idxlist), INTENT(in) :: src_idxlist, dst_idxlist
57 INTEGER, INTENT(in) :: inter_comm
58 TYPE(xt_xmap) :: xmap
59 END FUNCTION xmap_dist_dir_intercomm_wrap
60 END INTERFACE
61 CALL xmap_intercomm_parallel_test_main(xt_xmap_dist_dir_new, &
62 call_finalize=.false.)
63 CALL xmap_intercomm_parallel_test_main(xmap_dist_dir_intercomm_wrap, &
64 call_initialize=.false.)
65END PROGRAM test_xmap_dist_dir_intercomm_parallel
66
67FUNCTION xmap_dist_dir_intercomm_wrap(src_idxlist, dst_idxlist, inter_comm) &
68 result(xmap)
70 USE test_xmap_common_intercomm_parallel, ONLY: intra_group_comm
71 TYPE(xt_idxlist), INTENT(in) :: src_idxlist, dst_idxlist
72 INTEGER, INTENT(in) :: inter_comm
73 TYPE(xt_xmap) :: xmap
74 xmap = xt_xmap_dist_dir_intercomm_new(src_idxlist, dst_idxlist, &
75 inter_comm, intra_group_comm)
76END FUNCTION xmap_dist_dir_intercomm_wrap
77
78!
79! Local Variables:
80! f90-continuation-indent: 5
81! coding: utf-8
82! indent-tabs-mode: nil
83! show-trailing-whitespace: t
84! require-trailing-newline: t
85! End:
86!
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)