← Back to branch summary

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

« back to all changes in this revision

Viewing changes to Src/buds/src/Item_Array1D.F90

  • 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/src/Item_Array1D.F90
 
1
  ! @@LICENSE@@ see Copyright notice in the top-directory
 
2
 
 
3
! Get default commands
 
4
#include "bud_utils.inc"
 
5
 
 
6
!> @addtogroup bud-intrinsic Intrinsic @buds
 
7
 
 
8
!> @defgroup i-array Item with Array
 
9
!! @ingroup bud-intrinsic
 
10
!!
 
11
!! @bud item containing an Array.
 
12
!!
 
13
!! @{
 
14
 
 
15
! Define the number of dimensions in this Array
 
16
#define BUD_DIM 1
 
17
#define BUD_DIMD BUD_CC2(BUD_DIM,D)
 
18
 
 
19
!> @defgroup i-array-BUD_DIM Item with Array BUD_DIMD
 
20
!! Item containing Array of dimension BUD_DIM.
 
21
!! @{
 
22
 
 
23
 
 
24
# define BUD_MOD_NAME BUD_CC3(BUD_MOD,_Item_,sArray1D)
 
25
!> @defgroup BUD_MOD_NAME Integer (short)
 
26
!! `integer(selected_int_kind(4))` data type
 
27
!! @{
 
28
module BUD_MOD_NAME
 
29
  use BUD_CC3(BUD_MOD,_,sArray1D)
 
30
# define BUD_TYPE_NAME BUD_CC3(BUD_TYPE,Item_,sArray1D)
 
31
# define BUD_ITEM_TYPE BUD_CC2(BUD_TYPE,sArray1D)
 
32
#include "Item_Array.inc"
 
33
end module
 
34
!> @}
 
35
 
 
36
# define BUD_MOD_NAME BUD_CC3(BUD_MOD,_Item_,iArray1D)
 
37
!> @defgroup BUD_MOD_NAME Integer (int)
 
38
!! `integer(selected_int_kind(9))` data type
 
39
!! @{
 
40
module BUD_MOD_NAME
 
41
  use BUD_CC3(BUD_MOD,_,iArray1D)
 
42
# define BUD_TYPE_NAME BUD_CC3(BUD_TYPE,Item_,iArray1D)
 
43
# define BUD_ITEM_TYPE BUD_CC2(BUD_TYPE,iArray1D)
 
44
#include "Item_Array.inc"
 
45
end module
 
46
!> @}
 
47
 
 
48
# define BUD_MOD_NAME BUD_CC3(BUD_MOD,_Item_,lArray1D)
 
49
!> @defgroup BUD_MOD_NAME Integer (long)
 
50
!! `integer(selected_int_kind(18))` data type
 
51
!! @{
 
52
module BUD_MOD_NAME
 
53
  use BUD_CC3(BUD_MOD,_,lArray1D)
 
54
# define BUD_TYPE_NAME BUD_CC3(BUD_TYPE,Item_,lArray1D)
 
55
# define BUD_ITEM_TYPE BUD_CC2(BUD_TYPE,lArray1D)
 
56
#include "Item_Array.inc"
 
57
end module
 
58
!> @}
 
59
 
 
60
# define BUD_MOD_NAME BUD_CC3(BUD_MOD,_Item_,rArray1D)
 
61
!> @defgroup BUD_MOD_NAME Real (float)
 
62
!! `real(selected_real_kind(6))` data type
 
63
!! @{
 
64
module BUD_MOD_NAME
 
65
  use BUD_CC3(BUD_MOD,_,rArray1D)
 
66
# define BUD_TYPE_NAME BUD_CC3(BUD_TYPE,Item_,rArray1D)
 
67
# define BUD_ITEM_TYPE BUD_CC2(BUD_TYPE,rArray1D)
 
68
#include "Item_Array.inc"
 
69
end module
 
70
!> @}
 
71
 
 
72
# define BUD_MOD_NAME BUD_CC3(BUD_MOD,_Item_,dArray1D)
 
73
!> @defgroup BUD_MOD_NAME Real (double)
 
74
!! `real(selected_real_kind(15))` data type
 
75
!! @{
 
76
module BUD_MOD_NAME
 
77
  use BUD_CC3(BUD_MOD,_,dArray1D)
 
78
# define BUD_TYPE_NAME BUD_CC3(BUD_TYPE,Item_,dArray1D)
 
79
# define BUD_ITEM_TYPE BUD_CC2(BUD_TYPE,dArray1D)
 
80
#include "Item_Array.inc"
 
81
end module
 
82
!> @}
 
83
 
 
84
# define BUD_MOD_NAME BUD_CC3(BUD_MOD,_Item_,cArray1D)
 
85
!> @defgroup BUD_MOD_NAME Complex (float)
 
86
!! `complex(selected_real_kind(6))` data type
 
87
!! @{
 
88
module BUD_MOD_NAME
 
89
  use BUD_CC3(BUD_MOD,_,cArray1D)
 
90
# define BUD_TYPE_NAME BUD_CC3(BUD_TYPE,Item_,cArray1D)
 
91
# define BUD_ITEM_TYPE BUD_CC2(BUD_TYPE,cArray1D)
 
92
#include "Item_Array.inc"
 
93
end module
 
94
!> @}
 
95
 
 
96
# define BUD_MOD_NAME BUD_CC3(BUD_MOD,_Item_,zArray1D)
 
97
!> @defgroup BUD_MOD_NAME Complex (double)
 
98
!! `complex(selected_real_kind(15))` data type
 
99
!! @{
 
100
module BUD_MOD_NAME
 
101
  use BUD_CC3(BUD_MOD,_,zArray1D)
 
102
# define BUD_TYPE_NAME BUD_CC3(BUD_TYPE,Item_,zArray1D)
 
103
# define BUD_ITEM_TYPE BUD_CC2(BUD_TYPE,zArray1D)
 
104
#include "Item_Array.inc"
 
105
end module
 
106
!> @}
 
107
 
 
108
! GROUP i-array-BUD_DIM
 
109
!> @}
 
110
 
 
111
! GROUP i-array
 
112
!> @}
 
113
 
 
114
 
 
115
! project-buds -- local file settings
 
116
!     Anything below this line may be overwritten by scripts
 
117
!     Below are non-editable settings
 
118
 
 
119
! Local Variables:
 
120
!  mode: f90
 
121
!  f90-if-indent: 2
 
122
!  f90-type-indent: 2
 
123
!  f90-associate-indent: 2
 
124
!  f90-continuation-indent: 2
 
125
!  f90-structure-indent: 2
 
126
!  f90-critical-indent: 2
 
127
!  f90-program-indent: 2
 
128
!  f90-do-indent: 2
 
129
! End:
 
130