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_arrayResize](@ref pm_arrayResize).
19 : !>
20 : !> \finmain
21 : !>
22 : !> \author
23 : !> \FatemehBagheri, Wednesday 12:20 AM, October 13, 2021, Dallas, TX
24 :
25 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
26 :
27 : submodule (pm_arrayResize) 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 : implicit none
40 :
41 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
42 :
43 : contains
44 :
45 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46 :
47 : #define setResized_ENABLED 1
48 :
49 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
50 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 :
53 : #define DDDD_ENABLED 1
54 :
55 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
56 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 :
59 : #define D0_ENABLED 1
60 :
61 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
62 :
63 : #define SK_ENABLED 1
64 :
65 : #if SK5_ENABLED
66 : module procedure setResizedDDDD_D0_SK5
67 : use pm_kind, only: SKC => SK5
68 : character(:,SKC), allocatable :: temp
69 : #include "pm_arrayResize@routines.inc.F90"
70 : end procedure
71 : #endif
72 :
73 : #if SK4_ENABLED
74 : module procedure setResizedDDDD_D0_SK4
75 : use pm_kind, only: SKC => SK4
76 : character(:,SKC), allocatable :: temp
77 : #include "pm_arrayResize@routines.inc.F90"
78 : end procedure
79 : #endif
80 :
81 : #if SK3_ENABLED
82 : module procedure setResizedDDDD_D0_SK3
83 : use pm_kind, only: SKC => SK3
84 : character(:,SKC), allocatable :: temp
85 : #include "pm_arrayResize@routines.inc.F90"
86 : end procedure
87 : #endif
88 :
89 : #if SK2_ENABLED
90 : module procedure setResizedDDDD_D0_SK2
91 : use pm_kind, only: SKC => SK2
92 : character(:,SKC), allocatable :: temp
93 : #include "pm_arrayResize@routines.inc.F90"
94 : end procedure
95 : #endif
96 :
97 : #if SK1_ENABLED
98 364 : module procedure setResizedDDDD_D0_SK1
99 : use pm_kind, only: SKC => SK1
100 : character(:,SKC), allocatable :: temp
101 : #include "pm_arrayResize@routines.inc.F90"
102 182 : end procedure
103 : #endif
104 :
105 : #undef SK_ENABLED
106 :
107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
108 :
109 : #undef D0_ENABLED
110 :
111 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
112 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
113 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
114 :
115 : #define D1_ENABLED 1
116 :
117 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
118 :
119 : #define SK_ENABLED 1
120 :
121 : #if SK5_ENABLED
122 : module procedure setResizedDDDD_D1_SK5
123 : use pm_kind, only: SKC => SK5
124 : character(len(Array,IK),SKC), allocatable :: temp(:)
125 : #include "pm_arrayResize@routines.inc.F90"
126 : end procedure
127 : #endif
128 :
129 : #if SK4_ENABLED
130 : module procedure setResizedDDDD_D1_SK4
131 : use pm_kind, only: SKC => SK4
132 : character(len(Array,IK),SKC), allocatable :: temp(:)
133 : #include "pm_arrayResize@routines.inc.F90"
134 : end procedure
135 : #endif
136 :
137 : #if SK3_ENABLED
138 : module procedure setResizedDDDD_D1_SK3
139 : use pm_kind, only: SKC => SK3
140 : character(len(Array,IK),SKC), allocatable :: temp(:)
141 : #include "pm_arrayResize@routines.inc.F90"
142 : end procedure
143 : #endif
144 :
145 : #if SK2_ENABLED
146 : module procedure setResizedDDDD_D1_SK2
147 : use pm_kind, only: SKC => SK2
148 : character(len(Array,IK),SKC), allocatable :: temp(:)
149 : #include "pm_arrayResize@routines.inc.F90"
150 : end procedure
151 : #endif
152 :
153 : #if SK1_ENABLED
154 19 : module procedure setResizedDDDD_D1_SK1
155 : use pm_kind, only: SKC => SK1
156 19 : character(len(Array,IK),SKC), allocatable :: temp(:)
157 : #include "pm_arrayResize@routines.inc.F90"
158 19 : end procedure
159 : #endif
160 :
161 : #undef SK_ENABLED
162 :
163 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
164 :
165 : #define IK_ENABLED 1
166 :
167 : #if IK5_ENABLED
168 24 : module procedure setResizedDDDD_D1_IK5
169 : use pm_kind, only: IKC => IK5
170 : integer(IKC), allocatable :: temp(:)
171 : #include "pm_arrayResize@routines.inc.F90"
172 24 : end procedure
173 : #endif
174 :
175 : #if IK4_ENABLED
176 19 : module procedure setResizedDDDD_D1_IK4
177 : use pm_kind, only: IKC => IK4
178 : integer(IKC), allocatable :: temp(:)
179 : #include "pm_arrayResize@routines.inc.F90"
180 19 : end procedure
181 : #endif
182 :
183 : #if IK3_ENABLED
184 71 : module procedure setResizedDDDD_D1_IK3
185 : use pm_kind, only: IKC => IK3
186 : integer(IKC), allocatable :: temp(:)
187 : #include "pm_arrayResize@routines.inc.F90"
188 71 : end procedure
189 : #endif
190 :
191 : #if IK2_ENABLED
192 16 : module procedure setResizedDDDD_D1_IK2
193 : use pm_kind, only: IKC => IK2
194 : integer(IKC), allocatable :: temp(:)
195 : #include "pm_arrayResize@routines.inc.F90"
196 16 : end procedure
197 : #endif
198 :
199 : #if IK1_ENABLED
200 28 : module procedure setResizedDDDD_D1_IK1
201 : use pm_kind, only: IKC => IK1
202 : integer(IKC), allocatable :: temp(:)
203 : #include "pm_arrayResize@routines.inc.F90"
204 28 : end procedure
205 : #endif
206 :
207 : #undef IK_ENABLED
208 :
209 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
210 :
211 : #define LK_ENABLED 1
212 :
213 : #if LK5_ENABLED
214 27 : module procedure setResizedDDDD_D1_LK5
215 : use pm_kind, only: LKC => LK5
216 : logical(LKC), allocatable :: temp(:)
217 : #include "pm_arrayResize@routines.inc.F90"
218 27 : end procedure
219 : #endif
220 :
221 : #if LK4_ENABLED
222 20 : module procedure setResizedDDDD_D1_LK4
223 : use pm_kind, only: LKC => LK4
224 : logical(LKC), allocatable :: temp(:)
225 : #include "pm_arrayResize@routines.inc.F90"
226 20 : end procedure
227 : #endif
228 :
229 : #if LK3_ENABLED
230 15 : module procedure setResizedDDDD_D1_LK3
231 : use pm_kind, only: LKC => LK3
232 : logical(LKC), allocatable :: temp(:)
233 : #include "pm_arrayResize@routines.inc.F90"
234 15 : end procedure
235 : #endif
236 :
237 : #if LK2_ENABLED
238 16 : module procedure setResizedDDDD_D1_LK2
239 : use pm_kind, only: LKC => LK2
240 : logical(LKC), allocatable :: temp(:)
241 : #include "pm_arrayResize@routines.inc.F90"
242 16 : end procedure
243 : #endif
244 :
245 : #if LK1_ENABLED
246 21 : module procedure setResizedDDDD_D1_LK1
247 : use pm_kind, only: LKC => LK1
248 : logical(LKC), allocatable :: temp(:)
249 : #include "pm_arrayResize@routines.inc.F90"
250 21 : end procedure
251 : #endif
252 :
253 : #undef LK_ENABLED
254 :
255 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
256 :
257 : #define CK_ENABLED 1
258 :
259 : #if CK5_ENABLED
260 : module procedure setResizedDDDD_D1_CK5
261 : use pm_kind, only: CKC => CK5
262 : complex(CKC), allocatable :: temp(:)
263 : #include "pm_arrayResize@routines.inc.F90"
264 : end procedure
265 : #endif
266 :
267 : #if CK4_ENABLED
268 15 : module procedure setResizedDDDD_D1_CK4
269 : use pm_kind, only: CKC => CK4
270 : complex(CKC), allocatable :: temp(:)
271 : #include "pm_arrayResize@routines.inc.F90"
272 15 : end procedure
273 : #endif
274 :
275 : #if CK3_ENABLED
276 23 : module procedure setResizedDDDD_D1_CK3
277 : use pm_kind, only: CKC => CK3
278 : complex(CKC), allocatable :: temp(:)
279 : #include "pm_arrayResize@routines.inc.F90"
280 23 : end procedure
281 : #endif
282 :
283 : #if CK2_ENABLED
284 22 : module procedure setResizedDDDD_D1_CK2
285 : use pm_kind, only: CKC => CK2
286 : complex(CKC), allocatable :: temp(:)
287 : #include "pm_arrayResize@routines.inc.F90"
288 22 : end procedure
289 : #endif
290 :
291 : #if CK1_ENABLED
292 20 : module procedure setResizedDDDD_D1_CK1
293 : use pm_kind, only: CKC => CK1
294 : complex(CKC), allocatable :: temp(:)
295 : #include "pm_arrayResize@routines.inc.F90"
296 20 : end procedure
297 : #endif
298 :
299 : #undef CK_ENABLED
300 :
301 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
302 :
303 : #define RK_ENABLED 1
304 :
305 : #if RK5_ENABLED
306 : module procedure setResizedDDDD_D1_RK5
307 : use pm_kind, only: RKC => RK5
308 : real(RKC), allocatable :: temp(:)
309 : #include "pm_arrayResize@routines.inc.F90"
310 : end procedure
311 : #endif
312 :
313 : #if RK4_ENABLED
314 24 : module procedure setResizedDDDD_D1_RK4
315 : use pm_kind, only: RKC => RK4
316 : real(RKC), allocatable :: temp(:)
317 : #include "pm_arrayResize@routines.inc.F90"
318 24 : end procedure
319 : #endif
320 :
321 : #if RK3_ENABLED
322 15 : module procedure setResizedDDDD_D1_RK3
323 : use pm_kind, only: RKC => RK3
324 : real(RKC), allocatable :: temp(:)
325 : #include "pm_arrayResize@routines.inc.F90"
326 15 : end procedure
327 : #endif
328 :
329 : #if RK2_ENABLED
330 69 : module procedure setResizedDDDD_D1_RK2
331 : use pm_kind, only: RKC => RK2
332 : real(RKC), allocatable :: temp(:)
333 : #include "pm_arrayResize@routines.inc.F90"
334 69 : end procedure
335 : #endif
336 :
337 : #if RK1_ENABLED
338 34 : module procedure setResizedDDDD_D1_RK1
339 : use pm_kind, only: RKC => RK1
340 : real(RKC), allocatable :: temp(:)
341 : #include "pm_arrayResize@routines.inc.F90"
342 34 : end procedure
343 : #endif
344 :
345 : #undef RK_ENABLED
346 :
347 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
348 :
349 : #define PSSK_ENABLED 1
350 :
351 : #if SK5_ENABLED
352 : module procedure setResizedDDDD_D1_PSSK5
353 : use pm_container, only: css_pdt
354 : use pm_kind, only: SKC => SK5
355 : type(css_pdt(SKC)), allocatable :: temp(:)
356 : #include "pm_arrayResize@routines.inc.F90"
357 : end procedure
358 : #endif
359 :
360 : #if SK4_ENABLED
361 : module procedure setResizedDDDD_D1_PSSK4
362 : use pm_container, only: css_pdt
363 : use pm_kind, only: SKC => SK4
364 : type(css_pdt(SKC)), allocatable :: temp(:)
365 : #include "pm_arrayResize@routines.inc.F90"
366 : end procedure
367 : #endif
368 :
369 : #if SK3_ENABLED
370 : module procedure setResizedDDDD_D1_PSSK3
371 : use pm_container, only: css_pdt
372 : use pm_kind, only: SKC => SK3
373 : type(css_pdt(SKC)), allocatable :: temp(:)
374 : #include "pm_arrayResize@routines.inc.F90"
375 : end procedure
376 : #endif
377 :
378 : #if SK2_ENABLED
379 : module procedure setResizedDDDD_D1_PSSK2
380 : use pm_container, only: css_pdt
381 : use pm_kind, only: SKC => SK2
382 : type(css_pdt(SKC)), allocatable :: temp(:)
383 : #include "pm_arrayResize@routines.inc.F90"
384 : end procedure
385 : #endif
386 :
387 : #if SK1_ENABLED
388 0 : module procedure setResizedDDDD_D1_PSSK1
389 : use pm_container, only: css_pdt
390 : use pm_kind, only: SKC => SK1
391 : type(css_pdt(SKC)), allocatable :: temp(:)
392 : #include "pm_arrayResize@routines.inc.F90"
393 0 : end procedure
394 : #endif
395 :
396 : #undef PSSK_ENABLED
397 :
398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
399 :
400 : #define BSSK_ENABLED 1
401 :
402 0 : module procedure setResizedDDDD_D1_BSSK
403 : use pm_container, only: css_type
404 : use pm_kind, only: SKC => SK1
405 0 : type(css_type), allocatable :: temp(:)
406 : #include "pm_arrayResize@routines.inc.F90"
407 0 : end procedure
408 :
409 : #undef BSSK_ENABLED
410 :
411 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
412 :
413 : #undef D1_ENABLED
414 :
415 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
416 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
417 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
418 :
419 : #define D2_ENABLED 1
420 :
421 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
422 :
423 : #define SK_ENABLED 1
424 :
425 : #if SK5_ENABLED
426 : module procedure setResizedDDDD_D2_SK5
427 : use pm_kind, only: SKC => SK5
428 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
429 : #include "pm_arrayResize@routines.inc.F90"
430 : end procedure
431 : #endif
432 :
433 : #if SK4_ENABLED
434 : module procedure setResizedDDDD_D2_SK4
435 : use pm_kind, only: SKC => SK4
436 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
437 : #include "pm_arrayResize@routines.inc.F90"
438 : end procedure
439 : #endif
440 :
441 : #if SK3_ENABLED
442 : module procedure setResizedDDDD_D2_SK3
443 : use pm_kind, only: SKC => SK3
444 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
445 : #include "pm_arrayResize@routines.inc.F90"
446 : end procedure
447 : #endif
448 :
449 : #if SK2_ENABLED
450 : module procedure setResizedDDDD_D2_SK2
451 : use pm_kind, only: SKC => SK2
452 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
453 : #include "pm_arrayResize@routines.inc.F90"
454 : end procedure
455 : #endif
456 :
457 : #if SK1_ENABLED
458 22 : module procedure setResizedDDDD_D2_SK1
459 : use pm_kind, only: SKC => SK1
460 22 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
461 : #include "pm_arrayResize@routines.inc.F90"
462 22 : end procedure
463 : #endif
464 :
465 : #undef SK_ENABLED
466 :
467 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
468 :
469 : #define IK_ENABLED 1
470 :
471 : #if IK5_ENABLED
472 33 : module procedure setResizedDDDD_D2_IK5
473 : use pm_kind, only: IKC => IK5
474 : integer(IKC), allocatable :: temp(:,:)
475 : #include "pm_arrayResize@routines.inc.F90"
476 33 : end procedure
477 : #endif
478 :
479 : #if IK4_ENABLED
480 19 : module procedure setResizedDDDD_D2_IK4
481 : use pm_kind, only: IKC => IK4
482 : integer(IKC), allocatable :: temp(:,:)
483 : #include "pm_arrayResize@routines.inc.F90"
484 19 : end procedure
485 : #endif
486 :
487 : #if IK3_ENABLED
488 10 : module procedure setResizedDDDD_D2_IK3
489 : use pm_kind, only: IKC => IK3
490 : integer(IKC), allocatable :: temp(:,:)
491 : #include "pm_arrayResize@routines.inc.F90"
492 10 : end procedure
493 : #endif
494 :
495 : #if IK2_ENABLED
496 17 : module procedure setResizedDDDD_D2_IK2
497 : use pm_kind, only: IKC => IK2
498 : integer(IKC), allocatable :: temp(:,:)
499 : #include "pm_arrayResize@routines.inc.F90"
500 17 : end procedure
501 : #endif
502 :
503 : #if IK1_ENABLED
504 15 : module procedure setResizedDDDD_D2_IK1
505 : use pm_kind, only: IKC => IK1
506 : integer(IKC), allocatable :: temp(:,:)
507 : #include "pm_arrayResize@routines.inc.F90"
508 15 : end procedure
509 : #endif
510 :
511 : #undef IK_ENABLED
512 :
513 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
514 :
515 : #define LK_ENABLED 1
516 :
517 : #if LK5_ENABLED
518 17 : module procedure setResizedDDDD_D2_LK5
519 : use pm_kind, only: LKC => LK5
520 : logical(LKC), allocatable :: temp(:,:)
521 : #include "pm_arrayResize@routines.inc.F90"
522 17 : end procedure
523 : #endif
524 :
525 : #if LK4_ENABLED
526 28 : module procedure setResizedDDDD_D2_LK4
527 : use pm_kind, only: LKC => LK4
528 : logical(LKC), allocatable :: temp(:,:)
529 : #include "pm_arrayResize@routines.inc.F90"
530 28 : end procedure
531 : #endif
532 :
533 : #if LK3_ENABLED
534 22 : module procedure setResizedDDDD_D2_LK3
535 : use pm_kind, only: LKC => LK3
536 : logical(LKC), allocatable :: temp(:,:)
537 : #include "pm_arrayResize@routines.inc.F90"
538 22 : end procedure
539 : #endif
540 :
541 : #if LK2_ENABLED
542 17 : module procedure setResizedDDDD_D2_LK2
543 : use pm_kind, only: LKC => LK2
544 : logical(LKC), allocatable :: temp(:,:)
545 : #include "pm_arrayResize@routines.inc.F90"
546 17 : end procedure
547 : #endif
548 :
549 : #if LK1_ENABLED
550 20 : module procedure setResizedDDDD_D2_LK1
551 : use pm_kind, only: LKC => LK1
552 : logical(LKC), allocatable :: temp(:,:)
553 : #include "pm_arrayResize@routines.inc.F90"
554 20 : end procedure
555 : #endif
556 :
557 : #undef LK_ENABLED
558 :
559 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
560 :
561 : #define CK_ENABLED 1
562 :
563 : #if CK5_ENABLED
564 : module procedure setResizedDDDD_D2_CK5
565 : use pm_kind, only: CKC => CK5
566 : complex(CKC), allocatable :: temp(:,:)
567 : #include "pm_arrayResize@routines.inc.F90"
568 : end procedure
569 : #endif
570 :
571 : #if CK4_ENABLED
572 22 : module procedure setResizedDDDD_D2_CK4
573 : use pm_kind, only: CKC => CK4
574 : complex(CKC), allocatable :: temp(:,:)
575 : #include "pm_arrayResize@routines.inc.F90"
576 22 : end procedure
577 : #endif
578 :
579 : #if CK3_ENABLED
580 26 : module procedure setResizedDDDD_D2_CK3
581 : use pm_kind, only: CKC => CK3
582 : complex(CKC), allocatable :: temp(:,:)
583 : #include "pm_arrayResize@routines.inc.F90"
584 26 : end procedure
585 : #endif
586 :
587 : #if CK2_ENABLED
588 24 : module procedure setResizedDDDD_D2_CK2
589 : use pm_kind, only: CKC => CK2
590 : complex(CKC), allocatable :: temp(:,:)
591 : #include "pm_arrayResize@routines.inc.F90"
592 24 : end procedure
593 : #endif
594 :
595 : #if CK1_ENABLED
596 25 : module procedure setResizedDDDD_D2_CK1
597 : use pm_kind, only: CKC => CK1
598 : complex(CKC), allocatable :: temp(:,:)
599 : #include "pm_arrayResize@routines.inc.F90"
600 25 : end procedure
601 : #endif
602 :
603 : #undef CK_ENABLED
604 :
605 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
606 :
607 : #define RK_ENABLED 1
608 :
609 : #if RK5_ENABLED
610 : module procedure setResizedDDDD_D2_RK5
611 : use pm_kind, only: RKC => RK5
612 : real(RKC), allocatable :: temp(:,:)
613 : #include "pm_arrayResize@routines.inc.F90"
614 : end procedure
615 : #endif
616 :
617 : #if RK4_ENABLED
618 10 : module procedure setResizedDDDD_D2_RK4
619 : use pm_kind, only: RKC => RK4
620 : real(RKC), allocatable :: temp(:,:)
621 : #include "pm_arrayResize@routines.inc.F90"
622 10 : end procedure
623 : #endif
624 :
625 : #if RK3_ENABLED
626 19 : module procedure setResizedDDDD_D2_RK3
627 : use pm_kind, only: RKC => RK3
628 : real(RKC), allocatable :: temp(:,:)
629 : #include "pm_arrayResize@routines.inc.F90"
630 19 : end procedure
631 : #endif
632 :
633 : #if RK2_ENABLED
634 20 : module procedure setResizedDDDD_D2_RK2
635 : use pm_kind, only: RKC => RK2
636 : real(RKC), allocatable :: temp(:,:)
637 : #include "pm_arrayResize@routines.inc.F90"
638 20 : end procedure
639 : #endif
640 :
641 : #if RK1_ENABLED
642 19 : module procedure setResizedDDDD_D2_RK1
643 : use pm_kind, only: RKC => RK1
644 : real(RKC), allocatable :: temp(:,:)
645 : #include "pm_arrayResize@routines.inc.F90"
646 19 : end procedure
647 : #endif
648 :
649 : #undef RK_ENABLED
650 :
651 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
652 :
653 : #define PSSK_ENABLED 1
654 :
655 : #if SK5_ENABLED
656 : module procedure setResizedDDDD_D2_PSSK5
657 : use pm_container, only: css_pdt
658 : use pm_kind, only: SKC => SK5
659 : type(css_pdt(SKC)), allocatable :: temp(:,:)
660 : #include "pm_arrayResize@routines.inc.F90"
661 : end procedure
662 : #endif
663 :
664 : #if SK4_ENABLED
665 : module procedure setResizedDDDD_D2_PSSK4
666 : use pm_container, only: css_pdt
667 : use pm_kind, only: SKC => SK4
668 : type(css_pdt(SKC)), allocatable :: temp(:,:)
669 : #include "pm_arrayResize@routines.inc.F90"
670 : end procedure
671 : #endif
672 :
673 : #if SK3_ENABLED
674 : module procedure setResizedDDDD_D2_PSSK3
675 : use pm_container, only: css_pdt
676 : use pm_kind, only: SKC => SK3
677 : type(css_pdt(SKC)), allocatable :: temp(:,:)
678 : #include "pm_arrayResize@routines.inc.F90"
679 : end procedure
680 : #endif
681 :
682 : #if SK2_ENABLED
683 : module procedure setResizedDDDD_D2_PSSK2
684 : use pm_container, only: css_pdt
685 : use pm_kind, only: SKC => SK2
686 : type(css_pdt(SKC)), allocatable :: temp(:,:)
687 : #include "pm_arrayResize@routines.inc.F90"
688 : end procedure
689 : #endif
690 :
691 : #if SK1_ENABLED
692 0 : module procedure setResizedDDDD_D2_PSSK1
693 : use pm_container, only: css_pdt
694 : use pm_kind, only: SKC => SK1
695 : type(css_pdt(SKC)), allocatable :: temp(:,:)
696 : #include "pm_arrayResize@routines.inc.F90"
697 0 : end procedure
698 : #endif
699 :
700 : #undef PSSK_ENABLED
701 :
702 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
703 :
704 : #define BSSK_ENABLED 1
705 :
706 0 : module procedure setResizedDDDD_D2_BSSK
707 : use pm_container, only: css_type
708 : use pm_kind, only: SKC => SK1
709 0 : type(css_type), allocatable :: temp(:,:)
710 : #include "pm_arrayResize@routines.inc.F90"
711 0 : end procedure
712 :
713 : #undef BSSK_ENABLED
714 :
715 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
716 :
717 : #undef D2_ENABLED
718 :
719 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
720 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
721 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
722 :
723 : #define D3_ENABLED 1
724 :
725 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
726 :
727 : #define SK_ENABLED 1
728 :
729 : #if SK5_ENABLED
730 : module procedure setResizedDDDD_D3_SK5
731 : use pm_kind, only: SKC => SK5
732 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
733 : #include "pm_arrayResize@routines.inc.F90"
734 : end procedure
735 : #endif
736 :
737 : #if SK4_ENABLED
738 : module procedure setResizedDDDD_D3_SK4
739 : use pm_kind, only: SKC => SK4
740 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
741 : #include "pm_arrayResize@routines.inc.F90"
742 : end procedure
743 : #endif
744 :
745 : #if SK3_ENABLED
746 : module procedure setResizedDDDD_D3_SK3
747 : use pm_kind, only: SKC => SK3
748 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
749 : #include "pm_arrayResize@routines.inc.F90"
750 : end procedure
751 : #endif
752 :
753 : #if SK2_ENABLED
754 : module procedure setResizedDDDD_D3_SK2
755 : use pm_kind, only: SKC => SK2
756 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
757 : #include "pm_arrayResize@routines.inc.F90"
758 : end procedure
759 : #endif
760 :
761 : #if SK1_ENABLED
762 31 : module procedure setResizedDDDD_D3_SK1
763 : use pm_kind, only: SKC => SK1
764 31 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
765 : #include "pm_arrayResize@routines.inc.F90"
766 31 : end procedure
767 : #endif
768 :
769 : #undef SK_ENABLED
770 :
771 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
772 :
773 : #define IK_ENABLED 1
774 :
775 : #if IK5_ENABLED
776 13 : module procedure setResizedDDDD_D3_IK5
777 : use pm_kind, only: IKC => IK5
778 : integer(IKC), allocatable :: temp(:,:,:)
779 : #include "pm_arrayResize@routines.inc.F90"
780 13 : end procedure
781 : #endif
782 :
783 : #if IK4_ENABLED
784 22 : module procedure setResizedDDDD_D3_IK4
785 : use pm_kind, only: IKC => IK4
786 : integer(IKC), allocatable :: temp(:,:,:)
787 : #include "pm_arrayResize@routines.inc.F90"
788 22 : end procedure
789 : #endif
790 :
791 : #if IK3_ENABLED
792 24 : module procedure setResizedDDDD_D3_IK3
793 : use pm_kind, only: IKC => IK3
794 : integer(IKC), allocatable :: temp(:,:,:)
795 : #include "pm_arrayResize@routines.inc.F90"
796 24 : end procedure
797 : #endif
798 :
799 : #if IK2_ENABLED
800 21 : module procedure setResizedDDDD_D3_IK2
801 : use pm_kind, only: IKC => IK2
802 : integer(IKC), allocatable :: temp(:,:,:)
803 : #include "pm_arrayResize@routines.inc.F90"
804 21 : end procedure
805 : #endif
806 :
807 : #if IK1_ENABLED
808 21 : module procedure setResizedDDDD_D3_IK1
809 : use pm_kind, only: IKC => IK1
810 : integer(IKC), allocatable :: temp(:,:,:)
811 : #include "pm_arrayResize@routines.inc.F90"
812 21 : end procedure
813 : #endif
814 :
815 : #undef IK_ENABLED
816 :
817 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
818 :
819 : #define LK_ENABLED 1
820 :
821 : #if LK5_ENABLED
822 15 : module procedure setResizedDDDD_D3_LK5
823 : use pm_kind, only: LKC => LK5
824 : logical(LKC), allocatable :: temp(:,:,:)
825 : #include "pm_arrayResize@routines.inc.F90"
826 15 : end procedure
827 : #endif
828 :
829 : #if LK4_ENABLED
830 15 : module procedure setResizedDDDD_D3_LK4
831 : use pm_kind, only: LKC => LK4
832 : logical(LKC), allocatable :: temp(:,:,:)
833 : #include "pm_arrayResize@routines.inc.F90"
834 15 : end procedure
835 : #endif
836 :
837 : #if LK3_ENABLED
838 16 : module procedure setResizedDDDD_D3_LK3
839 : use pm_kind, only: LKC => LK3
840 : logical(LKC), allocatable :: temp(:,:,:)
841 : #include "pm_arrayResize@routines.inc.F90"
842 16 : end procedure
843 : #endif
844 :
845 : #if LK2_ENABLED
846 19 : module procedure setResizedDDDD_D3_LK2
847 : use pm_kind, only: LKC => LK2
848 : logical(LKC), allocatable :: temp(:,:,:)
849 : #include "pm_arrayResize@routines.inc.F90"
850 19 : end procedure
851 : #endif
852 :
853 : #if LK1_ENABLED
854 22 : module procedure setResizedDDDD_D3_LK1
855 : use pm_kind, only: LKC => LK1
856 : logical(LKC), allocatable :: temp(:,:,:)
857 : #include "pm_arrayResize@routines.inc.F90"
858 22 : end procedure
859 : #endif
860 :
861 : #undef LK_ENABLED
862 :
863 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
864 :
865 : #define CK_ENABLED 1
866 :
867 : #if CK5_ENABLED
868 : module procedure setResizedDDDD_D3_CK5
869 : use pm_kind, only: CKC => CK5
870 : complex(CKC), allocatable :: temp(:,:,:)
871 : #include "pm_arrayResize@routines.inc.F90"
872 : end procedure
873 : #endif
874 :
875 : #if CK4_ENABLED
876 21 : module procedure setResizedDDDD_D3_CK4
877 : use pm_kind, only: CKC => CK4
878 : complex(CKC), allocatable :: temp(:,:,:)
879 : #include "pm_arrayResize@routines.inc.F90"
880 21 : end procedure
881 : #endif
882 :
883 : #if CK3_ENABLED
884 22 : module procedure setResizedDDDD_D3_CK3
885 : use pm_kind, only: CKC => CK3
886 : complex(CKC), allocatable :: temp(:,:,:)
887 : #include "pm_arrayResize@routines.inc.F90"
888 22 : end procedure
889 : #endif
890 :
891 : #if CK2_ENABLED
892 18 : module procedure setResizedDDDD_D3_CK2
893 : use pm_kind, only: CKC => CK2
894 : complex(CKC), allocatable :: temp(:,:,:)
895 : #include "pm_arrayResize@routines.inc.F90"
896 18 : end procedure
897 : #endif
898 :
899 : #if CK1_ENABLED
900 22 : module procedure setResizedDDDD_D3_CK1
901 : use pm_kind, only: CKC => CK1
902 : complex(CKC), allocatable :: temp(:,:,:)
903 : #include "pm_arrayResize@routines.inc.F90"
904 22 : end procedure
905 : #endif
906 :
907 : #undef CK_ENABLED
908 :
909 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
910 :
911 : #define RK_ENABLED 1
912 :
913 : #if RK5_ENABLED
914 : module procedure setResizedDDDD_D3_RK5
915 : use pm_kind, only: RKC => RK5
916 : real(RKC), allocatable :: temp(:,:,:)
917 : #include "pm_arrayResize@routines.inc.F90"
918 : end procedure
919 : #endif
920 :
921 : #if RK4_ENABLED
922 26 : module procedure setResizedDDDD_D3_RK4
923 : use pm_kind, only: RKC => RK4
924 : real(RKC), allocatable :: temp(:,:,:)
925 : #include "pm_arrayResize@routines.inc.F90"
926 26 : end procedure
927 : #endif
928 :
929 : #if RK3_ENABLED
930 16 : module procedure setResizedDDDD_D3_RK3
931 : use pm_kind, only: RKC => RK3
932 : real(RKC), allocatable :: temp(:,:,:)
933 : #include "pm_arrayResize@routines.inc.F90"
934 16 : end procedure
935 : #endif
936 :
937 : #if RK2_ENABLED
938 22 : module procedure setResizedDDDD_D3_RK2
939 : use pm_kind, only: RKC => RK2
940 : real(RKC), allocatable :: temp(:,:,:)
941 : #include "pm_arrayResize@routines.inc.F90"
942 22 : end procedure
943 : #endif
944 :
945 : #if RK1_ENABLED
946 21 : module procedure setResizedDDDD_D3_RK1
947 : use pm_kind, only: RKC => RK1
948 : real(RKC), allocatable :: temp(:,:,:)
949 : #include "pm_arrayResize@routines.inc.F90"
950 21 : end procedure
951 : #endif
952 :
953 : #undef RK_ENABLED
954 :
955 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
956 :
957 : #define PSSK_ENABLED 1
958 :
959 : #if SK5_ENABLED
960 : module procedure setResizedDDDD_D3_PSSK5
961 : use pm_container, only: css_pdt
962 : use pm_kind, only: SKC => SK5
963 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
964 : #include "pm_arrayResize@routines.inc.F90"
965 : end procedure
966 : #endif
967 :
968 : #if SK4_ENABLED
969 : module procedure setResizedDDDD_D3_PSSK4
970 : use pm_container, only: css_pdt
971 : use pm_kind, only: SKC => SK4
972 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
973 : #include "pm_arrayResize@routines.inc.F90"
974 : end procedure
975 : #endif
976 :
977 : #if SK3_ENABLED
978 : module procedure setResizedDDDD_D3_PSSK3
979 : use pm_container, only: css_pdt
980 : use pm_kind, only: SKC => SK3
981 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
982 : #include "pm_arrayResize@routines.inc.F90"
983 : end procedure
984 : #endif
985 :
986 : #if SK2_ENABLED
987 : module procedure setResizedDDDD_D3_PSSK2
988 : use pm_container, only: css_pdt
989 : use pm_kind, only: SKC => SK2
990 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
991 : #include "pm_arrayResize@routines.inc.F90"
992 : end procedure
993 : #endif
994 :
995 : #if SK1_ENABLED
996 0 : module procedure setResizedDDDD_D3_PSSK1
997 : use pm_container, only: css_pdt
998 : use pm_kind, only: SKC => SK1
999 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
1000 : #include "pm_arrayResize@routines.inc.F90"
1001 0 : end procedure
1002 : #endif
1003 :
1004 : #undef PSSK_ENABLED
1005 :
1006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1007 :
1008 : #define BSSK_ENABLED 1
1009 :
1010 0 : module procedure setResizedDDDD_D3_BSSK
1011 : use pm_container, only: css_type
1012 : use pm_kind, only: SKC => SK1
1013 0 : type(css_type), allocatable :: temp(:,:,:)
1014 : #include "pm_arrayResize@routines.inc.F90"
1015 0 : end procedure
1016 :
1017 : #undef BSSK_ENABLED
1018 :
1019 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1020 :
1021 : #undef D3_ENABLED
1022 :
1023 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1024 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1025 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1026 :
1027 : #undef DDDD_ENABLED
1028 :
1029 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1030 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1031 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1032 :
1033 : #define SDDD_ENABLED 1
1034 :
1035 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1036 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1037 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1038 :
1039 : #define D0_ENABLED 1
1040 :
1041 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1042 :
1043 : #define SK_ENABLED 1
1044 :
1045 : #if SK5_ENABLED
1046 : module procedure setResizedSDDD_D0_SK5
1047 : use pm_kind, only: SKC => SK5
1048 : character(:,SKC), allocatable :: temp
1049 : #include "pm_arrayResize@routines.inc.F90"
1050 : end procedure
1051 : #endif
1052 :
1053 : #if SK4_ENABLED
1054 : module procedure setResizedSDDD_D0_SK4
1055 : use pm_kind, only: SKC => SK4
1056 : character(:,SKC), allocatable :: temp
1057 : #include "pm_arrayResize@routines.inc.F90"
1058 : end procedure
1059 : #endif
1060 :
1061 : #if SK3_ENABLED
1062 : module procedure setResizedSDDD_D0_SK3
1063 : use pm_kind, only: SKC => SK3
1064 : character(:,SKC), allocatable :: temp
1065 : #include "pm_arrayResize@routines.inc.F90"
1066 : end procedure
1067 : #endif
1068 :
1069 : #if SK2_ENABLED
1070 : module procedure setResizedSDDD_D0_SK2
1071 : use pm_kind, only: SKC => SK2
1072 : character(:,SKC), allocatable :: temp
1073 : #include "pm_arrayResize@routines.inc.F90"
1074 : end procedure
1075 : #endif
1076 :
1077 : #if SK1_ENABLED
1078 5102 : module procedure setResizedSDDD_D0_SK1
1079 : use pm_kind, only: SKC => SK1
1080 : character(:,SKC), allocatable :: temp
1081 : #include "pm_arrayResize@routines.inc.F90"
1082 5102 : end procedure
1083 : #endif
1084 :
1085 : #undef SK_ENABLED
1086 :
1087 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1088 :
1089 : #undef D0_ENABLED
1090 :
1091 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1092 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1093 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1094 :
1095 : #define D1_ENABLED 1
1096 :
1097 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1098 :
1099 : #define SK_ENABLED 1
1100 :
1101 : #if SK5_ENABLED
1102 : module procedure setResizedSDDD_D1_SK5
1103 : use pm_kind, only: SKC => SK5
1104 : character(len(Array,IK),SKC), allocatable :: temp(:)
1105 : #include "pm_arrayResize@routines.inc.F90"
1106 : end procedure
1107 : #endif
1108 :
1109 : #if SK4_ENABLED
1110 : module procedure setResizedSDDD_D1_SK4
1111 : use pm_kind, only: SKC => SK4
1112 : character(len(Array,IK),SKC), allocatable :: temp(:)
1113 : #include "pm_arrayResize@routines.inc.F90"
1114 : end procedure
1115 : #endif
1116 :
1117 : #if SK3_ENABLED
1118 : module procedure setResizedSDDD_D1_SK3
1119 : use pm_kind, only: SKC => SK3
1120 : character(len(Array,IK),SKC), allocatable :: temp(:)
1121 : #include "pm_arrayResize@routines.inc.F90"
1122 : end procedure
1123 : #endif
1124 :
1125 : #if SK2_ENABLED
1126 : module procedure setResizedSDDD_D1_SK2
1127 : use pm_kind, only: SKC => SK2
1128 : character(len(Array,IK),SKC), allocatable :: temp(:)
1129 : #include "pm_arrayResize@routines.inc.F90"
1130 : end procedure
1131 : #endif
1132 :
1133 : #if SK1_ENABLED
1134 7176 : module procedure setResizedSDDD_D1_SK1
1135 : use pm_kind, only: SKC => SK1
1136 7176 : character(len(Array,IK),SKC), allocatable :: temp(:)
1137 : #include "pm_arrayResize@routines.inc.F90"
1138 7176 : end procedure
1139 : #endif
1140 :
1141 : #undef SK_ENABLED
1142 :
1143 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1144 :
1145 : #define IK_ENABLED 1
1146 :
1147 : #if IK5_ENABLED
1148 7111 : module procedure setResizedSDDD_D1_IK5
1149 : use pm_kind, only: IKC => IK5
1150 : integer(IKC), allocatable :: temp(:)
1151 : #include "pm_arrayResize@routines.inc.F90"
1152 7111 : end procedure
1153 : #endif
1154 :
1155 : #if IK4_ENABLED
1156 7115 : module procedure setResizedSDDD_D1_IK4
1157 : use pm_kind, only: IKC => IK4
1158 : integer(IKC), allocatable :: temp(:)
1159 : #include "pm_arrayResize@routines.inc.F90"
1160 7115 : end procedure
1161 : #endif
1162 :
1163 : #if IK3_ENABLED
1164 22061 : module procedure setResizedSDDD_D1_IK3
1165 : use pm_kind, only: IKC => IK3
1166 : integer(IKC), allocatable :: temp(:)
1167 : #include "pm_arrayResize@routines.inc.F90"
1168 22061 : end procedure
1169 : #endif
1170 :
1171 : #if IK2_ENABLED
1172 7117 : module procedure setResizedSDDD_D1_IK2
1173 : use pm_kind, only: IKC => IK2
1174 : integer(IKC), allocatable :: temp(:)
1175 : #include "pm_arrayResize@routines.inc.F90"
1176 7117 : end procedure
1177 : #endif
1178 :
1179 : #if IK1_ENABLED
1180 7107 : module procedure setResizedSDDD_D1_IK1
1181 : use pm_kind, only: IKC => IK1
1182 : integer(IKC), allocatable :: temp(:)
1183 : #include "pm_arrayResize@routines.inc.F90"
1184 7107 : end procedure
1185 : #endif
1186 :
1187 : #undef IK_ENABLED
1188 :
1189 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1190 :
1191 : #define LK_ENABLED 1
1192 :
1193 : #if LK5_ENABLED
1194 6325 : module procedure setResizedSDDD_D1_LK5
1195 : use pm_kind, only: LKC => LK5
1196 : logical(LKC), allocatable :: temp(:)
1197 : #include "pm_arrayResize@routines.inc.F90"
1198 6325 : end procedure
1199 : #endif
1200 :
1201 : #if LK4_ENABLED
1202 6311 : module procedure setResizedSDDD_D1_LK4
1203 : use pm_kind, only: LKC => LK4
1204 : logical(LKC), allocatable :: temp(:)
1205 : #include "pm_arrayResize@routines.inc.F90"
1206 6311 : end procedure
1207 : #endif
1208 :
1209 : #if LK3_ENABLED
1210 6344 : module procedure setResizedSDDD_D1_LK3
1211 : use pm_kind, only: LKC => LK3
1212 : logical(LKC), allocatable :: temp(:)
1213 : #include "pm_arrayResize@routines.inc.F90"
1214 6344 : end procedure
1215 : #endif
1216 :
1217 : #if LK2_ENABLED
1218 6343 : module procedure setResizedSDDD_D1_LK2
1219 : use pm_kind, only: LKC => LK2
1220 : logical(LKC), allocatable :: temp(:)
1221 : #include "pm_arrayResize@routines.inc.F90"
1222 6343 : end procedure
1223 : #endif
1224 :
1225 : #if LK1_ENABLED
1226 6363 : module procedure setResizedSDDD_D1_LK1
1227 : use pm_kind, only: LKC => LK1
1228 : logical(LKC), allocatable :: temp(:)
1229 : #include "pm_arrayResize@routines.inc.F90"
1230 6363 : end procedure
1231 : #endif
1232 :
1233 : #undef LK_ENABLED
1234 :
1235 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1236 :
1237 : #define CK_ENABLED 1
1238 :
1239 : #if CK5_ENABLED
1240 : module procedure setResizedSDDD_D1_CK5
1241 : use pm_kind, only: CKC => CK5
1242 : complex(CKC), allocatable :: temp(:)
1243 : #include "pm_arrayResize@routines.inc.F90"
1244 : end procedure
1245 : #endif
1246 :
1247 : #if CK4_ENABLED
1248 12554 : module procedure setResizedSDDD_D1_CK4
1249 : use pm_kind, only: CKC => CK4
1250 : complex(CKC), allocatable :: temp(:)
1251 : #include "pm_arrayResize@routines.inc.F90"
1252 12554 : end procedure
1253 : #endif
1254 :
1255 : #if CK3_ENABLED
1256 12510 : module procedure setResizedSDDD_D1_CK3
1257 : use pm_kind, only: CKC => CK3
1258 : complex(CKC), allocatable :: temp(:)
1259 : #include "pm_arrayResize@routines.inc.F90"
1260 12510 : end procedure
1261 : #endif
1262 :
1263 : #if CK2_ENABLED
1264 12551 : module procedure setResizedSDDD_D1_CK2
1265 : use pm_kind, only: CKC => CK2
1266 : complex(CKC), allocatable :: temp(:)
1267 : #include "pm_arrayResize@routines.inc.F90"
1268 12551 : end procedure
1269 : #endif
1270 :
1271 : #if CK1_ENABLED
1272 12656 : module procedure setResizedSDDD_D1_CK1
1273 : use pm_kind, only: CKC => CK1
1274 : complex(CKC), allocatable :: temp(:)
1275 : #include "pm_arrayResize@routines.inc.F90"
1276 12656 : end procedure
1277 : #endif
1278 :
1279 : #undef CK_ENABLED
1280 :
1281 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1282 :
1283 : #define RK_ENABLED 1
1284 :
1285 : #if RK5_ENABLED
1286 : module procedure setResizedSDDD_D1_RK5
1287 : use pm_kind, only: RKC => RK5
1288 : real(RKC), allocatable :: temp(:)
1289 : #include "pm_arrayResize@routines.inc.F90"
1290 : end procedure
1291 : #endif
1292 :
1293 : #if RK4_ENABLED
1294 16663 : module procedure setResizedSDDD_D1_RK4
1295 : use pm_kind, only: RKC => RK4
1296 : real(RKC), allocatable :: temp(:)
1297 : #include "pm_arrayResize@routines.inc.F90"
1298 16663 : end procedure
1299 : #endif
1300 :
1301 : #if RK3_ENABLED
1302 16602 : module procedure setResizedSDDD_D1_RK3
1303 : use pm_kind, only: RKC => RK3
1304 : real(RKC), allocatable :: temp(:)
1305 : #include "pm_arrayResize@routines.inc.F90"
1306 16602 : end procedure
1307 : #endif
1308 :
1309 : #if RK2_ENABLED
1310 16977 : module procedure setResizedSDDD_D1_RK2
1311 : use pm_kind, only: RKC => RK2
1312 : real(RKC), allocatable :: temp(:)
1313 : #include "pm_arrayResize@routines.inc.F90"
1314 16977 : end procedure
1315 : #endif
1316 :
1317 : #if RK1_ENABLED
1318 17042 : module procedure setResizedSDDD_D1_RK1
1319 : use pm_kind, only: RKC => RK1
1320 : real(RKC), allocatable :: temp(:)
1321 : #include "pm_arrayResize@routines.inc.F90"
1322 17042 : end procedure
1323 : #endif
1324 :
1325 : #undef RK_ENABLED
1326 :
1327 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1328 :
1329 : #define PSSK_ENABLED 1
1330 :
1331 : #if SK5_ENABLED
1332 : module procedure setResizedSDDD_D1_PSSK5
1333 : use pm_container, only: css_pdt
1334 : use pm_kind, only: SKC => SK5
1335 : type(css_pdt(SKC)), allocatable :: temp(:)
1336 : #include "pm_arrayResize@routines.inc.F90"
1337 : end procedure
1338 : #endif
1339 :
1340 : #if SK4_ENABLED
1341 : module procedure setResizedSDDD_D1_PSSK4
1342 : use pm_container, only: css_pdt
1343 : use pm_kind, only: SKC => SK4
1344 : type(css_pdt(SKC)), allocatable :: temp(:)
1345 : #include "pm_arrayResize@routines.inc.F90"
1346 : end procedure
1347 : #endif
1348 :
1349 : #if SK3_ENABLED
1350 : module procedure setResizedSDDD_D1_PSSK3
1351 : use pm_container, only: css_pdt
1352 : use pm_kind, only: SKC => SK3
1353 : type(css_pdt(SKC)), allocatable :: temp(:)
1354 : #include "pm_arrayResize@routines.inc.F90"
1355 : end procedure
1356 : #endif
1357 :
1358 : #if SK2_ENABLED
1359 : module procedure setResizedSDDD_D1_PSSK2
1360 : use pm_container, only: css_pdt
1361 : use pm_kind, only: SKC => SK2
1362 : type(css_pdt(SKC)), allocatable :: temp(:)
1363 : #include "pm_arrayResize@routines.inc.F90"
1364 : end procedure
1365 : #endif
1366 :
1367 : #if SK1_ENABLED
1368 0 : module procedure setResizedSDDD_D1_PSSK1
1369 : use pm_container, only: css_pdt
1370 : use pm_kind, only: SKC => SK1
1371 : type(css_pdt(SKC)), allocatable :: temp(:)
1372 : #include "pm_arrayResize@routines.inc.F90"
1373 0 : end procedure
1374 : #endif
1375 :
1376 : #undef PSSK_ENABLED
1377 :
1378 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1379 :
1380 : #define BSSK_ENABLED 1
1381 :
1382 182 : module procedure setResizedSDDD_D1_BSSK
1383 : use pm_container, only: css_type
1384 : use pm_kind, only: SKC => SK1
1385 182 : type(css_type), allocatable :: temp(:)
1386 : #include "pm_arrayResize@routines.inc.F90"
1387 436 : end procedure
1388 :
1389 : #undef BSSK_ENABLED
1390 :
1391 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1392 :
1393 : #undef D1_ENABLED
1394 :
1395 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1397 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1398 :
1399 : #define D2_ENABLED 1
1400 :
1401 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1402 :
1403 : #define SK_ENABLED 1
1404 :
1405 : #if SK5_ENABLED
1406 : module procedure setResizedSDDD_D2_SK5
1407 : use pm_kind, only: SKC => SK5
1408 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
1409 : #include "pm_arrayResize@routines.inc.F90"
1410 : end procedure
1411 : #endif
1412 :
1413 : #if SK4_ENABLED
1414 : module procedure setResizedSDDD_D2_SK4
1415 : use pm_kind, only: SKC => SK4
1416 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
1417 : #include "pm_arrayResize@routines.inc.F90"
1418 : end procedure
1419 : #endif
1420 :
1421 : #if SK3_ENABLED
1422 : module procedure setResizedSDDD_D2_SK3
1423 : use pm_kind, only: SKC => SK3
1424 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
1425 : #include "pm_arrayResize@routines.inc.F90"
1426 : end procedure
1427 : #endif
1428 :
1429 : #if SK2_ENABLED
1430 : module procedure setResizedSDDD_D2_SK2
1431 : use pm_kind, only: SKC => SK2
1432 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
1433 : #include "pm_arrayResize@routines.inc.F90"
1434 : end procedure
1435 : #endif
1436 :
1437 : #if SK1_ENABLED
1438 152 : module procedure setResizedSDDD_D2_SK1
1439 : use pm_kind, only: SKC => SK1
1440 152 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
1441 : #include "pm_arrayResize@routines.inc.F90"
1442 152 : end procedure
1443 : #endif
1444 :
1445 : #undef SK_ENABLED
1446 :
1447 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1448 :
1449 : #define IK_ENABLED 1
1450 :
1451 : #if IK5_ENABLED
1452 158 : module procedure setResizedSDDD_D2_IK5
1453 : use pm_kind, only: IKC => IK5
1454 : integer(IKC), allocatable :: temp(:,:)
1455 : #include "pm_arrayResize@routines.inc.F90"
1456 158 : end procedure
1457 : #endif
1458 :
1459 : #if IK4_ENABLED
1460 135 : module procedure setResizedSDDD_D2_IK4
1461 : use pm_kind, only: IKC => IK4
1462 : integer(IKC), allocatable :: temp(:,:)
1463 : #include "pm_arrayResize@routines.inc.F90"
1464 135 : end procedure
1465 : #endif
1466 :
1467 : #if IK3_ENABLED
1468 158 : module procedure setResizedSDDD_D2_IK3
1469 : use pm_kind, only: IKC => IK3
1470 : integer(IKC), allocatable :: temp(:,:)
1471 : #include "pm_arrayResize@routines.inc.F90"
1472 158 : end procedure
1473 : #endif
1474 :
1475 : #if IK2_ENABLED
1476 134 : module procedure setResizedSDDD_D2_IK2
1477 : use pm_kind, only: IKC => IK2
1478 : integer(IKC), allocatable :: temp(:,:)
1479 : #include "pm_arrayResize@routines.inc.F90"
1480 134 : end procedure
1481 : #endif
1482 :
1483 : #if IK1_ENABLED
1484 156 : module procedure setResizedSDDD_D2_IK1
1485 : use pm_kind, only: IKC => IK1
1486 : integer(IKC), allocatable :: temp(:,:)
1487 : #include "pm_arrayResize@routines.inc.F90"
1488 156 : end procedure
1489 : #endif
1490 :
1491 : #undef IK_ENABLED
1492 :
1493 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1494 :
1495 : #define LK_ENABLED 1
1496 :
1497 : #if LK5_ENABLED
1498 141 : module procedure setResizedSDDD_D2_LK5
1499 : use pm_kind, only: LKC => LK5
1500 : logical(LKC), allocatable :: temp(:,:)
1501 : #include "pm_arrayResize@routines.inc.F90"
1502 141 : end procedure
1503 : #endif
1504 :
1505 : #if LK4_ENABLED
1506 165 : module procedure setResizedSDDD_D2_LK4
1507 : use pm_kind, only: LKC => LK4
1508 : logical(LKC), allocatable :: temp(:,:)
1509 : #include "pm_arrayResize@routines.inc.F90"
1510 165 : end procedure
1511 : #endif
1512 :
1513 : #if LK3_ENABLED
1514 170 : module procedure setResizedSDDD_D2_LK3
1515 : use pm_kind, only: LKC => LK3
1516 : logical(LKC), allocatable :: temp(:,:)
1517 : #include "pm_arrayResize@routines.inc.F90"
1518 170 : end procedure
1519 : #endif
1520 :
1521 : #if LK2_ENABLED
1522 145 : module procedure setResizedSDDD_D2_LK2
1523 : use pm_kind, only: LKC => LK2
1524 : logical(LKC), allocatable :: temp(:,:)
1525 : #include "pm_arrayResize@routines.inc.F90"
1526 145 : end procedure
1527 : #endif
1528 :
1529 : #if LK1_ENABLED
1530 138 : module procedure setResizedSDDD_D2_LK1
1531 : use pm_kind, only: LKC => LK1
1532 : logical(LKC), allocatable :: temp(:,:)
1533 : #include "pm_arrayResize@routines.inc.F90"
1534 138 : end procedure
1535 : #endif
1536 :
1537 : #undef LK_ENABLED
1538 :
1539 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1540 :
1541 : #define CK_ENABLED 1
1542 :
1543 : #if CK5_ENABLED
1544 : module procedure setResizedSDDD_D2_CK5
1545 : use pm_kind, only: CKC => CK5
1546 : complex(CKC), allocatable :: temp(:,:)
1547 : #include "pm_arrayResize@routines.inc.F90"
1548 : end procedure
1549 : #endif
1550 :
1551 : #if CK4_ENABLED
1552 141 : module procedure setResizedSDDD_D2_CK4
1553 : use pm_kind, only: CKC => CK4
1554 : complex(CKC), allocatable :: temp(:,:)
1555 : #include "pm_arrayResize@routines.inc.F90"
1556 141 : end procedure
1557 : #endif
1558 :
1559 : #if CK3_ENABLED
1560 157 : module procedure setResizedSDDD_D2_CK3
1561 : use pm_kind, only: CKC => CK3
1562 : complex(CKC), allocatable :: temp(:,:)
1563 : #include "pm_arrayResize@routines.inc.F90"
1564 157 : end procedure
1565 : #endif
1566 :
1567 : #if CK2_ENABLED
1568 154 : module procedure setResizedSDDD_D2_CK2
1569 : use pm_kind, only: CKC => CK2
1570 : complex(CKC), allocatable :: temp(:,:)
1571 : #include "pm_arrayResize@routines.inc.F90"
1572 154 : end procedure
1573 : #endif
1574 :
1575 : #if CK1_ENABLED
1576 224 : module procedure setResizedSDDD_D2_CK1
1577 : use pm_kind, only: CKC => CK1
1578 : complex(CKC), allocatable :: temp(:,:)
1579 : #include "pm_arrayResize@routines.inc.F90"
1580 224 : end procedure
1581 : #endif
1582 :
1583 : #undef CK_ENABLED
1584 :
1585 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1586 :
1587 : #define RK_ENABLED 1
1588 :
1589 : #if RK5_ENABLED
1590 : module procedure setResizedSDDD_D2_RK5
1591 : use pm_kind, only: RKC => RK5
1592 : real(RKC), allocatable :: temp(:,:)
1593 : #include "pm_arrayResize@routines.inc.F90"
1594 : end procedure
1595 : #endif
1596 :
1597 : #if RK4_ENABLED
1598 9573 : module procedure setResizedSDDD_D2_RK4
1599 : use pm_kind, only: RKC => RK4
1600 : real(RKC), allocatable :: temp(:,:)
1601 : #include "pm_arrayResize@routines.inc.F90"
1602 9573 : end procedure
1603 : #endif
1604 :
1605 : #if RK3_ENABLED
1606 9543 : module procedure setResizedSDDD_D2_RK3
1607 : use pm_kind, only: RKC => RK3
1608 : real(RKC), allocatable :: temp(:,:)
1609 : #include "pm_arrayResize@routines.inc.F90"
1610 9543 : end procedure
1611 : #endif
1612 :
1613 : #if RK2_ENABLED
1614 9658 : module procedure setResizedSDDD_D2_RK2
1615 : use pm_kind, only: RKC => RK2
1616 : real(RKC), allocatable :: temp(:,:)
1617 : #include "pm_arrayResize@routines.inc.F90"
1618 9658 : end procedure
1619 : #endif
1620 :
1621 : #if RK1_ENABLED
1622 9873 : module procedure setResizedSDDD_D2_RK1
1623 : use pm_kind, only: RKC => RK1
1624 : real(RKC), allocatable :: temp(:,:)
1625 : #include "pm_arrayResize@routines.inc.F90"
1626 9873 : end procedure
1627 : #endif
1628 :
1629 : #undef RK_ENABLED
1630 :
1631 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1632 :
1633 : #define PSSK_ENABLED 1
1634 :
1635 : #if SK5_ENABLED
1636 : module procedure setResizedSDDD_D2_PSSK5
1637 : use pm_container, only: css_pdt
1638 : use pm_kind, only: SKC => SK5
1639 : type(css_pdt(SKC)), allocatable :: temp(:,:)
1640 : #include "pm_arrayResize@routines.inc.F90"
1641 : end procedure
1642 : #endif
1643 :
1644 : #if SK4_ENABLED
1645 : module procedure setResizedSDDD_D2_PSSK4
1646 : use pm_container, only: css_pdt
1647 : use pm_kind, only: SKC => SK4
1648 : type(css_pdt(SKC)), allocatable :: temp(:,:)
1649 : #include "pm_arrayResize@routines.inc.F90"
1650 : end procedure
1651 : #endif
1652 :
1653 : #if SK3_ENABLED
1654 : module procedure setResizedSDDD_D2_PSSK3
1655 : use pm_container, only: css_pdt
1656 : use pm_kind, only: SKC => SK3
1657 : type(css_pdt(SKC)), allocatable :: temp(:,:)
1658 : #include "pm_arrayResize@routines.inc.F90"
1659 : end procedure
1660 : #endif
1661 :
1662 : #if SK2_ENABLED
1663 : module procedure setResizedSDDD_D2_PSSK2
1664 : use pm_container, only: css_pdt
1665 : use pm_kind, only: SKC => SK2
1666 : type(css_pdt(SKC)), allocatable :: temp(:,:)
1667 : #include "pm_arrayResize@routines.inc.F90"
1668 : end procedure
1669 : #endif
1670 :
1671 : #if SK1_ENABLED
1672 0 : module procedure setResizedSDDD_D2_PSSK1
1673 : use pm_container, only: css_pdt
1674 : use pm_kind, only: SKC => SK1
1675 : type(css_pdt(SKC)), allocatable :: temp(:,:)
1676 : #include "pm_arrayResize@routines.inc.F90"
1677 0 : end procedure
1678 : #endif
1679 :
1680 : #undef PSSK_ENABLED
1681 :
1682 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1683 :
1684 : #define BSSK_ENABLED 1
1685 :
1686 0 : module procedure setResizedSDDD_D2_BSSK
1687 : use pm_container, only: css_type
1688 : use pm_kind, only: SKC => SK1
1689 0 : type(css_type), allocatable :: temp(:,:)
1690 : #include "pm_arrayResize@routines.inc.F90"
1691 0 : end procedure
1692 :
1693 : #undef BSSK_ENABLED
1694 :
1695 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1696 :
1697 : #undef D2_ENABLED
1698 :
1699 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1700 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1701 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1702 :
1703 : #define D3_ENABLED 1
1704 :
1705 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1706 :
1707 : #define SK_ENABLED 1
1708 :
1709 : #if SK5_ENABLED
1710 : module procedure setResizedSDDD_D3_SK5
1711 : use pm_kind, only: SKC => SK5
1712 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
1713 : #include "pm_arrayResize@routines.inc.F90"
1714 : end procedure
1715 : #endif
1716 :
1717 : #if SK4_ENABLED
1718 : module procedure setResizedSDDD_D3_SK4
1719 : use pm_kind, only: SKC => SK4
1720 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
1721 : #include "pm_arrayResize@routines.inc.F90"
1722 : end procedure
1723 : #endif
1724 :
1725 : #if SK3_ENABLED
1726 : module procedure setResizedSDDD_D3_SK3
1727 : use pm_kind, only: SKC => SK3
1728 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
1729 : #include "pm_arrayResize@routines.inc.F90"
1730 : end procedure
1731 : #endif
1732 :
1733 : #if SK2_ENABLED
1734 : module procedure setResizedSDDD_D3_SK2
1735 : use pm_kind, only: SKC => SK2
1736 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
1737 : #include "pm_arrayResize@routines.inc.F90"
1738 : end procedure
1739 : #endif
1740 :
1741 : #if SK1_ENABLED
1742 120 : module procedure setResizedSDDD_D3_SK1
1743 : use pm_kind, only: SKC => SK1
1744 120 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
1745 : #include "pm_arrayResize@routines.inc.F90"
1746 120 : end procedure
1747 : #endif
1748 :
1749 : #undef SK_ENABLED
1750 :
1751 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1752 :
1753 : #define IK_ENABLED 1
1754 :
1755 : #if IK5_ENABLED
1756 111 : module procedure setResizedSDDD_D3_IK5
1757 : use pm_kind, only: IKC => IK5
1758 : integer(IKC), allocatable :: temp(:,:,:)
1759 : #include "pm_arrayResize@routines.inc.F90"
1760 111 : end procedure
1761 : #endif
1762 :
1763 : #if IK4_ENABLED
1764 130 : module procedure setResizedSDDD_D3_IK4
1765 : use pm_kind, only: IKC => IK4
1766 : integer(IKC), allocatable :: temp(:,:,:)
1767 : #include "pm_arrayResize@routines.inc.F90"
1768 130 : end procedure
1769 : #endif
1770 :
1771 : #if IK3_ENABLED
1772 131 : module procedure setResizedSDDD_D3_IK3
1773 : use pm_kind, only: IKC => IK3
1774 : integer(IKC), allocatable :: temp(:,:,:)
1775 : #include "pm_arrayResize@routines.inc.F90"
1776 131 : end procedure
1777 : #endif
1778 :
1779 : #if IK2_ENABLED
1780 111 : module procedure setResizedSDDD_D3_IK2
1781 : use pm_kind, only: IKC => IK2
1782 : integer(IKC), allocatable :: temp(:,:,:)
1783 : #include "pm_arrayResize@routines.inc.F90"
1784 111 : end procedure
1785 : #endif
1786 :
1787 : #if IK1_ENABLED
1788 122 : module procedure setResizedSDDD_D3_IK1
1789 : use pm_kind, only: IKC => IK1
1790 : integer(IKC), allocatable :: temp(:,:,:)
1791 : #include "pm_arrayResize@routines.inc.F90"
1792 122 : end procedure
1793 : #endif
1794 :
1795 : #undef IK_ENABLED
1796 :
1797 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1798 :
1799 : #define LK_ENABLED 1
1800 :
1801 : #if LK5_ENABLED
1802 126 : module procedure setResizedSDDD_D3_LK5
1803 : use pm_kind, only: LKC => LK5
1804 : logical(LKC), allocatable :: temp(:,:,:)
1805 : #include "pm_arrayResize@routines.inc.F90"
1806 126 : end procedure
1807 : #endif
1808 :
1809 : #if LK4_ENABLED
1810 123 : module procedure setResizedSDDD_D3_LK4
1811 : use pm_kind, only: LKC => LK4
1812 : logical(LKC), allocatable :: temp(:,:,:)
1813 : #include "pm_arrayResize@routines.inc.F90"
1814 123 : end procedure
1815 : #endif
1816 :
1817 : #if LK3_ENABLED
1818 112 : module procedure setResizedSDDD_D3_LK3
1819 : use pm_kind, only: LKC => LK3
1820 : logical(LKC), allocatable :: temp(:,:,:)
1821 : #include "pm_arrayResize@routines.inc.F90"
1822 112 : end procedure
1823 : #endif
1824 :
1825 : #if LK2_ENABLED
1826 122 : module procedure setResizedSDDD_D3_LK2
1827 : use pm_kind, only: LKC => LK2
1828 : logical(LKC), allocatable :: temp(:,:,:)
1829 : #include "pm_arrayResize@routines.inc.F90"
1830 122 : end procedure
1831 : #endif
1832 :
1833 : #if LK1_ENABLED
1834 138 : module procedure setResizedSDDD_D3_LK1
1835 : use pm_kind, only: LKC => LK1
1836 : logical(LKC), allocatable :: temp(:,:,:)
1837 : #include "pm_arrayResize@routines.inc.F90"
1838 138 : end procedure
1839 : #endif
1840 :
1841 : #undef LK_ENABLED
1842 :
1843 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1844 :
1845 : #define CK_ENABLED 1
1846 :
1847 : #if CK5_ENABLED
1848 : module procedure setResizedSDDD_D3_CK5
1849 : use pm_kind, only: CKC => CK5
1850 : complex(CKC), allocatable :: temp(:,:,:)
1851 : #include "pm_arrayResize@routines.inc.F90"
1852 : end procedure
1853 : #endif
1854 :
1855 : #if CK4_ENABLED
1856 119 : module procedure setResizedSDDD_D3_CK4
1857 : use pm_kind, only: CKC => CK4
1858 : complex(CKC), allocatable :: temp(:,:,:)
1859 : #include "pm_arrayResize@routines.inc.F90"
1860 119 : end procedure
1861 : #endif
1862 :
1863 : #if CK3_ENABLED
1864 124 : module procedure setResizedSDDD_D3_CK3
1865 : use pm_kind, only: CKC => CK3
1866 : complex(CKC), allocatable :: temp(:,:,:)
1867 : #include "pm_arrayResize@routines.inc.F90"
1868 124 : end procedure
1869 : #endif
1870 :
1871 : #if CK2_ENABLED
1872 107 : module procedure setResizedSDDD_D3_CK2
1873 : use pm_kind, only: CKC => CK2
1874 : complex(CKC), allocatable :: temp(:,:,:)
1875 : #include "pm_arrayResize@routines.inc.F90"
1876 107 : end procedure
1877 : #endif
1878 :
1879 : #if CK1_ENABLED
1880 122 : module procedure setResizedSDDD_D3_CK1
1881 : use pm_kind, only: CKC => CK1
1882 : complex(CKC), allocatable :: temp(:,:,:)
1883 : #include "pm_arrayResize@routines.inc.F90"
1884 122 : end procedure
1885 : #endif
1886 :
1887 : #undef CK_ENABLED
1888 :
1889 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1890 :
1891 : #define RK_ENABLED 1
1892 :
1893 : #if RK5_ENABLED
1894 : module procedure setResizedSDDD_D3_RK5
1895 : use pm_kind, only: RKC => RK5
1896 : real(RKC), allocatable :: temp(:,:,:)
1897 : #include "pm_arrayResize@routines.inc.F90"
1898 : end procedure
1899 : #endif
1900 :
1901 : #if RK4_ENABLED
1902 136 : module procedure setResizedSDDD_D3_RK4
1903 : use pm_kind, only: RKC => RK4
1904 : real(RKC), allocatable :: temp(:,:,:)
1905 : #include "pm_arrayResize@routines.inc.F90"
1906 136 : end procedure
1907 : #endif
1908 :
1909 : #if RK3_ENABLED
1910 127 : module procedure setResizedSDDD_D3_RK3
1911 : use pm_kind, only: RKC => RK3
1912 : real(RKC), allocatable :: temp(:,:,:)
1913 : #include "pm_arrayResize@routines.inc.F90"
1914 127 : end procedure
1915 : #endif
1916 :
1917 : #if RK2_ENABLED
1918 125 : module procedure setResizedSDDD_D3_RK2
1919 : use pm_kind, only: RKC => RK2
1920 : real(RKC), allocatable :: temp(:,:,:)
1921 : #include "pm_arrayResize@routines.inc.F90"
1922 125 : end procedure
1923 : #endif
1924 :
1925 : #if RK1_ENABLED
1926 151 : module procedure setResizedSDDD_D3_RK1
1927 : use pm_kind, only: RKC => RK1
1928 : real(RKC), allocatable :: temp(:,:,:)
1929 : #include "pm_arrayResize@routines.inc.F90"
1930 151 : end procedure
1931 : #endif
1932 :
1933 : #undef RK_ENABLED
1934 :
1935 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1936 :
1937 : #define PSSK_ENABLED 1
1938 :
1939 : #if SK5_ENABLED
1940 : module procedure setResizedSDDD_D3_PSSK5
1941 : use pm_container, only: css_pdt
1942 : use pm_kind, only: SKC => SK5
1943 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
1944 : #include "pm_arrayResize@routines.inc.F90"
1945 : end procedure
1946 : #endif
1947 :
1948 : #if SK4_ENABLED
1949 : module procedure setResizedSDDD_D3_PSSK4
1950 : use pm_container, only: css_pdt
1951 : use pm_kind, only: SKC => SK4
1952 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
1953 : #include "pm_arrayResize@routines.inc.F90"
1954 : end procedure
1955 : #endif
1956 :
1957 : #if SK3_ENABLED
1958 : module procedure setResizedSDDD_D3_PSSK3
1959 : use pm_container, only: css_pdt
1960 : use pm_kind, only: SKC => SK3
1961 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
1962 : #include "pm_arrayResize@routines.inc.F90"
1963 : end procedure
1964 : #endif
1965 :
1966 : #if SK2_ENABLED
1967 : module procedure setResizedSDDD_D3_PSSK2
1968 : use pm_container, only: css_pdt
1969 : use pm_kind, only: SKC => SK2
1970 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
1971 : #include "pm_arrayResize@routines.inc.F90"
1972 : end procedure
1973 : #endif
1974 :
1975 : #if SK1_ENABLED
1976 0 : module procedure setResizedSDDD_D3_PSSK1
1977 : use pm_container, only: css_pdt
1978 : use pm_kind, only: SKC => SK1
1979 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
1980 : #include "pm_arrayResize@routines.inc.F90"
1981 0 : end procedure
1982 : #endif
1983 :
1984 : #undef PSSK_ENABLED
1985 :
1986 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1987 :
1988 : #define BSSK_ENABLED 1
1989 :
1990 0 : module procedure setResizedSDDD_D3_BSSK
1991 : use pm_container, only: css_type
1992 : use pm_kind, only: SKC => SK1
1993 0 : type(css_type), allocatable :: temp(:,:,:)
1994 : #include "pm_arrayResize@routines.inc.F90"
1995 0 : end procedure
1996 :
1997 : #undef BSSK_ENABLED
1998 :
1999 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2000 :
2001 : #undef D3_ENABLED
2002 :
2003 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2004 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2005 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2006 :
2007 : #undef SDDD_ENABLED
2008 :
2009 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2010 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2011 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2012 :
2013 : #define SLDD_ENABLED 1
2014 :
2015 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2016 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2017 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2018 :
2019 : #define D0_ENABLED 1
2020 :
2021 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2022 :
2023 : #define SK_ENABLED 1
2024 :
2025 : #if SK5_ENABLED
2026 : module procedure setResizedSLDD_D0_SK5
2027 : use pm_kind, only: SKC => SK5
2028 : character(:,SKC), allocatable :: temp
2029 : #include "pm_arrayResize@routines.inc.F90"
2030 : end procedure
2031 : #endif
2032 :
2033 : #if SK4_ENABLED
2034 : module procedure setResizedSLDD_D0_SK4
2035 : use pm_kind, only: SKC => SK4
2036 : character(:,SKC), allocatable :: temp
2037 : #include "pm_arrayResize@routines.inc.F90"
2038 : end procedure
2039 : #endif
2040 :
2041 : #if SK3_ENABLED
2042 : module procedure setResizedSLDD_D0_SK3
2043 : use pm_kind, only: SKC => SK3
2044 : character(:,SKC), allocatable :: temp
2045 : #include "pm_arrayResize@routines.inc.F90"
2046 : end procedure
2047 : #endif
2048 :
2049 : #if SK2_ENABLED
2050 : module procedure setResizedSLDD_D0_SK2
2051 : use pm_kind, only: SKC => SK2
2052 : character(:,SKC), allocatable :: temp
2053 : #include "pm_arrayResize@routines.inc.F90"
2054 : end procedure
2055 : #endif
2056 :
2057 : #if SK1_ENABLED
2058 168 : module procedure setResizedSLDD_D0_SK1
2059 : use pm_kind, only: SKC => SK1
2060 : character(:,SKC), allocatable :: temp
2061 : #include "pm_arrayResize@routines.inc.F90"
2062 168 : end procedure
2063 : #endif
2064 :
2065 : #undef SK_ENABLED
2066 :
2067 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2068 :
2069 : #undef D0_ENABLED
2070 :
2071 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2072 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2073 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2074 :
2075 : #define D1_ENABLED 1
2076 :
2077 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2078 :
2079 : #define SK_ENABLED 1
2080 :
2081 : #if SK5_ENABLED
2082 : module procedure setResizedSLDD_D1_SK5
2083 : use pm_kind, only: SKC => SK5
2084 : character(len(Array,IK),SKC), allocatable :: temp(:)
2085 : #include "pm_arrayResize@routines.inc.F90"
2086 : end procedure
2087 : #endif
2088 :
2089 : #if SK4_ENABLED
2090 : module procedure setResizedSLDD_D1_SK4
2091 : use pm_kind, only: SKC => SK4
2092 : character(len(Array,IK),SKC), allocatable :: temp(:)
2093 : #include "pm_arrayResize@routines.inc.F90"
2094 : end procedure
2095 : #endif
2096 :
2097 : #if SK3_ENABLED
2098 : module procedure setResizedSLDD_D1_SK3
2099 : use pm_kind, only: SKC => SK3
2100 : character(len(Array,IK),SKC), allocatable :: temp(:)
2101 : #include "pm_arrayResize@routines.inc.F90"
2102 : end procedure
2103 : #endif
2104 :
2105 : #if SK2_ENABLED
2106 : module procedure setResizedSLDD_D1_SK2
2107 : use pm_kind, only: SKC => SK2
2108 : character(len(Array,IK),SKC), allocatable :: temp(:)
2109 : #include "pm_arrayResize@routines.inc.F90"
2110 : end procedure
2111 : #endif
2112 :
2113 : #if SK1_ENABLED
2114 172 : module procedure setResizedSLDD_D1_SK1
2115 : use pm_kind, only: SKC => SK1
2116 172 : character(len(Array,IK),SKC), allocatable :: temp(:)
2117 : #include "pm_arrayResize@routines.inc.F90"
2118 172 : end procedure
2119 : #endif
2120 :
2121 : #undef SK_ENABLED
2122 :
2123 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2124 :
2125 : #define IK_ENABLED 1
2126 :
2127 : #if IK5_ENABLED
2128 177 : module procedure setResizedSLDD_D1_IK5
2129 : use pm_kind, only: IKC => IK5
2130 : integer(IKC), allocatable :: temp(:)
2131 : #include "pm_arrayResize@routines.inc.F90"
2132 177 : end procedure
2133 : #endif
2134 :
2135 : #if IK4_ENABLED
2136 161 : module procedure setResizedSLDD_D1_IK4
2137 : use pm_kind, only: IKC => IK4
2138 : integer(IKC), allocatable :: temp(:)
2139 : #include "pm_arrayResize@routines.inc.F90"
2140 161 : end procedure
2141 : #endif
2142 :
2143 : #if IK3_ENABLED
2144 174 : module procedure setResizedSLDD_D1_IK3
2145 : use pm_kind, only: IKC => IK3
2146 : integer(IKC), allocatable :: temp(:)
2147 : #include "pm_arrayResize@routines.inc.F90"
2148 174 : end procedure
2149 : #endif
2150 :
2151 : #if IK2_ENABLED
2152 160 : module procedure setResizedSLDD_D1_IK2
2153 : use pm_kind, only: IKC => IK2
2154 : integer(IKC), allocatable :: temp(:)
2155 : #include "pm_arrayResize@routines.inc.F90"
2156 160 : end procedure
2157 : #endif
2158 :
2159 : #if IK1_ENABLED
2160 172 : module procedure setResizedSLDD_D1_IK1
2161 : use pm_kind, only: IKC => IK1
2162 : integer(IKC), allocatable :: temp(:)
2163 : #include "pm_arrayResize@routines.inc.F90"
2164 172 : end procedure
2165 : #endif
2166 :
2167 : #undef IK_ENABLED
2168 :
2169 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2170 :
2171 : #define LK_ENABLED 1
2172 :
2173 : #if LK5_ENABLED
2174 182 : module procedure setResizedSLDD_D1_LK5
2175 : use pm_kind, only: LKC => LK5
2176 : logical(LKC), allocatable :: temp(:)
2177 : #include "pm_arrayResize@routines.inc.F90"
2178 182 : end procedure
2179 : #endif
2180 :
2181 : #if LK4_ENABLED
2182 174 : module procedure setResizedSLDD_D1_LK4
2183 : use pm_kind, only: LKC => LK4
2184 : logical(LKC), allocatable :: temp(:)
2185 : #include "pm_arrayResize@routines.inc.F90"
2186 174 : end procedure
2187 : #endif
2188 :
2189 : #if LK3_ENABLED
2190 151 : module procedure setResizedSLDD_D1_LK3
2191 : use pm_kind, only: LKC => LK3
2192 : logical(LKC), allocatable :: temp(:)
2193 : #include "pm_arrayResize@routines.inc.F90"
2194 151 : end procedure
2195 : #endif
2196 :
2197 : #if LK2_ENABLED
2198 154 : module procedure setResizedSLDD_D1_LK2
2199 : use pm_kind, only: LKC => LK2
2200 : logical(LKC), allocatable :: temp(:)
2201 : #include "pm_arrayResize@routines.inc.F90"
2202 154 : end procedure
2203 : #endif
2204 :
2205 : #if LK1_ENABLED
2206 186 : module procedure setResizedSLDD_D1_LK1
2207 : use pm_kind, only: LKC => LK1
2208 : logical(LKC), allocatable :: temp(:)
2209 : #include "pm_arrayResize@routines.inc.F90"
2210 186 : end procedure
2211 : #endif
2212 :
2213 : #undef LK_ENABLED
2214 :
2215 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2216 :
2217 : #define CK_ENABLED 1
2218 :
2219 : #if CK5_ENABLED
2220 : module procedure setResizedSLDD_D1_CK5
2221 : use pm_kind, only: CKC => CK5
2222 : complex(CKC), allocatable :: temp(:)
2223 : #include "pm_arrayResize@routines.inc.F90"
2224 : end procedure
2225 : #endif
2226 :
2227 : #if CK4_ENABLED
2228 154 : module procedure setResizedSLDD_D1_CK4
2229 : use pm_kind, only: CKC => CK4
2230 : complex(CKC), allocatable :: temp(:)
2231 : #include "pm_arrayResize@routines.inc.F90"
2232 154 : end procedure
2233 : #endif
2234 :
2235 : #if CK3_ENABLED
2236 186 : module procedure setResizedSLDD_D1_CK3
2237 : use pm_kind, only: CKC => CK3
2238 : complex(CKC), allocatable :: temp(:)
2239 : #include "pm_arrayResize@routines.inc.F90"
2240 186 : end procedure
2241 : #endif
2242 :
2243 : #if CK2_ENABLED
2244 171 : module procedure setResizedSLDD_D1_CK2
2245 : use pm_kind, only: CKC => CK2
2246 : complex(CKC), allocatable :: temp(:)
2247 : #include "pm_arrayResize@routines.inc.F90"
2248 171 : end procedure
2249 : #endif
2250 :
2251 : #if CK1_ENABLED
2252 179 : module procedure setResizedSLDD_D1_CK1
2253 : use pm_kind, only: CKC => CK1
2254 : complex(CKC), allocatable :: temp(:)
2255 : #include "pm_arrayResize@routines.inc.F90"
2256 179 : end procedure
2257 : #endif
2258 :
2259 : #undef CK_ENABLED
2260 :
2261 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2262 :
2263 : #define RK_ENABLED 1
2264 :
2265 : #if RK5_ENABLED
2266 : module procedure setResizedSLDD_D1_RK5
2267 : use pm_kind, only: RKC => RK5
2268 : real(RKC), allocatable :: temp(:)
2269 : #include "pm_arrayResize@routines.inc.F90"
2270 : end procedure
2271 : #endif
2272 :
2273 : #if RK4_ENABLED
2274 164 : module procedure setResizedSLDD_D1_RK4
2275 : use pm_kind, only: RKC => RK4
2276 : real(RKC), allocatable :: temp(:)
2277 : #include "pm_arrayResize@routines.inc.F90"
2278 164 : end procedure
2279 : #endif
2280 :
2281 : #if RK3_ENABLED
2282 153 : module procedure setResizedSLDD_D1_RK3
2283 : use pm_kind, only: RKC => RK3
2284 : real(RKC), allocatable :: temp(:)
2285 : #include "pm_arrayResize@routines.inc.F90"
2286 153 : end procedure
2287 : #endif
2288 :
2289 : #if RK2_ENABLED
2290 172 : module procedure setResizedSLDD_D1_RK2
2291 : use pm_kind, only: RKC => RK2
2292 : real(RKC), allocatable :: temp(:)
2293 : #include "pm_arrayResize@routines.inc.F90"
2294 172 : end procedure
2295 : #endif
2296 :
2297 : #if RK1_ENABLED
2298 174 : module procedure setResizedSLDD_D1_RK1
2299 : use pm_kind, only: RKC => RK1
2300 : real(RKC), allocatable :: temp(:)
2301 : #include "pm_arrayResize@routines.inc.F90"
2302 174 : end procedure
2303 : #endif
2304 :
2305 : #undef RK_ENABLED
2306 :
2307 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2308 :
2309 : #define PSSK_ENABLED 1
2310 :
2311 : #if SK5_ENABLED
2312 : module procedure setResizedSLDD_D1_PSSK5
2313 : use pm_container, only: css_pdt
2314 : use pm_kind, only: SKC => SK5
2315 : type(css_pdt(SKC)), allocatable :: temp(:)
2316 : #include "pm_arrayResize@routines.inc.F90"
2317 : end procedure
2318 : #endif
2319 :
2320 : #if SK4_ENABLED
2321 : module procedure setResizedSLDD_D1_PSSK4
2322 : use pm_container, only: css_pdt
2323 : use pm_kind, only: SKC => SK4
2324 : type(css_pdt(SKC)), allocatable :: temp(:)
2325 : #include "pm_arrayResize@routines.inc.F90"
2326 : end procedure
2327 : #endif
2328 :
2329 : #if SK3_ENABLED
2330 : module procedure setResizedSLDD_D1_PSSK3
2331 : use pm_container, only: css_pdt
2332 : use pm_kind, only: SKC => SK3
2333 : type(css_pdt(SKC)), allocatable :: temp(:)
2334 : #include "pm_arrayResize@routines.inc.F90"
2335 : end procedure
2336 : #endif
2337 :
2338 : #if SK2_ENABLED
2339 : module procedure setResizedSLDD_D1_PSSK2
2340 : use pm_container, only: css_pdt
2341 : use pm_kind, only: SKC => SK2
2342 : type(css_pdt(SKC)), allocatable :: temp(:)
2343 : #include "pm_arrayResize@routines.inc.F90"
2344 : end procedure
2345 : #endif
2346 :
2347 : #if SK1_ENABLED
2348 0 : module procedure setResizedSLDD_D1_PSSK1
2349 : use pm_container, only: css_pdt
2350 : use pm_kind, only: SKC => SK1
2351 : type(css_pdt(SKC)), allocatable :: temp(:)
2352 : #include "pm_arrayResize@routines.inc.F90"
2353 0 : end procedure
2354 : #endif
2355 :
2356 : #undef PSSK_ENABLED
2357 :
2358 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2359 :
2360 : #define BSSK_ENABLED 1
2361 :
2362 0 : module procedure setResizedSLDD_D1_BSSK
2363 : use pm_container, only: css_type
2364 : use pm_kind, only: SKC => SK1
2365 0 : type(css_type), allocatable :: temp(:)
2366 : #include "pm_arrayResize@routines.inc.F90"
2367 0 : end procedure
2368 :
2369 : #undef BSSK_ENABLED
2370 :
2371 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2372 :
2373 : #undef D1_ENABLED
2374 :
2375 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2376 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2377 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2378 :
2379 : #define D2_ENABLED 1
2380 :
2381 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2382 :
2383 : #define SK_ENABLED 1
2384 :
2385 : #if SK5_ENABLED
2386 : module procedure setResizedSLDD_D2_SK5
2387 : use pm_kind, only: SKC => SK5
2388 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
2389 : #include "pm_arrayResize@routines.inc.F90"
2390 : end procedure
2391 : #endif
2392 :
2393 : #if SK4_ENABLED
2394 : module procedure setResizedSLDD_D2_SK4
2395 : use pm_kind, only: SKC => SK4
2396 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
2397 : #include "pm_arrayResize@routines.inc.F90"
2398 : end procedure
2399 : #endif
2400 :
2401 : #if SK3_ENABLED
2402 : module procedure setResizedSLDD_D2_SK3
2403 : use pm_kind, only: SKC => SK3
2404 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
2405 : #include "pm_arrayResize@routines.inc.F90"
2406 : end procedure
2407 : #endif
2408 :
2409 : #if SK2_ENABLED
2410 : module procedure setResizedSLDD_D2_SK2
2411 : use pm_kind, only: SKC => SK2
2412 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
2413 : #include "pm_arrayResize@routines.inc.F90"
2414 : end procedure
2415 : #endif
2416 :
2417 : #if SK1_ENABLED
2418 143 : module procedure setResizedSLDD_D2_SK1
2419 : use pm_kind, only: SKC => SK1
2420 143 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
2421 : #include "pm_arrayResize@routines.inc.F90"
2422 143 : end procedure
2423 : #endif
2424 :
2425 : #undef SK_ENABLED
2426 :
2427 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2428 :
2429 : #define IK_ENABLED 1
2430 :
2431 : #if IK5_ENABLED
2432 154 : module procedure setResizedSLDD_D2_IK5
2433 : use pm_kind, only: IKC => IK5
2434 : integer(IKC), allocatable :: temp(:,:)
2435 : #include "pm_arrayResize@routines.inc.F90"
2436 154 : end procedure
2437 : #endif
2438 :
2439 : #if IK4_ENABLED
2440 131 : module procedure setResizedSLDD_D2_IK4
2441 : use pm_kind, only: IKC => IK4
2442 : integer(IKC), allocatable :: temp(:,:)
2443 : #include "pm_arrayResize@routines.inc.F90"
2444 131 : end procedure
2445 : #endif
2446 :
2447 : #if IK3_ENABLED
2448 133 : module procedure setResizedSLDD_D2_IK3
2449 : use pm_kind, only: IKC => IK3
2450 : integer(IKC), allocatable :: temp(:,:)
2451 : #include "pm_arrayResize@routines.inc.F90"
2452 133 : end procedure
2453 : #endif
2454 :
2455 : #if IK2_ENABLED
2456 130 : module procedure setResizedSLDD_D2_IK2
2457 : use pm_kind, only: IKC => IK2
2458 : integer(IKC), allocatable :: temp(:,:)
2459 : #include "pm_arrayResize@routines.inc.F90"
2460 130 : end procedure
2461 : #endif
2462 :
2463 : #if IK1_ENABLED
2464 152 : module procedure setResizedSLDD_D2_IK1
2465 : use pm_kind, only: IKC => IK1
2466 : integer(IKC), allocatable :: temp(:,:)
2467 : #include "pm_arrayResize@routines.inc.F90"
2468 152 : end procedure
2469 : #endif
2470 :
2471 : #undef IK_ENABLED
2472 :
2473 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2474 :
2475 : #define LK_ENABLED 1
2476 :
2477 : #if LK5_ENABLED
2478 137 : module procedure setResizedSLDD_D2_LK5
2479 : use pm_kind, only: LKC => LK5
2480 : logical(LKC), allocatable :: temp(:,:)
2481 : #include "pm_arrayResize@routines.inc.F90"
2482 137 : end procedure
2483 : #endif
2484 :
2485 : #if LK4_ENABLED
2486 161 : module procedure setResizedSLDD_D2_LK4
2487 : use pm_kind, only: LKC => LK4
2488 : logical(LKC), allocatable :: temp(:,:)
2489 : #include "pm_arrayResize@routines.inc.F90"
2490 161 : end procedure
2491 : #endif
2492 :
2493 : #if LK3_ENABLED
2494 154 : module procedure setResizedSLDD_D2_LK3
2495 : use pm_kind, only: LKC => LK3
2496 : logical(LKC), allocatable :: temp(:,:)
2497 : #include "pm_arrayResize@routines.inc.F90"
2498 154 : end procedure
2499 : #endif
2500 :
2501 : #if LK2_ENABLED
2502 141 : module procedure setResizedSLDD_D2_LK2
2503 : use pm_kind, only: LKC => LK2
2504 : logical(LKC), allocatable :: temp(:,:)
2505 : #include "pm_arrayResize@routines.inc.F90"
2506 141 : end procedure
2507 : #endif
2508 :
2509 : #if LK1_ENABLED
2510 134 : module procedure setResizedSLDD_D2_LK1
2511 : use pm_kind, only: LKC => LK1
2512 : logical(LKC), allocatable :: temp(:,:)
2513 : #include "pm_arrayResize@routines.inc.F90"
2514 134 : end procedure
2515 : #endif
2516 :
2517 : #undef LK_ENABLED
2518 :
2519 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2520 :
2521 : #define CK_ENABLED 1
2522 :
2523 : #if CK5_ENABLED
2524 : module procedure setResizedSLDD_D2_CK5
2525 : use pm_kind, only: CKC => CK5
2526 : complex(CKC), allocatable :: temp(:,:)
2527 : #include "pm_arrayResize@routines.inc.F90"
2528 : end procedure
2529 : #endif
2530 :
2531 : #if CK4_ENABLED
2532 137 : module procedure setResizedSLDD_D2_CK4
2533 : use pm_kind, only: CKC => CK4
2534 : complex(CKC), allocatable :: temp(:,:)
2535 : #include "pm_arrayResize@routines.inc.F90"
2536 137 : end procedure
2537 : #endif
2538 :
2539 : #if CK3_ENABLED
2540 153 : module procedure setResizedSLDD_D2_CK3
2541 : use pm_kind, only: CKC => CK3
2542 : complex(CKC), allocatable :: temp(:,:)
2543 : #include "pm_arrayResize@routines.inc.F90"
2544 153 : end procedure
2545 : #endif
2546 :
2547 : #if CK2_ENABLED
2548 145 : module procedure setResizedSLDD_D2_CK2
2549 : use pm_kind, only: CKC => CK2
2550 : complex(CKC), allocatable :: temp(:,:)
2551 : #include "pm_arrayResize@routines.inc.F90"
2552 145 : end procedure
2553 : #endif
2554 :
2555 : #if CK1_ENABLED
2556 139 : module procedure setResizedSLDD_D2_CK1
2557 : use pm_kind, only: CKC => CK1
2558 : complex(CKC), allocatable :: temp(:,:)
2559 : #include "pm_arrayResize@routines.inc.F90"
2560 139 : end procedure
2561 : #endif
2562 :
2563 : #undef CK_ENABLED
2564 :
2565 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2566 :
2567 : #define RK_ENABLED 1
2568 :
2569 : #if RK5_ENABLED
2570 : module procedure setResizedSLDD_D2_RK5
2571 : use pm_kind, only: RKC => RK5
2572 : real(RKC), allocatable :: temp(:,:)
2573 : #include "pm_arrayResize@routines.inc.F90"
2574 : end procedure
2575 : #endif
2576 :
2577 : #if RK4_ENABLED
2578 148 : module procedure setResizedSLDD_D2_RK4
2579 : use pm_kind, only: RKC => RK4
2580 : real(RKC), allocatable :: temp(:,:)
2581 : #include "pm_arrayResize@routines.inc.F90"
2582 148 : end procedure
2583 : #endif
2584 :
2585 : #if RK3_ENABLED
2586 139 : module procedure setResizedSLDD_D2_RK3
2587 : use pm_kind, only: RKC => RK3
2588 : real(RKC), allocatable :: temp(:,:)
2589 : #include "pm_arrayResize@routines.inc.F90"
2590 139 : end procedure
2591 : #endif
2592 :
2593 : #if RK2_ENABLED
2594 134 : module procedure setResizedSLDD_D2_RK2
2595 : use pm_kind, only: RKC => RK2
2596 : real(RKC), allocatable :: temp(:,:)
2597 : #include "pm_arrayResize@routines.inc.F90"
2598 134 : end procedure
2599 : #endif
2600 :
2601 : #if RK1_ENABLED
2602 136 : module procedure setResizedSLDD_D2_RK1
2603 : use pm_kind, only: RKC => RK1
2604 : real(RKC), allocatable :: temp(:,:)
2605 : #include "pm_arrayResize@routines.inc.F90"
2606 136 : end procedure
2607 : #endif
2608 :
2609 : #undef RK_ENABLED
2610 :
2611 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2612 :
2613 : #define PSSK_ENABLED 1
2614 :
2615 : #if SK5_ENABLED
2616 : module procedure setResizedSLDD_D2_PSSK5
2617 : use pm_container, only: css_pdt
2618 : use pm_kind, only: SKC => SK5
2619 : type(css_pdt(SKC)), allocatable :: temp(:,:)
2620 : #include "pm_arrayResize@routines.inc.F90"
2621 : end procedure
2622 : #endif
2623 :
2624 : #if SK4_ENABLED
2625 : module procedure setResizedSLDD_D2_PSSK4
2626 : use pm_container, only: css_pdt
2627 : use pm_kind, only: SKC => SK4
2628 : type(css_pdt(SKC)), allocatable :: temp(:,:)
2629 : #include "pm_arrayResize@routines.inc.F90"
2630 : end procedure
2631 : #endif
2632 :
2633 : #if SK3_ENABLED
2634 : module procedure setResizedSLDD_D2_PSSK3
2635 : use pm_container, only: css_pdt
2636 : use pm_kind, only: SKC => SK3
2637 : type(css_pdt(SKC)), allocatable :: temp(:,:)
2638 : #include "pm_arrayResize@routines.inc.F90"
2639 : end procedure
2640 : #endif
2641 :
2642 : #if SK2_ENABLED
2643 : module procedure setResizedSLDD_D2_PSSK2
2644 : use pm_container, only: css_pdt
2645 : use pm_kind, only: SKC => SK2
2646 : type(css_pdt(SKC)), allocatable :: temp(:,:)
2647 : #include "pm_arrayResize@routines.inc.F90"
2648 : end procedure
2649 : #endif
2650 :
2651 : #if SK1_ENABLED
2652 0 : module procedure setResizedSLDD_D2_PSSK1
2653 : use pm_container, only: css_pdt
2654 : use pm_kind, only: SKC => SK1
2655 : type(css_pdt(SKC)), allocatable :: temp(:,:)
2656 : #include "pm_arrayResize@routines.inc.F90"
2657 0 : end procedure
2658 : #endif
2659 :
2660 : #undef PSSK_ENABLED
2661 :
2662 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2663 :
2664 : #define BSSK_ENABLED 1
2665 :
2666 0 : module procedure setResizedSLDD_D2_BSSK
2667 : use pm_container, only: css_type
2668 : use pm_kind, only: SKC => SK1
2669 0 : type(css_type), allocatable :: temp(:,:)
2670 : #include "pm_arrayResize@routines.inc.F90"
2671 0 : end procedure
2672 :
2673 : #undef BSSK_ENABLED
2674 :
2675 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2676 :
2677 : #undef D2_ENABLED
2678 :
2679 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2680 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2681 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2682 :
2683 : #define D3_ENABLED 1
2684 :
2685 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2686 :
2687 : #define SK_ENABLED 1
2688 :
2689 : #if SK5_ENABLED
2690 : module procedure setResizedSLDD_D3_SK5
2691 : use pm_kind, only: SKC => SK5
2692 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
2693 : #include "pm_arrayResize@routines.inc.F90"
2694 : end procedure
2695 : #endif
2696 :
2697 : #if SK4_ENABLED
2698 : module procedure setResizedSLDD_D3_SK4
2699 : use pm_kind, only: SKC => SK4
2700 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
2701 : #include "pm_arrayResize@routines.inc.F90"
2702 : end procedure
2703 : #endif
2704 :
2705 : #if SK3_ENABLED
2706 : module procedure setResizedSLDD_D3_SK3
2707 : use pm_kind, only: SKC => SK3
2708 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
2709 : #include "pm_arrayResize@routines.inc.F90"
2710 : end procedure
2711 : #endif
2712 :
2713 : #if SK2_ENABLED
2714 : module procedure setResizedSLDD_D3_SK2
2715 : use pm_kind, only: SKC => SK2
2716 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
2717 : #include "pm_arrayResize@routines.inc.F90"
2718 : end procedure
2719 : #endif
2720 :
2721 : #if SK1_ENABLED
2722 116 : module procedure setResizedSLDD_D3_SK1
2723 : use pm_kind, only: SKC => SK1
2724 116 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
2725 : #include "pm_arrayResize@routines.inc.F90"
2726 116 : end procedure
2727 : #endif
2728 :
2729 : #undef SK_ENABLED
2730 :
2731 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2732 :
2733 : #define IK_ENABLED 1
2734 :
2735 : #if IK5_ENABLED
2736 107 : module procedure setResizedSLDD_D3_IK5
2737 : use pm_kind, only: IKC => IK5
2738 : integer(IKC), allocatable :: temp(:,:,:)
2739 : #include "pm_arrayResize@routines.inc.F90"
2740 107 : end procedure
2741 : #endif
2742 :
2743 : #if IK4_ENABLED
2744 126 : module procedure setResizedSLDD_D3_IK4
2745 : use pm_kind, only: IKC => IK4
2746 : integer(IKC), allocatable :: temp(:,:,:)
2747 : #include "pm_arrayResize@routines.inc.F90"
2748 126 : end procedure
2749 : #endif
2750 :
2751 : #if IK3_ENABLED
2752 127 : module procedure setResizedSLDD_D3_IK3
2753 : use pm_kind, only: IKC => IK3
2754 : integer(IKC), allocatable :: temp(:,:,:)
2755 : #include "pm_arrayResize@routines.inc.F90"
2756 127 : end procedure
2757 : #endif
2758 :
2759 : #if IK2_ENABLED
2760 107 : module procedure setResizedSLDD_D3_IK2
2761 : use pm_kind, only: IKC => IK2
2762 : integer(IKC), allocatable :: temp(:,:,:)
2763 : #include "pm_arrayResize@routines.inc.F90"
2764 107 : end procedure
2765 : #endif
2766 :
2767 : #if IK1_ENABLED
2768 118 : module procedure setResizedSLDD_D3_IK1
2769 : use pm_kind, only: IKC => IK1
2770 : integer(IKC), allocatable :: temp(:,:,:)
2771 : #include "pm_arrayResize@routines.inc.F90"
2772 118 : end procedure
2773 : #endif
2774 :
2775 : #undef IK_ENABLED
2776 :
2777 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2778 :
2779 : #define LK_ENABLED 1
2780 :
2781 : #if LK5_ENABLED
2782 122 : module procedure setResizedSLDD_D3_LK5
2783 : use pm_kind, only: LKC => LK5
2784 : logical(LKC), allocatable :: temp(:,:,:)
2785 : #include "pm_arrayResize@routines.inc.F90"
2786 122 : end procedure
2787 : #endif
2788 :
2789 : #if LK4_ENABLED
2790 119 : module procedure setResizedSLDD_D3_LK4
2791 : use pm_kind, only: LKC => LK4
2792 : logical(LKC), allocatable :: temp(:,:,:)
2793 : #include "pm_arrayResize@routines.inc.F90"
2794 119 : end procedure
2795 : #endif
2796 :
2797 : #if LK3_ENABLED
2798 108 : module procedure setResizedSLDD_D3_LK3
2799 : use pm_kind, only: LKC => LK3
2800 : logical(LKC), allocatable :: temp(:,:,:)
2801 : #include "pm_arrayResize@routines.inc.F90"
2802 108 : end procedure
2803 : #endif
2804 :
2805 : #if LK2_ENABLED
2806 118 : module procedure setResizedSLDD_D3_LK2
2807 : use pm_kind, only: LKC => LK2
2808 : logical(LKC), allocatable :: temp(:,:,:)
2809 : #include "pm_arrayResize@routines.inc.F90"
2810 118 : end procedure
2811 : #endif
2812 :
2813 : #if LK1_ENABLED
2814 134 : module procedure setResizedSLDD_D3_LK1
2815 : use pm_kind, only: LKC => LK1
2816 : logical(LKC), allocatable :: temp(:,:,:)
2817 : #include "pm_arrayResize@routines.inc.F90"
2818 134 : end procedure
2819 : #endif
2820 :
2821 : #undef LK_ENABLED
2822 :
2823 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2824 :
2825 : #define CK_ENABLED 1
2826 :
2827 : #if CK5_ENABLED
2828 : module procedure setResizedSLDD_D3_CK5
2829 : use pm_kind, only: CKC => CK5
2830 : complex(CKC), allocatable :: temp(:,:,:)
2831 : #include "pm_arrayResize@routines.inc.F90"
2832 : end procedure
2833 : #endif
2834 :
2835 : #if CK4_ENABLED
2836 115 : module procedure setResizedSLDD_D3_CK4
2837 : use pm_kind, only: CKC => CK4
2838 : complex(CKC), allocatable :: temp(:,:,:)
2839 : #include "pm_arrayResize@routines.inc.F90"
2840 115 : end procedure
2841 : #endif
2842 :
2843 : #if CK3_ENABLED
2844 120 : module procedure setResizedSLDD_D3_CK3
2845 : use pm_kind, only: CKC => CK3
2846 : complex(CKC), allocatable :: temp(:,:,:)
2847 : #include "pm_arrayResize@routines.inc.F90"
2848 120 : end procedure
2849 : #endif
2850 :
2851 : #if CK2_ENABLED
2852 103 : module procedure setResizedSLDD_D3_CK2
2853 : use pm_kind, only: CKC => CK2
2854 : complex(CKC), allocatable :: temp(:,:,:)
2855 : #include "pm_arrayResize@routines.inc.F90"
2856 103 : end procedure
2857 : #endif
2858 :
2859 : #if CK1_ENABLED
2860 116 : module procedure setResizedSLDD_D3_CK1
2861 : use pm_kind, only: CKC => CK1
2862 : complex(CKC), allocatable :: temp(:,:,:)
2863 : #include "pm_arrayResize@routines.inc.F90"
2864 116 : end procedure
2865 : #endif
2866 :
2867 : #undef CK_ENABLED
2868 :
2869 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2870 :
2871 : #define RK_ENABLED 1
2872 :
2873 : #if RK5_ENABLED
2874 : module procedure setResizedSLDD_D3_RK5
2875 : use pm_kind, only: RKC => RK5
2876 : real(RKC), allocatable :: temp(:,:,:)
2877 : #include "pm_arrayResize@routines.inc.F90"
2878 : end procedure
2879 : #endif
2880 :
2881 : #if RK4_ENABLED
2882 132 : module procedure setResizedSLDD_D3_RK4
2883 : use pm_kind, only: RKC => RK4
2884 : real(RKC), allocatable :: temp(:,:,:)
2885 : #include "pm_arrayResize@routines.inc.F90"
2886 132 : end procedure
2887 : #endif
2888 :
2889 : #if RK3_ENABLED
2890 123 : module procedure setResizedSLDD_D3_RK3
2891 : use pm_kind, only: RKC => RK3
2892 : real(RKC), allocatable :: temp(:,:,:)
2893 : #include "pm_arrayResize@routines.inc.F90"
2894 123 : end procedure
2895 : #endif
2896 :
2897 : #if RK2_ENABLED
2898 121 : module procedure setResizedSLDD_D3_RK2
2899 : use pm_kind, only: RKC => RK2
2900 : real(RKC), allocatable :: temp(:,:,:)
2901 : #include "pm_arrayResize@routines.inc.F90"
2902 121 : end procedure
2903 : #endif
2904 :
2905 : #if RK1_ENABLED
2906 145 : module procedure setResizedSLDD_D3_RK1
2907 : use pm_kind, only: RKC => RK1
2908 : real(RKC), allocatable :: temp(:,:,:)
2909 : #include "pm_arrayResize@routines.inc.F90"
2910 145 : end procedure
2911 : #endif
2912 :
2913 : #undef RK_ENABLED
2914 :
2915 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2916 :
2917 : #define PSSK_ENABLED 1
2918 :
2919 : #if SK5_ENABLED
2920 : module procedure setResizedSLDD_D3_PSSK5
2921 : use pm_container, only: css_pdt
2922 : use pm_kind, only: SKC => SK5
2923 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
2924 : #include "pm_arrayResize@routines.inc.F90"
2925 : end procedure
2926 : #endif
2927 :
2928 : #if SK4_ENABLED
2929 : module procedure setResizedSLDD_D3_PSSK4
2930 : use pm_container, only: css_pdt
2931 : use pm_kind, only: SKC => SK4
2932 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
2933 : #include "pm_arrayResize@routines.inc.F90"
2934 : end procedure
2935 : #endif
2936 :
2937 : #if SK3_ENABLED
2938 : module procedure setResizedSLDD_D3_PSSK3
2939 : use pm_container, only: css_pdt
2940 : use pm_kind, only: SKC => SK3
2941 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
2942 : #include "pm_arrayResize@routines.inc.F90"
2943 : end procedure
2944 : #endif
2945 :
2946 : #if SK2_ENABLED
2947 : module procedure setResizedSLDD_D3_PSSK2
2948 : use pm_container, only: css_pdt
2949 : use pm_kind, only: SKC => SK2
2950 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
2951 : #include "pm_arrayResize@routines.inc.F90"
2952 : end procedure
2953 : #endif
2954 :
2955 : #if SK1_ENABLED
2956 0 : module procedure setResizedSLDD_D3_PSSK1
2957 : use pm_container, only: css_pdt
2958 : use pm_kind, only: SKC => SK1
2959 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
2960 : #include "pm_arrayResize@routines.inc.F90"
2961 0 : end procedure
2962 : #endif
2963 :
2964 : #undef PSSK_ENABLED
2965 :
2966 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2967 :
2968 : #define BSSK_ENABLED 1
2969 :
2970 0 : module procedure setResizedSLDD_D3_BSSK
2971 : use pm_container, only: css_type
2972 : use pm_kind, only: SKC => SK1
2973 0 : type(css_type), allocatable :: temp(:,:,:)
2974 : #include "pm_arrayResize@routines.inc.F90"
2975 0 : end procedure
2976 :
2977 : #undef BSSK_ENABLED
2978 :
2979 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2980 :
2981 : #undef D3_ENABLED
2982 :
2983 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2984 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2985 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2986 :
2987 : #undef SLDD_ENABLED
2988 :
2989 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2990 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2991 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2992 :
2993 : #define SLLU_ENABLED 1
2994 :
2995 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2996 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2997 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2998 :
2999 : #define D0_ENABLED 1
3000 :
3001 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3002 :
3003 : #define SK_ENABLED 1
3004 :
3005 : #if SK5_ENABLED
3006 : module procedure setResizedSLLU_D0_SK5
3007 : use pm_kind, only: SKC => SK5
3008 : character(:,SKC), allocatable :: temp
3009 : #include "pm_arrayResize@routines.inc.F90"
3010 : end procedure
3011 : #endif
3012 :
3013 : #if SK4_ENABLED
3014 : module procedure setResizedSLLU_D0_SK4
3015 : use pm_kind, only: SKC => SK4
3016 : character(:,SKC), allocatable :: temp
3017 : #include "pm_arrayResize@routines.inc.F90"
3018 : end procedure
3019 : #endif
3020 :
3021 : #if SK3_ENABLED
3022 : module procedure setResizedSLLU_D0_SK3
3023 : use pm_kind, only: SKC => SK3
3024 : character(:,SKC), allocatable :: temp
3025 : #include "pm_arrayResize@routines.inc.F90"
3026 : end procedure
3027 : #endif
3028 :
3029 : #if SK2_ENABLED
3030 : module procedure setResizedSLLU_D0_SK2
3031 : use pm_kind, only: SKC => SK2
3032 : character(:,SKC), allocatable :: temp
3033 : #include "pm_arrayResize@routines.inc.F90"
3034 : end procedure
3035 : #endif
3036 :
3037 : #if SK1_ENABLED
3038 400 : module procedure setResizedSLLU_D0_SK1
3039 : use pm_kind, only: SKC => SK1
3040 : character(:,SKC), allocatable :: temp
3041 : #include "pm_arrayResize@routines.inc.F90"
3042 400 : end procedure
3043 : #endif
3044 :
3045 : #undef SK_ENABLED
3046 :
3047 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3048 :
3049 : #undef D0_ENABLED
3050 :
3051 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3052 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3053 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3054 :
3055 : #define D1_ENABLED 1
3056 :
3057 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3058 :
3059 : #define SK_ENABLED 1
3060 :
3061 : #if SK5_ENABLED
3062 : module procedure setResizedSLLU_D1_SK5
3063 : use pm_kind, only: SKC => SK5
3064 : character(len(Array,IK),SKC), allocatable :: temp(:)
3065 : #include "pm_arrayResize@routines.inc.F90"
3066 : end procedure
3067 : #endif
3068 :
3069 : #if SK4_ENABLED
3070 : module procedure setResizedSLLU_D1_SK4
3071 : use pm_kind, only: SKC => SK4
3072 : character(len(Array,IK),SKC), allocatable :: temp(:)
3073 : #include "pm_arrayResize@routines.inc.F90"
3074 : end procedure
3075 : #endif
3076 :
3077 : #if SK3_ENABLED
3078 : module procedure setResizedSLLU_D1_SK3
3079 : use pm_kind, only: SKC => SK3
3080 : character(len(Array,IK),SKC), allocatable :: temp(:)
3081 : #include "pm_arrayResize@routines.inc.F90"
3082 : end procedure
3083 : #endif
3084 :
3085 : #if SK2_ENABLED
3086 : module procedure setResizedSLLU_D1_SK2
3087 : use pm_kind, only: SKC => SK2
3088 : character(len(Array,IK),SKC), allocatable :: temp(:)
3089 : #include "pm_arrayResize@routines.inc.F90"
3090 : end procedure
3091 : #endif
3092 :
3093 : #if SK1_ENABLED
3094 400 : module procedure setResizedSLLU_D1_SK1
3095 : use pm_kind, only: SKC => SK1
3096 400 : character(len(Array,IK),SKC), allocatable :: temp(:)
3097 : #include "pm_arrayResize@routines.inc.F90"
3098 400 : end procedure
3099 : #endif
3100 :
3101 : #undef SK_ENABLED
3102 :
3103 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3104 :
3105 : #define IK_ENABLED 1
3106 :
3107 : #if IK5_ENABLED
3108 400 : module procedure setResizedSLLU_D1_IK5
3109 : use pm_kind, only: IKC => IK5
3110 : integer(IKC), allocatable :: temp(:)
3111 : #include "pm_arrayResize@routines.inc.F90"
3112 400 : end procedure
3113 : #endif
3114 :
3115 : #if IK4_ENABLED
3116 400 : module procedure setResizedSLLU_D1_IK4
3117 : use pm_kind, only: IKC => IK4
3118 : integer(IKC), allocatable :: temp(:)
3119 : #include "pm_arrayResize@routines.inc.F90"
3120 400 : end procedure
3121 : #endif
3122 :
3123 : #if IK3_ENABLED
3124 400 : module procedure setResizedSLLU_D1_IK3
3125 : use pm_kind, only: IKC => IK3
3126 : integer(IKC), allocatable :: temp(:)
3127 : #include "pm_arrayResize@routines.inc.F90"
3128 400 : end procedure
3129 : #endif
3130 :
3131 : #if IK2_ENABLED
3132 400 : module procedure setResizedSLLU_D1_IK2
3133 : use pm_kind, only: IKC => IK2
3134 : integer(IKC), allocatable :: temp(:)
3135 : #include "pm_arrayResize@routines.inc.F90"
3136 400 : end procedure
3137 : #endif
3138 :
3139 : #if IK1_ENABLED
3140 400 : module procedure setResizedSLLU_D1_IK1
3141 : use pm_kind, only: IKC => IK1
3142 : integer(IKC), allocatable :: temp(:)
3143 : #include "pm_arrayResize@routines.inc.F90"
3144 400 : end procedure
3145 : #endif
3146 :
3147 : #undef IK_ENABLED
3148 :
3149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3150 :
3151 : #define LK_ENABLED 1
3152 :
3153 : #if LK5_ENABLED
3154 400 : module procedure setResizedSLLU_D1_LK5
3155 : use pm_kind, only: LKC => LK5
3156 : logical(LKC), allocatable :: temp(:)
3157 : #include "pm_arrayResize@routines.inc.F90"
3158 400 : end procedure
3159 : #endif
3160 :
3161 : #if LK4_ENABLED
3162 400 : module procedure setResizedSLLU_D1_LK4
3163 : use pm_kind, only: LKC => LK4
3164 : logical(LKC), allocatable :: temp(:)
3165 : #include "pm_arrayResize@routines.inc.F90"
3166 400 : end procedure
3167 : #endif
3168 :
3169 : #if LK3_ENABLED
3170 400 : module procedure setResizedSLLU_D1_LK3
3171 : use pm_kind, only: LKC => LK3
3172 : logical(LKC), allocatable :: temp(:)
3173 : #include "pm_arrayResize@routines.inc.F90"
3174 400 : end procedure
3175 : #endif
3176 :
3177 : #if LK2_ENABLED
3178 400 : module procedure setResizedSLLU_D1_LK2
3179 : use pm_kind, only: LKC => LK2
3180 : logical(LKC), allocatable :: temp(:)
3181 : #include "pm_arrayResize@routines.inc.F90"
3182 400 : end procedure
3183 : #endif
3184 :
3185 : #if LK1_ENABLED
3186 400 : module procedure setResizedSLLU_D1_LK1
3187 : use pm_kind, only: LKC => LK1
3188 : logical(LKC), allocatable :: temp(:)
3189 : #include "pm_arrayResize@routines.inc.F90"
3190 400 : end procedure
3191 : #endif
3192 :
3193 : #undef LK_ENABLED
3194 :
3195 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3196 :
3197 : #define CK_ENABLED 1
3198 :
3199 : #if CK5_ENABLED
3200 : module procedure setResizedSLLU_D1_CK5
3201 : use pm_kind, only: CKC => CK5
3202 : complex(CKC), allocatable :: temp(:)
3203 : #include "pm_arrayResize@routines.inc.F90"
3204 : end procedure
3205 : #endif
3206 :
3207 : #if CK4_ENABLED
3208 400 : module procedure setResizedSLLU_D1_CK4
3209 : use pm_kind, only: CKC => CK4
3210 : complex(CKC), allocatable :: temp(:)
3211 : #include "pm_arrayResize@routines.inc.F90"
3212 400 : end procedure
3213 : #endif
3214 :
3215 : #if CK3_ENABLED
3216 400 : module procedure setResizedSLLU_D1_CK3
3217 : use pm_kind, only: CKC => CK3
3218 : complex(CKC), allocatable :: temp(:)
3219 : #include "pm_arrayResize@routines.inc.F90"
3220 400 : end procedure
3221 : #endif
3222 :
3223 : #if CK2_ENABLED
3224 400 : module procedure setResizedSLLU_D1_CK2
3225 : use pm_kind, only: CKC => CK2
3226 : complex(CKC), allocatable :: temp(:)
3227 : #include "pm_arrayResize@routines.inc.F90"
3228 400 : end procedure
3229 : #endif
3230 :
3231 : #if CK1_ENABLED
3232 400 : module procedure setResizedSLLU_D1_CK1
3233 : use pm_kind, only: CKC => CK1
3234 : complex(CKC), allocatable :: temp(:)
3235 : #include "pm_arrayResize@routines.inc.F90"
3236 400 : end procedure
3237 : #endif
3238 :
3239 : #undef CK_ENABLED
3240 :
3241 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3242 :
3243 : #define RK_ENABLED 1
3244 :
3245 : #if RK5_ENABLED
3246 : module procedure setResizedSLLU_D1_RK5
3247 : use pm_kind, only: RKC => RK5
3248 : real(RKC), allocatable :: temp(:)
3249 : #include "pm_arrayResize@routines.inc.F90"
3250 : end procedure
3251 : #endif
3252 :
3253 : #if RK4_ENABLED
3254 400 : module procedure setResizedSLLU_D1_RK4
3255 : use pm_kind, only: RKC => RK4
3256 : real(RKC), allocatable :: temp(:)
3257 : #include "pm_arrayResize@routines.inc.F90"
3258 400 : end procedure
3259 : #endif
3260 :
3261 : #if RK3_ENABLED
3262 400 : module procedure setResizedSLLU_D1_RK3
3263 : use pm_kind, only: RKC => RK3
3264 : real(RKC), allocatable :: temp(:)
3265 : #include "pm_arrayResize@routines.inc.F90"
3266 400 : end procedure
3267 : #endif
3268 :
3269 : #if RK2_ENABLED
3270 400 : module procedure setResizedSLLU_D1_RK2
3271 : use pm_kind, only: RKC => RK2
3272 : real(RKC), allocatable :: temp(:)
3273 : #include "pm_arrayResize@routines.inc.F90"
3274 400 : end procedure
3275 : #endif
3276 :
3277 : #if RK1_ENABLED
3278 400 : module procedure setResizedSLLU_D1_RK1
3279 : use pm_kind, only: RKC => RK1
3280 : real(RKC), allocatable :: temp(:)
3281 : #include "pm_arrayResize@routines.inc.F90"
3282 400 : end procedure
3283 : #endif
3284 :
3285 : #undef RK_ENABLED
3286 :
3287 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3288 :
3289 : #define PSSK_ENABLED 1
3290 :
3291 : #if SK5_ENABLED
3292 : module procedure setResizedSLLU_D1_PSSK5
3293 : use pm_container, only: css_pdt
3294 : use pm_kind, only: SKC => SK5
3295 : type(css_pdt(SKC)), allocatable :: temp(:)
3296 : #include "pm_arrayResize@routines.inc.F90"
3297 : end procedure
3298 : #endif
3299 :
3300 : #if SK4_ENABLED
3301 : module procedure setResizedSLLU_D1_PSSK4
3302 : use pm_container, only: css_pdt
3303 : use pm_kind, only: SKC => SK4
3304 : type(css_pdt(SKC)), allocatable :: temp(:)
3305 : #include "pm_arrayResize@routines.inc.F90"
3306 : end procedure
3307 : #endif
3308 :
3309 : #if SK3_ENABLED
3310 : module procedure setResizedSLLU_D1_PSSK3
3311 : use pm_container, only: css_pdt
3312 : use pm_kind, only: SKC => SK3
3313 : type(css_pdt(SKC)), allocatable :: temp(:)
3314 : #include "pm_arrayResize@routines.inc.F90"
3315 : end procedure
3316 : #endif
3317 :
3318 : #if SK2_ENABLED
3319 : module procedure setResizedSLLU_D1_PSSK2
3320 : use pm_container, only: css_pdt
3321 : use pm_kind, only: SKC => SK2
3322 : type(css_pdt(SKC)), allocatable :: temp(:)
3323 : #include "pm_arrayResize@routines.inc.F90"
3324 : end procedure
3325 : #endif
3326 :
3327 : #if SK1_ENABLED
3328 0 : module procedure setResizedSLLU_D1_PSSK1
3329 : use pm_container, only: css_pdt
3330 : use pm_kind, only: SKC => SK1
3331 : type(css_pdt(SKC)), allocatable :: temp(:)
3332 : #include "pm_arrayResize@routines.inc.F90"
3333 0 : end procedure
3334 : #endif
3335 :
3336 : #undef PSSK_ENABLED
3337 :
3338 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3339 :
3340 : #define BSSK_ENABLED 1
3341 :
3342 0 : module procedure setResizedSLLU_D1_BSSK
3343 : use pm_container, only: css_type
3344 : use pm_kind, only: SKC => SK1
3345 0 : type(css_type), allocatable :: temp(:)
3346 : #include "pm_arrayResize@routines.inc.F90"
3347 0 : end procedure
3348 :
3349 : #undef BSSK_ENABLED
3350 :
3351 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3352 :
3353 : #undef D1_ENABLED
3354 :
3355 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3356 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3357 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3358 :
3359 : #define D2_ENABLED 1
3360 :
3361 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3362 :
3363 : #define SK_ENABLED 1
3364 :
3365 : #if SK5_ENABLED
3366 : module procedure setResizedSLLU_D2_SK5
3367 : use pm_kind, only: SKC => SK5
3368 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
3369 : #include "pm_arrayResize@routines.inc.F90"
3370 : end procedure
3371 : #endif
3372 :
3373 : #if SK4_ENABLED
3374 : module procedure setResizedSLLU_D2_SK4
3375 : use pm_kind, only: SKC => SK4
3376 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
3377 : #include "pm_arrayResize@routines.inc.F90"
3378 : end procedure
3379 : #endif
3380 :
3381 : #if SK3_ENABLED
3382 : module procedure setResizedSLLU_D2_SK3
3383 : use pm_kind, only: SKC => SK3
3384 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
3385 : #include "pm_arrayResize@routines.inc.F90"
3386 : end procedure
3387 : #endif
3388 :
3389 : #if SK2_ENABLED
3390 : module procedure setResizedSLLU_D2_SK2
3391 : use pm_kind, only: SKC => SK2
3392 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
3393 : #include "pm_arrayResize@routines.inc.F90"
3394 : end procedure
3395 : #endif
3396 :
3397 : #if SK1_ENABLED
3398 400 : module procedure setResizedSLLU_D2_SK1
3399 : use pm_kind, only: SKC => SK1
3400 400 : character(len(Array,IK),SKC), allocatable :: temp(:,:)
3401 : #include "pm_arrayResize@routines.inc.F90"
3402 400 : end procedure
3403 : #endif
3404 :
3405 : #undef SK_ENABLED
3406 :
3407 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3408 :
3409 : #define IK_ENABLED 1
3410 :
3411 : #if IK5_ENABLED
3412 400 : module procedure setResizedSLLU_D2_IK5
3413 : use pm_kind, only: IKC => IK5
3414 : integer(IKC), allocatable :: temp(:,:)
3415 : #include "pm_arrayResize@routines.inc.F90"
3416 400 : end procedure
3417 : #endif
3418 :
3419 : #if IK4_ENABLED
3420 400 : module procedure setResizedSLLU_D2_IK4
3421 : use pm_kind, only: IKC => IK4
3422 : integer(IKC), allocatable :: temp(:,:)
3423 : #include "pm_arrayResize@routines.inc.F90"
3424 400 : end procedure
3425 : #endif
3426 :
3427 : #if IK3_ENABLED
3428 400 : module procedure setResizedSLLU_D2_IK3
3429 : use pm_kind, only: IKC => IK3
3430 : integer(IKC), allocatable :: temp(:,:)
3431 : #include "pm_arrayResize@routines.inc.F90"
3432 400 : end procedure
3433 : #endif
3434 :
3435 : #if IK2_ENABLED
3436 400 : module procedure setResizedSLLU_D2_IK2
3437 : use pm_kind, only: IKC => IK2
3438 : integer(IKC), allocatable :: temp(:,:)
3439 : #include "pm_arrayResize@routines.inc.F90"
3440 400 : end procedure
3441 : #endif
3442 :
3443 : #if IK1_ENABLED
3444 400 : module procedure setResizedSLLU_D2_IK1
3445 : use pm_kind, only: IKC => IK1
3446 : integer(IKC), allocatable :: temp(:,:)
3447 : #include "pm_arrayResize@routines.inc.F90"
3448 400 : end procedure
3449 : #endif
3450 :
3451 : #undef IK_ENABLED
3452 :
3453 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3454 :
3455 : #define LK_ENABLED 1
3456 :
3457 : #if LK5_ENABLED
3458 400 : module procedure setResizedSLLU_D2_LK5
3459 : use pm_kind, only: LKC => LK5
3460 : logical(LKC), allocatable :: temp(:,:)
3461 : #include "pm_arrayResize@routines.inc.F90"
3462 400 : end procedure
3463 : #endif
3464 :
3465 : #if LK4_ENABLED
3466 400 : module procedure setResizedSLLU_D2_LK4
3467 : use pm_kind, only: LKC => LK4
3468 : logical(LKC), allocatable :: temp(:,:)
3469 : #include "pm_arrayResize@routines.inc.F90"
3470 400 : end procedure
3471 : #endif
3472 :
3473 : #if LK3_ENABLED
3474 400 : module procedure setResizedSLLU_D2_LK3
3475 : use pm_kind, only: LKC => LK3
3476 : logical(LKC), allocatable :: temp(:,:)
3477 : #include "pm_arrayResize@routines.inc.F90"
3478 400 : end procedure
3479 : #endif
3480 :
3481 : #if LK2_ENABLED
3482 400 : module procedure setResizedSLLU_D2_LK2
3483 : use pm_kind, only: LKC => LK2
3484 : logical(LKC), allocatable :: temp(:,:)
3485 : #include "pm_arrayResize@routines.inc.F90"
3486 400 : end procedure
3487 : #endif
3488 :
3489 : #if LK1_ENABLED
3490 400 : module procedure setResizedSLLU_D2_LK1
3491 : use pm_kind, only: LKC => LK1
3492 : logical(LKC), allocatable :: temp(:,:)
3493 : #include "pm_arrayResize@routines.inc.F90"
3494 400 : end procedure
3495 : #endif
3496 :
3497 : #undef LK_ENABLED
3498 :
3499 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3500 :
3501 : #define CK_ENABLED 1
3502 :
3503 : #if CK5_ENABLED
3504 : module procedure setResizedSLLU_D2_CK5
3505 : use pm_kind, only: CKC => CK5
3506 : complex(CKC), allocatable :: temp(:,:)
3507 : #include "pm_arrayResize@routines.inc.F90"
3508 : end procedure
3509 : #endif
3510 :
3511 : #if CK4_ENABLED
3512 400 : module procedure setResizedSLLU_D2_CK4
3513 : use pm_kind, only: CKC => CK4
3514 : complex(CKC), allocatable :: temp(:,:)
3515 : #include "pm_arrayResize@routines.inc.F90"
3516 400 : end procedure
3517 : #endif
3518 :
3519 : #if CK3_ENABLED
3520 400 : module procedure setResizedSLLU_D2_CK3
3521 : use pm_kind, only: CKC => CK3
3522 : complex(CKC), allocatable :: temp(:,:)
3523 : #include "pm_arrayResize@routines.inc.F90"
3524 400 : end procedure
3525 : #endif
3526 :
3527 : #if CK2_ENABLED
3528 400 : module procedure setResizedSLLU_D2_CK2
3529 : use pm_kind, only: CKC => CK2
3530 : complex(CKC), allocatable :: temp(:,:)
3531 : #include "pm_arrayResize@routines.inc.F90"
3532 400 : end procedure
3533 : #endif
3534 :
3535 : #if CK1_ENABLED
3536 400 : module procedure setResizedSLLU_D2_CK1
3537 : use pm_kind, only: CKC => CK1
3538 : complex(CKC), allocatable :: temp(:,:)
3539 : #include "pm_arrayResize@routines.inc.F90"
3540 400 : end procedure
3541 : #endif
3542 :
3543 : #undef CK_ENABLED
3544 :
3545 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3546 :
3547 : #define RK_ENABLED 1
3548 :
3549 : #if RK5_ENABLED
3550 : module procedure setResizedSLLU_D2_RK5
3551 : use pm_kind, only: RKC => RK5
3552 : real(RKC), allocatable :: temp(:,:)
3553 : #include "pm_arrayResize@routines.inc.F90"
3554 : end procedure
3555 : #endif
3556 :
3557 : #if RK4_ENABLED
3558 400 : module procedure setResizedSLLU_D2_RK4
3559 : use pm_kind, only: RKC => RK4
3560 : real(RKC), allocatable :: temp(:,:)
3561 : #include "pm_arrayResize@routines.inc.F90"
3562 400 : end procedure
3563 : #endif
3564 :
3565 : #if RK3_ENABLED
3566 400 : module procedure setResizedSLLU_D2_RK3
3567 : use pm_kind, only: RKC => RK3
3568 : real(RKC), allocatable :: temp(:,:)
3569 : #include "pm_arrayResize@routines.inc.F90"
3570 400 : end procedure
3571 : #endif
3572 :
3573 : #if RK2_ENABLED
3574 400 : module procedure setResizedSLLU_D2_RK2
3575 : use pm_kind, only: RKC => RK2
3576 : real(RKC), allocatable :: temp(:,:)
3577 : #include "pm_arrayResize@routines.inc.F90"
3578 400 : end procedure
3579 : #endif
3580 :
3581 : #if RK1_ENABLED
3582 400 : module procedure setResizedSLLU_D2_RK1
3583 : use pm_kind, only: RKC => RK1
3584 : real(RKC), allocatable :: temp(:,:)
3585 : #include "pm_arrayResize@routines.inc.F90"
3586 400 : end procedure
3587 : #endif
3588 :
3589 : #undef RK_ENABLED
3590 :
3591 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3592 :
3593 : #define PSSK_ENABLED 1
3594 :
3595 : #if SK5_ENABLED
3596 : module procedure setResizedSLLU_D2_PSSK5
3597 : use pm_container, only: css_pdt
3598 : use pm_kind, only: SKC => SK5
3599 : type(css_pdt(SKC)), allocatable :: temp(:,:)
3600 : #include "pm_arrayResize@routines.inc.F90"
3601 : end procedure
3602 : #endif
3603 :
3604 : #if SK4_ENABLED
3605 : module procedure setResizedSLLU_D2_PSSK4
3606 : use pm_container, only: css_pdt
3607 : use pm_kind, only: SKC => SK4
3608 : type(css_pdt(SKC)), allocatable :: temp(:,:)
3609 : #include "pm_arrayResize@routines.inc.F90"
3610 : end procedure
3611 : #endif
3612 :
3613 : #if SK3_ENABLED
3614 : module procedure setResizedSLLU_D2_PSSK3
3615 : use pm_container, only: css_pdt
3616 : use pm_kind, only: SKC => SK3
3617 : type(css_pdt(SKC)), allocatable :: temp(:,:)
3618 : #include "pm_arrayResize@routines.inc.F90"
3619 : end procedure
3620 : #endif
3621 :
3622 : #if SK2_ENABLED
3623 : module procedure setResizedSLLU_D2_PSSK2
3624 : use pm_container, only: css_pdt
3625 : use pm_kind, only: SKC => SK2
3626 : type(css_pdt(SKC)), allocatable :: temp(:,:)
3627 : #include "pm_arrayResize@routines.inc.F90"
3628 : end procedure
3629 : #endif
3630 :
3631 : #if SK1_ENABLED
3632 0 : module procedure setResizedSLLU_D2_PSSK1
3633 : use pm_container, only: css_pdt
3634 : use pm_kind, only: SKC => SK1
3635 : type(css_pdt(SKC)), allocatable :: temp(:,:)
3636 : #include "pm_arrayResize@routines.inc.F90"
3637 0 : end procedure
3638 : #endif
3639 :
3640 : #undef PSSK_ENABLED
3641 :
3642 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3643 :
3644 : #define BSSK_ENABLED 1
3645 :
3646 0 : module procedure setResizedSLLU_D2_BSSK
3647 : use pm_container, only: css_type
3648 : use pm_kind, only: SKC => SK1
3649 0 : type(css_type), allocatable :: temp(:,:)
3650 : #include "pm_arrayResize@routines.inc.F90"
3651 0 : end procedure
3652 :
3653 : #undef BSSK_ENABLED
3654 :
3655 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3656 :
3657 : #undef D2_ENABLED
3658 :
3659 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3660 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3661 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3662 :
3663 : #define D3_ENABLED 1
3664 :
3665 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3666 :
3667 : #define SK_ENABLED 1
3668 :
3669 : #if SK5_ENABLED
3670 : module procedure setResizedSLLU_D3_SK5
3671 : use pm_kind, only: SKC => SK5
3672 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
3673 : #include "pm_arrayResize@routines.inc.F90"
3674 : end procedure
3675 : #endif
3676 :
3677 : #if SK4_ENABLED
3678 : module procedure setResizedSLLU_D3_SK4
3679 : use pm_kind, only: SKC => SK4
3680 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
3681 : #include "pm_arrayResize@routines.inc.F90"
3682 : end procedure
3683 : #endif
3684 :
3685 : #if SK3_ENABLED
3686 : module procedure setResizedSLLU_D3_SK3
3687 : use pm_kind, only: SKC => SK3
3688 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
3689 : #include "pm_arrayResize@routines.inc.F90"
3690 : end procedure
3691 : #endif
3692 :
3693 : #if SK2_ENABLED
3694 : module procedure setResizedSLLU_D3_SK2
3695 : use pm_kind, only: SKC => SK2
3696 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
3697 : #include "pm_arrayResize@routines.inc.F90"
3698 : end procedure
3699 : #endif
3700 :
3701 : #if SK1_ENABLED
3702 400 : module procedure setResizedSLLU_D3_SK1
3703 : use pm_kind, only: SKC => SK1
3704 400 : character(len(Array,IK),SKC), allocatable :: temp(:,:,:)
3705 : #include "pm_arrayResize@routines.inc.F90"
3706 400 : end procedure
3707 : #endif
3708 :
3709 : #undef SK_ENABLED
3710 :
3711 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3712 :
3713 : #define IK_ENABLED 1
3714 :
3715 : #if IK5_ENABLED
3716 400 : module procedure setResizedSLLU_D3_IK5
3717 : use pm_kind, only: IKC => IK5
3718 : integer(IKC), allocatable :: temp(:,:,:)
3719 : #include "pm_arrayResize@routines.inc.F90"
3720 400 : end procedure
3721 : #endif
3722 :
3723 : #if IK4_ENABLED
3724 400 : module procedure setResizedSLLU_D3_IK4
3725 : use pm_kind, only: IKC => IK4
3726 : integer(IKC), allocatable :: temp(:,:,:)
3727 : #include "pm_arrayResize@routines.inc.F90"
3728 400 : end procedure
3729 : #endif
3730 :
3731 : #if IK3_ENABLED
3732 400 : module procedure setResizedSLLU_D3_IK3
3733 : use pm_kind, only: IKC => IK3
3734 : integer(IKC), allocatable :: temp(:,:,:)
3735 : #include "pm_arrayResize@routines.inc.F90"
3736 400 : end procedure
3737 : #endif
3738 :
3739 : #if IK2_ENABLED
3740 400 : module procedure setResizedSLLU_D3_IK2
3741 : use pm_kind, only: IKC => IK2
3742 : integer(IKC), allocatable :: temp(:,:,:)
3743 : #include "pm_arrayResize@routines.inc.F90"
3744 400 : end procedure
3745 : #endif
3746 :
3747 : #if IK1_ENABLED
3748 400 : module procedure setResizedSLLU_D3_IK1
3749 : use pm_kind, only: IKC => IK1
3750 : integer(IKC), allocatable :: temp(:,:,:)
3751 : #include "pm_arrayResize@routines.inc.F90"
3752 400 : end procedure
3753 : #endif
3754 :
3755 : #undef IK_ENABLED
3756 :
3757 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3758 :
3759 : #define LK_ENABLED 1
3760 :
3761 : #if LK5_ENABLED
3762 400 : module procedure setResizedSLLU_D3_LK5
3763 : use pm_kind, only: LKC => LK5
3764 : logical(LKC), allocatable :: temp(:,:,:)
3765 : #include "pm_arrayResize@routines.inc.F90"
3766 400 : end procedure
3767 : #endif
3768 :
3769 : #if LK4_ENABLED
3770 400 : module procedure setResizedSLLU_D3_LK4
3771 : use pm_kind, only: LKC => LK4
3772 : logical(LKC), allocatable :: temp(:,:,:)
3773 : #include "pm_arrayResize@routines.inc.F90"
3774 400 : end procedure
3775 : #endif
3776 :
3777 : #if LK3_ENABLED
3778 400 : module procedure setResizedSLLU_D3_LK3
3779 : use pm_kind, only: LKC => LK3
3780 : logical(LKC), allocatable :: temp(:,:,:)
3781 : #include "pm_arrayResize@routines.inc.F90"
3782 400 : end procedure
3783 : #endif
3784 :
3785 : #if LK2_ENABLED
3786 400 : module procedure setResizedSLLU_D3_LK2
3787 : use pm_kind, only: LKC => LK2
3788 : logical(LKC), allocatable :: temp(:,:,:)
3789 : #include "pm_arrayResize@routines.inc.F90"
3790 400 : end procedure
3791 : #endif
3792 :
3793 : #if LK1_ENABLED
3794 400 : module procedure setResizedSLLU_D3_LK1
3795 : use pm_kind, only: LKC => LK1
3796 : logical(LKC), allocatable :: temp(:,:,:)
3797 : #include "pm_arrayResize@routines.inc.F90"
3798 400 : end procedure
3799 : #endif
3800 :
3801 : #undef LK_ENABLED
3802 :
3803 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3804 :
3805 : #define CK_ENABLED 1
3806 :
3807 : #if CK5_ENABLED
3808 : module procedure setResizedSLLU_D3_CK5
3809 : use pm_kind, only: CKC => CK5
3810 : complex(CKC), allocatable :: temp(:,:,:)
3811 : #include "pm_arrayResize@routines.inc.F90"
3812 : end procedure
3813 : #endif
3814 :
3815 : #if CK4_ENABLED
3816 400 : module procedure setResizedSLLU_D3_CK4
3817 : use pm_kind, only: CKC => CK4
3818 : complex(CKC), allocatable :: temp(:,:,:)
3819 : #include "pm_arrayResize@routines.inc.F90"
3820 400 : end procedure
3821 : #endif
3822 :
3823 : #if CK3_ENABLED
3824 400 : module procedure setResizedSLLU_D3_CK3
3825 : use pm_kind, only: CKC => CK3
3826 : complex(CKC), allocatable :: temp(:,:,:)
3827 : #include "pm_arrayResize@routines.inc.F90"
3828 400 : end procedure
3829 : #endif
3830 :
3831 : #if CK2_ENABLED
3832 400 : module procedure setResizedSLLU_D3_CK2
3833 : use pm_kind, only: CKC => CK2
3834 : complex(CKC), allocatable :: temp(:,:,:)
3835 : #include "pm_arrayResize@routines.inc.F90"
3836 400 : end procedure
3837 : #endif
3838 :
3839 : #if CK1_ENABLED
3840 400 : module procedure setResizedSLLU_D3_CK1
3841 : use pm_kind, only: CKC => CK1
3842 : complex(CKC), allocatable :: temp(:,:,:)
3843 : #include "pm_arrayResize@routines.inc.F90"
3844 400 : end procedure
3845 : #endif
3846 :
3847 : #undef CK_ENABLED
3848 :
3849 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3850 :
3851 : #define RK_ENABLED 1
3852 :
3853 : #if RK5_ENABLED
3854 : module procedure setResizedSLLU_D3_RK5
3855 : use pm_kind, only: RKC => RK5
3856 : real(RKC), allocatable :: temp(:,:,:)
3857 : #include "pm_arrayResize@routines.inc.F90"
3858 : end procedure
3859 : #endif
3860 :
3861 : #if RK4_ENABLED
3862 400 : module procedure setResizedSLLU_D3_RK4
3863 : use pm_kind, only: RKC => RK4
3864 : real(RKC), allocatable :: temp(:,:,:)
3865 : #include "pm_arrayResize@routines.inc.F90"
3866 400 : end procedure
3867 : #endif
3868 :
3869 : #if RK3_ENABLED
3870 400 : module procedure setResizedSLLU_D3_RK3
3871 : use pm_kind, only: RKC => RK3
3872 : real(RKC), allocatable :: temp(:,:,:)
3873 : #include "pm_arrayResize@routines.inc.F90"
3874 400 : end procedure
3875 : #endif
3876 :
3877 : #if RK2_ENABLED
3878 400 : module procedure setResizedSLLU_D3_RK2
3879 : use pm_kind, only: RKC => RK2
3880 : real(RKC), allocatable :: temp(:,:,:)
3881 : #include "pm_arrayResize@routines.inc.F90"
3882 400 : end procedure
3883 : #endif
3884 :
3885 : #if RK1_ENABLED
3886 400 : module procedure setResizedSLLU_D3_RK1
3887 : use pm_kind, only: RKC => RK1
3888 : real(RKC), allocatable :: temp(:,:,:)
3889 : #include "pm_arrayResize@routines.inc.F90"
3890 400 : end procedure
3891 : #endif
3892 :
3893 : #undef RK_ENABLED
3894 :
3895 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3896 :
3897 : #define PSSK_ENABLED 1
3898 :
3899 : #if SK5_ENABLED
3900 : module procedure setResizedSLLU_D3_PSSK5
3901 : use pm_container, only: css_pdt
3902 : use pm_kind, only: SKC => SK5
3903 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
3904 : #include "pm_arrayResize@routines.inc.F90"
3905 : end procedure
3906 : #endif
3907 :
3908 : #if SK4_ENABLED
3909 : module procedure setResizedSLLU_D3_PSSK4
3910 : use pm_container, only: css_pdt
3911 : use pm_kind, only: SKC => SK4
3912 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
3913 : #include "pm_arrayResize@routines.inc.F90"
3914 : end procedure
3915 : #endif
3916 :
3917 : #if SK3_ENABLED
3918 : module procedure setResizedSLLU_D3_PSSK3
3919 : use pm_container, only: css_pdt
3920 : use pm_kind, only: SKC => SK3
3921 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
3922 : #include "pm_arrayResize@routines.inc.F90"
3923 : end procedure
3924 : #endif
3925 :
3926 : #if SK2_ENABLED
3927 : module procedure setResizedSLLU_D3_PSSK2
3928 : use pm_container, only: css_pdt
3929 : use pm_kind, only: SKC => SK2
3930 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
3931 : #include "pm_arrayResize@routines.inc.F90"
3932 : end procedure
3933 : #endif
3934 :
3935 : #if SK1_ENABLED
3936 0 : module procedure setResizedSLLU_D3_PSSK1
3937 : use pm_container, only: css_pdt
3938 : use pm_kind, only: SKC => SK1
3939 : type(css_pdt(SKC)), allocatable :: temp(:,:,:)
3940 : #include "pm_arrayResize@routines.inc.F90"
3941 0 : end procedure
3942 : #endif
3943 :
3944 : #undef PSSK_ENABLED
3945 :
3946 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3947 :
3948 : #define BSSK_ENABLED 1
3949 :
3950 0 : module procedure setResizedSLLU_D3_BSSK
3951 : use pm_container, only: css_type
3952 : use pm_kind, only: SKC => SK1
3953 0 : type(css_type), allocatable :: temp(:,:,:)
3954 : #include "pm_arrayResize@routines.inc.F90"
3955 0 : end procedure
3956 :
3957 : #undef BSSK_ENABLED
3958 :
3959 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3960 :
3961 : #undef D3_ENABLED
3962 :
3963 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3964 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3965 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3966 :
3967 : #undef SLLU_ENABLED
3968 :
3969 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3970 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3971 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3972 :
3973 : #undef setResized_ENABLED
3974 :
3975 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3976 :
3977 : #undef CHECK_ASSERTION
3978 :
3979 : end submodule routines
|
