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 [pm_arrayRebill](@ref pm_arrayRebill).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Wednesday 12:20 AM, October 13, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_arrayRebill) routines ! LCOV_EXCL_LINE
28 :
29 : #if CHECK_ENABLED
30 : use pm_err, only: getFine
31 : use pm_val2str, only: getStr
32 : use pm_err, only: setAsserted
33 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
34 : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
35 : #else
36 : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
37 : #endif
38 :
39 : use pm_arrayInit, only: setCoreHalo
40 : implicit none
41 :
42 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
43 :
44 : contains
45 :
46 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
47 :
48 : #define setRebilled_ENABLED 1
49 :
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 :
54 : #define SDDD_ENABLED 1
55 :
56 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 :
60 : #define D1_ENABLED 1
61 :
62 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
63 :
64 : #define SK_ENABLED 1
65 :
66 : #if SK5_ENABLED
67 : module procedure setRebilledSDDD_D1_SK5
68 : use pm_kind, only: SKC => SK5
69 : character(len(Array,IK),SKC), allocatable :: Temp(:)
70 : #include "pm_arrayResize@routines.inc.F90"
71 : end procedure
72 : #endif
73 :
74 : #if SK4_ENABLED
75 : module procedure setRebilledSDDD_D1_SK4
76 : use pm_kind, only: SKC => SK4
77 : character(len(Array,IK),SKC), allocatable :: Temp(:)
78 : #include "pm_arrayResize@routines.inc.F90"
79 : end procedure
80 : #endif
81 :
82 : #if SK3_ENABLED
83 : module procedure setRebilledSDDD_D1_SK3
84 : use pm_kind, only: SKC => SK3
85 : character(len(Array,IK),SKC), allocatable :: Temp(:)
86 : #include "pm_arrayResize@routines.inc.F90"
87 : end procedure
88 : #endif
89 :
90 : #if SK2_ENABLED
91 : module procedure setRebilledSDDD_D1_SK2
92 : use pm_kind, only: SKC => SK2
93 : character(len(Array,IK),SKC), allocatable :: Temp(:)
94 : #include "pm_arrayResize@routines.inc.F90"
95 : end procedure
96 : #endif
97 :
98 : #if SK1_ENABLED
99 159 : module procedure setRebilledSDDD_D1_SK1
100 : use pm_kind, only: SKC => SK1
101 159 : character(len(Array,IK),SKC), allocatable :: Temp(:)
102 : #include "pm_arrayResize@routines.inc.F90"
103 159 : end procedure
104 : #endif
105 :
106 : #undef SK_ENABLED
107 :
108 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
109 :
110 : #define IK_ENABLED 1
111 :
112 : #if IK5_ENABLED
113 139 : module procedure setRebilledSDDD_D1_IK5
114 : use pm_kind, only: IKC => IK5
115 : integer(IKC), allocatable :: Temp(:)
116 : #include "pm_arrayResize@routines.inc.F90"
117 139 : end procedure
118 : #endif
119 :
120 : #if IK4_ENABLED
121 146 : module procedure setRebilledSDDD_D1_IK4
122 : use pm_kind, only: IKC => IK4
123 : integer(IKC), allocatable :: Temp(:)
124 : #include "pm_arrayResize@routines.inc.F90"
125 146 : end procedure
126 : #endif
127 :
128 : #if IK3_ENABLED
129 154 : module procedure setRebilledSDDD_D1_IK3
130 : use pm_kind, only: IKC => IK3
131 : integer(IKC), allocatable :: Temp(:)
132 : #include "pm_arrayResize@routines.inc.F90"
133 154 : end procedure
134 : #endif
135 :
136 : #if IK2_ENABLED
137 143 : module procedure setRebilledSDDD_D1_IK2
138 : use pm_kind, only: IKC => IK2
139 : integer(IKC), allocatable :: Temp(:)
140 : #include "pm_arrayResize@routines.inc.F90"
141 143 : end procedure
142 : #endif
143 :
144 : #if IK1_ENABLED
145 136 : module procedure setRebilledSDDD_D1_IK1
146 : use pm_kind, only: IKC => IK1
147 : integer(IKC), allocatable :: Temp(:)
148 : #include "pm_arrayResize@routines.inc.F90"
149 136 : end procedure
150 : #endif
151 :
152 : #undef IK_ENABLED
153 :
154 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
155 :
156 : #define LK_ENABLED 1
157 :
158 : #if LK5_ENABLED
159 159 : module procedure setRebilledSDDD_D1_LK5
160 : use pm_kind, only: LKC => LK5
161 : logical(LKC), allocatable :: Temp(:)
162 : #include "pm_arrayResize@routines.inc.F90"
163 159 : end procedure
164 : #endif
165 :
166 : #if LK4_ENABLED
167 159 : module procedure setRebilledSDDD_D1_LK4
168 : use pm_kind, only: LKC => LK4
169 : logical(LKC), allocatable :: Temp(:)
170 : #include "pm_arrayResize@routines.inc.F90"
171 159 : end procedure
172 : #endif
173 :
174 : #if LK3_ENABLED
175 153 : module procedure setRebilledSDDD_D1_LK3
176 : use pm_kind, only: LKC => LK3
177 : logical(LKC), allocatable :: Temp(:)
178 : #include "pm_arrayResize@routines.inc.F90"
179 153 : end procedure
180 : #endif
181 :
182 : #if LK2_ENABLED
183 157 : module procedure setRebilledSDDD_D1_LK2
184 : use pm_kind, only: LKC => LK2
185 : logical(LKC), allocatable :: Temp(:)
186 : #include "pm_arrayResize@routines.inc.F90"
187 157 : end procedure
188 : #endif
189 :
190 : #if LK1_ENABLED
191 146 : module procedure setRebilledSDDD_D1_LK1
192 : use pm_kind, only: LKC => LK1
193 : logical(LKC), allocatable :: Temp(:)
194 : #include "pm_arrayResize@routines.inc.F90"
195 146 : end procedure
196 : #endif
197 :
198 : #undef LK_ENABLED
199 :
200 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
201 :
202 : #define CK_ENABLED 1
203 :
204 : #if CK5_ENABLED
205 : module procedure setRebilledSDDD_D1_CK5
206 : use pm_kind, only: CKC => CK5
207 : complex(CKC), allocatable :: Temp(:)
208 : #include "pm_arrayResize@routines.inc.F90"
209 : end procedure
210 : #endif
211 :
212 : #if CK4_ENABLED
213 131 : module procedure setRebilledSDDD_D1_CK4
214 : use pm_kind, only: CKC => CK4
215 : complex(CKC), allocatable :: Temp(:)
216 : #include "pm_arrayResize@routines.inc.F90"
217 131 : end procedure
218 : #endif
219 :
220 : #if CK3_ENABLED
221 153 : module procedure setRebilledSDDD_D1_CK3
222 : use pm_kind, only: CKC => CK3
223 : complex(CKC), allocatable :: Temp(:)
224 : #include "pm_arrayResize@routines.inc.F90"
225 153 : end procedure
226 : #endif
227 :
228 : #if CK2_ENABLED
229 155 : module procedure setRebilledSDDD_D1_CK2
230 : use pm_kind, only: CKC => CK2
231 : complex(CKC), allocatable :: Temp(:)
232 : #include "pm_arrayResize@routines.inc.F90"
233 155 : end procedure
234 : #endif
235 :
236 : #if CK1_ENABLED
237 156 : module procedure setRebilledSDDD_D1_CK1
238 : use pm_kind, only: CKC => CK1
239 : complex(CKC), allocatable :: Temp(:)
240 : #include "pm_arrayResize@routines.inc.F90"
241 156 : end procedure
242 : #endif
243 :
244 : #undef CK_ENABLED
245 :
246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
247 :
248 : #define RK_ENABLED 1
249 :
250 : #if RK5_ENABLED
251 : module procedure setRebilledSDDD_D1_RK5
252 : use pm_kind, only: RKC => RK5
253 : real(RKC), allocatable :: Temp(:)
254 : #include "pm_arrayResize@routines.inc.F90"
255 : end procedure
256 : #endif
257 :
258 : #if RK4_ENABLED
259 145 : module procedure setRebilledSDDD_D1_RK4
260 : use pm_kind, only: RKC => RK4
261 : real(RKC), allocatable :: Temp(:)
262 : #include "pm_arrayResize@routines.inc.F90"
263 145 : end procedure
264 : #endif
265 :
266 : #if RK3_ENABLED
267 129 : module procedure setRebilledSDDD_D1_RK3
268 : use pm_kind, only: RKC => RK3
269 : real(RKC), allocatable :: Temp(:)
270 : #include "pm_arrayResize@routines.inc.F90"
271 129 : end procedure
272 : #endif
273 :
274 : #if RK2_ENABLED
275 143 : module procedure setRebilledSDDD_D1_RK2
276 : use pm_kind, only: RKC => RK2
277 : real(RKC), allocatable :: Temp(:)
278 : #include "pm_arrayResize@routines.inc.F90"
279 143 : end procedure
280 : #endif
281 :
282 : #if RK1_ENABLED
283 140 : module procedure setRebilledSDDD_D1_RK1
284 : use pm_kind, only: RKC => RK1
285 : real(RKC), allocatable :: Temp(:)
286 : #include "pm_arrayResize@routines.inc.F90"
287 140 : end procedure
288 : #endif
289 :
290 : #undef RK_ENABLED
291 :
292 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
293 :
294 : #undef D1_ENABLED
295 :
296 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
297 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
298 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
299 :
300 : #define D2_ENABLED 1
301 :
302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
303 :
304 : #define SK_ENABLED 1
305 :
306 : #if SK5_ENABLED
307 : module procedure setRebilledSDDD_D2_SK5
308 : use pm_kind, only: SKC => SK5
309 : character(len(Array,IK),SKC), allocatable :: Temp(:,:)
310 : #include "pm_arrayResize@routines.inc.F90"
311 : end procedure
312 : #endif
313 :
314 : #if SK4_ENABLED
315 : module procedure setRebilledSDDD_D2_SK4
316 : use pm_kind, only: SKC => SK4
317 : character(len(Array,IK),SKC), allocatable :: Temp(:,:)
318 : #include "pm_arrayResize@routines.inc.F90"
319 : end procedure
320 : #endif
321 :
322 : #if SK3_ENABLED
323 : module procedure setRebilledSDDD_D2_SK3
324 : use pm_kind, only: SKC => SK3
325 : character(len(Array,IK),SKC), allocatable :: Temp(:,:)
326 : #include "pm_arrayResize@routines.inc.F90"
327 : end procedure
328 : #endif
329 :
330 : #if SK2_ENABLED
331 : module procedure setRebilledSDDD_D2_SK2
332 : use pm_kind, only: SKC => SK2
333 : character(len(Array,IK),SKC), allocatable :: Temp(:,:)
334 : #include "pm_arrayResize@routines.inc.F90"
335 : end procedure
336 : #endif
337 :
338 : #if SK1_ENABLED
339 71 : module procedure setRebilledSDDD_D2_SK1
340 : use pm_kind, only: SKC => SK1
341 71 : character(len(Array,IK),SKC), allocatable :: Temp(:,:)
342 : #include "pm_arrayResize@routines.inc.F90"
343 71 : end procedure
344 : #endif
345 :
346 : #undef SK_ENABLED
347 :
348 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
349 :
350 : #define IK_ENABLED 1
351 :
352 : #if IK5_ENABLED
353 448 : module procedure setRebilledSDDD_D2_IK5
354 : use pm_kind, only: IKC => IK5
355 : integer(IKC), allocatable :: Temp(:,:)
356 : #include "pm_arrayResize@routines.inc.F90"
357 448 : end procedure
358 : #endif
359 :
360 : #if IK4_ENABLED
361 468 : module procedure setRebilledSDDD_D2_IK4
362 : use pm_kind, only: IKC => IK4
363 : integer(IKC), allocatable :: Temp(:,:)
364 : #include "pm_arrayResize@routines.inc.F90"
365 468 : end procedure
366 : #endif
367 :
368 : #if IK3_ENABLED
369 458 : module procedure setRebilledSDDD_D2_IK3
370 : use pm_kind, only: IKC => IK3
371 : integer(IKC), allocatable :: Temp(:,:)
372 : #include "pm_arrayResize@routines.inc.F90"
373 458 : end procedure
374 : #endif
375 :
376 : #if IK2_ENABLED
377 462 : module procedure setRebilledSDDD_D2_IK2
378 : use pm_kind, only: IKC => IK2
379 : integer(IKC), allocatable :: Temp(:,:)
380 : #include "pm_arrayResize@routines.inc.F90"
381 462 : end procedure
382 : #endif
383 :
384 : #if IK1_ENABLED
385 458 : module procedure setRebilledSDDD_D2_IK1
386 : use pm_kind, only: IKC => IK1
387 : integer(IKC), allocatable :: Temp(:,:)
388 : #include "pm_arrayResize@routines.inc.F90"
389 458 : end procedure
390 : #endif
391 :
392 : #undef IK_ENABLED
393 :
394 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
395 :
396 : #define LK_ENABLED 1
397 :
398 : #if LK5_ENABLED
399 56 : module procedure setRebilledSDDD_D2_LK5
400 : use pm_kind, only: LKC => LK5
401 : logical(LKC), allocatable :: Temp(:,:)
402 : #include "pm_arrayResize@routines.inc.F90"
403 56 : end procedure
404 : #endif
405 :
406 : #if LK4_ENABLED
407 64 : module procedure setRebilledSDDD_D2_LK4
408 : use pm_kind, only: LKC => LK4
409 : logical(LKC), allocatable :: Temp(:,:)
410 : #include "pm_arrayResize@routines.inc.F90"
411 64 : end procedure
412 : #endif
413 :
414 : #if LK3_ENABLED
415 49 : module procedure setRebilledSDDD_D2_LK3
416 : use pm_kind, only: LKC => LK3
417 : logical(LKC), allocatable :: Temp(:,:)
418 : #include "pm_arrayResize@routines.inc.F90"
419 49 : end procedure
420 : #endif
421 :
422 : #if LK2_ENABLED
423 63 : module procedure setRebilledSDDD_D2_LK2
424 : use pm_kind, only: LKC => LK2
425 : logical(LKC), allocatable :: Temp(:,:)
426 : #include "pm_arrayResize@routines.inc.F90"
427 63 : end procedure
428 : #endif
429 :
430 : #if LK1_ENABLED
431 64 : module procedure setRebilledSDDD_D2_LK1
432 : use pm_kind, only: LKC => LK1
433 : logical(LKC), allocatable :: Temp(:,:)
434 : #include "pm_arrayResize@routines.inc.F90"
435 64 : end procedure
436 : #endif
437 :
438 : #undef LK_ENABLED
439 :
440 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
441 :
442 : #define CK_ENABLED 1
443 :
444 : #if CK5_ENABLED
445 : module procedure setRebilledSDDD_D2_CK5
446 : use pm_kind, only: CKC => CK5
447 : complex(CKC), allocatable :: Temp(:,:)
448 : #include "pm_arrayResize@routines.inc.F90"
449 : end procedure
450 : #endif
451 :
452 : #if CK4_ENABLED
453 457 : module procedure setRebilledSDDD_D2_CK4
454 : use pm_kind, only: CKC => CK4
455 : complex(CKC), allocatable :: Temp(:,:)
456 : #include "pm_arrayResize@routines.inc.F90"
457 457 : end procedure
458 : #endif
459 :
460 : #if CK3_ENABLED
461 461 : module procedure setRebilledSDDD_D2_CK3
462 : use pm_kind, only: CKC => CK3
463 : complex(CKC), allocatable :: Temp(:,:)
464 : #include "pm_arrayResize@routines.inc.F90"
465 461 : end procedure
466 : #endif
467 :
468 : #if CK2_ENABLED
469 449 : module procedure setRebilledSDDD_D2_CK2
470 : use pm_kind, only: CKC => CK2
471 : complex(CKC), allocatable :: Temp(:,:)
472 : #include "pm_arrayResize@routines.inc.F90"
473 449 : end procedure
474 : #endif
475 :
476 : #if CK1_ENABLED
477 451 : module procedure setRebilledSDDD_D2_CK1
478 : use pm_kind, only: CKC => CK1
479 : complex(CKC), allocatable :: Temp(:,:)
480 : #include "pm_arrayResize@routines.inc.F90"
481 451 : end procedure
482 : #endif
483 :
484 : #undef CK_ENABLED
485 :
486 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
487 :
488 : #define RK_ENABLED 1
489 :
490 : #if RK5_ENABLED
491 : module procedure setRebilledSDDD_D2_RK5
492 : use pm_kind, only: RKC => RK5
493 : real(RKC), allocatable :: Temp(:,:)
494 : #include "pm_arrayResize@routines.inc.F90"
495 : end procedure
496 : #endif
497 :
498 : #if RK4_ENABLED
499 447 : module procedure setRebilledSDDD_D2_RK4
500 : use pm_kind, only: RKC => RK4
501 : real(RKC), allocatable :: Temp(:,:)
502 : #include "pm_arrayResize@routines.inc.F90"
503 447 : end procedure
504 : #endif
505 :
506 : #if RK3_ENABLED
507 455 : module procedure setRebilledSDDD_D2_RK3
508 : use pm_kind, only: RKC => RK3
509 : real(RKC), allocatable :: Temp(:,:)
510 : #include "pm_arrayResize@routines.inc.F90"
511 455 : end procedure
512 : #endif
513 :
514 : #if RK2_ENABLED
515 459 : module procedure setRebilledSDDD_D2_RK2
516 : use pm_kind, only: RKC => RK2
517 : real(RKC), allocatable :: Temp(:,:)
518 : #include "pm_arrayResize@routines.inc.F90"
519 459 : end procedure
520 : #endif
521 :
522 : #if RK1_ENABLED
523 461 : module procedure setRebilledSDDD_D2_RK1
524 : use pm_kind, only: RKC => RK1
525 : real(RKC), allocatable :: Temp(:,:)
526 : #include "pm_arrayResize@routines.inc.F90"
527 461 : end procedure
528 : #endif
529 :
530 : #undef RK_ENABLED
531 :
532 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
533 :
534 : #undef D2_ENABLED
535 :
536 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
537 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
538 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
539 :
540 : #define D3_ENABLED 1
541 :
542 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
543 :
544 : #define SK_ENABLED 1
545 :
546 : #if SK5_ENABLED
547 : module procedure setRebilledSDDD_D3_SK5
548 : use pm_kind, only: SKC => SK5
549 : character(len(Array,IK),SKC), allocatable :: Temp(:,:,:)
550 : #include "pm_arrayResize@routines.inc.F90"
551 : end procedure
552 : #endif
553 :
554 : #if SK4_ENABLED
555 : module procedure setRebilledSDDD_D3_SK4
556 : use pm_kind, only: SKC => SK4
557 : character(len(Array,IK),SKC), allocatable :: Temp(:,:,:)
558 : #include "pm_arrayResize@routines.inc.F90"
559 : end procedure
560 : #endif
561 :
562 : #if SK3_ENABLED
563 : module procedure setRebilledSDDD_D3_SK3
564 : use pm_kind, only: SKC => SK3
565 : character(len(Array,IK),SKC), allocatable :: Temp(:,:,:)
566 : #include "pm_arrayResize@routines.inc.F90"
567 : end procedure
568 : #endif
569 :
570 : #if SK2_ENABLED
571 : module procedure setRebilledSDDD_D3_SK2
572 : use pm_kind, only: SKC => SK2
573 : character(len(Array,IK),SKC), allocatable :: Temp(:,:,:)
574 : #include "pm_arrayResize@routines.inc.F90"
575 : end procedure
576 : #endif
577 :
578 : #if SK1_ENABLED
579 25 : module procedure setRebilledSDDD_D3_SK1
580 : use pm_kind, only: SKC => SK1
581 25 : character(len(Array,IK),SKC), allocatable :: Temp(:,:,:)
582 : #include "pm_arrayResize@routines.inc.F90"
583 25 : end procedure
584 : #endif
585 :
586 : #undef SK_ENABLED
587 :
588 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
589 :
590 : #define IK_ENABLED 1
591 :
592 : #if IK5_ENABLED
593 26 : module procedure setRebilledSDDD_D3_IK5
594 : use pm_kind, only: IKC => IK5
595 : integer(IKC), allocatable :: Temp(:,:,:)
596 : #include "pm_arrayResize@routines.inc.F90"
597 26 : end procedure
598 : #endif
599 :
600 : #if IK4_ENABLED
601 16 : module procedure setRebilledSDDD_D3_IK4
602 : use pm_kind, only: IKC => IK4
603 : integer(IKC), allocatable :: Temp(:,:,:)
604 : #include "pm_arrayResize@routines.inc.F90"
605 16 : end procedure
606 : #endif
607 :
608 : #if IK3_ENABLED
609 19 : module procedure setRebilledSDDD_D3_IK3
610 : use pm_kind, only: IKC => IK3
611 : integer(IKC), allocatable :: Temp(:,:,:)
612 : #include "pm_arrayResize@routines.inc.F90"
613 19 : end procedure
614 : #endif
615 :
616 : #if IK2_ENABLED
617 30 : module procedure setRebilledSDDD_D3_IK2
618 : use pm_kind, only: IKC => IK2
619 : integer(IKC), allocatable :: Temp(:,:,:)
620 : #include "pm_arrayResize@routines.inc.F90"
621 30 : end procedure
622 : #endif
623 :
624 : #if IK1_ENABLED
625 26 : module procedure setRebilledSDDD_D3_IK1
626 : use pm_kind, only: IKC => IK1
627 : integer(IKC), allocatable :: Temp(:,:,:)
628 : #include "pm_arrayResize@routines.inc.F90"
629 26 : end procedure
630 : #endif
631 :
632 : #undef IK_ENABLED
633 :
634 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
635 :
636 : #define LK_ENABLED 1
637 :
638 : #if LK5_ENABLED
639 25 : module procedure setRebilledSDDD_D3_LK5
640 : use pm_kind, only: LKC => LK5
641 : logical(LKC), allocatable :: Temp(:,:,:)
642 : #include "pm_arrayResize@routines.inc.F90"
643 25 : end procedure
644 : #endif
645 :
646 : #if LK4_ENABLED
647 26 : module procedure setRebilledSDDD_D3_LK4
648 : use pm_kind, only: LKC => LK4
649 : logical(LKC), allocatable :: Temp(:,:,:)
650 : #include "pm_arrayResize@routines.inc.F90"
651 26 : end procedure
652 : #endif
653 :
654 : #if LK3_ENABLED
655 27 : module procedure setRebilledSDDD_D3_LK3
656 : use pm_kind, only: LKC => LK3
657 : logical(LKC), allocatable :: Temp(:,:,:)
658 : #include "pm_arrayResize@routines.inc.F90"
659 27 : end procedure
660 : #endif
661 :
662 : #if LK2_ENABLED
663 27 : module procedure setRebilledSDDD_D3_LK2
664 : use pm_kind, only: LKC => LK2
665 : logical(LKC), allocatable :: Temp(:,:,:)
666 : #include "pm_arrayResize@routines.inc.F90"
667 27 : end procedure
668 : #endif
669 :
670 : #if LK1_ENABLED
671 30 : module procedure setRebilledSDDD_D3_LK1
672 : use pm_kind, only: LKC => LK1
673 : logical(LKC), allocatable :: Temp(:,:,:)
674 : #include "pm_arrayResize@routines.inc.F90"
675 30 : end procedure
676 : #endif
677 :
678 : #undef LK_ENABLED
679 :
680 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
681 :
682 : #define CK_ENABLED 1
683 :
684 : #if CK5_ENABLED
685 : module procedure setRebilledSDDD_D3_CK5
686 : use pm_kind, only: CKC => CK5
687 : complex(CKC), allocatable :: Temp(:,:,:)
688 : #include "pm_arrayResize@routines.inc.F90"
689 : end procedure
690 : #endif
691 :
692 : #if CK4_ENABLED
693 20 : module procedure setRebilledSDDD_D3_CK4
694 : use pm_kind, only: CKC => CK4
695 : complex(CKC), allocatable :: Temp(:,:,:)
696 : #include "pm_arrayResize@routines.inc.F90"
697 20 : end procedure
698 : #endif
699 :
700 : #if CK3_ENABLED
701 18 : module procedure setRebilledSDDD_D3_CK3
702 : use pm_kind, only: CKC => CK3
703 : complex(CKC), allocatable :: Temp(:,:,:)
704 : #include "pm_arrayResize@routines.inc.F90"
705 18 : end procedure
706 : #endif
707 :
708 : #if CK2_ENABLED
709 24 : module procedure setRebilledSDDD_D3_CK2
710 : use pm_kind, only: CKC => CK2
711 : complex(CKC), allocatable :: Temp(:,:,:)
712 : #include "pm_arrayResize@routines.inc.F90"
713 24 : end procedure
714 : #endif
715 :
716 : #if CK1_ENABLED
717 29 : module procedure setRebilledSDDD_D3_CK1
718 : use pm_kind, only: CKC => CK1
719 : complex(CKC), allocatable :: Temp(:,:,:)
720 : #include "pm_arrayResize@routines.inc.F90"
721 29 : end procedure
722 : #endif
723 :
724 : #undef CK_ENABLED
725 :
726 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
727 :
728 : #define RK_ENABLED 1
729 :
730 : #if RK5_ENABLED
731 : module procedure setRebilledSDDD_D3_RK5
732 : use pm_kind, only: RKC => RK5
733 : real(RKC), allocatable :: Temp(:,:,:)
734 : #include "pm_arrayResize@routines.inc.F90"
735 : end procedure
736 : #endif
737 :
738 : #if RK4_ENABLED
739 31 : module procedure setRebilledSDDD_D3_RK4
740 : use pm_kind, only: RKC => RK4
741 : real(RKC), allocatable :: Temp(:,:,:)
742 : #include "pm_arrayResize@routines.inc.F90"
743 31 : end procedure
744 : #endif
745 :
746 : #if RK3_ENABLED
747 30 : module procedure setRebilledSDDD_D3_RK3
748 : use pm_kind, only: RKC => RK3
749 : real(RKC), allocatable :: Temp(:,:,:)
750 : #include "pm_arrayResize@routines.inc.F90"
751 30 : end procedure
752 : #endif
753 :
754 : #if RK2_ENABLED
755 24 : module procedure setRebilledSDDD_D3_RK2
756 : use pm_kind, only: RKC => RK2
757 : real(RKC), allocatable :: Temp(:,:,:)
758 : #include "pm_arrayResize@routines.inc.F90"
759 24 : end procedure
760 : #endif
761 :
762 : #if RK1_ENABLED
763 22 : module procedure setRebilledSDDD_D3_RK1
764 : use pm_kind, only: RKC => RK1
765 : real(RKC), allocatable :: Temp(:,:,:)
766 : #include "pm_arrayResize@routines.inc.F90"
767 22 : end procedure
768 : #endif
769 :
770 : #undef RK_ENABLED
771 :
772 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
773 :
774 : #undef D3_ENABLED
775 :
776 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
777 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
778 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
779 :
780 : #undef SDDD_ENABLED
781 :
782 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
783 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
784 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
785 :
786 : #define SLDD_ENABLED 1
787 :
788 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
789 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
790 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
791 :
792 : #define D1_ENABLED 1
793 :
794 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
795 :
796 : #define SK_ENABLED 1
797 :
798 : #if SK5_ENABLED
799 : module procedure setRebilledSLDD_D1_SK5
800 : use pm_kind, only: SKC => SK5
801 : character(len(Array,IK),SKC), allocatable :: Temp(:)
802 : #include "pm_arrayResize@routines.inc.F90"
803 : end procedure
804 : #endif
805 :
806 : #if SK4_ENABLED
807 : module procedure setRebilledSLDD_D1_SK4
808 : use pm_kind, only: SKC => SK4
809 : character(len(Array,IK),SKC), allocatable :: Temp(:)
810 : #include "pm_arrayResize@routines.inc.F90"
811 : end procedure
812 : #endif
813 :
814 : #if SK3_ENABLED
815 : module procedure setRebilledSLDD_D1_SK3
816 : use pm_kind, only: SKC => SK3
817 : character(len(Array,IK),SKC), allocatable :: Temp(:)
818 : #include "pm_arrayResize@routines.inc.F90"
819 : end procedure
820 : #endif
821 :
822 : #if SK2_ENABLED
823 : module procedure setRebilledSLDD_D1_SK2
824 : use pm_kind, only: SKC => SK2
825 : character(len(Array,IK),SKC), allocatable :: Temp(:)
826 : #include "pm_arrayResize@routines.inc.F90"
827 : end procedure
828 : #endif
829 :
830 : #if SK1_ENABLED
831 155 : module procedure setRebilledSLDD_D1_SK1
832 : use pm_kind, only: SKC => SK1
833 155 : character(len(Array,IK),SKC), allocatable :: Temp(:)
834 : #include "pm_arrayResize@routines.inc.F90"
835 155 : end procedure
836 : #endif
837 :
838 : #undef SK_ENABLED
839 :
840 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
841 :
842 : #define IK_ENABLED 1
843 :
844 : #if IK5_ENABLED
845 135 : module procedure setRebilledSLDD_D1_IK5
846 : use pm_kind, only: IKC => IK5
847 : integer(IKC), allocatable :: Temp(:)
848 : #include "pm_arrayResize@routines.inc.F90"
849 135 : end procedure
850 : #endif
851 :
852 : #if IK4_ENABLED
853 142 : module procedure setRebilledSLDD_D1_IK4
854 : use pm_kind, only: IKC => IK4
855 : integer(IKC), allocatable :: Temp(:)
856 : #include "pm_arrayResize@routines.inc.F90"
857 142 : end procedure
858 : #endif
859 :
860 : #if IK3_ENABLED
861 149 : module procedure setRebilledSLDD_D1_IK3
862 : use pm_kind, only: IKC => IK3
863 : integer(IKC), allocatable :: Temp(:)
864 : #include "pm_arrayResize@routines.inc.F90"
865 149 : end procedure
866 : #endif
867 :
868 : #if IK2_ENABLED
869 139 : module procedure setRebilledSLDD_D1_IK2
870 : use pm_kind, only: IKC => IK2
871 : integer(IKC), allocatable :: Temp(:)
872 : #include "pm_arrayResize@routines.inc.F90"
873 139 : end procedure
874 : #endif
875 :
876 : #if IK1_ENABLED
877 132 : module procedure setRebilledSLDD_D1_IK1
878 : use pm_kind, only: IKC => IK1
879 : integer(IKC), allocatable :: Temp(:)
880 : #include "pm_arrayResize@routines.inc.F90"
881 132 : end procedure
882 : #endif
883 :
884 : #undef IK_ENABLED
885 :
886 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
887 :
888 : #define LK_ENABLED 1
889 :
890 : #if LK5_ENABLED
891 155 : module procedure setRebilledSLDD_D1_LK5
892 : use pm_kind, only: LKC => LK5
893 : logical(LKC), allocatable :: Temp(:)
894 : #include "pm_arrayResize@routines.inc.F90"
895 155 : end procedure
896 : #endif
897 :
898 : #if LK4_ENABLED
899 155 : module procedure setRebilledSLDD_D1_LK4
900 : use pm_kind, only: LKC => LK4
901 : logical(LKC), allocatable :: Temp(:)
902 : #include "pm_arrayResize@routines.inc.F90"
903 155 : end procedure
904 : #endif
905 :
906 : #if LK3_ENABLED
907 148 : module procedure setRebilledSLDD_D1_LK3
908 : use pm_kind, only: LKC => LK3
909 : logical(LKC), allocatable :: Temp(:)
910 : #include "pm_arrayResize@routines.inc.F90"
911 148 : end procedure
912 : #endif
913 :
914 : #if LK2_ENABLED
915 153 : module procedure setRebilledSLDD_D1_LK2
916 : use pm_kind, only: LKC => LK2
917 : logical(LKC), allocatable :: Temp(:)
918 : #include "pm_arrayResize@routines.inc.F90"
919 153 : end procedure
920 : #endif
921 :
922 : #if LK1_ENABLED
923 142 : module procedure setRebilledSLDD_D1_LK1
924 : use pm_kind, only: LKC => LK1
925 : logical(LKC), allocatable :: Temp(:)
926 : #include "pm_arrayResize@routines.inc.F90"
927 142 : end procedure
928 : #endif
929 :
930 : #undef LK_ENABLED
931 :
932 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
933 :
934 : #define CK_ENABLED 1
935 :
936 : #if CK5_ENABLED
937 : module procedure setRebilledSLDD_D1_CK5
938 : use pm_kind, only: CKC => CK5
939 : complex(CKC), allocatable :: Temp(:)
940 : #include "pm_arrayResize@routines.inc.F90"
941 : end procedure
942 : #endif
943 :
944 : #if CK4_ENABLED
945 127 : module procedure setRebilledSLDD_D1_CK4
946 : use pm_kind, only: CKC => CK4
947 : complex(CKC), allocatable :: Temp(:)
948 : #include "pm_arrayResize@routines.inc.F90"
949 127 : end procedure
950 : #endif
951 :
952 : #if CK3_ENABLED
953 149 : module procedure setRebilledSLDD_D1_CK3
954 : use pm_kind, only: CKC => CK3
955 : complex(CKC), allocatable :: Temp(:)
956 : #include "pm_arrayResize@routines.inc.F90"
957 149 : end procedure
958 : #endif
959 :
960 : #if CK2_ENABLED
961 150 : module procedure setRebilledSLDD_D1_CK2
962 : use pm_kind, only: CKC => CK2
963 : complex(CKC), allocatable :: Temp(:)
964 : #include "pm_arrayResize@routines.inc.F90"
965 150 : end procedure
966 : #endif
967 :
968 : #if CK1_ENABLED
969 152 : module procedure setRebilledSLDD_D1_CK1
970 : use pm_kind, only: CKC => CK1
971 : complex(CKC), allocatable :: Temp(:)
972 : #include "pm_arrayResize@routines.inc.F90"
973 152 : end procedure
974 : #endif
975 :
976 : #undef CK_ENABLED
977 :
978 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
979 :
980 : #define RK_ENABLED 1
981 :
982 : #if RK5_ENABLED
983 : module procedure setRebilledSLDD_D1_RK5
984 : use pm_kind, only: RKC => RK5
985 : real(RKC), allocatable :: Temp(:)
986 : #include "pm_arrayResize@routines.inc.F90"
987 : end procedure
988 : #endif
989 :
990 : #if RK4_ENABLED
991 141 : module procedure setRebilledSLDD_D1_RK4
992 : use pm_kind, only: RKC => RK4
993 : real(RKC), allocatable :: Temp(:)
994 : #include "pm_arrayResize@routines.inc.F90"
995 141 : end procedure
996 : #endif
997 :
998 : #if RK3_ENABLED
999 125 : module procedure setRebilledSLDD_D1_RK3
1000 : use pm_kind, only: RKC => RK3
1001 : real(RKC), allocatable :: Temp(:)
1002 : #include "pm_arrayResize@routines.inc.F90"
1003 125 : end procedure
1004 : #endif
1005 :
1006 : #if RK2_ENABLED
1007 138 : module procedure setRebilledSLDD_D1_RK2
1008 : use pm_kind, only: RKC => RK2
1009 : real(RKC), allocatable :: Temp(:)
1010 : #include "pm_arrayResize@routines.inc.F90"
1011 138 : end procedure
1012 : #endif
1013 :
1014 : #if RK1_ENABLED
1015 136 : module procedure setRebilledSLDD_D1_RK1
1016 : use pm_kind, only: RKC => RK1
1017 : real(RKC), allocatable :: Temp(:)
1018 : #include "pm_arrayResize@routines.inc.F90"
1019 136 : end procedure
1020 : #endif
1021 :
1022 : #undef RK_ENABLED
1023 :
1024 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1025 :
1026 : #undef D1_ENABLED
1027 :
1028 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1029 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1030 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1031 :
1032 : #define D2_ENABLED 1
1033 :
1034 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1035 :
1036 : #define SK_ENABLED 1
1037 :
1038 : #if SK5_ENABLED
1039 : module procedure setRebilledSLDD_D2_SK5
1040 : use pm_kind, only: SKC => SK5
1041 : character(len(Array,IK),SKC), allocatable :: Temp(:,:)
1042 : #include "pm_arrayResize@routines.inc.F90"
1043 : end procedure
1044 : #endif
1045 :
1046 : #if SK4_ENABLED
1047 : module procedure setRebilledSLDD_D2_SK4
1048 : use pm_kind, only: SKC => SK4
1049 : character(len(Array,IK),SKC), allocatable :: Temp(:,:)
1050 : #include "pm_arrayResize@routines.inc.F90"
1051 : end procedure
1052 : #endif
1053 :
1054 : #if SK3_ENABLED
1055 : module procedure setRebilledSLDD_D2_SK3
1056 : use pm_kind, only: SKC => SK3
1057 : character(len(Array,IK),SKC), allocatable :: Temp(:,:)
1058 : #include "pm_arrayResize@routines.inc.F90"
1059 : end procedure
1060 : #endif
1061 :
1062 : #if SK2_ENABLED
1063 : module procedure setRebilledSLDD_D2_SK2
1064 : use pm_kind, only: SKC => SK2
1065 : character(len(Array,IK),SKC), allocatable :: Temp(:,:)
1066 : #include "pm_arrayResize@routines.inc.F90"
1067 : end procedure
1068 : #endif
1069 :
1070 : #if SK1_ENABLED
1071 67 : module procedure setRebilledSLDD_D2_SK1
1072 : use pm_kind, only: SKC => SK1
1073 67 : character(len(Array,IK),SKC), allocatable :: Temp(:,:)
1074 : #include "pm_arrayResize@routines.inc.F90"
1075 67 : end procedure
1076 : #endif
1077 :
1078 : #undef SK_ENABLED
1079 :
1080 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1081 :
1082 : #define IK_ENABLED 1
1083 :
1084 : #if IK5_ENABLED
1085 44 : module procedure setRebilledSLDD_D2_IK5
1086 : use pm_kind, only: IKC => IK5
1087 : integer(IKC), allocatable :: Temp(:,:)
1088 : #include "pm_arrayResize@routines.inc.F90"
1089 44 : end procedure
1090 : #endif
1091 :
1092 : #if IK4_ENABLED
1093 64 : module procedure setRebilledSLDD_D2_IK4
1094 : use pm_kind, only: IKC => IK4
1095 : integer(IKC), allocatable :: Temp(:,:)
1096 : #include "pm_arrayResize@routines.inc.F90"
1097 64 : end procedure
1098 : #endif
1099 :
1100 : #if IK3_ENABLED
1101 54 : module procedure setRebilledSLDD_D2_IK3
1102 : use pm_kind, only: IKC => IK3
1103 : integer(IKC), allocatable :: Temp(:,:)
1104 : #include "pm_arrayResize@routines.inc.F90"
1105 54 : end procedure
1106 : #endif
1107 :
1108 : #if IK2_ENABLED
1109 58 : module procedure setRebilledSLDD_D2_IK2
1110 : use pm_kind, only: IKC => IK2
1111 : integer(IKC), allocatable :: Temp(:,:)
1112 : #include "pm_arrayResize@routines.inc.F90"
1113 58 : end procedure
1114 : #endif
1115 :
1116 : #if IK1_ENABLED
1117 54 : module procedure setRebilledSLDD_D2_IK1
1118 : use pm_kind, only: IKC => IK1
1119 : integer(IKC), allocatable :: Temp(:,:)
1120 : #include "pm_arrayResize@routines.inc.F90"
1121 54 : end procedure
1122 : #endif
1123 :
1124 : #undef IK_ENABLED
1125 :
1126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1127 :
1128 : #define LK_ENABLED 1
1129 :
1130 : #if LK5_ENABLED
1131 52 : module procedure setRebilledSLDD_D2_LK5
1132 : use pm_kind, only: LKC => LK5
1133 : logical(LKC), allocatable :: Temp(:,:)
1134 : #include "pm_arrayResize@routines.inc.F90"
1135 52 : end procedure
1136 : #endif
1137 :
1138 : #if LK4_ENABLED
1139 60 : module procedure setRebilledSLDD_D2_LK4
1140 : use pm_kind, only: LKC => LK4
1141 : logical(LKC), allocatable :: Temp(:,:)
1142 : #include "pm_arrayResize@routines.inc.F90"
1143 60 : end procedure
1144 : #endif
1145 :
1146 : #if LK3_ENABLED
1147 45 : module procedure setRebilledSLDD_D2_LK3
1148 : use pm_kind, only: LKC => LK3
1149 : logical(LKC), allocatable :: Temp(:,:)
1150 : #include "pm_arrayResize@routines.inc.F90"
1151 45 : end procedure
1152 : #endif
1153 :
1154 : #if LK2_ENABLED
1155 59 : module procedure setRebilledSLDD_D2_LK2
1156 : use pm_kind, only: LKC => LK2
1157 : logical(LKC), allocatable :: Temp(:,:)
1158 : #include "pm_arrayResize@routines.inc.F90"
1159 59 : end procedure
1160 : #endif
1161 :
1162 : #if LK1_ENABLED
1163 60 : module procedure setRebilledSLDD_D2_LK1
1164 : use pm_kind, only: LKC => LK1
1165 : logical(LKC), allocatable :: Temp(:,:)
1166 : #include "pm_arrayResize@routines.inc.F90"
1167 60 : end procedure
1168 : #endif
1169 :
1170 : #undef LK_ENABLED
1171 :
1172 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1173 :
1174 : #define CK_ENABLED 1
1175 :
1176 : #if CK5_ENABLED
1177 : module procedure setRebilledSLDD_D2_CK5
1178 : use pm_kind, only: CKC => CK5
1179 : complex(CKC), allocatable :: Temp(:,:)
1180 : #include "pm_arrayResize@routines.inc.F90"
1181 : end procedure
1182 : #endif
1183 :
1184 : #if CK4_ENABLED
1185 53 : module procedure setRebilledSLDD_D2_CK4
1186 : use pm_kind, only: CKC => CK4
1187 : complex(CKC), allocatable :: Temp(:,:)
1188 : #include "pm_arrayResize@routines.inc.F90"
1189 53 : end procedure
1190 : #endif
1191 :
1192 : #if CK3_ENABLED
1193 57 : module procedure setRebilledSLDD_D2_CK3
1194 : use pm_kind, only: CKC => CK3
1195 : complex(CKC), allocatable :: Temp(:,:)
1196 : #include "pm_arrayResize@routines.inc.F90"
1197 57 : end procedure
1198 : #endif
1199 :
1200 : #if CK2_ENABLED
1201 45 : module procedure setRebilledSLDD_D2_CK2
1202 : use pm_kind, only: CKC => CK2
1203 : complex(CKC), allocatable :: Temp(:,:)
1204 : #include "pm_arrayResize@routines.inc.F90"
1205 45 : end procedure
1206 : #endif
1207 :
1208 : #if CK1_ENABLED
1209 47 : module procedure setRebilledSLDD_D2_CK1
1210 : use pm_kind, only: CKC => CK1
1211 : complex(CKC), allocatable :: Temp(:,:)
1212 : #include "pm_arrayResize@routines.inc.F90"
1213 47 : end procedure
1214 : #endif
1215 :
1216 : #undef CK_ENABLED
1217 :
1218 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1219 :
1220 : #define RK_ENABLED 1
1221 :
1222 : #if RK5_ENABLED
1223 : module procedure setRebilledSLDD_D2_RK5
1224 : use pm_kind, only: RKC => RK5
1225 : real(RKC), allocatable :: Temp(:,:)
1226 : #include "pm_arrayResize@routines.inc.F90"
1227 : end procedure
1228 : #endif
1229 :
1230 : #if RK4_ENABLED
1231 43 : module procedure setRebilledSLDD_D2_RK4
1232 : use pm_kind, only: RKC => RK4
1233 : real(RKC), allocatable :: Temp(:,:)
1234 : #include "pm_arrayResize@routines.inc.F90"
1235 43 : end procedure
1236 : #endif
1237 :
1238 : #if RK3_ENABLED
1239 51 : module procedure setRebilledSLDD_D2_RK3
1240 : use pm_kind, only: RKC => RK3
1241 : real(RKC), allocatable :: Temp(:,:)
1242 : #include "pm_arrayResize@routines.inc.F90"
1243 51 : end procedure
1244 : #endif
1245 :
1246 : #if RK2_ENABLED
1247 55 : module procedure setRebilledSLDD_D2_RK2
1248 : use pm_kind, only: RKC => RK2
1249 : real(RKC), allocatable :: Temp(:,:)
1250 : #include "pm_arrayResize@routines.inc.F90"
1251 55 : end procedure
1252 : #endif
1253 :
1254 : #if RK1_ENABLED
1255 57 : module procedure setRebilledSLDD_D2_RK1
1256 : use pm_kind, only: RKC => RK1
1257 : real(RKC), allocatable :: Temp(:,:)
1258 : #include "pm_arrayResize@routines.inc.F90"
1259 57 : end procedure
1260 : #endif
1261 :
1262 : #undef RK_ENABLED
1263 :
1264 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1265 :
1266 : #undef D2_ENABLED
1267 :
1268 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1269 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1271 :
1272 : #define D3_ENABLED 1
1273 :
1274 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1275 :
1276 : #define SK_ENABLED 1
1277 :
1278 : #if SK5_ENABLED
1279 : module procedure setRebilledSLDD_D3_SK5
1280 : use pm_kind, only: SKC => SK5
1281 : character(len(Array,IK),SKC), allocatable :: Temp(:,:,:)
1282 : #include "pm_arrayResize@routines.inc.F90"
1283 : end procedure
1284 : #endif
1285 :
1286 : #if SK4_ENABLED
1287 : module procedure setRebilledSLDD_D3_SK4
1288 : use pm_kind, only: SKC => SK4
1289 : character(len(Array,IK),SKC), allocatable :: Temp(:,:,:)
1290 : #include "pm_arrayResize@routines.inc.F90"
1291 : end procedure
1292 : #endif
1293 :
1294 : #if SK3_ENABLED
1295 : module procedure setRebilledSLDD_D3_SK3
1296 : use pm_kind, only: SKC => SK3
1297 : character(len(Array,IK),SKC), allocatable :: Temp(:,:,:)
1298 : #include "pm_arrayResize@routines.inc.F90"
1299 : end procedure
1300 : #endif
1301 :
1302 : #if SK2_ENABLED
1303 : module procedure setRebilledSLDD_D3_SK2
1304 : use pm_kind, only: SKC => SK2
1305 : character(len(Array,IK),SKC), allocatable :: Temp(:,:,:)
1306 : #include "pm_arrayResize@routines.inc.F90"
1307 : end procedure
1308 : #endif
1309 :
1310 : #if SK1_ENABLED
1311 21 : module procedure setRebilledSLDD_D3_SK1
1312 : use pm_kind, only: SKC => SK1
1313 21 : character(len(Array,IK),SKC), allocatable :: Temp(:,:,:)
1314 : #include "pm_arrayResize@routines.inc.F90"
1315 21 : end procedure
1316 : #endif
1317 :
1318 : #undef SK_ENABLED
1319 :
1320 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1321 :
1322 : #define IK_ENABLED 1
1323 :
1324 : #if IK5_ENABLED
1325 22 : module procedure setRebilledSLDD_D3_IK5
1326 : use pm_kind, only: IKC => IK5
1327 : integer(IKC), allocatable :: Temp(:,:,:)
1328 : #include "pm_arrayResize@routines.inc.F90"
1329 22 : end procedure
1330 : #endif
1331 :
1332 : #if IK4_ENABLED
1333 12 : module procedure setRebilledSLDD_D3_IK4
1334 : use pm_kind, only: IKC => IK4
1335 : integer(IKC), allocatable :: Temp(:,:,:)
1336 : #include "pm_arrayResize@routines.inc.F90"
1337 12 : end procedure
1338 : #endif
1339 :
1340 : #if IK3_ENABLED
1341 15 : module procedure setRebilledSLDD_D3_IK3
1342 : use pm_kind, only: IKC => IK3
1343 : integer(IKC), allocatable :: Temp(:,:,:)
1344 : #include "pm_arrayResize@routines.inc.F90"
1345 15 : end procedure
1346 : #endif
1347 :
1348 : #if IK2_ENABLED
1349 26 : module procedure setRebilledSLDD_D3_IK2
1350 : use pm_kind, only: IKC => IK2
1351 : integer(IKC), allocatable :: Temp(:,:,:)
1352 : #include "pm_arrayResize@routines.inc.F90"
1353 26 : end procedure
1354 : #endif
1355 :
1356 : #if IK1_ENABLED
1357 22 : module procedure setRebilledSLDD_D3_IK1
1358 : use pm_kind, only: IKC => IK1
1359 : integer(IKC), allocatable :: Temp(:,:,:)
1360 : #include "pm_arrayResize@routines.inc.F90"
1361 22 : end procedure
1362 : #endif
1363 :
1364 : #undef IK_ENABLED
1365 :
1366 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1367 :
1368 : #define LK_ENABLED 1
1369 :
1370 : #if LK5_ENABLED
1371 21 : module procedure setRebilledSLDD_D3_LK5
1372 : use pm_kind, only: LKC => LK5
1373 : logical(LKC), allocatable :: Temp(:,:,:)
1374 : #include "pm_arrayResize@routines.inc.F90"
1375 21 : end procedure
1376 : #endif
1377 :
1378 : #if LK4_ENABLED
1379 22 : module procedure setRebilledSLDD_D3_LK4
1380 : use pm_kind, only: LKC => LK4
1381 : logical(LKC), allocatable :: Temp(:,:,:)
1382 : #include "pm_arrayResize@routines.inc.F90"
1383 22 : end procedure
1384 : #endif
1385 :
1386 : #if LK3_ENABLED
1387 23 : module procedure setRebilledSLDD_D3_LK3
1388 : use pm_kind, only: LKC => LK3
1389 : logical(LKC), allocatable :: Temp(:,:,:)
1390 : #include "pm_arrayResize@routines.inc.F90"
1391 23 : end procedure
1392 : #endif
1393 :
1394 : #if LK2_ENABLED
1395 23 : module procedure setRebilledSLDD_D3_LK2
1396 : use pm_kind, only: LKC => LK2
1397 : logical(LKC), allocatable :: Temp(:,:,:)
1398 : #include "pm_arrayResize@routines.inc.F90"
1399 23 : end procedure
1400 : #endif
1401 :
1402 : #if LK1_ENABLED
1403 26 : module procedure setRebilledSLDD_D3_LK1
1404 : use pm_kind, only: LKC => LK1
1405 : logical(LKC), allocatable :: Temp(:,:,:)
1406 : #include "pm_arrayResize@routines.inc.F90"
1407 26 : end procedure
1408 : #endif
1409 :
1410 : #undef LK_ENABLED
1411 :
1412 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1413 :
1414 : #define CK_ENABLED 1
1415 :
1416 : #if CK5_ENABLED
1417 : module procedure setRebilledSLDD_D3_CK5
1418 : use pm_kind, only: CKC => CK5
1419 : complex(CKC), allocatable :: Temp(:,:,:)
1420 : #include "pm_arrayResize@routines.inc.F90"
1421 : end procedure
1422 : #endif
1423 :
1424 : #if CK4_ENABLED
1425 16 : module procedure setRebilledSLDD_D3_CK4
1426 : use pm_kind, only: CKC => CK4
1427 : complex(CKC), allocatable :: Temp(:,:,:)
1428 : #include "pm_arrayResize@routines.inc.F90"
1429 16 : end procedure
1430 : #endif
1431 :
1432 : #if CK3_ENABLED
1433 14 : module procedure setRebilledSLDD_D3_CK3
1434 : use pm_kind, only: CKC => CK3
1435 : complex(CKC), allocatable :: Temp(:,:,:)
1436 : #include "pm_arrayResize@routines.inc.F90"
1437 14 : end procedure
1438 : #endif
1439 :
1440 : #if CK2_ENABLED
1441 20 : module procedure setRebilledSLDD_D3_CK2
1442 : use pm_kind, only: CKC => CK2
1443 : complex(CKC), allocatable :: Temp(:,:,:)
1444 : #include "pm_arrayResize@routines.inc.F90"
1445 20 : end procedure
1446 : #endif
1447 :
1448 : #if CK1_ENABLED
1449 25 : module procedure setRebilledSLDD_D3_CK1
1450 : use pm_kind, only: CKC => CK1
1451 : complex(CKC), allocatable :: Temp(:,:,:)
1452 : #include "pm_arrayResize@routines.inc.F90"
1453 25 : end procedure
1454 : #endif
1455 :
1456 : #undef CK_ENABLED
1457 :
1458 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1459 :
1460 : #define RK_ENABLED 1
1461 :
1462 : #if RK5_ENABLED
1463 : module procedure setRebilledSLDD_D3_RK5
1464 : use pm_kind, only: RKC => RK5
1465 : real(RKC), allocatable :: Temp(:,:,:)
1466 : #include "pm_arrayResize@routines.inc.F90"
1467 : end procedure
1468 : #endif
1469 :
1470 : #if RK4_ENABLED
1471 27 : module procedure setRebilledSLDD_D3_RK4
1472 : use pm_kind, only: RKC => RK4
1473 : real(RKC), allocatable :: Temp(:,:,:)
1474 : #include "pm_arrayResize@routines.inc.F90"
1475 27 : end procedure
1476 : #endif
1477 :
1478 : #if RK3_ENABLED
1479 26 : module procedure setRebilledSLDD_D3_RK3
1480 : use pm_kind, only: RKC => RK3
1481 : real(RKC), allocatable :: Temp(:,:,:)
1482 : #include "pm_arrayResize@routines.inc.F90"
1483 26 : end procedure
1484 : #endif
1485 :
1486 : #if RK2_ENABLED
1487 20 : module procedure setRebilledSLDD_D3_RK2
1488 : use pm_kind, only: RKC => RK2
1489 : real(RKC), allocatable :: Temp(:,:,:)
1490 : #include "pm_arrayResize@routines.inc.F90"
1491 20 : end procedure
1492 : #endif
1493 :
1494 : #if RK1_ENABLED
1495 18 : module procedure setRebilledSLDD_D3_RK1
1496 : use pm_kind, only: RKC => RK1
1497 : real(RKC), allocatable :: Temp(:,:,:)
1498 : #include "pm_arrayResize@routines.inc.F90"
1499 18 : end procedure
1500 : #endif
1501 :
1502 : #undef RK_ENABLED
1503 :
1504 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1505 :
1506 : #undef D3_ENABLED
1507 :
1508 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1509 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1510 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1511 :
1512 : #undef SLDD_ENABLED
1513 :
1514 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1515 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1516 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1517 :
1518 : #define SLLU_ENABLED 1
1519 :
1520 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1521 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1522 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1523 :
1524 : #define D1_ENABLED 1
1525 :
1526 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1527 :
1528 : #define SK_ENABLED 1
1529 :
1530 : #if SK5_ENABLED
1531 : module procedure setRebilledSLLU_D1_SK5
1532 : use pm_kind, only: SKC => SK5
1533 : character(len(Array,IK),SKC), allocatable :: Temp(:)
1534 : #include "pm_arrayResize@routines.inc.F90"
1535 : end procedure
1536 : #endif
1537 :
1538 : #if SK4_ENABLED
1539 : module procedure setRebilledSLLU_D1_SK4
1540 : use pm_kind, only: SKC => SK4
1541 : character(len(Array,IK),SKC), allocatable :: Temp(:)
1542 : #include "pm_arrayResize@routines.inc.F90"
1543 : end procedure
1544 : #endif
1545 :
1546 : #if SK3_ENABLED
1547 : module procedure setRebilledSLLU_D1_SK3
1548 : use pm_kind, only: SKC => SK3
1549 : character(len(Array,IK),SKC), allocatable :: Temp(:)
1550 : #include "pm_arrayResize@routines.inc.F90"
1551 : end procedure
1552 : #endif
1553 :
1554 : #if SK2_ENABLED
1555 : module procedure setRebilledSLLU_D1_SK2
1556 : use pm_kind, only: SKC => SK2
1557 : character(len(Array,IK),SKC), allocatable :: Temp(:)
1558 : #include "pm_arrayResize@routines.inc.F90"
1559 : end procedure
1560 : #endif
1561 :
1562 : #if SK1_ENABLED
1563 801 : module procedure setRebilledSLLU_D1_SK1
1564 : use pm_kind, only: SKC => SK1
1565 801 : character(len(Array,IK),SKC), allocatable :: Temp(:)
1566 : #include "pm_arrayResize@routines.inc.F90"
1567 801 : end procedure
1568 : #endif
1569 :
1570 : #undef SK_ENABLED
1571 :
1572 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1573 :
1574 : #define IK_ENABLED 1
1575 :
1576 : #if IK5_ENABLED
1577 800 : module procedure setRebilledSLLU_D1_IK5
1578 : use pm_kind, only: IKC => IK5
1579 : integer(IKC), allocatable :: Temp(:)
1580 : #include "pm_arrayResize@routines.inc.F90"
1581 800 : end procedure
1582 : #endif
1583 :
1584 : #if IK4_ENABLED
1585 800 : module procedure setRebilledSLLU_D1_IK4
1586 : use pm_kind, only: IKC => IK4
1587 : integer(IKC), allocatable :: Temp(:)
1588 : #include "pm_arrayResize@routines.inc.F90"
1589 800 : end procedure
1590 : #endif
1591 :
1592 : #if IK3_ENABLED
1593 800 : module procedure setRebilledSLLU_D1_IK3
1594 : use pm_kind, only: IKC => IK3
1595 : integer(IKC), allocatable :: Temp(:)
1596 : #include "pm_arrayResize@routines.inc.F90"
1597 800 : end procedure
1598 : #endif
1599 :
1600 : #if IK2_ENABLED
1601 800 : module procedure setRebilledSLLU_D1_IK2
1602 : use pm_kind, only: IKC => IK2
1603 : integer(IKC), allocatable :: Temp(:)
1604 : #include "pm_arrayResize@routines.inc.F90"
1605 800 : end procedure
1606 : #endif
1607 :
1608 : #if IK1_ENABLED
1609 800 : module procedure setRebilledSLLU_D1_IK1
1610 : use pm_kind, only: IKC => IK1
1611 : integer(IKC), allocatable :: Temp(:)
1612 : #include "pm_arrayResize@routines.inc.F90"
1613 800 : end procedure
1614 : #endif
1615 :
1616 : #undef IK_ENABLED
1617 :
1618 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1619 :
1620 : #define LK_ENABLED 1
1621 :
1622 : #if LK5_ENABLED
1623 800 : module procedure setRebilledSLLU_D1_LK5
1624 : use pm_kind, only: LKC => LK5
1625 : logical(LKC), allocatable :: Temp(:)
1626 : #include "pm_arrayResize@routines.inc.F90"
1627 800 : end procedure
1628 : #endif
1629 :
1630 : #if LK4_ENABLED
1631 800 : module procedure setRebilledSLLU_D1_LK4
1632 : use pm_kind, only: LKC => LK4
1633 : logical(LKC), allocatable :: Temp(:)
1634 : #include "pm_arrayResize@routines.inc.F90"
1635 800 : end procedure
1636 : #endif
1637 :
1638 : #if LK3_ENABLED
1639 800 : module procedure setRebilledSLLU_D1_LK3
1640 : use pm_kind, only: LKC => LK3
1641 : logical(LKC), allocatable :: Temp(:)
1642 : #include "pm_arrayResize@routines.inc.F90"
1643 800 : end procedure
1644 : #endif
1645 :
1646 : #if LK2_ENABLED
1647 800 : module procedure setRebilledSLLU_D1_LK2
1648 : use pm_kind, only: LKC => LK2
1649 : logical(LKC), allocatable :: Temp(:)
1650 : #include "pm_arrayResize@routines.inc.F90"
1651 800 : end procedure
1652 : #endif
1653 :
1654 : #if LK1_ENABLED
1655 800 : module procedure setRebilledSLLU_D1_LK1
1656 : use pm_kind, only: LKC => LK1
1657 : logical(LKC), allocatable :: Temp(:)
1658 : #include "pm_arrayResize@routines.inc.F90"
1659 800 : end procedure
1660 : #endif
1661 :
1662 : #undef LK_ENABLED
1663 :
1664 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1665 :
1666 : #define CK_ENABLED 1
1667 :
1668 : #if CK5_ENABLED
1669 : module procedure setRebilledSLLU_D1_CK5
1670 : use pm_kind, only: CKC => CK5
1671 : complex(CKC), allocatable :: Temp(:)
1672 : #include "pm_arrayResize@routines.inc.F90"
1673 : end procedure
1674 : #endif
1675 :
1676 : #if CK4_ENABLED
1677 800 : module procedure setRebilledSLLU_D1_CK4
1678 : use pm_kind, only: CKC => CK4
1679 : complex(CKC), allocatable :: Temp(:)
1680 : #include "pm_arrayResize@routines.inc.F90"
1681 800 : end procedure
1682 : #endif
1683 :
1684 : #if CK3_ENABLED
1685 800 : module procedure setRebilledSLLU_D1_CK3
1686 : use pm_kind, only: CKC => CK3
1687 : complex(CKC), allocatable :: Temp(:)
1688 : #include "pm_arrayResize@routines.inc.F90"
1689 800 : end procedure
1690 : #endif
1691 :
1692 : #if CK2_ENABLED
1693 800 : module procedure setRebilledSLLU_D1_CK2
1694 : use pm_kind, only: CKC => CK2
1695 : complex(CKC), allocatable :: Temp(:)
1696 : #include "pm_arrayResize@routines.inc.F90"
1697 800 : end procedure
1698 : #endif
1699 :
1700 : #if CK1_ENABLED
1701 800 : module procedure setRebilledSLLU_D1_CK1
1702 : use pm_kind, only: CKC => CK1
1703 : complex(CKC), allocatable :: Temp(:)
1704 : #include "pm_arrayResize@routines.inc.F90"
1705 800 : end procedure
1706 : #endif
1707 :
1708 : #undef CK_ENABLED
1709 :
1710 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1711 :
1712 : #define RK_ENABLED 1
1713 :
1714 : #if RK5_ENABLED
1715 : module procedure setRebilledSLLU_D1_RK5
1716 : use pm_kind, only: RKC => RK5
1717 : real(RKC), allocatable :: Temp(:)
1718 : #include "pm_arrayResize@routines.inc.F90"
1719 : end procedure
1720 : #endif
1721 :
1722 : #if RK4_ENABLED
1723 800 : module procedure setRebilledSLLU_D1_RK4
1724 : use pm_kind, only: RKC => RK4
1725 : real(RKC), allocatable :: Temp(:)
1726 : #include "pm_arrayResize@routines.inc.F90"
1727 800 : end procedure
1728 : #endif
1729 :
1730 : #if RK3_ENABLED
1731 800 : module procedure setRebilledSLLU_D1_RK3
1732 : use pm_kind, only: RKC => RK3
1733 : real(RKC), allocatable :: Temp(:)
1734 : #include "pm_arrayResize@routines.inc.F90"
1735 800 : end procedure
1736 : #endif
1737 :
1738 : #if RK2_ENABLED
1739 800 : module procedure setRebilledSLLU_D1_RK2
1740 : use pm_kind, only: RKC => RK2
1741 : real(RKC), allocatable :: Temp(:)
1742 : #include "pm_arrayResize@routines.inc.F90"
1743 800 : end procedure
1744 : #endif
1745 :
1746 : #if RK1_ENABLED
1747 800 : module procedure setRebilledSLLU_D1_RK1
1748 : use pm_kind, only: RKC => RK1
1749 : real(RKC), allocatable :: Temp(:)
1750 : #include "pm_arrayResize@routines.inc.F90"
1751 800 : end procedure
1752 : #endif
1753 :
1754 : #undef RK_ENABLED
1755 :
1756 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1757 :
1758 : #undef D1_ENABLED
1759 :
1760 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1761 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1762 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1763 :
1764 : #define D2_ENABLED 1
1765 :
1766 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1767 :
1768 : #define SK_ENABLED 1
1769 :
1770 : #if SK5_ENABLED
1771 : module procedure setRebilledSLLU_D2_SK5
1772 : use pm_kind, only: SKC => SK5
1773 : character(len(Array,IK),SKC), allocatable :: Temp(:,:)
1774 : #include "pm_arrayResize@routines.inc.F90"
1775 : end procedure
1776 : #endif
1777 :
1778 : #if SK4_ENABLED
1779 : module procedure setRebilledSLLU_D2_SK4
1780 : use pm_kind, only: SKC => SK4
1781 : character(len(Array,IK),SKC), allocatable :: Temp(:,:)
1782 : #include "pm_arrayResize@routines.inc.F90"
1783 : end procedure
1784 : #endif
1785 :
1786 : #if SK3_ENABLED
1787 : module procedure setRebilledSLLU_D2_SK3
1788 : use pm_kind, only: SKC => SK3
1789 : character(len(Array,IK),SKC), allocatable :: Temp(:,:)
1790 : #include "pm_arrayResize@routines.inc.F90"
1791 : end procedure
1792 : #endif
1793 :
1794 : #if SK2_ENABLED
1795 : module procedure setRebilledSLLU_D2_SK2
1796 : use pm_kind, only: SKC => SK2
1797 : character(len(Array,IK),SKC), allocatable :: Temp(:,:)
1798 : #include "pm_arrayResize@routines.inc.F90"
1799 : end procedure
1800 : #endif
1801 :
1802 : #if SK1_ENABLED
1803 801 : module procedure setRebilledSLLU_D2_SK1
1804 : use pm_kind, only: SKC => SK1
1805 801 : character(len(Array,IK),SKC), allocatable :: Temp(:,:)
1806 : #include "pm_arrayResize@routines.inc.F90"
1807 801 : end procedure
1808 : #endif
1809 :
1810 : #undef SK_ENABLED
1811 :
1812 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1813 :
1814 : #define IK_ENABLED 1
1815 :
1816 : #if IK5_ENABLED
1817 800 : module procedure setRebilledSLLU_D2_IK5
1818 : use pm_kind, only: IKC => IK5
1819 : integer(IKC), allocatable :: Temp(:,:)
1820 : #include "pm_arrayResize@routines.inc.F90"
1821 800 : end procedure
1822 : #endif
1823 :
1824 : #if IK4_ENABLED
1825 800 : module procedure setRebilledSLLU_D2_IK4
1826 : use pm_kind, only: IKC => IK4
1827 : integer(IKC), allocatable :: Temp(:,:)
1828 : #include "pm_arrayResize@routines.inc.F90"
1829 800 : end procedure
1830 : #endif
1831 :
1832 : #if IK3_ENABLED
1833 800 : module procedure setRebilledSLLU_D2_IK3
1834 : use pm_kind, only: IKC => IK3
1835 : integer(IKC), allocatable :: Temp(:,:)
1836 : #include "pm_arrayResize@routines.inc.F90"
1837 800 : end procedure
1838 : #endif
1839 :
1840 : #if IK2_ENABLED
1841 800 : module procedure setRebilledSLLU_D2_IK2
1842 : use pm_kind, only: IKC => IK2
1843 : integer(IKC), allocatable :: Temp(:,:)
1844 : #include "pm_arrayResize@routines.inc.F90"
1845 800 : end procedure
1846 : #endif
1847 :
1848 : #if IK1_ENABLED
1849 800 : module procedure setRebilledSLLU_D2_IK1
1850 : use pm_kind, only: IKC => IK1
1851 : integer(IKC), allocatable :: Temp(:,:)
1852 : #include "pm_arrayResize@routines.inc.F90"
1853 800 : end procedure
1854 : #endif
1855 :
1856 : #undef IK_ENABLED
1857 :
1858 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1859 :
1860 : #define LK_ENABLED 1
1861 :
1862 : #if LK5_ENABLED
1863 800 : module procedure setRebilledSLLU_D2_LK5
1864 : use pm_kind, only: LKC => LK5
1865 : logical(LKC), allocatable :: Temp(:,:)
1866 : #include "pm_arrayResize@routines.inc.F90"
1867 800 : end procedure
1868 : #endif
1869 :
1870 : #if LK4_ENABLED
1871 800 : module procedure setRebilledSLLU_D2_LK4
1872 : use pm_kind, only: LKC => LK4
1873 : logical(LKC), allocatable :: Temp(:,:)
1874 : #include "pm_arrayResize@routines.inc.F90"
1875 800 : end procedure
1876 : #endif
1877 :
1878 : #if LK3_ENABLED
1879 800 : module procedure setRebilledSLLU_D2_LK3
1880 : use pm_kind, only: LKC => LK3
1881 : logical(LKC), allocatable :: Temp(:,:)
1882 : #include "pm_arrayResize@routines.inc.F90"
1883 800 : end procedure
1884 : #endif
1885 :
1886 : #if LK2_ENABLED
1887 800 : module procedure setRebilledSLLU_D2_LK2
1888 : use pm_kind, only: LKC => LK2
1889 : logical(LKC), allocatable :: Temp(:,:)
1890 : #include "pm_arrayResize@routines.inc.F90"
1891 800 : end procedure
1892 : #endif
1893 :
1894 : #if LK1_ENABLED
1895 800 : module procedure setRebilledSLLU_D2_LK1
1896 : use pm_kind, only: LKC => LK1
1897 : logical(LKC), allocatable :: Temp(:,:)
1898 : #include "pm_arrayResize@routines.inc.F90"
1899 800 : end procedure
1900 : #endif
1901 :
1902 : #undef LK_ENABLED
1903 :
1904 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1905 :
1906 : #define CK_ENABLED 1
1907 :
1908 : #if CK5_ENABLED
1909 : module procedure setRebilledSLLU_D2_CK5
1910 : use pm_kind, only: CKC => CK5
1911 : complex(CKC), allocatable :: Temp(:,:)
1912 : #include "pm_arrayResize@routines.inc.F90"
1913 : end procedure
1914 : #endif
1915 :
1916 : #if CK4_ENABLED
1917 800 : module procedure setRebilledSLLU_D2_CK4
1918 : use pm_kind, only: CKC => CK4
1919 : complex(CKC), allocatable :: Temp(:,:)
1920 : #include "pm_arrayResize@routines.inc.F90"
1921 800 : end procedure
1922 : #endif
1923 :
1924 : #if CK3_ENABLED
1925 800 : module procedure setRebilledSLLU_D2_CK3
1926 : use pm_kind, only: CKC => CK3
1927 : complex(CKC), allocatable :: Temp(:,:)
1928 : #include "pm_arrayResize@routines.inc.F90"
1929 800 : end procedure
1930 : #endif
1931 :
1932 : #if CK2_ENABLED
1933 800 : module procedure setRebilledSLLU_D2_CK2
1934 : use pm_kind, only: CKC => CK2
1935 : complex(CKC), allocatable :: Temp(:,:)
1936 : #include "pm_arrayResize@routines.inc.F90"
1937 800 : end procedure
1938 : #endif
1939 :
1940 : #if CK1_ENABLED
1941 800 : module procedure setRebilledSLLU_D2_CK1
1942 : use pm_kind, only: CKC => CK1
1943 : complex(CKC), allocatable :: Temp(:,:)
1944 : #include "pm_arrayResize@routines.inc.F90"
1945 800 : end procedure
1946 : #endif
1947 :
1948 : #undef CK_ENABLED
1949 :
1950 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1951 :
1952 : #define RK_ENABLED 1
1953 :
1954 : #if RK5_ENABLED
1955 : module procedure setRebilledSLLU_D2_RK5
1956 : use pm_kind, only: RKC => RK5
1957 : real(RKC), allocatable :: Temp(:,:)
1958 : #include "pm_arrayResize@routines.inc.F90"
1959 : end procedure
1960 : #endif
1961 :
1962 : #if RK4_ENABLED
1963 800 : module procedure setRebilledSLLU_D2_RK4
1964 : use pm_kind, only: RKC => RK4
1965 : real(RKC), allocatable :: Temp(:,:)
1966 : #include "pm_arrayResize@routines.inc.F90"
1967 800 : end procedure
1968 : #endif
1969 :
1970 : #if RK3_ENABLED
1971 800 : module procedure setRebilledSLLU_D2_RK3
1972 : use pm_kind, only: RKC => RK3
1973 : real(RKC), allocatable :: Temp(:,:)
1974 : #include "pm_arrayResize@routines.inc.F90"
1975 800 : end procedure
1976 : #endif
1977 :
1978 : #if RK2_ENABLED
1979 800 : module procedure setRebilledSLLU_D2_RK2
1980 : use pm_kind, only: RKC => RK2
1981 : real(RKC), allocatable :: Temp(:,:)
1982 : #include "pm_arrayResize@routines.inc.F90"
1983 800 : end procedure
1984 : #endif
1985 :
1986 : #if RK1_ENABLED
1987 800 : module procedure setRebilledSLLU_D2_RK1
1988 : use pm_kind, only: RKC => RK1
1989 : real(RKC), allocatable :: Temp(:,:)
1990 : #include "pm_arrayResize@routines.inc.F90"
1991 800 : end procedure
1992 : #endif
1993 :
1994 : #undef RK_ENABLED
1995 :
1996 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1997 :
1998 : #undef D2_ENABLED
1999 :
2000 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2001 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2002 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2003 :
2004 : #define D3_ENABLED 1
2005 :
2006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2007 :
2008 : #define SK_ENABLED 1
2009 :
2010 : #if SK5_ENABLED
2011 : module procedure setRebilledSLLU_D3_SK5
2012 : use pm_kind, only: SKC => SK5
2013 : character(len(Array,IK),SKC), allocatable :: Temp(:,:,:)
2014 : #include "pm_arrayResize@routines.inc.F90"
2015 : end procedure
2016 : #endif
2017 :
2018 : #if SK4_ENABLED
2019 : module procedure setRebilledSLLU_D3_SK4
2020 : use pm_kind, only: SKC => SK4
2021 : character(len(Array,IK),SKC), allocatable :: Temp(:,:,:)
2022 : #include "pm_arrayResize@routines.inc.F90"
2023 : end procedure
2024 : #endif
2025 :
2026 : #if SK3_ENABLED
2027 : module procedure setRebilledSLLU_D3_SK3
2028 : use pm_kind, only: SKC => SK3
2029 : character(len(Array,IK),SKC), allocatable :: Temp(:,:,:)
2030 : #include "pm_arrayResize@routines.inc.F90"
2031 : end procedure
2032 : #endif
2033 :
2034 : #if SK2_ENABLED
2035 : module procedure setRebilledSLLU_D3_SK2
2036 : use pm_kind, only: SKC => SK2
2037 : character(len(Array,IK),SKC), allocatable :: Temp(:,:,:)
2038 : #include "pm_arrayResize@routines.inc.F90"
2039 : end procedure
2040 : #endif
2041 :
2042 : #if SK1_ENABLED
2043 801 : module procedure setRebilledSLLU_D3_SK1
2044 : use pm_kind, only: SKC => SK1
2045 801 : character(len(Array,IK),SKC), allocatable :: Temp(:,:,:)
2046 : #include "pm_arrayResize@routines.inc.F90"
2047 801 : end procedure
2048 : #endif
2049 :
2050 : #undef SK_ENABLED
2051 :
2052 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2053 :
2054 : #define IK_ENABLED 1
2055 :
2056 : #if IK5_ENABLED
2057 800 : module procedure setRebilledSLLU_D3_IK5
2058 : use pm_kind, only: IKC => IK5
2059 : integer(IKC), allocatable :: Temp(:,:,:)
2060 : #include "pm_arrayResize@routines.inc.F90"
2061 800 : end procedure
2062 : #endif
2063 :
2064 : #if IK4_ENABLED
2065 800 : module procedure setRebilledSLLU_D3_IK4
2066 : use pm_kind, only: IKC => IK4
2067 : integer(IKC), allocatable :: Temp(:,:,:)
2068 : #include "pm_arrayResize@routines.inc.F90"
2069 800 : end procedure
2070 : #endif
2071 :
2072 : #if IK3_ENABLED
2073 800 : module procedure setRebilledSLLU_D3_IK3
2074 : use pm_kind, only: IKC => IK3
2075 : integer(IKC), allocatable :: Temp(:,:,:)
2076 : #include "pm_arrayResize@routines.inc.F90"
2077 800 : end procedure
2078 : #endif
2079 :
2080 : #if IK2_ENABLED
2081 800 : module procedure setRebilledSLLU_D3_IK2
2082 : use pm_kind, only: IKC => IK2
2083 : integer(IKC), allocatable :: Temp(:,:,:)
2084 : #include "pm_arrayResize@routines.inc.F90"
2085 800 : end procedure
2086 : #endif
2087 :
2088 : #if IK1_ENABLED
2089 800 : module procedure setRebilledSLLU_D3_IK1
2090 : use pm_kind, only: IKC => IK1
2091 : integer(IKC), allocatable :: Temp(:,:,:)
2092 : #include "pm_arrayResize@routines.inc.F90"
2093 800 : end procedure
2094 : #endif
2095 :
2096 : #undef IK_ENABLED
2097 :
2098 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2099 :
2100 : #define LK_ENABLED 1
2101 :
2102 : #if LK5_ENABLED
2103 800 : module procedure setRebilledSLLU_D3_LK5
2104 : use pm_kind, only: LKC => LK5
2105 : logical(LKC), allocatable :: Temp(:,:,:)
2106 : #include "pm_arrayResize@routines.inc.F90"
2107 800 : end procedure
2108 : #endif
2109 :
2110 : #if LK4_ENABLED
2111 800 : module procedure setRebilledSLLU_D3_LK4
2112 : use pm_kind, only: LKC => LK4
2113 : logical(LKC), allocatable :: Temp(:,:,:)
2114 : #include "pm_arrayResize@routines.inc.F90"
2115 800 : end procedure
2116 : #endif
2117 :
2118 : #if LK3_ENABLED
2119 800 : module procedure setRebilledSLLU_D3_LK3
2120 : use pm_kind, only: LKC => LK3
2121 : logical(LKC), allocatable :: Temp(:,:,:)
2122 : #include "pm_arrayResize@routines.inc.F90"
2123 800 : end procedure
2124 : #endif
2125 :
2126 : #if LK2_ENABLED
2127 800 : module procedure setRebilledSLLU_D3_LK2
2128 : use pm_kind, only: LKC => LK2
2129 : logical(LKC), allocatable :: Temp(:,:,:)
2130 : #include "pm_arrayResize@routines.inc.F90"
2131 800 : end procedure
2132 : #endif
2133 :
2134 : #if LK1_ENABLED
2135 800 : module procedure setRebilledSLLU_D3_LK1
2136 : use pm_kind, only: LKC => LK1
2137 : logical(LKC), allocatable :: Temp(:,:,:)
2138 : #include "pm_arrayResize@routines.inc.F90"
2139 800 : end procedure
2140 : #endif
2141 :
2142 : #undef LK_ENABLED
2143 :
2144 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2145 :
2146 : #define CK_ENABLED 1
2147 :
2148 : #if CK5_ENABLED
2149 : module procedure setRebilledSLLU_D3_CK5
2150 : use pm_kind, only: CKC => CK5
2151 : complex(CKC), allocatable :: Temp(:,:,:)
2152 : #include "pm_arrayResize@routines.inc.F90"
2153 : end procedure
2154 : #endif
2155 :
2156 : #if CK4_ENABLED
2157 800 : module procedure setRebilledSLLU_D3_CK4
2158 : use pm_kind, only: CKC => CK4
2159 : complex(CKC), allocatable :: Temp(:,:,:)
2160 : #include "pm_arrayResize@routines.inc.F90"
2161 800 : end procedure
2162 : #endif
2163 :
2164 : #if CK3_ENABLED
2165 800 : module procedure setRebilledSLLU_D3_CK3
2166 : use pm_kind, only: CKC => CK3
2167 : complex(CKC), allocatable :: Temp(:,:,:)
2168 : #include "pm_arrayResize@routines.inc.F90"
2169 800 : end procedure
2170 : #endif
2171 :
2172 : #if CK2_ENABLED
2173 800 : module procedure setRebilledSLLU_D3_CK2
2174 : use pm_kind, only: CKC => CK2
2175 : complex(CKC), allocatable :: Temp(:,:,:)
2176 : #include "pm_arrayResize@routines.inc.F90"
2177 800 : end procedure
2178 : #endif
2179 :
2180 : #if CK1_ENABLED
2181 800 : module procedure setRebilledSLLU_D3_CK1
2182 : use pm_kind, only: CKC => CK1
2183 : complex(CKC), allocatable :: Temp(:,:,:)
2184 : #include "pm_arrayResize@routines.inc.F90"
2185 800 : end procedure
2186 : #endif
2187 :
2188 : #undef CK_ENABLED
2189 :
2190 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2191 :
2192 : #define RK_ENABLED 1
2193 :
2194 : #if RK5_ENABLED
2195 : module procedure setRebilledSLLU_D3_RK5
2196 : use pm_kind, only: RKC => RK5
2197 : real(RKC), allocatable :: Temp(:,:,:)
2198 : #include "pm_arrayResize@routines.inc.F90"
2199 : end procedure
2200 : #endif
2201 :
2202 : #if RK4_ENABLED
2203 800 : module procedure setRebilledSLLU_D3_RK4
2204 : use pm_kind, only: RKC => RK4
2205 : real(RKC), allocatable :: Temp(:,:,:)
2206 : #include "pm_arrayResize@routines.inc.F90"
2207 800 : end procedure
2208 : #endif
2209 :
2210 : #if RK3_ENABLED
2211 800 : module procedure setRebilledSLLU_D3_RK3
2212 : use pm_kind, only: RKC => RK3
2213 : real(RKC), allocatable :: Temp(:,:,:)
2214 : #include "pm_arrayResize@routines.inc.F90"
2215 800 : end procedure
2216 : #endif
2217 :
2218 : #if RK2_ENABLED
2219 800 : module procedure setRebilledSLLU_D3_RK2
2220 : use pm_kind, only: RKC => RK2
2221 : real(RKC), allocatable :: Temp(:,:,:)
2222 : #include "pm_arrayResize@routines.inc.F90"
2223 800 : end procedure
2224 : #endif
2225 :
2226 : #if RK1_ENABLED
2227 800 : module procedure setRebilledSLLU_D3_RK1
2228 : use pm_kind, only: RKC => RK1
2229 : real(RKC), allocatable :: Temp(:,:,:)
2230 : #include "pm_arrayResize@routines.inc.F90"
2231 800 : end procedure
2232 : #endif
2233 :
2234 : #undef RK_ENABLED
2235 :
2236 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2237 :
2238 : #undef D3_ENABLED
2239 :
2240 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2241 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2242 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2243 :
2244 : #undef SLLU_ENABLED
2245 :
2246 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2247 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2248 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2249 :
2250 : #undef setRebilled_ENABLED
2251 :
2252 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2253 :
2254 : #undef CHECK_ASSERTION
2255 :
2256 : end submodule routines
|
