← Back to branch summary

~nickpapior/siesta/trunk-buds-format0.92

« back to all changes in this revision

Viewing changes to Src/buds/include/bud_precision.inc

  • Committer: Nick Papior
  • Date: 2017-04-07 12:42:28 UTC
  • Revision ID: nickpapior@gmail.com-20170407124228-u5t08yr2p4fhzfeo
Initial commit of buds merged into siesta

Currently I have only enabled buds compilation.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/buds/include/bud_precision.inc
 
1
  ! @@LICENSE@@ see Copyright notice in the top-directory
 
2
 
 
3
  ! Just for the concatenation features
 
4
#include "bud_utils.inc"
 
5
 
 
6
#ifndef BUD_PRECISION_SUFFIX
 
7
# define BUD_PRECISION_SUFFIX
 
8
#endif
 
9
 
 
10
  ! Data precisions (PRIVATE)
 
11
  ! Although these names may be "uncommon"
 
12
  ! they are only internal variables and should only be used as such.
 
13
  ! They represent the 3 allowed integer variables:
 
14
  !  is == short (2-byte)
 
15
  !  ii == int (4-byte)
 
16
  !  il == long (8-byte)
 
17
  ! and the real variables
 
18
  !  rr == real (4-byte)
 
19
  !  rd == double (8-byte)
 
20
  !  re == long double, currently not supported
 
21
 
 
22
  !> @cond BUD_DEVELOPER
 
23
 
 
24
  integer, parameter :: BUD_CC2(rr,BUD_PRECISION_SUFFIX) = selected_real_kind(p=6) ! single (real*4)
 
25
  integer, parameter :: BUD_CC2(rd,BUD_PRECISION_SUFFIX) = selected_real_kind(p=15) ! double (real*8)
 
26
  !integer, private, parameter :: BUD_CC2(re,BUD_PRECISION_SUFFIX) = selected_real_kind(p=18)
 
27
 
 
28
  integer, parameter :: BUD_CC2(is,BUD_PRECISION_SUFFIX) = selected_int_kind(4) ! short (integer*2)
 
29
  integer, parameter :: BUD_CC2(ii,BUD_PRECISION_SUFFIX) = selected_int_kind(9) ! int (integer*4)
 
30
  integer, parameter :: BUD_CC2(il,BUD_PRECISION_SUFFIX) = selected_int_kind(18) ! long (integer*8)
 
31
 
 
32
#undef BUD_PRECISION_SUFFIX
 
33
 
 
34
  !> @endcond BUD_DEVELOPER
 
35
 
 
36
 
 
37
! project-buds -- local file settings
 
38
!     Anything below this line may be overwritten by scripts
 
39
!     Below are non-editable settings
 
40
 
 
41
! Local Variables:
 
42
!  mode: f90
 
43
!  f90-if-indent: 2
 
44
!  f90-type-indent: 2
 
45
!  f90-associate-indent: 2
 
46
!  f90-continuation-indent: 2
 
47
!  f90-structure-indent: 2
 
48
!  f90-critical-indent: 2
 
49
!  f90-program-indent: 2
 
50
!  f90-do-indent: 2
 
51
! End:
 
52