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
|
#define BUD_TYPE_MP_COMM BUD_CC2(BUD_TYPE,MP_Comm)
#if BUD_DIM > 1
!> Integer corresponding to the sparse index (`1<=sm_idx<=BUD_DIM`)
!! The default sparse dimension is the last dimension.
integer :: sm_idx = BUD_DIM
#endif
! 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:
|