Yet Another eXchange Tool  0.9.0
xt_mpi_f.f90
Go to the documentation of this file.
1 
13 
14 !
15 ! Keywords:
16 ! Maintainer: Jörg Behrens <behrens@dkrz.de>
17 ! Moritz Hanke <hanke@dkrz.de>
18 ! Thomas Jahns <jahns@dkrz.de>
19 ! URL: https://doc.redmine.dkrz.de/yaxt/html/
20 !
21 ! Redistribution and use in source and binary forms, with or without
22 ! modification, are permitted provided that the following conditions are
23 ! met:
24 !
25 ! Redistributions of source code must retain the above copyright notice,
26 ! this list of conditions and the following disclaimer.
27 !
28 ! Redistributions in binary form must reproduce the above copyright
29 ! notice, this list of conditions and the following disclaimer in the
30 ! documentation and/or other materials provided with the distribution.
31 !
32 ! Neither the name of the DKRZ GmbH nor the names of its contributors
33 ! may be used to endorse or promote products derived from this software
34 ! without specific prior written permission.
35 !
36 ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
37 ! IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
38 ! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
39 ! PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
40 ! OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
41 ! EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
42 ! PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
43 ! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
44 ! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
45 ! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
46 ! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
47 !
48 MODULE xt_mpi
49  USE mpi, orig_mpi_address_kind => mpi_address_kind
50  use, INTRINSIC :: iso_c_binding, only: c_int, c_long, c_short, c_long_long
51  IMPLICIT NONE
52  PUBLIC
53  INTEGER, PARAMETER :: xt_mpi_fint_kind = xt_mpi_fint_fc_kind
54  INTEGER, PARAMETER :: mpi_address_kind = xt_mpi_aint_kind
55  INTERFACE
56  SUBROUTINE xt_mpi_comm_mark_exclusive(comm) &
57  bind(c, name='xt_mpi_comm_mark_exclusive_f2c')
58  IMPORT :: xt_mpi_fint_kind
59  INTEGER(xt_mpi_fint_kind), INTENT(inout) :: comm
60  END SUBROUTINE xt_mpi_comm_mark_exclusive
61  END INTERFACE
62 END MODULE xt_mpi
63 !
64 ! Local Variables:
65 ! f90-continuation-indent: 5
66 ! coding: utf-8
67 ! indent-tabs-mode: nil
68 ! show-trailing-whitespace: t
69 ! require-trailing-newline: t
70 ! End:
71 !
integer, parameter mpi_address_kind
Definition: xt_mpi_f.f90:54
integer, parameter xt_mpi_fint_kind
Definition: xt_mpi_f.f90:53