Line data Source code
1 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3 : !!!! !!!!
4 : !!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5 : !!!! !!!!
6 : !!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7 : !!!! !!!!
8 : !!!! This file is part of the ParaMonte library. !!!!
9 : !!!! !!!!
10 : !!!! LICENSE !!!!
11 : !!!! !!!!
12 : !!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13 : !!!! !!!!
14 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15 : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16 :
17 : !> \brief
18 : !> This file contains procedure implementations of [test_pm_arrayFill](@ref test_pm_arrayFill).
19 : !>
20 : !> \fintest
21 : !>
22 : !> \author
23 : !> \AmirShahmoradi, September 1, 2017, 11:35 PM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (test_pm_arrayFill) routines ! LCOV_EXCL_LINE
28 :
29 : use pm_val2str, only: getStr
30 : use pm_kind, only: SK, IK, LK
31 : use pm_io, only: display_type
32 : use pm_distUnif, only: getUnifRand
33 : use pm_distUnif, only: setUnifRand
34 : implicit none
35 :
36 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
37 :
38 : contains
39 :
40 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
41 :
42 : #define getFilled_ENABLED 1
43 :
44 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
45 :
46 : #define SK_ENABLED 1
47 :
48 : #if SK5_ENABLED
49 : module procedure test_getFilled_SK5_1
50 : use pm_kind, only: SKC => SK5
51 : #include "test_pm_arrayFill@routines.inc.F90"
52 : end procedure
53 : #endif
54 :
55 : #if SK4_ENABLED
56 : module procedure test_getFilled_SK4_1
57 : use pm_kind, only: SKC => SK4
58 : #include "test_pm_arrayFill@routines.inc.F90"
59 : end procedure
60 : #endif
61 :
62 : #if SK3_ENABLED
63 : module procedure test_getFilled_SK3_1
64 : use pm_kind, only: SKC => SK3
65 : #include "test_pm_arrayFill@routines.inc.F90"
66 : end procedure
67 : #endif
68 :
69 : #if SK2_ENABLED
70 : module procedure test_getFilled_SK2_1
71 : use pm_kind, only: SKC => SK2
72 : #include "test_pm_arrayFill@routines.inc.F90"
73 : end procedure
74 : #endif
75 :
76 : #if SK1_ENABLED
77 1 : module procedure test_getFilled_SK1_1
78 : use pm_kind, only: SKC => SK1
79 : #include "test_pm_arrayFill@routines.inc.F90"
80 : end procedure
81 : #endif
82 :
83 : #undef SK_ENABLED
84 :
85 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
86 :
87 : #define IK_ENABLED 1
88 :
89 : #if IK5_ENABLED
90 1 : module procedure test_getFilled_IK5_1
91 : use pm_kind, only: IKC => IK5
92 : #include "test_pm_arrayFill@routines.inc.F90"
93 : end procedure
94 : #endif
95 :
96 : #if IK4_ENABLED
97 1 : module procedure test_getFilled_IK4_1
98 : use pm_kind, only: IKC => IK4
99 : #include "test_pm_arrayFill@routines.inc.F90"
100 : end procedure
101 : #endif
102 :
103 : #if IK3_ENABLED
104 1 : module procedure test_getFilled_IK3_1
105 : use pm_kind, only: IKC => IK3
106 : #include "test_pm_arrayFill@routines.inc.F90"
107 : end procedure
108 : #endif
109 :
110 : #if IK2_ENABLED
111 1 : module procedure test_getFilled_IK2_1
112 : use pm_kind, only: IKC => IK2
113 : #include "test_pm_arrayFill@routines.inc.F90"
114 : end procedure
115 : #endif
116 :
117 : #if IK1_ENABLED
118 1 : module procedure test_getFilled_IK1_1
119 : use pm_kind, only: IKC => IK1
120 : #include "test_pm_arrayFill@routines.inc.F90"
121 : end procedure
122 : #endif
123 :
124 : #undef IK_ENABLED
125 :
126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
127 :
128 : #define LK_ENABLED 1
129 :
130 : #if LK5_ENABLED
131 1 : module procedure test_getFilled_LK5_1
132 : use pm_kind, only: LKC => LK5
133 : #include "test_pm_arrayFill@routines.inc.F90"
134 : end procedure
135 : #endif
136 :
137 : #if LK4_ENABLED
138 1 : module procedure test_getFilled_LK4_1
139 : use pm_kind, only: LKC => LK4
140 : #include "test_pm_arrayFill@routines.inc.F90"
141 : end procedure
142 : #endif
143 :
144 : #if LK3_ENABLED
145 1 : module procedure test_getFilled_LK3_1
146 : use pm_kind, only: LKC => LK3
147 : #include "test_pm_arrayFill@routines.inc.F90"
148 : end procedure
149 : #endif
150 :
151 : #if LK2_ENABLED
152 1 : module procedure test_getFilled_LK2_1
153 : use pm_kind, only: LKC => LK2
154 : #include "test_pm_arrayFill@routines.inc.F90"
155 : end procedure
156 : #endif
157 :
158 : #if LK1_ENABLED
159 1 : module procedure test_getFilled_LK1_1
160 : use pm_kind, only: LKC => LK1
161 : #include "test_pm_arrayFill@routines.inc.F90"
162 : end procedure
163 : #endif
164 :
165 : #undef LK_ENABLED
166 :
167 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
168 :
169 : #define CK_ENABLED 1
170 :
171 : #if CK5_ENABLED
172 : module procedure test_getFilled_CK5_1
173 : use pm_kind, only: CKC => CK5
174 : #include "test_pm_arrayFill@routines.inc.F90"
175 : end procedure
176 : #endif
177 :
178 : #if CK4_ENABLED
179 1 : module procedure test_getFilled_CK4_1
180 : use pm_kind, only: CKC => CK4
181 : #include "test_pm_arrayFill@routines.inc.F90"
182 : end procedure
183 : #endif
184 :
185 : #if CK3_ENABLED
186 1 : module procedure test_getFilled_CK3_1
187 : use pm_kind, only: CKC => CK3
188 : #include "test_pm_arrayFill@routines.inc.F90"
189 : end procedure
190 : #endif
191 :
192 : #if CK2_ENABLED
193 1 : module procedure test_getFilled_CK2_1
194 : use pm_kind, only: CKC => CK2
195 : #include "test_pm_arrayFill@routines.inc.F90"
196 : end procedure
197 : #endif
198 :
199 : #if CK1_ENABLED
200 1 : module procedure test_getFilled_CK1_1
201 : use pm_kind, only: CKC => CK1
202 : #include "test_pm_arrayFill@routines.inc.F90"
203 : end procedure
204 : #endif
205 :
206 : #undef CK_ENABLED
207 :
208 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
209 :
210 : #define RK_ENABLED 1
211 :
212 : #if RK5_ENABLED
213 : module procedure test_getFilled_RK5_1
214 : use pm_kind, only: RKC => RK5
215 : #include "test_pm_arrayFill@routines.inc.F90"
216 : end procedure
217 : #endif
218 :
219 : #if RK4_ENABLED
220 1 : module procedure test_getFilled_RK4_1
221 : use pm_kind, only: RKC => RK4
222 : #include "test_pm_arrayFill@routines.inc.F90"
223 : end procedure
224 : #endif
225 :
226 : #if RK3_ENABLED
227 1 : module procedure test_getFilled_RK3_1
228 : use pm_kind, only: RKC => RK3
229 : #include "test_pm_arrayFill@routines.inc.F90"
230 : end procedure
231 : #endif
232 :
233 : #if RK2_ENABLED
234 1 : module procedure test_getFilled_RK2_1
235 : use pm_kind, only: RKC => RK2
236 : #include "test_pm_arrayFill@routines.inc.F90"
237 : end procedure
238 : #endif
239 :
240 : #if RK1_ENABLED
241 1 : module procedure test_getFilled_RK1_1
242 : use pm_kind, only: RKC => RK1
243 : #include "test_pm_arrayFill@routines.inc.F90"
244 : end procedure
245 : #endif
246 :
247 : #undef RK_ENABLED
248 :
249 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
250 :
251 : #undef getFilled_ENABLED
252 :
253 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
254 :
255 : end submodule routines
|
