scales_ppm.f90 3.04 KB
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
! scales_ppm.f90 --- gathers facilities from all the other modules to
!                    provide an installable module interface file
!
! Copyright  (C)  2010  Thomas Jahns <jahns@dkrz.de>
!
! Version: 1.0
! Keywords: library Fortran 90 interface
! Author: Thomas Jahns <jahns@dkrz.de>
! Maintainer: Thomas Jahns <jahns@dkrz.de>
! URL: https://www.dkrz.de/redmine/projects/show/scales-ppm
!
! Redistribution and use in source and binary forms, with or without
! modification, are  permitted provided that the following conditions are
! met:
!
! Redistributions of source code must retain the above copyright notice,
! this list of conditions and the following disclaimer.
!
! Redistributions in binary form must reproduce the above copyright
! notice, this list of conditions and the following disclaimer in the
! documentation and/or other materials provided with the distribution.
!
! Neither the name of the DKRZ GmbH nor the names of its contributors
! may be used to endorse or promote products derived from this software
! without specific prior written permission.
!
! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
! IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
! PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
! OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
! EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
! PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
! PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
! LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
! NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
! SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
!
! Commentary:
!
!
!
! Code:
!
45
MODULE scales_ppm
46
  USE ppm_base, ONLY: abort_ppm
47
  USE ppm_extents, ONLY: extent, extent_size, extent_end, &
48
       extent_start, rebased_extent, &
49
       extent_set_iinterval, extent_from_iinterval, char, iinterval, &
50
51
       ASSIGNMENT(=), OPERATOR(==)
  USE strided_extents, ONLY: char, OPERATOR(==), &
Thomas Jahns's avatar
Thomas Jahns committed
52
53
54
55
#ifdef USE_MPI
       subarray_mpi_datatype, &
#endif /* USE_MPI */
       strided_extent, extent_size, extent_start, extent_end
56
57
  USE uniform_partition, ONLY: uniform_decomposition_1d, &
       uniform_decomposition_2d, uniform_partition_1d
58
#ifdef USE_PARMETIS
59
  USE graph_partition_mpi, ONLY: graph_partition_parmetis
60
61
#endif
#ifdef USE_METIS
62
  USE graph_partition_serial, ONLY: graph_partition_metis
63
#endif
64
  IMPLICIT NONE
65
#if defined(USE_PARMETIS) || defined(USE_METIS)
66
#include <ppm.inc>
67
68
69
70
71
72
#endif
#ifdef USE_PARMETIS
  PUBLIC :: graph_partition_parmetis
#endif
#ifdef USE_METIS
  PUBLIC :: graph_partition_metis
73
74
#endif
  PUBLIC :: abort_ppm, initialize_scales_ppm
Thomas Jahns's avatar
Thomas Jahns committed
75
  PUBLIC :: char
76
CONTAINS
77
78
  SUBROUTINE initialize_scales_ppm
  END SUBROUTINE initialize_scales_ppm
79
END MODULE scales_ppm
80
81
82
83
84
!
! Local Variables:
! license-project-url: "https://www.dkrz.de/redmine/projects/show/scales-ppm"
! license-default: "bsd"
! End: