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_arrayCopy](@ref test_pm_arrayCopy).
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_arrayCopy) routines ! LCOV_EXCL_LINE
28 :
29 : use pm_kind, only: LK, SK
30 : use pm_arrayResize, only: setResized
31 : use pm_distUnif, only: getUnifRand
32 : use pm_distUnif, only: setUnifRand
33 : use pm_option, only: getOption
34 : use pm_val2str, only: getStr
35 : implicit none
36 :
37 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
38 :
39 : contains
40 :
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 :
43 : #define setCopyIndexed_ENABLED 1
44 :
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
48 :
49 : #define D0_ENABLED 1
50 :
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 :
53 : #define SK_ENABLED 1
54 :
55 : #if SK5_ENABLED
56 : module procedure test_setCopyIndexed_D0_SK5_1
57 : use pm_kind, only: SKC => SK5
58 : #include "test_pm_arrayCopy@routines.inc.F90"
59 : end procedure
60 : #endif
61 :
62 : #if SK4_ENABLED
63 : module procedure test_setCopyIndexed_D0_SK4_1
64 : use pm_kind, only: SKC => SK4
65 : #include "test_pm_arrayCopy@routines.inc.F90"
66 : end procedure
67 : #endif
68 :
69 : #if SK3_ENABLED
70 : module procedure test_setCopyIndexed_D0_SK3_1
71 : use pm_kind, only: SKC => SK3
72 : #include "test_pm_arrayCopy@routines.inc.F90"
73 : end procedure
74 : #endif
75 :
76 : #if SK2_ENABLED
77 : module procedure test_setCopyIndexed_D0_SK2_1
78 : use pm_kind, only: SKC => SK2
79 : #include "test_pm_arrayCopy@routines.inc.F90"
80 : end procedure
81 : #endif
82 :
83 : #if SK1_ENABLED
84 2 : module procedure test_setCopyIndexed_D0_SK1_1
85 : use pm_kind, only: SKC => SK1
86 : #include "test_pm_arrayCopy@routines.inc.F90"
87 : end procedure
88 : #endif
89 :
90 : #undef SK_ENABLED
91 :
92 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
93 :
94 : #undef D0_ENABLED
95 :
96 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
98 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
99 :
100 : #define D1_ENABLED 1
101 :
102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 :
104 : #define SK_ENABLED 1
105 :
106 : #if SK5_ENABLED
107 : module procedure test_setCopyIndexed_D1_SK5_1
108 : use pm_kind, only: SKC => SK5
109 : #include "test_pm_arrayCopy@routines.inc.F90"
110 : end procedure
111 : #endif
112 :
113 : #if SK4_ENABLED
114 : module procedure test_setCopyIndexed_D1_SK4_1
115 : use pm_kind, only: SKC => SK4
116 : #include "test_pm_arrayCopy@routines.inc.F90"
117 : end procedure
118 : #endif
119 :
120 : #if SK3_ENABLED
121 : module procedure test_setCopyIndexed_D1_SK3_1
122 : use pm_kind, only: SKC => SK3
123 : #include "test_pm_arrayCopy@routines.inc.F90"
124 : end procedure
125 : #endif
126 :
127 : #if SK2_ENABLED
128 : module procedure test_setCopyIndexed_D1_SK2_1
129 : use pm_kind, only: SKC => SK2
130 : #include "test_pm_arrayCopy@routines.inc.F90"
131 : end procedure
132 : #endif
133 :
134 : #if SK1_ENABLED
135 4 : module procedure test_setCopyIndexed_D1_SK1_1
136 : use pm_kind, only: SKC => SK1
137 : #include "test_pm_arrayCopy@routines.inc.F90"
138 : end procedure
139 : #endif
140 :
141 : #undef SK_ENABLED
142 :
143 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
144 :
145 : #define IK_ENABLED 1
146 :
147 : #if IK5_ENABLED
148 2 : module procedure test_setCopyIndexed_D1_IK5_1
149 : use pm_kind, only: IKC => IK5
150 : #include "test_pm_arrayCopy@routines.inc.F90"
151 : end procedure
152 : #endif
153 :
154 : #if IK4_ENABLED
155 2 : module procedure test_setCopyIndexed_D1_IK4_1
156 : use pm_kind, only: IKC => IK4
157 : #include "test_pm_arrayCopy@routines.inc.F90"
158 : end procedure
159 : #endif
160 :
161 : #if IK3_ENABLED
162 2 : module procedure test_setCopyIndexed_D1_IK3_1
163 : use pm_kind, only: IKC => IK3
164 : #include "test_pm_arrayCopy@routines.inc.F90"
165 : end procedure
166 : #endif
167 :
168 : #if IK2_ENABLED
169 2 : module procedure test_setCopyIndexed_D1_IK2_1
170 : use pm_kind, only: IKC => IK2
171 : #include "test_pm_arrayCopy@routines.inc.F90"
172 : end procedure
173 : #endif
174 :
175 : #if IK1_ENABLED
176 2 : module procedure test_setCopyIndexed_D1_IK1_1
177 : use pm_kind, only: IKC => IK1
178 : #include "test_pm_arrayCopy@routines.inc.F90"
179 : end procedure
180 : #endif
181 :
182 : #undef IK_ENABLED
183 :
184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
185 :
186 : #define LK_ENABLED 1
187 :
188 : #if LK5_ENABLED
189 2 : module procedure test_setCopyIndexed_D1_LK5_1
190 : use pm_kind, only: LKC => LK5
191 : #include "test_pm_arrayCopy@routines.inc.F90"
192 : end procedure
193 : #endif
194 :
195 : #if LK4_ENABLED
196 2 : module procedure test_setCopyIndexed_D1_LK4_1
197 : use pm_kind, only: LKC => LK4
198 : #include "test_pm_arrayCopy@routines.inc.F90"
199 : end procedure
200 : #endif
201 :
202 : #if LK3_ENABLED
203 2 : module procedure test_setCopyIndexed_D1_LK3_1
204 : use pm_kind, only: LKC => LK3
205 : #include "test_pm_arrayCopy@routines.inc.F90"
206 : end procedure
207 : #endif
208 :
209 : #if LK2_ENABLED
210 2 : module procedure test_setCopyIndexed_D1_LK2_1
211 : use pm_kind, only: LKC => LK2
212 : #include "test_pm_arrayCopy@routines.inc.F90"
213 : end procedure
214 : #endif
215 :
216 : #if LK1_ENABLED
217 2 : module procedure test_setCopyIndexed_D1_LK1_1
218 : use pm_kind, only: LKC => LK1
219 : #include "test_pm_arrayCopy@routines.inc.F90"
220 : end procedure
221 : #endif
222 :
223 : #undef LK_ENABLED
224 :
225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
226 :
227 : #define CK_ENABLED 1
228 :
229 : #if CK5_ENABLED
230 : module procedure test_setCopyIndexed_D1_CK5_1
231 : use pm_kind, only: CKC => CK5
232 : #include "test_pm_arrayCopy@routines.inc.F90"
233 : end procedure
234 : #endif
235 :
236 : #if CK4_ENABLED
237 2 : module procedure test_setCopyIndexed_D1_CK4_1
238 : use pm_kind, only: CKC => CK4
239 : #include "test_pm_arrayCopy@routines.inc.F90"
240 : end procedure
241 : #endif
242 :
243 : #if CK3_ENABLED
244 2 : module procedure test_setCopyIndexed_D1_CK3_1
245 : use pm_kind, only: CKC => CK3
246 : #include "test_pm_arrayCopy@routines.inc.F90"
247 : end procedure
248 : #endif
249 :
250 : #if CK2_ENABLED
251 2 : module procedure test_setCopyIndexed_D1_CK2_1
252 : use pm_kind, only: CKC => CK2
253 : #include "test_pm_arrayCopy@routines.inc.F90"
254 : end procedure
255 : #endif
256 :
257 : #if CK1_ENABLED
258 2 : module procedure test_setCopyIndexed_D1_CK1_1
259 : use pm_kind, only: CKC => CK1
260 : #include "test_pm_arrayCopy@routines.inc.F90"
261 : end procedure
262 : #endif
263 :
264 : #undef CK_ENABLED
265 :
266 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
267 :
268 : #define RK_ENABLED 1
269 :
270 : #if RK5_ENABLED
271 : module procedure test_setCopyIndexed_D1_RK5_1
272 : use pm_kind, only: RKC => RK5
273 : #include "test_pm_arrayCopy@routines.inc.F90"
274 : end procedure
275 : #endif
276 :
277 : #if RK4_ENABLED
278 2 : module procedure test_setCopyIndexed_D1_RK4_1
279 : use pm_kind, only: RKC => RK4
280 : #include "test_pm_arrayCopy@routines.inc.F90"
281 : end procedure
282 : #endif
283 :
284 : #if RK3_ENABLED
285 2 : module procedure test_setCopyIndexed_D1_RK3_1
286 : use pm_kind, only: RKC => RK3
287 : #include "test_pm_arrayCopy@routines.inc.F90"
288 : end procedure
289 : #endif
290 :
291 : #if RK2_ENABLED
292 2 : module procedure test_setCopyIndexed_D1_RK2_1
293 : use pm_kind, only: RKC => RK2
294 : #include "test_pm_arrayCopy@routines.inc.F90"
295 : end procedure
296 : #endif
297 :
298 : #if RK1_ENABLED
299 2 : module procedure test_setCopyIndexed_D1_RK1_1
300 : use pm_kind, only: RKC => RK1
301 : #include "test_pm_arrayCopy@routines.inc.F90"
302 : end procedure
303 : #endif
304 :
305 : #undef RK_ENABLED
306 :
307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
308 :
309 : #undef D1_ENABLED
310 :
311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
313 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314 :
315 : #undef setCopyIndexed_ENABLED
316 :
317 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
318 :
319 : #define setCopyStrided_ENABLED 1
320 :
321 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
322 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
323 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
324 :
325 : #define D0_ENABLED 1
326 :
327 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
328 :
329 : #define SK_ENABLED 1
330 :
331 : #if SK5_ENABLED
332 : module procedure test_setCopyStrided_D0_SK5_1
333 : use pm_kind, only: SKC => SK5
334 : #include "test_pm_arrayCopy@routines.inc.F90"
335 : end procedure
336 : #endif
337 :
338 : #if SK4_ENABLED
339 : module procedure test_setCopyStrided_D0_SK4_1
340 : use pm_kind, only: SKC => SK4
341 : #include "test_pm_arrayCopy@routines.inc.F90"
342 : end procedure
343 : #endif
344 :
345 : #if SK3_ENABLED
346 : module procedure test_setCopyStrided_D0_SK3_1
347 : use pm_kind, only: SKC => SK3
348 : #include "test_pm_arrayCopy@routines.inc.F90"
349 : end procedure
350 : #endif
351 :
352 : #if SK2_ENABLED
353 : module procedure test_setCopyStrided_D0_SK2_1
354 : use pm_kind, only: SKC => SK2
355 : #include "test_pm_arrayCopy@routines.inc.F90"
356 : end procedure
357 : #endif
358 :
359 : #if SK1_ENABLED
360 2 : module procedure test_setCopyStrided_D0_SK1_1
361 : use pm_kind, only: SKC => SK1
362 : #include "test_pm_arrayCopy@routines.inc.F90"
363 : end procedure
364 : #endif
365 :
366 : #undef SK_ENABLED
367 :
368 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
369 :
370 : #undef D0_ENABLED
371 :
372 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
373 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
374 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
375 :
376 : #define D1_ENABLED 1
377 :
378 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
379 :
380 : #define SK_ENABLED 1
381 :
382 : #if SK5_ENABLED
383 : module procedure test_setCopyStrided_D1_SK5_1
384 : use pm_kind, only: SKC => SK5
385 : #include "test_pm_arrayCopy@routines.inc.F90"
386 : end procedure
387 : #endif
388 :
389 : #if SK4_ENABLED
390 : module procedure test_setCopyStrided_D1_SK4_1
391 : use pm_kind, only: SKC => SK4
392 : #include "test_pm_arrayCopy@routines.inc.F90"
393 : end procedure
394 : #endif
395 :
396 : #if SK3_ENABLED
397 : module procedure test_setCopyStrided_D1_SK3_1
398 : use pm_kind, only: SKC => SK3
399 : #include "test_pm_arrayCopy@routines.inc.F90"
400 : end procedure
401 : #endif
402 :
403 : #if SK2_ENABLED
404 : module procedure test_setCopyStrided_D1_SK2_1
405 : use pm_kind, only: SKC => SK2
406 : #include "test_pm_arrayCopy@routines.inc.F90"
407 : end procedure
408 : #endif
409 :
410 : #if SK1_ENABLED
411 4 : module procedure test_setCopyStrided_D1_SK1_1
412 : use pm_kind, only: SKC => SK1
413 : #include "test_pm_arrayCopy@routines.inc.F90"
414 : end procedure
415 : #endif
416 :
417 : #undef SK_ENABLED
418 :
419 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
420 :
421 : #define IK_ENABLED 1
422 :
423 : #if IK5_ENABLED
424 2 : module procedure test_setCopyStrided_D1_IK5_1
425 : use pm_kind, only: IKC => IK5
426 : #include "test_pm_arrayCopy@routines.inc.F90"
427 : end procedure
428 : #endif
429 :
430 : #if IK4_ENABLED
431 2 : module procedure test_setCopyStrided_D1_IK4_1
432 : use pm_kind, only: IKC => IK4
433 : #include "test_pm_arrayCopy@routines.inc.F90"
434 : end procedure
435 : #endif
436 :
437 : #if IK3_ENABLED
438 2 : module procedure test_setCopyStrided_D1_IK3_1
439 : use pm_kind, only: IKC => IK3
440 : #include "test_pm_arrayCopy@routines.inc.F90"
441 : end procedure
442 : #endif
443 :
444 : #if IK2_ENABLED
445 2 : module procedure test_setCopyStrided_D1_IK2_1
446 : use pm_kind, only: IKC => IK2
447 : #include "test_pm_arrayCopy@routines.inc.F90"
448 : end procedure
449 : #endif
450 :
451 : #if IK1_ENABLED
452 2 : module procedure test_setCopyStrided_D1_IK1_1
453 : use pm_kind, only: IKC => IK1
454 : #include "test_pm_arrayCopy@routines.inc.F90"
455 : end procedure
456 : #endif
457 :
458 : #undef IK_ENABLED
459 :
460 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
461 :
462 : #define LK_ENABLED 1
463 :
464 : #if LK5_ENABLED
465 2 : module procedure test_setCopyStrided_D1_LK5_1
466 : use pm_kind, only: LKC => LK5
467 : #include "test_pm_arrayCopy@routines.inc.F90"
468 : end procedure
469 : #endif
470 :
471 : #if LK4_ENABLED
472 2 : module procedure test_setCopyStrided_D1_LK4_1
473 : use pm_kind, only: LKC => LK4
474 : #include "test_pm_arrayCopy@routines.inc.F90"
475 : end procedure
476 : #endif
477 :
478 : #if LK3_ENABLED
479 2 : module procedure test_setCopyStrided_D1_LK3_1
480 : use pm_kind, only: LKC => LK3
481 : #include "test_pm_arrayCopy@routines.inc.F90"
482 : end procedure
483 : #endif
484 :
485 : #if LK2_ENABLED
486 2 : module procedure test_setCopyStrided_D1_LK2_1
487 : use pm_kind, only: LKC => LK2
488 : #include "test_pm_arrayCopy@routines.inc.F90"
489 : end procedure
490 : #endif
491 :
492 : #if LK1_ENABLED
493 2 : module procedure test_setCopyStrided_D1_LK1_1
494 : use pm_kind, only: LKC => LK1
495 : #include "test_pm_arrayCopy@routines.inc.F90"
496 : end procedure
497 : #endif
498 :
499 : #undef LK_ENABLED
500 :
501 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
502 :
503 : #define CK_ENABLED 1
504 :
505 : #if CK5_ENABLED
506 : module procedure test_setCopyStrided_D1_CK5_1
507 : use pm_kind, only: CKC => CK5
508 : #include "test_pm_arrayCopy@routines.inc.F90"
509 : end procedure
510 : #endif
511 :
512 : #if CK4_ENABLED
513 2 : module procedure test_setCopyStrided_D1_CK4_1
514 : use pm_kind, only: CKC => CK4
515 : #include "test_pm_arrayCopy@routines.inc.F90"
516 : end procedure
517 : #endif
518 :
519 : #if CK3_ENABLED
520 2 : module procedure test_setCopyStrided_D1_CK3_1
521 : use pm_kind, only: CKC => CK3
522 : #include "test_pm_arrayCopy@routines.inc.F90"
523 : end procedure
524 : #endif
525 :
526 : #if CK2_ENABLED
527 2 : module procedure test_setCopyStrided_D1_CK2_1
528 : use pm_kind, only: CKC => CK2
529 : #include "test_pm_arrayCopy@routines.inc.F90"
530 : end procedure
531 : #endif
532 :
533 : #if CK1_ENABLED
534 2 : module procedure test_setCopyStrided_D1_CK1_1
535 : use pm_kind, only: CKC => CK1
536 : #include "test_pm_arrayCopy@routines.inc.F90"
537 : end procedure
538 : #endif
539 :
540 : #undef CK_ENABLED
541 :
542 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
543 :
544 : #define RK_ENABLED 1
545 :
546 : #if RK5_ENABLED
547 : module procedure test_setCopyStrided_D1_RK5_1
548 : use pm_kind, only: RKC => RK5
549 : #include "test_pm_arrayCopy@routines.inc.F90"
550 : end procedure
551 : #endif
552 :
553 : #if RK4_ENABLED
554 2 : module procedure test_setCopyStrided_D1_RK4_1
555 : use pm_kind, only: RKC => RK4
556 : #include "test_pm_arrayCopy@routines.inc.F90"
557 : end procedure
558 : #endif
559 :
560 : #if RK3_ENABLED
561 2 : module procedure test_setCopyStrided_D1_RK3_1
562 : use pm_kind, only: RKC => RK3
563 : #include "test_pm_arrayCopy@routines.inc.F90"
564 : end procedure
565 : #endif
566 :
567 : #if RK2_ENABLED
568 2 : module procedure test_setCopyStrided_D1_RK2_1
569 : use pm_kind, only: RKC => RK2
570 : #include "test_pm_arrayCopy@routines.inc.F90"
571 : end procedure
572 : #endif
573 :
574 : #if RK1_ENABLED
575 2 : module procedure test_setCopyStrided_D1_RK1_1
576 : use pm_kind, only: RKC => RK1
577 : #include "test_pm_arrayCopy@routines.inc.F90"
578 : end procedure
579 : #endif
580 :
581 : #undef RK_ENABLED
582 :
583 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
584 :
585 : #undef D1_ENABLED
586 :
587 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
588 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
589 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
590 :
591 : #undef setCopyStrided_ENABLED
592 :
593 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
594 :
595 : end submodule routines
|
