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