Yet Another eXchange Tool
0.9.0
test_xmap_dist_dir_parallel_f.f90
1
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://doc.redmine.dkrz.de/yaxt/html/
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
PROGRAM
test_xmap_dist_dir_parallel
47
USE
yaxt
,
ONLY
:
xt_xmap_dist_dir_new
48
USE
test_xmap_common_parallel,
ONLY
: xmap_parallel_test_main
49
IMPLICIT NONE
50
CALL
xmap_parallel_test_main(
xt_xmap_dist_dir_new
)
51
END PROGRAM
test_xmap_dist_dir_parallel
52
!
53
! Local Variables:
54
! f90-continuation-indent: 5
55
! coding: utf-8
56
! indent-tabs-mode: nil
57
! show-trailing-whitespace: t
58
! require-trailing-newline: t
59
! End:
60
!
yaxt
Definition:
yaxt.f90:49
xt_xmap_dist_dir_new
Xt_xmap xt_xmap_dist_dir_new(Xt_idxlist src_idxlist, Xt_idxlist dst_idxlist, MPI_Comm comm)
Definition:
xt_xmap_dist_dir_common.c:366
Generated by
1.9.1