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_arrayReplace](@ref test_pm_arrayReplace).
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_arrayReplace) routines ! LCOV_EXCL_LINE
28 :
29 : use pm_arrayRange, only: getRange
30 : use pm_arraySort, only: setSorted
31 : !use pm_arrayFind, only: setLoc
32 : use pm_arrayUnique, only: getUnique
33 : use pm_arrayShuffle, only: setShuffled!,getShuffled
34 : use pm_distUnif, only: getUnifRand, setUnifRand
35 : implicit none
36 :
37 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
38 :
39 : contains
40 :
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 : #if 0
43 : #define getReplaced_ENABLED 1
44 :
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
48 :
49 : #define getReplaced_D0_D0_D0_ENABLED 1
50 :
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 :
53 : #define getReplaced_D0_D0_D0_SK_ENABLED 1
54 :
55 : #if SK5_ENABLED
56 : module procedure test_getReplaced_D0_D0_D0_SK5_1
57 : use pm_kind, only: SKC => SK5
58 : #include "test_pm_arrayReplace@routines.inc.F90"
59 : end procedure
60 : #endif
61 :
62 : #if SK4_ENABLED
63 : module procedure test_getReplaced_D0_D0_D0_SK4_1
64 : use pm_kind, only: SKC => SK4
65 : #include "test_pm_arrayReplace@routines.inc.F90"
66 : end procedure
67 : #endif
68 :
69 : #if SK3_ENABLED
70 : module procedure test_getReplaced_D0_D0_D0_SK3_1
71 : use pm_kind, only: SKC => SK3
72 : #include "test_pm_arrayReplace@routines.inc.F90"
73 : end procedure
74 : #endif
75 :
76 : #if SK2_ENABLED
77 : module procedure test_getReplaced_D0_D0_D0_SK2_1
78 : use pm_kind, only: SKC => SK2
79 : #include "test_pm_arrayReplace@routines.inc.F90"
80 : end procedure
81 : #endif
82 :
83 : #if SK1_ENABLED
84 : module procedure test_getReplaced_D0_D0_D0_SK1_1
85 : use pm_kind, only: SKC => SK1
86 : #include "test_pm_arrayReplace@routines.inc.F90"
87 : end procedure
88 : #endif
89 :
90 : #undef getReplaced_D0_D0_D0_SK_ENABLED
91 :
92 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
93 :
94 : #undef getReplaced_D0_D0_D0_ENABLED
95 :
96 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
97 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
98 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
99 :
100 : #define getReplaced_D1_D0_D0_ENABLED 1
101 :
102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
103 :
104 : #define getReplaced_D1_D0_D0_SK_ENABLED 1
105 :
106 : #if SK5_ENABLED
107 : module procedure test_getReplaced_D1_D0_D0_SK5_1
108 : use pm_kind, only: SKC => SK5
109 : #include "test_pm_arrayReplace@routines.inc.F90"
110 : end procedure
111 : #endif
112 :
113 : #if SK4_ENABLED
114 : module procedure test_getReplaced_D1_D0_D0_SK4_1
115 : use pm_kind, only: SKC => SK4
116 : #include "test_pm_arrayReplace@routines.inc.F90"
117 : end procedure
118 : #endif
119 :
120 : #if SK3_ENABLED
121 : module procedure test_getReplaced_D1_D0_D0_SK3_1
122 : use pm_kind, only: SKC => SK3
123 : #include "test_pm_arrayReplace@routines.inc.F90"
124 : end procedure
125 : #endif
126 :
127 : #if SK2_ENABLED
128 : module procedure test_getReplaced_D1_D0_D0_SK2_1
129 : use pm_kind, only: SKC => SK2
130 : #include "test_pm_arrayReplace@routines.inc.F90"
131 : end procedure
132 : #endif
133 :
134 : #if SK1_ENABLED
135 : module procedure test_getReplaced_D1_D0_D0_SK1_1
136 : use pm_kind, only: SKC => SK1
137 : #include "test_pm_arrayReplace@routines.inc.F90"
138 : end procedure
139 : #endif
140 :
141 : #undef getReplaced_D1_D0_D0_SK_ENABLED
142 :
143 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
144 :
145 : #define getReplaced_D1_D0_D0_IK_ENABLED 1
146 :
147 : #if IK5_ENABLED
148 : module procedure test_getReplaced_D1_D0_D0_IK5_1
149 : use pm_kind, only: IKC => IK5
150 : #include "test_pm_arrayReplace@routines.inc.F90"
151 : end procedure
152 : #endif
153 :
154 : #if IK4_ENABLED
155 : module procedure test_getReplaced_D1_D0_D0_IK4_1
156 : use pm_kind, only: IKC => IK4
157 : #include "test_pm_arrayReplace@routines.inc.F90"
158 : end procedure
159 : #endif
160 :
161 : #if IK3_ENABLED
162 : module procedure test_getReplaced_D1_D0_D0_IK3_1
163 : use pm_kind, only: IKC => IK3
164 : #include "test_pm_arrayReplace@routines.inc.F90"
165 : end procedure
166 : #endif
167 :
168 : #if IK2_ENABLED
169 : module procedure test_getReplaced_D1_D0_D0_IK2_1
170 : use pm_kind, only: IKC => IK2
171 : #include "test_pm_arrayReplace@routines.inc.F90"
172 : end procedure
173 : #endif
174 :
175 : #if IK1_ENABLED
176 : module procedure test_getReplaced_D1_D0_D0_IK1_1
177 : use pm_kind, only: IKC => IK1
178 : #include "test_pm_arrayReplace@routines.inc.F90"
179 : end procedure
180 : #endif
181 :
182 : #undef getReplaced_D1_D0_D0_IK_ENABLED
183 :
184 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
185 :
186 : #define getReplaced_D1_D0_D0_LK_ENABLED 1
187 :
188 : #if LK5_ENABLED
189 : module procedure test_getReplaced_D1_D0_D0_LK5_1
190 : use pm_kind, only: LKC => LK5
191 : #include "test_pm_arrayReplace@routines.inc.F90"
192 : end procedure
193 : #endif
194 :
195 : #if LK4_ENABLED
196 : module procedure test_getReplaced_D1_D0_D0_LK4_1
197 : use pm_kind, only: LKC => LK4
198 : #include "test_pm_arrayReplace@routines.inc.F90"
199 : end procedure
200 : #endif
201 :
202 : #if LK3_ENABLED
203 : module procedure test_getReplaced_D1_D0_D0_LK3_1
204 : use pm_kind, only: LKC => LK3
205 : #include "test_pm_arrayReplace@routines.inc.F90"
206 : end procedure
207 : #endif
208 :
209 : #if LK2_ENABLED
210 : module procedure test_getReplaced_D1_D0_D0_LK2_1
211 : use pm_kind, only: LKC => LK2
212 : #include "test_pm_arrayReplace@routines.inc.F90"
213 : end procedure
214 : #endif
215 :
216 : #if LK1_ENABLED
217 : module procedure test_getReplaced_D1_D0_D0_LK1_1
218 : use pm_kind, only: LKC => LK1
219 : #include "test_pm_arrayReplace@routines.inc.F90"
220 : end procedure
221 : #endif
222 :
223 : #undef getReplaced_D1_D0_D0_LK_ENABLED
224 :
225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
226 :
227 : #define getReplaced_D1_D0_D0_CK_ENABLED 1
228 :
229 : #if CK5_ENABLED
230 : module procedure test_getReplaced_D1_D0_D0_CK5_1
231 : use pm_kind, only: CKC => CK5
232 : #include "test_pm_arrayReplace@routines.inc.F90"
233 : end procedure
234 : #endif
235 :
236 : #if CK4_ENABLED
237 : module procedure test_getReplaced_D1_D0_D0_CK4_1
238 : use pm_kind, only: CKC => CK4
239 : #include "test_pm_arrayReplace@routines.inc.F90"
240 : end procedure
241 : #endif
242 :
243 : #if CK3_ENABLED
244 : module procedure test_getReplaced_D1_D0_D0_CK3_1
245 : use pm_kind, only: CKC => CK3
246 : #include "test_pm_arrayReplace@routines.inc.F90"
247 : end procedure
248 : #endif
249 :
250 : #if CK2_ENABLED
251 : module procedure test_getReplaced_D1_D0_D0_CK2_1
252 : use pm_kind, only: CKC => CK2
253 : #include "test_pm_arrayReplace@routines.inc.F90"
254 : end procedure
255 : #endif
256 :
257 : #if CK1_ENABLED
258 : module procedure test_getReplaced_D1_D0_D0_CK1_1
259 : use pm_kind, only: CKC => CK1
260 : #include "test_pm_arrayReplace@routines.inc.F90"
261 : end procedure
262 : #endif
263 :
264 : #undef getReplaced_D1_D0_D0_CK_ENABLED
265 :
266 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
267 :
268 : #define getReplaced_D1_D0_D0_RK_ENABLED 1
269 :
270 : #if RK5_ENABLED
271 : module procedure test_getReplaced_D1_D0_D0_RK5_1
272 : use pm_kind, only: RKC => RK5
273 : #include "test_pm_arrayReplace@routines.inc.F90"
274 : end procedure
275 : #endif
276 :
277 : #if RK4_ENABLED
278 : module procedure test_getReplaced_D1_D0_D0_RK4_1
279 : use pm_kind, only: RKC => RK4
280 : #include "test_pm_arrayReplace@routines.inc.F90"
281 : end procedure
282 : #endif
283 :
284 : #if RK3_ENABLED
285 : module procedure test_getReplaced_D1_D0_D0_RK3_1
286 : use pm_kind, only: RKC => RK3
287 : #include "test_pm_arrayReplace@routines.inc.F90"
288 : end procedure
289 : #endif
290 :
291 : #if RK2_ENABLED
292 : module procedure test_getReplaced_D1_D0_D0_RK2_1
293 : use pm_kind, only: RKC => RK2
294 : #include "test_pm_arrayReplace@routines.inc.F90"
295 : end procedure
296 : #endif
297 :
298 : #if RK1_ENABLED
299 : module procedure test_getReplaced_D1_D0_D0_RK1_1
300 : use pm_kind, only: RKC => RK1
301 : #include "test_pm_arrayReplace@routines.inc.F90"
302 : end procedure
303 : #endif
304 :
305 : #undef getReplaced_D1_D0_D0_RK_ENABLED
306 :
307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
308 :
309 : #undef getReplaced_D1_D0_D0_ENABLED
310 :
311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
313 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314 :
315 : #define getReplaced_D1_D0_D1_ENABLED 1
316 :
317 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
318 :
319 : #define getReplaced_D1_D0_D1_SK_ENABLED 1
320 :
321 : #if SK5_ENABLED
322 : module procedure test_getReplaced_D1_D0_D1_SK5_1
323 : use pm_kind, only: SKC => SK5
324 : #include "test_pm_arrayReplace@routines.inc.F90"
325 : end procedure
326 : #endif
327 :
328 : #if SK4_ENABLED
329 : module procedure test_getReplaced_D1_D0_D1_SK4_1
330 : use pm_kind, only: SKC => SK4
331 : #include "test_pm_arrayReplace@routines.inc.F90"
332 : end procedure
333 : #endif
334 :
335 : #if SK3_ENABLED
336 : module procedure test_getReplaced_D1_D0_D1_SK3_1
337 : use pm_kind, only: SKC => SK3
338 : #include "test_pm_arrayReplace@routines.inc.F90"
339 : end procedure
340 : #endif
341 :
342 : #if SK2_ENABLED
343 : module procedure test_getReplaced_D1_D0_D1_SK2_1
344 : use pm_kind, only: SKC => SK2
345 : #include "test_pm_arrayReplace@routines.inc.F90"
346 : end procedure
347 : #endif
348 :
349 : #if SK1_ENABLED
350 : module procedure test_getReplaced_D1_D0_D1_SK1_1
351 : use pm_kind, only: SKC => SK1
352 : #include "test_pm_arrayReplace@routines.inc.F90"
353 : end procedure
354 : #endif
355 :
356 : #undef getReplaced_D1_D0_D1_SK_ENABLED
357 :
358 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
359 :
360 : #define getReplaced_D1_D0_D1_IK_ENABLED 1
361 :
362 : #if IK5_ENABLED
363 : module procedure test_getReplaced_D1_D0_D1_IK5_1
364 : use pm_kind, only: IKC => IK5
365 : #include "test_pm_arrayReplace@routines.inc.F90"
366 : end procedure
367 : #endif
368 :
369 : #if IK4_ENABLED
370 : module procedure test_getReplaced_D1_D0_D1_IK4_1
371 : use pm_kind, only: IKC => IK4
372 : #include "test_pm_arrayReplace@routines.inc.F90"
373 : end procedure
374 : #endif
375 :
376 : #if IK3_ENABLED
377 : module procedure test_getReplaced_D1_D0_D1_IK3_1
378 : use pm_kind, only: IKC => IK3
379 : #include "test_pm_arrayReplace@routines.inc.F90"
380 : end procedure
381 : #endif
382 :
383 : #if IK2_ENABLED
384 : module procedure test_getReplaced_D1_D0_D1_IK2_1
385 : use pm_kind, only: IKC => IK2
386 : #include "test_pm_arrayReplace@routines.inc.F90"
387 : end procedure
388 : #endif
389 :
390 : #if IK1_ENABLED
391 : module procedure test_getReplaced_D1_D0_D1_IK1_1
392 : use pm_kind, only: IKC => IK1
393 : #include "test_pm_arrayReplace@routines.inc.F90"
394 : end procedure
395 : #endif
396 :
397 : #undef getReplaced_D1_D0_D1_IK_ENABLED
398 :
399 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
400 :
401 : #define getReplaced_D1_D0_D1_LK_ENABLED 1
402 :
403 : #if LK5_ENABLED
404 : module procedure test_getReplaced_D1_D0_D1_LK5_1
405 : use pm_kind, only: LKC => LK5
406 : #include "test_pm_arrayReplace@routines.inc.F90"
407 : end procedure
408 : #endif
409 :
410 : #if LK4_ENABLED
411 : module procedure test_getReplaced_D1_D0_D1_LK4_1
412 : use pm_kind, only: LKC => LK4
413 : #include "test_pm_arrayReplace@routines.inc.F90"
414 : end procedure
415 : #endif
416 :
417 : #if LK3_ENABLED
418 : module procedure test_getReplaced_D1_D0_D1_LK3_1
419 : use pm_kind, only: LKC => LK3
420 : #include "test_pm_arrayReplace@routines.inc.F90"
421 : end procedure
422 : #endif
423 :
424 : #if LK2_ENABLED
425 : module procedure test_getReplaced_D1_D0_D1_LK2_1
426 : use pm_kind, only: LKC => LK2
427 : #include "test_pm_arrayReplace@routines.inc.F90"
428 : end procedure
429 : #endif
430 :
431 : #if LK1_ENABLED
432 : module procedure test_getReplaced_D1_D0_D1_LK1_1
433 : use pm_kind, only: LKC => LK1
434 : #include "test_pm_arrayReplace@routines.inc.F90"
435 : end procedure
436 : #endif
437 :
438 : #undef getReplaced_D1_D0_D1_LK_ENABLED
439 :
440 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
441 :
442 : #define getReplaced_D1_D0_D1_CK_ENABLED 1
443 :
444 : #if CK5_ENABLED
445 : module procedure test_getReplaced_D1_D0_D1_CK5_1
446 : use pm_kind, only: CKC => CK5
447 : #include "test_pm_arrayReplace@routines.inc.F90"
448 : end procedure
449 : #endif
450 :
451 : #if CK4_ENABLED
452 : module procedure test_getReplaced_D1_D0_D1_CK4_1
453 : use pm_kind, only: CKC => CK4
454 : #include "test_pm_arrayReplace@routines.inc.F90"
455 : end procedure
456 : #endif
457 :
458 : #if CK3_ENABLED
459 : module procedure test_getReplaced_D1_D0_D1_CK3_1
460 : use pm_kind, only: CKC => CK3
461 : #include "test_pm_arrayReplace@routines.inc.F90"
462 : end procedure
463 : #endif
464 :
465 : #if CK2_ENABLED
466 : module procedure test_getReplaced_D1_D0_D1_CK2_1
467 : use pm_kind, only: CKC => CK2
468 : #include "test_pm_arrayReplace@routines.inc.F90"
469 : end procedure
470 : #endif
471 :
472 : #if CK1_ENABLED
473 : module procedure test_getReplaced_D1_D0_D1_CK1_1
474 : use pm_kind, only: CKC => CK1
475 : #include "test_pm_arrayReplace@routines.inc.F90"
476 : end procedure
477 : #endif
478 :
479 : #undef getReplaced_D1_D0_D1_CK_ENABLED
480 :
481 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
482 :
483 : #define getReplaced_D1_D0_D1_RK_ENABLED 1
484 :
485 : #if RK5_ENABLED
486 : module procedure test_getReplaced_D1_D0_D1_RK5_1
487 : use pm_kind, only: RKC => RK5
488 : #include "test_pm_arrayReplace@routines.inc.F90"
489 : end procedure
490 : #endif
491 :
492 : #if RK4_ENABLED
493 : module procedure test_getReplaced_D1_D0_D1_RK4_1
494 : use pm_kind, only: RKC => RK4
495 : #include "test_pm_arrayReplace@routines.inc.F90"
496 : end procedure
497 : #endif
498 :
499 : #if RK3_ENABLED
500 : module procedure test_getReplaced_D1_D0_D1_RK3_1
501 : use pm_kind, only: RKC => RK3
502 : #include "test_pm_arrayReplace@routines.inc.F90"
503 : end procedure
504 : #endif
505 :
506 : #if RK2_ENABLED
507 : module procedure test_getReplaced_D1_D0_D1_RK2_1
508 : use pm_kind, only: RKC => RK2
509 : #include "test_pm_arrayReplace@routines.inc.F90"
510 : end procedure
511 : #endif
512 :
513 : #if RK1_ENABLED
514 : module procedure test_getReplaced_D1_D0_D1_RK1_1
515 : use pm_kind, only: RKC => RK1
516 : #include "test_pm_arrayReplace@routines.inc.F90"
517 : end procedure
518 : #endif
519 :
520 : #undef getReplaced_D1_D0_D1_RK_ENABLED
521 :
522 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
523 :
524 : #undef getReplaced_D1_D0_D1_ENABLED
525 :
526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
527 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
529 :
530 : #define getReplaced_D1_D1_D0_ENABLED 1
531 :
532 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
533 :
534 : #define getReplaced_D1_D1_D0_SK_ENABLED 1
535 :
536 : #if SK5_ENABLED
537 : module procedure test_getReplaced_D1_D1_D0_SK5_1
538 : use pm_kind, only: SKC => SK5
539 : #include "test_pm_arrayReplace@routines.inc.F90"
540 : end procedure
541 : #endif
542 :
543 : #if SK4_ENABLED
544 : module procedure test_getReplaced_D1_D1_D0_SK4_1
545 : use pm_kind, only: SKC => SK4
546 : #include "test_pm_arrayReplace@routines.inc.F90"
547 : end procedure
548 : #endif
549 :
550 : #if SK3_ENABLED
551 : module procedure test_getReplaced_D1_D1_D0_SK3_1
552 : use pm_kind, only: SKC => SK3
553 : #include "test_pm_arrayReplace@routines.inc.F90"
554 : end procedure
555 : #endif
556 :
557 : #if SK2_ENABLED
558 : module procedure test_getReplaced_D1_D1_D0_SK2_1
559 : use pm_kind, only: SKC => SK2
560 : #include "test_pm_arrayReplace@routines.inc.F90"
561 : end procedure
562 : #endif
563 :
564 : #if SK1_ENABLED
565 : module procedure test_getReplaced_D1_D1_D0_SK1_1
566 : use pm_kind, only: SKC => SK1
567 : #include "test_pm_arrayReplace@routines.inc.F90"
568 : end procedure
569 : #endif
570 :
571 : #undef getReplaced_D1_D1_D0_SK_ENABLED
572 :
573 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
574 :
575 : #define getReplaced_D1_D1_D0_IK_ENABLED 1
576 :
577 : #if IK5_ENABLED
578 : module procedure test_getReplaced_D1_D1_D0_IK5_1
579 : use pm_kind, only: IKC => IK5
580 : #include "test_pm_arrayReplace@routines.inc.F90"
581 : end procedure
582 : #endif
583 :
584 : #if IK4_ENABLED
585 : module procedure test_getReplaced_D1_D1_D0_IK4_1
586 : use pm_kind, only: IKC => IK4
587 : #include "test_pm_arrayReplace@routines.inc.F90"
588 : end procedure
589 : #endif
590 :
591 : #if IK3_ENABLED
592 : module procedure test_getReplaced_D1_D1_D0_IK3_1
593 : use pm_kind, only: IKC => IK3
594 : #include "test_pm_arrayReplace@routines.inc.F90"
595 : end procedure
596 : #endif
597 :
598 : #if IK2_ENABLED
599 : module procedure test_getReplaced_D1_D1_D0_IK2_1
600 : use pm_kind, only: IKC => IK2
601 : #include "test_pm_arrayReplace@routines.inc.F90"
602 : end procedure
603 : #endif
604 :
605 : #if IK1_ENABLED
606 : module procedure test_getReplaced_D1_D1_D0_IK1_1
607 : use pm_kind, only: IKC => IK1
608 : #include "test_pm_arrayReplace@routines.inc.F90"
609 : end procedure
610 : #endif
611 :
612 : #undef getReplaced_D1_D1_D0_IK_ENABLED
613 :
614 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
615 :
616 : #define getReplaced_D1_D1_D0_LK_ENABLED 1
617 :
618 : #if LK5_ENABLED
619 : module procedure test_getReplaced_D1_D1_D0_LK5_1
620 : use pm_kind, only: LKC => LK5
621 : #include "test_pm_arrayReplace@routines.inc.F90"
622 : end procedure
623 : #endif
624 :
625 : #if LK4_ENABLED
626 : module procedure test_getReplaced_D1_D1_D0_LK4_1
627 : use pm_kind, only: LKC => LK4
628 : #include "test_pm_arrayReplace@routines.inc.F90"
629 : end procedure
630 : #endif
631 :
632 : #if LK3_ENABLED
633 : module procedure test_getReplaced_D1_D1_D0_LK3_1
634 : use pm_kind, only: LKC => LK3
635 : #include "test_pm_arrayReplace@routines.inc.F90"
636 : end procedure
637 : #endif
638 :
639 : #if LK2_ENABLED
640 : module procedure test_getReplaced_D1_D1_D0_LK2_1
641 : use pm_kind, only: LKC => LK2
642 : #include "test_pm_arrayReplace@routines.inc.F90"
643 : end procedure
644 : #endif
645 :
646 : #if LK1_ENABLED
647 : module procedure test_getReplaced_D1_D1_D0_LK1_1
648 : use pm_kind, only: LKC => LK1
649 : #include "test_pm_arrayReplace@routines.inc.F90"
650 : end procedure
651 : #endif
652 :
653 : #undef getReplaced_D1_D1_D0_LK_ENABLED
654 :
655 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
656 :
657 : #define getReplaced_D1_D1_D0_CK_ENABLED 1
658 :
659 : #if CK5_ENABLED
660 : module procedure test_getReplaced_D1_D1_D0_CK5_1
661 : use pm_kind, only: CKC => CK5
662 : #include "test_pm_arrayReplace@routines.inc.F90"
663 : end procedure
664 : #endif
665 :
666 : #if CK4_ENABLED
667 : module procedure test_getReplaced_D1_D1_D0_CK4_1
668 : use pm_kind, only: CKC => CK4
669 : #include "test_pm_arrayReplace@routines.inc.F90"
670 : end procedure
671 : #endif
672 :
673 : #if CK3_ENABLED
674 : module procedure test_getReplaced_D1_D1_D0_CK3_1
675 : use pm_kind, only: CKC => CK3
676 : #include "test_pm_arrayReplace@routines.inc.F90"
677 : end procedure
678 : #endif
679 :
680 : #if CK2_ENABLED
681 : module procedure test_getReplaced_D1_D1_D0_CK2_1
682 : use pm_kind, only: CKC => CK2
683 : #include "test_pm_arrayReplace@routines.inc.F90"
684 : end procedure
685 : #endif
686 :
687 : #if CK1_ENABLED
688 : module procedure test_getReplaced_D1_D1_D0_CK1_1
689 : use pm_kind, only: CKC => CK1
690 : #include "test_pm_arrayReplace@routines.inc.F90"
691 : end procedure
692 : #endif
693 :
694 : #undef getReplaced_D1_D1_D0_CK_ENABLED
695 :
696 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
697 :
698 : #define getReplaced_D1_D1_D0_RK_ENABLED 1
699 :
700 : #if RK5_ENABLED
701 : module procedure test_getReplaced_D1_D1_D0_RK5_1
702 : use pm_kind, only: RKC => RK5
703 : #include "test_pm_arrayReplace@routines.inc.F90"
704 : end procedure
705 : #endif
706 :
707 : #if RK4_ENABLED
708 : module procedure test_getReplaced_D1_D1_D0_RK4_1
709 : use pm_kind, only: RKC => RK4
710 : #include "test_pm_arrayReplace@routines.inc.F90"
711 : end procedure
712 : #endif
713 :
714 : #if RK3_ENABLED
715 : module procedure test_getReplaced_D1_D1_D0_RK3_1
716 : use pm_kind, only: RKC => RK3
717 : #include "test_pm_arrayReplace@routines.inc.F90"
718 : end procedure
719 : #endif
720 :
721 : #if RK2_ENABLED
722 : module procedure test_getReplaced_D1_D1_D0_RK2_1
723 : use pm_kind, only: RKC => RK2
724 : #include "test_pm_arrayReplace@routines.inc.F90"
725 : end procedure
726 : #endif
727 :
728 : #if RK1_ENABLED
729 : module procedure test_getReplaced_D1_D1_D0_RK1_1
730 : use pm_kind, only: RKC => RK1
731 : #include "test_pm_arrayReplace@routines.inc.F90"
732 : end procedure
733 : #endif
734 :
735 : #undef getReplaced_D1_D1_D0_RK_ENABLED
736 :
737 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
738 :
739 : #undef getReplaced_D1_D1_D0_ENABLED
740 :
741 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
742 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
743 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
744 :
745 : #define getReplaced_D1_D1_D1_ENABLED 1
746 :
747 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
748 :
749 : #define getReplaced_D1_D1_D1_SK_ENABLED 1
750 :
751 : #if SK5_ENABLED
752 : module procedure test_getReplaced_D1_D1_D1_SK5_1
753 : use pm_kind, only: SKC => SK5
754 : #include "test_pm_arrayReplace@routines.inc.F90"
755 : end procedure
756 : #endif
757 :
758 : #if SK4_ENABLED
759 : module procedure test_getReplaced_D1_D1_D1_SK4_1
760 : use pm_kind, only: SKC => SK4
761 : #include "test_pm_arrayReplace@routines.inc.F90"
762 : end procedure
763 : #endif
764 :
765 : #if SK3_ENABLED
766 : module procedure test_getReplaced_D1_D1_D1_SK3_1
767 : use pm_kind, only: SKC => SK3
768 : #include "test_pm_arrayReplace@routines.inc.F90"
769 : end procedure
770 : #endif
771 :
772 : #if SK2_ENABLED
773 : module procedure test_getReplaced_D1_D1_D1_SK2_1
774 : use pm_kind, only: SKC => SK2
775 : #include "test_pm_arrayReplace@routines.inc.F90"
776 : end procedure
777 : #endif
778 :
779 : #if SK1_ENABLED
780 : module procedure test_getReplaced_D1_D1_D1_SK1_1
781 : use pm_kind, only: SKC => SK1
782 : #include "test_pm_arrayReplace@routines.inc.F90"
783 : end procedure
784 : #endif
785 :
786 : #undef getReplaced_D1_D1_D1_SK_ENABLED
787 :
788 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
789 :
790 : #define getReplaced_D1_D1_D1_IK_ENABLED 1
791 :
792 : #if IK5_ENABLED
793 : module procedure test_getReplaced_D1_D1_D1_IK5_1
794 : use pm_kind, only: IKC => IK5
795 : #include "test_pm_arrayReplace@routines.inc.F90"
796 : end procedure
797 : #endif
798 :
799 : #if IK4_ENABLED
800 : module procedure test_getReplaced_D1_D1_D1_IK4_1
801 : use pm_kind, only: IKC => IK4
802 : #include "test_pm_arrayReplace@routines.inc.F90"
803 : end procedure
804 : #endif
805 :
806 : #if IK3_ENABLED
807 : module procedure test_getReplaced_D1_D1_D1_IK3_1
808 : use pm_kind, only: IKC => IK3
809 : #include "test_pm_arrayReplace@routines.inc.F90"
810 : end procedure
811 : #endif
812 :
813 : #if IK2_ENABLED
814 : module procedure test_getReplaced_D1_D1_D1_IK2_1
815 : use pm_kind, only: IKC => IK2
816 : #include "test_pm_arrayReplace@routines.inc.F90"
817 : end procedure
818 : #endif
819 :
820 : #if IK1_ENABLED
821 : module procedure test_getReplaced_D1_D1_D1_IK1_1
822 : use pm_kind, only: IKC => IK1
823 : #include "test_pm_arrayReplace@routines.inc.F90"
824 : end procedure
825 : #endif
826 :
827 : #undef getReplaced_D1_D1_D1_IK_ENABLED
828 :
829 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
830 :
831 : #define getReplaced_D1_D1_D1_LK_ENABLED 1
832 :
833 : #if LK5_ENABLED
834 : module procedure test_getReplaced_D1_D1_D1_LK5_1
835 : use pm_kind, only: LKC => LK5
836 : #include "test_pm_arrayReplace@routines.inc.F90"
837 : end procedure
838 : #endif
839 :
840 : #if LK4_ENABLED
841 : module procedure test_getReplaced_D1_D1_D1_LK4_1
842 : use pm_kind, only: LKC => LK4
843 : #include "test_pm_arrayReplace@routines.inc.F90"
844 : end procedure
845 : #endif
846 :
847 : #if LK3_ENABLED
848 : module procedure test_getReplaced_D1_D1_D1_LK3_1
849 : use pm_kind, only: LKC => LK3
850 : #include "test_pm_arrayReplace@routines.inc.F90"
851 : end procedure
852 : #endif
853 :
854 : #if LK2_ENABLED
855 : module procedure test_getReplaced_D1_D1_D1_LK2_1
856 : use pm_kind, only: LKC => LK2
857 : #include "test_pm_arrayReplace@routines.inc.F90"
858 : end procedure
859 : #endif
860 :
861 : #if LK1_ENABLED
862 : module procedure test_getReplaced_D1_D1_D1_LK1_1
863 : use pm_kind, only: LKC => LK1
864 : #include "test_pm_arrayReplace@routines.inc.F90"
865 : end procedure
866 : #endif
867 :
868 : #undef getReplaced_D1_D1_D1_LK_ENABLED
869 :
870 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
871 :
872 : #define getReplaced_D1_D1_D1_CK_ENABLED 1
873 :
874 : #if CK5_ENABLED
875 : module procedure test_getReplaced_D1_D1_D1_CK5_1
876 : use pm_kind, only: CKC => CK5
877 : #include "test_pm_arrayReplace@routines.inc.F90"
878 : end procedure
879 : #endif
880 :
881 : #if CK4_ENABLED
882 : module procedure test_getReplaced_D1_D1_D1_CK4_1
883 : use pm_kind, only: CKC => CK4
884 : #include "test_pm_arrayReplace@routines.inc.F90"
885 : end procedure
886 : #endif
887 :
888 : #if CK3_ENABLED
889 : module procedure test_getReplaced_D1_D1_D1_CK3_1
890 : use pm_kind, only: CKC => CK3
891 : #include "test_pm_arrayReplace@routines.inc.F90"
892 : end procedure
893 : #endif
894 :
895 : #if CK2_ENABLED
896 : module procedure test_getReplaced_D1_D1_D1_CK2_1
897 : use pm_kind, only: CKC => CK2
898 : #include "test_pm_arrayReplace@routines.inc.F90"
899 : end procedure
900 : #endif
901 :
902 : #if CK1_ENABLED
903 : module procedure test_getReplaced_D1_D1_D1_CK1_1
904 : use pm_kind, only: CKC => CK1
905 : #include "test_pm_arrayReplace@routines.inc.F90"
906 : end procedure
907 : #endif
908 :
909 : #undef getReplaced_D1_D1_D1_CK_ENABLED
910 :
911 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
912 :
913 : #define getReplaced_D1_D1_D1_RK_ENABLED 1
914 :
915 : #if RK5_ENABLED
916 : module procedure test_getReplaced_D1_D1_D1_RK5_1
917 : use pm_kind, only: RKC => RK5
918 : #include "test_pm_arrayReplace@routines.inc.F90"
919 : end procedure
920 : #endif
921 :
922 : #if RK4_ENABLED
923 : module procedure test_getReplaced_D1_D1_D1_RK4_1
924 : use pm_kind, only: RKC => RK4
925 : #include "test_pm_arrayReplace@routines.inc.F90"
926 : end procedure
927 : #endif
928 :
929 : #if RK3_ENABLED
930 : module procedure test_getReplaced_D1_D1_D1_RK3_1
931 : use pm_kind, only: RKC => RK3
932 : #include "test_pm_arrayReplace@routines.inc.F90"
933 : end procedure
934 : #endif
935 :
936 : #if RK2_ENABLED
937 : module procedure test_getReplaced_D1_D1_D1_RK2_1
938 : use pm_kind, only: RKC => RK2
939 : #include "test_pm_arrayReplace@routines.inc.F90"
940 : end procedure
941 : #endif
942 :
943 : #if RK1_ENABLED
944 : module procedure test_getReplaced_D1_D1_D1_RK1_1
945 : use pm_kind, only: RKC => RK1
946 : #include "test_pm_arrayReplace@routines.inc.F90"
947 : end procedure
948 : #endif
949 :
950 : #undef getReplaced_D1_D1_D1_RK_ENABLED
951 :
952 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
953 :
954 : #undef getReplaced_D1_D1_D1_ENABLED
955 :
956 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
957 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
958 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
959 :
960 : #undef getReplaced_ENABLED
961 : #endif
962 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
963 :
964 : #define setReplaced_ENABLED 1
965 :
966 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
967 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
968 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
969 :
970 : #define setReplaced_D0_D0_D0_ENABLED 1
971 :
972 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
973 :
974 : #define setReplaced_D0_D0_D0_SK_ENABLED 1
975 :
976 : #if SK5_ENABLED
977 : module procedure test_setReplaced_D0_D0_D0_SK5_1
978 : use pm_kind, only: SKC => SK5
979 : #include "test_pm_arrayReplace@routines.inc.F90"
980 : end procedure
981 : #endif
982 :
983 : #if SK4_ENABLED
984 : module procedure test_setReplaced_D0_D0_D0_SK4_1
985 : use pm_kind, only: SKC => SK4
986 : #include "test_pm_arrayReplace@routines.inc.F90"
987 : end procedure
988 : #endif
989 :
990 : #if SK3_ENABLED
991 : module procedure test_setReplaced_D0_D0_D0_SK3_1
992 : use pm_kind, only: SKC => SK3
993 : #include "test_pm_arrayReplace@routines.inc.F90"
994 : end procedure
995 : #endif
996 :
997 : #if SK2_ENABLED
998 : module procedure test_setReplaced_D0_D0_D0_SK2_1
999 : use pm_kind, only: SKC => SK2
1000 : #include "test_pm_arrayReplace@routines.inc.F90"
1001 : end procedure
1002 : #endif
1003 :
1004 : #if SK1_ENABLED
1005 1 : module procedure test_setReplaced_D0_D0_D0_SK1_1
1006 : use pm_kind, only: SKC => SK1
1007 : #include "test_pm_arrayReplace@routines.inc.F90"
1008 : end procedure
1009 : #endif
1010 :
1011 : #undef setReplaced_D0_D0_D0_SK_ENABLED
1012 :
1013 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1014 :
1015 : #undef setReplaced_D0_D0_D0_ENABLED
1016 :
1017 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1018 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1019 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1020 :
1021 : #define setReplaced_D1_D0_D0_ENABLED 1
1022 :
1023 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1024 :
1025 : #define setReplaced_D1_D0_D0_SK_ENABLED 1
1026 :
1027 : #if SK5_ENABLED
1028 : module procedure test_setReplaced_D1_D0_D0_SK5_1
1029 : use pm_kind, only: SKC => SK5
1030 : #include "test_pm_arrayReplace@routines.inc.F90"
1031 : end procedure
1032 : #endif
1033 :
1034 : #if SK4_ENABLED
1035 : module procedure test_setReplaced_D1_D0_D0_SK4_1
1036 : use pm_kind, only: SKC => SK4
1037 : #include "test_pm_arrayReplace@routines.inc.F90"
1038 : end procedure
1039 : #endif
1040 :
1041 : #if SK3_ENABLED
1042 : module procedure test_setReplaced_D1_D0_D0_SK3_1
1043 : use pm_kind, only: SKC => SK3
1044 : #include "test_pm_arrayReplace@routines.inc.F90"
1045 : end procedure
1046 : #endif
1047 :
1048 : #if SK2_ENABLED
1049 : module procedure test_setReplaced_D1_D0_D0_SK2_1
1050 : use pm_kind, only: SKC => SK2
1051 : #include "test_pm_arrayReplace@routines.inc.F90"
1052 : end procedure
1053 : #endif
1054 :
1055 : #if SK1_ENABLED
1056 1 : module procedure test_setReplaced_D1_D0_D0_SK1_1
1057 : use pm_kind, only: SKC => SK1
1058 : #include "test_pm_arrayReplace@routines.inc.F90"
1059 : end procedure
1060 : #endif
1061 :
1062 : #undef setReplaced_D1_D0_D0_SK_ENABLED
1063 :
1064 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1065 :
1066 : #define setReplaced_D1_D0_D0_IK_ENABLED 1
1067 :
1068 : #if IK5_ENABLED
1069 1 : module procedure test_setReplaced_D1_D0_D0_IK5_1
1070 : use pm_kind, only: IKC => IK5
1071 : #include "test_pm_arrayReplace@routines.inc.F90"
1072 : end procedure
1073 : #endif
1074 :
1075 : #if IK4_ENABLED
1076 1 : module procedure test_setReplaced_D1_D0_D0_IK4_1
1077 : use pm_kind, only: IKC => IK4
1078 : #include "test_pm_arrayReplace@routines.inc.F90"
1079 : end procedure
1080 : #endif
1081 :
1082 : #if IK3_ENABLED
1083 1 : module procedure test_setReplaced_D1_D0_D0_IK3_1
1084 : use pm_kind, only: IKC => IK3
1085 : #include "test_pm_arrayReplace@routines.inc.F90"
1086 : end procedure
1087 : #endif
1088 :
1089 : #if IK2_ENABLED
1090 1 : module procedure test_setReplaced_D1_D0_D0_IK2_1
1091 : use pm_kind, only: IKC => IK2
1092 : #include "test_pm_arrayReplace@routines.inc.F90"
1093 : end procedure
1094 : #endif
1095 :
1096 : #if IK1_ENABLED
1097 1 : module procedure test_setReplaced_D1_D0_D0_IK1_1
1098 : use pm_kind, only: IKC => IK1
1099 : #include "test_pm_arrayReplace@routines.inc.F90"
1100 : end procedure
1101 : #endif
1102 :
1103 : #undef setReplaced_D1_D0_D0_IK_ENABLED
1104 :
1105 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1106 :
1107 : #define setReplaced_D1_D0_D0_LK_ENABLED 1
1108 :
1109 : #if LK5_ENABLED
1110 1 : module procedure test_setReplaced_D1_D0_D0_LK5_1
1111 : use pm_kind, only: LKC => LK5
1112 : #include "test_pm_arrayReplace@routines.inc.F90"
1113 : end procedure
1114 : #endif
1115 :
1116 : #if LK4_ENABLED
1117 1 : module procedure test_setReplaced_D1_D0_D0_LK4_1
1118 : use pm_kind, only: LKC => LK4
1119 : #include "test_pm_arrayReplace@routines.inc.F90"
1120 : end procedure
1121 : #endif
1122 :
1123 : #if LK3_ENABLED
1124 1 : module procedure test_setReplaced_D1_D0_D0_LK3_1
1125 : use pm_kind, only: LKC => LK3
1126 : #include "test_pm_arrayReplace@routines.inc.F90"
1127 : end procedure
1128 : #endif
1129 :
1130 : #if LK2_ENABLED
1131 1 : module procedure test_setReplaced_D1_D0_D0_LK2_1
1132 : use pm_kind, only: LKC => LK2
1133 : #include "test_pm_arrayReplace@routines.inc.F90"
1134 : end procedure
1135 : #endif
1136 :
1137 : #if LK1_ENABLED
1138 1 : module procedure test_setReplaced_D1_D0_D0_LK1_1
1139 : use pm_kind, only: LKC => LK1
1140 : #include "test_pm_arrayReplace@routines.inc.F90"
1141 : end procedure
1142 : #endif
1143 :
1144 : #undef setReplaced_D1_D0_D0_LK_ENABLED
1145 :
1146 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1147 :
1148 : #define setReplaced_D1_D0_D0_CK_ENABLED 1
1149 :
1150 : #if CK5_ENABLED
1151 : module procedure test_setReplaced_D1_D0_D0_CK5_1
1152 : use pm_kind, only: CKC => CK5
1153 : #include "test_pm_arrayReplace@routines.inc.F90"
1154 : end procedure
1155 : #endif
1156 :
1157 : #if CK4_ENABLED
1158 1 : module procedure test_setReplaced_D1_D0_D0_CK4_1
1159 : use pm_kind, only: CKC => CK4
1160 : #include "test_pm_arrayReplace@routines.inc.F90"
1161 : end procedure
1162 : #endif
1163 :
1164 : #if CK3_ENABLED
1165 1 : module procedure test_setReplaced_D1_D0_D0_CK3_1
1166 : use pm_kind, only: CKC => CK3
1167 : #include "test_pm_arrayReplace@routines.inc.F90"
1168 : end procedure
1169 : #endif
1170 :
1171 : #if CK2_ENABLED
1172 1 : module procedure test_setReplaced_D1_D0_D0_CK2_1
1173 : use pm_kind, only: CKC => CK2
1174 : #include "test_pm_arrayReplace@routines.inc.F90"
1175 : end procedure
1176 : #endif
1177 :
1178 : #if CK1_ENABLED
1179 1 : module procedure test_setReplaced_D1_D0_D0_CK1_1
1180 : use pm_kind, only: CKC => CK1
1181 : #include "test_pm_arrayReplace@routines.inc.F90"
1182 : end procedure
1183 : #endif
1184 :
1185 : #undef setReplaced_D1_D0_D0_CK_ENABLED
1186 :
1187 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1188 :
1189 : #define setReplaced_D1_D0_D0_RK_ENABLED 1
1190 :
1191 : #if RK5_ENABLED
1192 : module procedure test_setReplaced_D1_D0_D0_RK5_1
1193 : use pm_kind, only: RKC => RK5
1194 : #include "test_pm_arrayReplace@routines.inc.F90"
1195 : end procedure
1196 : #endif
1197 :
1198 : #if RK4_ENABLED
1199 1 : module procedure test_setReplaced_D1_D0_D0_RK4_1
1200 : use pm_kind, only: RKC => RK4
1201 : #include "test_pm_arrayReplace@routines.inc.F90"
1202 : end procedure
1203 : #endif
1204 :
1205 : #if RK3_ENABLED
1206 1 : module procedure test_setReplaced_D1_D0_D0_RK3_1
1207 : use pm_kind, only: RKC => RK3
1208 : #include "test_pm_arrayReplace@routines.inc.F90"
1209 : end procedure
1210 : #endif
1211 :
1212 : #if RK2_ENABLED
1213 1 : module procedure test_setReplaced_D1_D0_D0_RK2_1
1214 : use pm_kind, only: RKC => RK2
1215 : #include "test_pm_arrayReplace@routines.inc.F90"
1216 : end procedure
1217 : #endif
1218 :
1219 : #if RK1_ENABLED
1220 1 : module procedure test_setReplaced_D1_D0_D0_RK1_1
1221 : use pm_kind, only: RKC => RK1
1222 : #include "test_pm_arrayReplace@routines.inc.F90"
1223 : end procedure
1224 : #endif
1225 :
1226 : #undef setReplaced_D1_D0_D0_RK_ENABLED
1227 :
1228 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1229 :
1230 : #undef setReplaced_D1_D0_D0_ENABLED
1231 :
1232 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1233 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1235 :
1236 : #define setReplaced_D1_D0_D1_ENABLED 1
1237 :
1238 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1239 :
1240 : #define setReplaced_D1_D0_D1_SK_ENABLED 1
1241 :
1242 : #if SK5_ENABLED
1243 : module procedure test_setReplaced_D1_D0_D1_SK5_1
1244 : use pm_kind, only: SKC => SK5
1245 : #include "test_pm_arrayReplace@routines.inc.F90"
1246 : end procedure
1247 : #endif
1248 :
1249 : #if SK4_ENABLED
1250 : module procedure test_setReplaced_D1_D0_D1_SK4_1
1251 : use pm_kind, only: SKC => SK4
1252 : #include "test_pm_arrayReplace@routines.inc.F90"
1253 : end procedure
1254 : #endif
1255 :
1256 : #if SK3_ENABLED
1257 : module procedure test_setReplaced_D1_D0_D1_SK3_1
1258 : use pm_kind, only: SKC => SK3
1259 : #include "test_pm_arrayReplace@routines.inc.F90"
1260 : end procedure
1261 : #endif
1262 :
1263 : #if SK2_ENABLED
1264 : module procedure test_setReplaced_D1_D0_D1_SK2_1
1265 : use pm_kind, only: SKC => SK2
1266 : #include "test_pm_arrayReplace@routines.inc.F90"
1267 : end procedure
1268 : #endif
1269 :
1270 : #if SK1_ENABLED
1271 1 : module procedure test_setReplaced_D1_D0_D1_SK1_1
1272 : use pm_kind, only: SKC => SK1
1273 : #include "test_pm_arrayReplace@routines.inc.F90"
1274 : end procedure
1275 : #endif
1276 :
1277 : #undef setReplaced_D1_D0_D1_SK_ENABLED
1278 :
1279 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1280 :
1281 : #define setReplaced_D1_D0_D1_IK_ENABLED 1
1282 :
1283 : #if IK5_ENABLED
1284 1 : module procedure test_setReplaced_D1_D0_D1_IK5_1
1285 : use pm_kind, only: IKC => IK5
1286 : #include "test_pm_arrayReplace@routines.inc.F90"
1287 : end procedure
1288 : #endif
1289 :
1290 : #if IK4_ENABLED
1291 1 : module procedure test_setReplaced_D1_D0_D1_IK4_1
1292 : use pm_kind, only: IKC => IK4
1293 : #include "test_pm_arrayReplace@routines.inc.F90"
1294 : end procedure
1295 : #endif
1296 :
1297 : #if IK3_ENABLED
1298 1 : module procedure test_setReplaced_D1_D0_D1_IK3_1
1299 : use pm_kind, only: IKC => IK3
1300 : #include "test_pm_arrayReplace@routines.inc.F90"
1301 : end procedure
1302 : #endif
1303 :
1304 : #if IK2_ENABLED
1305 1 : module procedure test_setReplaced_D1_D0_D1_IK2_1
1306 : use pm_kind, only: IKC => IK2
1307 : #include "test_pm_arrayReplace@routines.inc.F90"
1308 : end procedure
1309 : #endif
1310 :
1311 : #if IK1_ENABLED
1312 1 : module procedure test_setReplaced_D1_D0_D1_IK1_1
1313 : use pm_kind, only: IKC => IK1
1314 : #include "test_pm_arrayReplace@routines.inc.F90"
1315 : end procedure
1316 : #endif
1317 :
1318 : #undef setReplaced_D1_D0_D1_IK_ENABLED
1319 :
1320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1321 :
1322 : #define setReplaced_D1_D0_D1_LK_ENABLED 1
1323 :
1324 : #if LK5_ENABLED
1325 1 : module procedure test_setReplaced_D1_D0_D1_LK5_1
1326 : use pm_kind, only: LKC => LK5
1327 : #include "test_pm_arrayReplace@routines.inc.F90"
1328 : end procedure
1329 : #endif
1330 :
1331 : #if LK4_ENABLED
1332 1 : module procedure test_setReplaced_D1_D0_D1_LK4_1
1333 : use pm_kind, only: LKC => LK4
1334 : #include "test_pm_arrayReplace@routines.inc.F90"
1335 : end procedure
1336 : #endif
1337 :
1338 : #if LK3_ENABLED
1339 1 : module procedure test_setReplaced_D1_D0_D1_LK3_1
1340 : use pm_kind, only: LKC => LK3
1341 : #include "test_pm_arrayReplace@routines.inc.F90"
1342 : end procedure
1343 : #endif
1344 :
1345 : #if LK2_ENABLED
1346 1 : module procedure test_setReplaced_D1_D0_D1_LK2_1
1347 : use pm_kind, only: LKC => LK2
1348 : #include "test_pm_arrayReplace@routines.inc.F90"
1349 : end procedure
1350 : #endif
1351 :
1352 : #if LK1_ENABLED
1353 1 : module procedure test_setReplaced_D1_D0_D1_LK1_1
1354 : use pm_kind, only: LKC => LK1
1355 : #include "test_pm_arrayReplace@routines.inc.F90"
1356 : end procedure
1357 : #endif
1358 :
1359 : #undef setReplaced_D1_D0_D1_LK_ENABLED
1360 :
1361 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1362 :
1363 : #define setReplaced_D1_D0_D1_CK_ENABLED 1
1364 :
1365 : #if CK5_ENABLED
1366 : module procedure test_setReplaced_D1_D0_D1_CK5_1
1367 : use pm_kind, only: CKC => CK5
1368 : #include "test_pm_arrayReplace@routines.inc.F90"
1369 : end procedure
1370 : #endif
1371 :
1372 : #if CK4_ENABLED
1373 1 : module procedure test_setReplaced_D1_D0_D1_CK4_1
1374 : use pm_kind, only: CKC => CK4
1375 : #include "test_pm_arrayReplace@routines.inc.F90"
1376 : end procedure
1377 : #endif
1378 :
1379 : #if CK3_ENABLED
1380 1 : module procedure test_setReplaced_D1_D0_D1_CK3_1
1381 : use pm_kind, only: CKC => CK3
1382 : #include "test_pm_arrayReplace@routines.inc.F90"
1383 : end procedure
1384 : #endif
1385 :
1386 : #if CK2_ENABLED
1387 1 : module procedure test_setReplaced_D1_D0_D1_CK2_1
1388 : use pm_kind, only: CKC => CK2
1389 : #include "test_pm_arrayReplace@routines.inc.F90"
1390 : end procedure
1391 : #endif
1392 :
1393 : #if CK1_ENABLED
1394 1 : module procedure test_setReplaced_D1_D0_D1_CK1_1
1395 : use pm_kind, only: CKC => CK1
1396 : #include "test_pm_arrayReplace@routines.inc.F90"
1397 : end procedure
1398 : #endif
1399 :
1400 : #undef setReplaced_D1_D0_D1_CK_ENABLED
1401 :
1402 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1403 :
1404 : #define setReplaced_D1_D0_D1_RK_ENABLED 1
1405 :
1406 : #if RK5_ENABLED
1407 : module procedure test_setReplaced_D1_D0_D1_RK5_1
1408 : use pm_kind, only: RKC => RK5
1409 : #include "test_pm_arrayReplace@routines.inc.F90"
1410 : end procedure
1411 : #endif
1412 :
1413 : #if RK4_ENABLED
1414 1 : module procedure test_setReplaced_D1_D0_D1_RK4_1
1415 : use pm_kind, only: RKC => RK4
1416 : #include "test_pm_arrayReplace@routines.inc.F90"
1417 : end procedure
1418 : #endif
1419 :
1420 : #if RK3_ENABLED
1421 1 : module procedure test_setReplaced_D1_D0_D1_RK3_1
1422 : use pm_kind, only: RKC => RK3
1423 : #include "test_pm_arrayReplace@routines.inc.F90"
1424 : end procedure
1425 : #endif
1426 :
1427 : #if RK2_ENABLED
1428 1 : module procedure test_setReplaced_D1_D0_D1_RK2_1
1429 : use pm_kind, only: RKC => RK2
1430 : #include "test_pm_arrayReplace@routines.inc.F90"
1431 : end procedure
1432 : #endif
1433 :
1434 : #if RK1_ENABLED
1435 1 : module procedure test_setReplaced_D1_D0_D1_RK1_1
1436 : use pm_kind, only: RKC => RK1
1437 : #include "test_pm_arrayReplace@routines.inc.F90"
1438 : end procedure
1439 : #endif
1440 :
1441 : #undef setReplaced_D1_D0_D1_RK_ENABLED
1442 :
1443 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1444 :
1445 : #undef setReplaced_D1_D0_D1_ENABLED
1446 :
1447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1448 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1449 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1450 :
1451 : #define setReplaced_D1_D1_D0_ENABLED 1
1452 :
1453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1454 :
1455 : #define setReplaced_D1_D1_D0_SK_ENABLED 1
1456 :
1457 : #if SK5_ENABLED
1458 : module procedure test_setReplaced_D1_D1_D0_SK5_1
1459 : use pm_kind, only: SKC => SK5
1460 : #include "test_pm_arrayReplace@routines.inc.F90"
1461 : end procedure
1462 : #endif
1463 :
1464 : #if SK4_ENABLED
1465 : module procedure test_setReplaced_D1_D1_D0_SK4_1
1466 : use pm_kind, only: SKC => SK4
1467 : #include "test_pm_arrayReplace@routines.inc.F90"
1468 : end procedure
1469 : #endif
1470 :
1471 : #if SK3_ENABLED
1472 : module procedure test_setReplaced_D1_D1_D0_SK3_1
1473 : use pm_kind, only: SKC => SK3
1474 : #include "test_pm_arrayReplace@routines.inc.F90"
1475 : end procedure
1476 : #endif
1477 :
1478 : #if SK2_ENABLED
1479 : module procedure test_setReplaced_D1_D1_D0_SK2_1
1480 : use pm_kind, only: SKC => SK2
1481 : #include "test_pm_arrayReplace@routines.inc.F90"
1482 : end procedure
1483 : #endif
1484 :
1485 : #if SK1_ENABLED
1486 1 : module procedure test_setReplaced_D1_D1_D0_SK1_1
1487 : use pm_kind, only: SKC => SK1
1488 : #include "test_pm_arrayReplace@routines.inc.F90"
1489 : end procedure
1490 : #endif
1491 :
1492 : #undef setReplaced_D1_D1_D0_SK_ENABLED
1493 :
1494 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1495 :
1496 : #define setReplaced_D1_D1_D0_IK_ENABLED 1
1497 :
1498 : #if IK5_ENABLED
1499 1 : module procedure test_setReplaced_D1_D1_D0_IK5_1
1500 : use pm_kind, only: IKC => IK5
1501 : #include "test_pm_arrayReplace@routines.inc.F90"
1502 : end procedure
1503 : #endif
1504 :
1505 : #if IK4_ENABLED
1506 1 : module procedure test_setReplaced_D1_D1_D0_IK4_1
1507 : use pm_kind, only: IKC => IK4
1508 : #include "test_pm_arrayReplace@routines.inc.F90"
1509 : end procedure
1510 : #endif
1511 :
1512 : #if IK3_ENABLED
1513 1 : module procedure test_setReplaced_D1_D1_D0_IK3_1
1514 : use pm_kind, only: IKC => IK3
1515 : #include "test_pm_arrayReplace@routines.inc.F90"
1516 : end procedure
1517 : #endif
1518 :
1519 : #if IK2_ENABLED
1520 1 : module procedure test_setReplaced_D1_D1_D0_IK2_1
1521 : use pm_kind, only: IKC => IK2
1522 : #include "test_pm_arrayReplace@routines.inc.F90"
1523 : end procedure
1524 : #endif
1525 :
1526 : #if IK1_ENABLED
1527 1 : module procedure test_setReplaced_D1_D1_D0_IK1_1
1528 : use pm_kind, only: IKC => IK1
1529 : #include "test_pm_arrayReplace@routines.inc.F90"
1530 : end procedure
1531 : #endif
1532 :
1533 : #undef setReplaced_D1_D1_D0_IK_ENABLED
1534 :
1535 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1536 :
1537 : #define setReplaced_D1_D1_D0_LK_ENABLED 1
1538 :
1539 : #if LK5_ENABLED
1540 1 : module procedure test_setReplaced_D1_D1_D0_LK5_1
1541 : use pm_kind, only: LKC => LK5
1542 : #include "test_pm_arrayReplace@routines.inc.F90"
1543 : end procedure
1544 : #endif
1545 :
1546 : #if LK4_ENABLED
1547 1 : module procedure test_setReplaced_D1_D1_D0_LK4_1
1548 : use pm_kind, only: LKC => LK4
1549 : #include "test_pm_arrayReplace@routines.inc.F90"
1550 : end procedure
1551 : #endif
1552 :
1553 : #if LK3_ENABLED
1554 1 : module procedure test_setReplaced_D1_D1_D0_LK3_1
1555 : use pm_kind, only: LKC => LK3
1556 : #include "test_pm_arrayReplace@routines.inc.F90"
1557 : end procedure
1558 : #endif
1559 :
1560 : #if LK2_ENABLED
1561 1 : module procedure test_setReplaced_D1_D1_D0_LK2_1
1562 : use pm_kind, only: LKC => LK2
1563 : #include "test_pm_arrayReplace@routines.inc.F90"
1564 : end procedure
1565 : #endif
1566 :
1567 : #if LK1_ENABLED
1568 1 : module procedure test_setReplaced_D1_D1_D0_LK1_1
1569 : use pm_kind, only: LKC => LK1
1570 : #include "test_pm_arrayReplace@routines.inc.F90"
1571 : end procedure
1572 : #endif
1573 :
1574 : #undef setReplaced_D1_D1_D0_LK_ENABLED
1575 :
1576 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1577 :
1578 : #define setReplaced_D1_D1_D0_CK_ENABLED 1
1579 :
1580 : #if CK5_ENABLED
1581 : module procedure test_setReplaced_D1_D1_D0_CK5_1
1582 : use pm_kind, only: CKC => CK5
1583 : #include "test_pm_arrayReplace@routines.inc.F90"
1584 : end procedure
1585 : #endif
1586 :
1587 : #if CK4_ENABLED
1588 1 : module procedure test_setReplaced_D1_D1_D0_CK4_1
1589 : use pm_kind, only: CKC => CK4
1590 : #include "test_pm_arrayReplace@routines.inc.F90"
1591 : end procedure
1592 : #endif
1593 :
1594 : #if CK3_ENABLED
1595 1 : module procedure test_setReplaced_D1_D1_D0_CK3_1
1596 : use pm_kind, only: CKC => CK3
1597 : #include "test_pm_arrayReplace@routines.inc.F90"
1598 : end procedure
1599 : #endif
1600 :
1601 : #if CK2_ENABLED
1602 1 : module procedure test_setReplaced_D1_D1_D0_CK2_1
1603 : use pm_kind, only: CKC => CK2
1604 : #include "test_pm_arrayReplace@routines.inc.F90"
1605 : end procedure
1606 : #endif
1607 :
1608 : #if CK1_ENABLED
1609 1 : module procedure test_setReplaced_D1_D1_D0_CK1_1
1610 : use pm_kind, only: CKC => CK1
1611 : #include "test_pm_arrayReplace@routines.inc.F90"
1612 : end procedure
1613 : #endif
1614 :
1615 : #undef setReplaced_D1_D1_D0_CK_ENABLED
1616 :
1617 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1618 :
1619 : #define setReplaced_D1_D1_D0_RK_ENABLED 1
1620 :
1621 : #if RK5_ENABLED
1622 : module procedure test_setReplaced_D1_D1_D0_RK5_1
1623 : use pm_kind, only: RKC => RK5
1624 : #include "test_pm_arrayReplace@routines.inc.F90"
1625 : end procedure
1626 : #endif
1627 :
1628 : #if RK4_ENABLED
1629 1 : module procedure test_setReplaced_D1_D1_D0_RK4_1
1630 : use pm_kind, only: RKC => RK4
1631 : #include "test_pm_arrayReplace@routines.inc.F90"
1632 : end procedure
1633 : #endif
1634 :
1635 : #if RK3_ENABLED
1636 1 : module procedure test_setReplaced_D1_D1_D0_RK3_1
1637 : use pm_kind, only: RKC => RK3
1638 : #include "test_pm_arrayReplace@routines.inc.F90"
1639 : end procedure
1640 : #endif
1641 :
1642 : #if RK2_ENABLED
1643 1 : module procedure test_setReplaced_D1_D1_D0_RK2_1
1644 : use pm_kind, only: RKC => RK2
1645 : #include "test_pm_arrayReplace@routines.inc.F90"
1646 : end procedure
1647 : #endif
1648 :
1649 : #if RK1_ENABLED
1650 1 : module procedure test_setReplaced_D1_D1_D0_RK1_1
1651 : use pm_kind, only: RKC => RK1
1652 : #include "test_pm_arrayReplace@routines.inc.F90"
1653 : end procedure
1654 : #endif
1655 :
1656 : #undef setReplaced_D1_D1_D0_RK_ENABLED
1657 :
1658 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1659 :
1660 : #undef setReplaced_D1_D1_D0_ENABLED
1661 :
1662 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1663 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1664 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1665 :
1666 : #define setReplaced_D1_D1_D1_ENABLED 1
1667 :
1668 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1669 :
1670 : #define setReplaced_D1_D1_D1_SK_ENABLED 1
1671 :
1672 : #if SK5_ENABLED
1673 : module procedure test_setReplaced_D1_D1_D1_SK5_1
1674 : use pm_kind, only: SKC => SK5
1675 : #include "test_pm_arrayReplace@routines.inc.F90"
1676 : end procedure
1677 : #endif
1678 :
1679 : #if SK4_ENABLED
1680 : module procedure test_setReplaced_D1_D1_D1_SK4_1
1681 : use pm_kind, only: SKC => SK4
1682 : #include "test_pm_arrayReplace@routines.inc.F90"
1683 : end procedure
1684 : #endif
1685 :
1686 : #if SK3_ENABLED
1687 : module procedure test_setReplaced_D1_D1_D1_SK3_1
1688 : use pm_kind, only: SKC => SK3
1689 : #include "test_pm_arrayReplace@routines.inc.F90"
1690 : end procedure
1691 : #endif
1692 :
1693 : #if SK2_ENABLED
1694 : module procedure test_setReplaced_D1_D1_D1_SK2_1
1695 : use pm_kind, only: SKC => SK2
1696 : #include "test_pm_arrayReplace@routines.inc.F90"
1697 : end procedure
1698 : #endif
1699 :
1700 : #if SK1_ENABLED
1701 1 : module procedure test_setReplaced_D1_D1_D1_SK1_1
1702 : use pm_kind, only: SKC => SK1
1703 : #include "test_pm_arrayReplace@routines.inc.F90"
1704 : end procedure
1705 : #endif
1706 :
1707 : #undef setReplaced_D1_D1_D1_SK_ENABLED
1708 :
1709 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1710 :
1711 : #define setReplaced_D1_D1_D1_IK_ENABLED 1
1712 :
1713 : #if IK5_ENABLED
1714 1 : module procedure test_setReplaced_D1_D1_D1_IK5_1
1715 : use pm_kind, only: IKC => IK5
1716 : #include "test_pm_arrayReplace@routines.inc.F90"
1717 : end procedure
1718 : #endif
1719 :
1720 : #if IK4_ENABLED
1721 1 : module procedure test_setReplaced_D1_D1_D1_IK4_1
1722 : use pm_kind, only: IKC => IK4
1723 : #include "test_pm_arrayReplace@routines.inc.F90"
1724 : end procedure
1725 : #endif
1726 :
1727 : #if IK3_ENABLED
1728 1 : module procedure test_setReplaced_D1_D1_D1_IK3_1
1729 : use pm_kind, only: IKC => IK3
1730 : #include "test_pm_arrayReplace@routines.inc.F90"
1731 : end procedure
1732 : #endif
1733 :
1734 : #if IK2_ENABLED
1735 1 : module procedure test_setReplaced_D1_D1_D1_IK2_1
1736 : use pm_kind, only: IKC => IK2
1737 : #include "test_pm_arrayReplace@routines.inc.F90"
1738 : end procedure
1739 : #endif
1740 :
1741 : #if IK1_ENABLED
1742 1 : module procedure test_setReplaced_D1_D1_D1_IK1_1
1743 : use pm_kind, only: IKC => IK1
1744 : #include "test_pm_arrayReplace@routines.inc.F90"
1745 : end procedure
1746 : #endif
1747 :
1748 : #undef setReplaced_D1_D1_D1_IK_ENABLED
1749 :
1750 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1751 :
1752 : #define setReplaced_D1_D1_D1_LK_ENABLED 1
1753 :
1754 : #if LK5_ENABLED
1755 1 : module procedure test_setReplaced_D1_D1_D1_LK5_1
1756 : use pm_kind, only: LKC => LK5
1757 : #include "test_pm_arrayReplace@routines.inc.F90"
1758 : end procedure
1759 : #endif
1760 :
1761 : #if LK4_ENABLED
1762 1 : module procedure test_setReplaced_D1_D1_D1_LK4_1
1763 : use pm_kind, only: LKC => LK4
1764 : #include "test_pm_arrayReplace@routines.inc.F90"
1765 : end procedure
1766 : #endif
1767 :
1768 : #if LK3_ENABLED
1769 1 : module procedure test_setReplaced_D1_D1_D1_LK3_1
1770 : use pm_kind, only: LKC => LK3
1771 : #include "test_pm_arrayReplace@routines.inc.F90"
1772 : end procedure
1773 : #endif
1774 :
1775 : #if LK2_ENABLED
1776 1 : module procedure test_setReplaced_D1_D1_D1_LK2_1
1777 : use pm_kind, only: LKC => LK2
1778 : #include "test_pm_arrayReplace@routines.inc.F90"
1779 : end procedure
1780 : #endif
1781 :
1782 : #if LK1_ENABLED
1783 1 : module procedure test_setReplaced_D1_D1_D1_LK1_1
1784 : use pm_kind, only: LKC => LK1
1785 : #include "test_pm_arrayReplace@routines.inc.F90"
1786 : end procedure
1787 : #endif
1788 :
1789 : #undef setReplaced_D1_D1_D1_LK_ENABLED
1790 :
1791 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1792 :
1793 : #define setReplaced_D1_D1_D1_CK_ENABLED 1
1794 :
1795 : #if CK5_ENABLED
1796 : module procedure test_setReplaced_D1_D1_D1_CK5_1
1797 : use pm_kind, only: CKC => CK5
1798 : #include "test_pm_arrayReplace@routines.inc.F90"
1799 : end procedure
1800 : #endif
1801 :
1802 : #if CK4_ENABLED
1803 1 : module procedure test_setReplaced_D1_D1_D1_CK4_1
1804 : use pm_kind, only: CKC => CK4
1805 : #include "test_pm_arrayReplace@routines.inc.F90"
1806 : end procedure
1807 : #endif
1808 :
1809 : #if CK3_ENABLED
1810 1 : module procedure test_setReplaced_D1_D1_D1_CK3_1
1811 : use pm_kind, only: CKC => CK3
1812 : #include "test_pm_arrayReplace@routines.inc.F90"
1813 : end procedure
1814 : #endif
1815 :
1816 : #if CK2_ENABLED
1817 1 : module procedure test_setReplaced_D1_D1_D1_CK2_1
1818 : use pm_kind, only: CKC => CK2
1819 : #include "test_pm_arrayReplace@routines.inc.F90"
1820 : end procedure
1821 : #endif
1822 :
1823 : #if CK1_ENABLED
1824 1 : module procedure test_setReplaced_D1_D1_D1_CK1_1
1825 : use pm_kind, only: CKC => CK1
1826 : #include "test_pm_arrayReplace@routines.inc.F90"
1827 : end procedure
1828 : #endif
1829 :
1830 : #undef setReplaced_D1_D1_D1_CK_ENABLED
1831 :
1832 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1833 :
1834 : #define setReplaced_D1_D1_D1_RK_ENABLED 1
1835 :
1836 : #if RK5_ENABLED
1837 : module procedure test_setReplaced_D1_D1_D1_RK5_1
1838 : use pm_kind, only: RKC => RK5
1839 : #include "test_pm_arrayReplace@routines.inc.F90"
1840 : end procedure
1841 : #endif
1842 :
1843 : #if RK4_ENABLED
1844 1 : module procedure test_setReplaced_D1_D1_D1_RK4_1
1845 : use pm_kind, only: RKC => RK4
1846 : #include "test_pm_arrayReplace@routines.inc.F90"
1847 : end procedure
1848 : #endif
1849 :
1850 : #if RK3_ENABLED
1851 1 : module procedure test_setReplaced_D1_D1_D1_RK3_1
1852 : use pm_kind, only: RKC => RK3
1853 : #include "test_pm_arrayReplace@routines.inc.F90"
1854 : end procedure
1855 : #endif
1856 :
1857 : #if RK2_ENABLED
1858 1 : module procedure test_setReplaced_D1_D1_D1_RK2_1
1859 : use pm_kind, only: RKC => RK2
1860 : #include "test_pm_arrayReplace@routines.inc.F90"
1861 : end procedure
1862 : #endif
1863 :
1864 : #if RK1_ENABLED
1865 1 : module procedure test_setReplaced_D1_D1_D1_RK1_1
1866 : use pm_kind, only: RKC => RK1
1867 : #include "test_pm_arrayReplace@routines.inc.F90"
1868 : end procedure
1869 : #endif
1870 :
1871 : #undef setReplaced_D1_D1_D1_RK_ENABLED
1872 :
1873 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1874 :
1875 : #undef setReplaced_D1_D1_D1_ENABLED
1876 :
1877 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1878 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1879 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1880 :
1881 : #undef setReplaced_ENABLED
1882 :
1883 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1884 :
1885 : end submodule routines
|
