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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
! @@LICENSE@@ see Copyright notice in the top-directory
! Get default commands
#include "bud_utils.inc"
!> @addtogroup bud-intrinsic
!> @defgroup dist-1d-sm-csc0 Parallel distribution (1D) with associated sparse matrix
!! @ingroup bud-intrinsic
!! @ingroup dist-1d-sm
!!
!! A distribution implementation with sparse matrix
!!
!! @{
! Define the sparse matrix stuff
#define BUD_SM_CSC 1
#include "SM.inc"
# define BUD_MOD_NAME BUD_CC3(BUD_MOD,_,iDist1D_CSC0)
!> @defgroup BUD_MOD_NAME Integer (int)
!! `integer(selected_int_kind(9))` data type
!! @{
module BUD_MOD_NAME
use BUD_CC3(BUD_MOD,_,iDist1D)
use BUD_CC3(BUD_MOD,_,iSM_CSC0)
# define BUD_TYPE_NAME BUD_CC2(BUD_TYPE,iD1D_CSC0)
# define BUD_COLL_1 BUD_CC2(BUD_TYPE,iDist1D)
# define BUD_COLL_2 BUD_CC2(BUD_TYPE,iSM_CSC0)
# define BUD_TYPE_VAR integer
# define BUD_PREC ii_
# define BUD_MPI_PREC MPI_Integer
#include "Dist1D_SM.inc"
end module
!> @}
!!$# define BUD_MOD_NAME BUD_CC3(BUD_MOD,_,lDist1D_CSC0)
!!$!> @defgroup BUD_MOD_NAME Integer (long)
!!$!! `integer(selected_int_kind(18))` data type
!!$!! @{
!!$module BUD_MOD_NAME
!!$ use BUD_CC3(BUD_MOD,_,lDist1D)
!!$ use BUD_CC3(BUD_MOD,_,lSM_CSC0)
!!$# define BUD_TYPE_NAME BUD_CC2(BUD_TYPE,lD1D_CSC0)
!!$# define BUD_COLL_1 BUD_CC2(BUD_TYPE,lDist1D)
!!$# define BUD_COLL_2 BUD_CC2(BUD_TYPE,lSM_CSC0)
!!$# define BUD_TYPE_VAR integer
!!$# define BUD_PREC il_
!!$ ! @todo Assert that a long communicator with MPI works!!
!!$# define BUD_MPI_PREC MPI_Integer
!!$#include "Dist1D_SM.inc"
!!$end module
!!$!> @}
!> @defgroup Distribution+sparse matrix module for all precision objects of CSC0 matrix
!! @ingroup dist-1d-sm
!! Module for making everything public
!! @{
module BUD_CC3(BUD_MOD,_,Dist1D_CSC0)
use BUD_CC3(BUD_MOD,_,iDist1D_CSC0)
!!$ use BUD_CC3(BUD_MOD,_,lDist1D_CSC0)
end module
!> @}
! GROUP dist-1d-sm-csc0
!> @}
! project-buds -- local file settings
! Anything below this line may be overwritten by scripts
! Below are non-editable settings
! Local Variables:
! mode: f90
! f90-if-indent: 2
! f90-type-indent: 2
! f90-associate-indent: 2
! f90-continuation-indent: 2
! f90-structure-indent: 2
! f90-critical-indent: 2
! f90-program-indent: 2
! f90-do-indent: 2
! End:
|