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_arrayFind](@ref pm_arrayFind).
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_arrayFind) 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_arrayResize, only: setResized
40 : use pm_arraySort, only: isAscending
41 : implicit none
42 :
43 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
44 :
45 : contains
46 :
47 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
48 :
49 : #define getCountLoc_ENABLED 1
50 :
51 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
52 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
53 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
54 :
55 : #define DefBor_ENABLED 1
56 :
57 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
58 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
59 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
60 :
61 : #define D0_D0_ENABLED 1
62 :
63 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
64 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
65 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
66 :
67 : #define DefCom_ENABLED 1
68 : #define DefIns_ENABLED 1
69 :
70 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
71 :
72 : #define SK_ENABLED 1
73 :
74 : #if SK5_ENABLED
75 : module procedure getCountLocDefBorDefCom_D0_D0_SK5
76 : use pm_kind, only: SKC => SK5
77 : #include "pm_arrayFind@routines.inc.F90"
78 : end procedure
79 : #endif
80 :
81 : #if SK4_ENABLED
82 : module procedure getCountLocDefBorDefCom_D0_D0_SK4
83 : use pm_kind, only: SKC => SK4
84 : #include "pm_arrayFind@routines.inc.F90"
85 : end procedure
86 : #endif
87 :
88 : #if SK3_ENABLED
89 : module procedure getCountLocDefBorDefCom_D0_D0_SK3
90 : use pm_kind, only: SKC => SK3
91 : #include "pm_arrayFind@routines.inc.F90"
92 : end procedure
93 : #endif
94 :
95 : #if SK2_ENABLED
96 : module procedure getCountLocDefBorDefCom_D0_D0_SK2
97 : use pm_kind, only: SKC => SK2
98 : #include "pm_arrayFind@routines.inc.F90"
99 : end procedure
100 : #endif
101 :
102 : #if SK1_ENABLED
103 121 : module procedure getCountLocDefBorDefCom_D0_D0_SK1
104 : use pm_kind, only: SKC => SK1
105 : #include "pm_arrayFind@routines.inc.F90"
106 : end procedure
107 : #endif
108 :
109 : #undef SK_ENABLED
110 :
111 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
112 :
113 : #undef DefCom_ENABLED
114 : #undef DefIns_ENABLED
115 :
116 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
117 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
118 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
119 :
120 : #define CusCom_ENABLED 1
121 : #define DefIns_ENABLED 1
122 :
123 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
124 :
125 : #define SK_ENABLED 1
126 :
127 : #if SK5_ENABLED
128 : module procedure getCountLocDefBorCusCom_D0_D0_SK5
129 : use pm_kind, only: SKC => SK5
130 : #include "pm_arrayFind@routines.inc.F90"
131 : end procedure
132 : #endif
133 :
134 : #if SK4_ENABLED
135 : module procedure getCountLocDefBorCusCom_D0_D0_SK4
136 : use pm_kind, only: SKC => SK4
137 : #include "pm_arrayFind@routines.inc.F90"
138 : end procedure
139 : #endif
140 :
141 : #if SK3_ENABLED
142 : module procedure getCountLocDefBorCusCom_D0_D0_SK3
143 : use pm_kind, only: SKC => SK3
144 : #include "pm_arrayFind@routines.inc.F90"
145 : end procedure
146 : #endif
147 :
148 : #if SK2_ENABLED
149 : module procedure getCountLocDefBorCusCom_D0_D0_SK2
150 : use pm_kind, only: SKC => SK2
151 : #include "pm_arrayFind@routines.inc.F90"
152 : end procedure
153 : #endif
154 :
155 : #if SK1_ENABLED
156 1 : module procedure getCountLocDefBorCusCom_D0_D0_SK1
157 : use pm_kind, only: SKC => SK1
158 : #include "pm_arrayFind@routines.inc.F90"
159 : end procedure
160 : #endif
161 :
162 : #undef SK_ENABLED
163 :
164 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
165 :
166 : #undef CusCom_ENABLED
167 : #undef DefIns_ENABLED
168 :
169 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
170 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
171 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
172 :
173 : #undef D0_D0_ENABLED
174 :
175 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
177 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
178 :
179 : #define D1_D0_ENABLED 1
180 :
181 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
182 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
183 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
184 :
185 : #define DefCom_ENABLED 1
186 : #define DefIns_ENABLED 1
187 :
188 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
189 :
190 : #define SK_ENABLED 1
191 :
192 : #if SK5_ENABLED
193 : module procedure getCountLocDefBorDefCom_D1_D0_SK5
194 : use pm_kind, only: SKC => SK5
195 : #include "pm_arrayFind@routines.inc.F90"
196 : end procedure
197 : #endif
198 :
199 : #if SK4_ENABLED
200 : module procedure getCountLocDefBorDefCom_D1_D0_SK4
201 : use pm_kind, only: SKC => SK4
202 : #include "pm_arrayFind@routines.inc.F90"
203 : end procedure
204 : #endif
205 :
206 : #if SK3_ENABLED
207 : module procedure getCountLocDefBorDefCom_D1_D0_SK3
208 : use pm_kind, only: SKC => SK3
209 : #include "pm_arrayFind@routines.inc.F90"
210 : end procedure
211 : #endif
212 :
213 : #if SK2_ENABLED
214 : module procedure getCountLocDefBorDefCom_D1_D0_SK2
215 : use pm_kind, only: SKC => SK2
216 : #include "pm_arrayFind@routines.inc.F90"
217 : end procedure
218 : #endif
219 :
220 : #if SK1_ENABLED
221 3 : module procedure getCountLocDefBorDefCom_D1_D0_SK1
222 : use pm_kind, only: SKC => SK1
223 : #include "pm_arrayFind@routines.inc.F90"
224 3 : end procedure
225 : #endif
226 :
227 : #undef SK_ENABLED
228 :
229 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
230 :
231 : #define IK_ENABLED 1
232 :
233 : #if IK5_ENABLED
234 0 : module procedure getCountLocDefBorDefCom_D1_D0_IK5
235 : use pm_kind, only: IKC => IK5
236 : #include "pm_arrayFind@routines.inc.F90"
237 0 : end procedure
238 : #endif
239 :
240 : #if IK4_ENABLED
241 0 : module procedure getCountLocDefBorDefCom_D1_D0_IK4
242 : use pm_kind, only: IKC => IK4
243 : #include "pm_arrayFind@routines.inc.F90"
244 0 : end procedure
245 : #endif
246 :
247 : #if IK3_ENABLED
248 3 : module procedure getCountLocDefBorDefCom_D1_D0_IK3
249 : use pm_kind, only: IKC => IK3
250 : #include "pm_arrayFind@routines.inc.F90"
251 3 : end procedure
252 : #endif
253 :
254 : #if IK2_ENABLED
255 0 : module procedure getCountLocDefBorDefCom_D1_D0_IK2
256 : use pm_kind, only: IKC => IK2
257 : #include "pm_arrayFind@routines.inc.F90"
258 0 : end procedure
259 : #endif
260 :
261 : #if IK1_ENABLED
262 0 : module procedure getCountLocDefBorDefCom_D1_D0_IK1
263 : use pm_kind, only: IKC => IK1
264 : #include "pm_arrayFind@routines.inc.F90"
265 0 : end procedure
266 : #endif
267 :
268 : #undef IK_ENABLED
269 :
270 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
271 :
272 : #define LK_ENABLED 1
273 :
274 : #if LK5_ENABLED
275 0 : module procedure getCountLocDefBorDefCom_D1_D0_LK5
276 : use pm_kind, only: LKC => LK5
277 : #include "pm_arrayFind@routines.inc.F90"
278 0 : end procedure
279 : #endif
280 :
281 : #if LK4_ENABLED
282 0 : module procedure getCountLocDefBorDefCom_D1_D0_LK4
283 : use pm_kind, only: LKC => LK4
284 : #include "pm_arrayFind@routines.inc.F90"
285 0 : end procedure
286 : #endif
287 :
288 : #if LK3_ENABLED
289 2 : module procedure getCountLocDefBorDefCom_D1_D0_LK3
290 : use pm_kind, only: LKC => LK3
291 : #include "pm_arrayFind@routines.inc.F90"
292 2 : end procedure
293 : #endif
294 :
295 : #if LK2_ENABLED
296 0 : module procedure getCountLocDefBorDefCom_D1_D0_LK2
297 : use pm_kind, only: LKC => LK2
298 : #include "pm_arrayFind@routines.inc.F90"
299 0 : end procedure
300 : #endif
301 :
302 : #if LK1_ENABLED
303 0 : module procedure getCountLocDefBorDefCom_D1_D0_LK1
304 : use pm_kind, only: LKC => LK1
305 : #include "pm_arrayFind@routines.inc.F90"
306 0 : end procedure
307 : #endif
308 :
309 : #undef LK_ENABLED
310 :
311 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
312 :
313 : #define CK_ENABLED 1
314 :
315 : #if CK5_ENABLED
316 : module procedure getCountLocDefBorDefCom_D1_D0_CK5
317 : use pm_kind, only: CKC => CK5
318 : #include "pm_arrayFind@routines.inc.F90"
319 : end procedure
320 : #endif
321 :
322 : #if CK4_ENABLED
323 0 : module procedure getCountLocDefBorDefCom_D1_D0_CK4
324 : use pm_kind, only: CKC => CK4
325 : #include "pm_arrayFind@routines.inc.F90"
326 0 : end procedure
327 : #endif
328 :
329 : #if CK3_ENABLED
330 0 : module procedure getCountLocDefBorDefCom_D1_D0_CK3
331 : use pm_kind, only: CKC => CK3
332 : #include "pm_arrayFind@routines.inc.F90"
333 0 : end procedure
334 : #endif
335 :
336 : #if CK2_ENABLED
337 0 : module procedure getCountLocDefBorDefCom_D1_D0_CK2
338 : use pm_kind, only: CKC => CK2
339 : #include "pm_arrayFind@routines.inc.F90"
340 0 : end procedure
341 : #endif
342 :
343 : #if CK1_ENABLED
344 3 : module procedure getCountLocDefBorDefCom_D1_D0_CK1
345 : use pm_kind, only: CKC => CK1
346 : #include "pm_arrayFind@routines.inc.F90"
347 3 : end procedure
348 : #endif
349 :
350 : #undef CK_ENABLED
351 :
352 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
353 :
354 : #define RK_ENABLED 1
355 :
356 : #if RK5_ENABLED
357 : module procedure getCountLocDefBorDefCom_D1_D0_RK5
358 : use pm_kind, only: RKC => RK5
359 : #include "pm_arrayFind@routines.inc.F90"
360 : end procedure
361 : #endif
362 :
363 : #if RK4_ENABLED
364 0 : module procedure getCountLocDefBorDefCom_D1_D0_RK4
365 : use pm_kind, only: RKC => RK4
366 : #include "pm_arrayFind@routines.inc.F90"
367 0 : end procedure
368 : #endif
369 :
370 : #if RK3_ENABLED
371 0 : module procedure getCountLocDefBorDefCom_D1_D0_RK3
372 : use pm_kind, only: RKC => RK3
373 : #include "pm_arrayFind@routines.inc.F90"
374 0 : end procedure
375 : #endif
376 :
377 : #if RK2_ENABLED
378 0 : module procedure getCountLocDefBorDefCom_D1_D0_RK2
379 : use pm_kind, only: RKC => RK2
380 : #include "pm_arrayFind@routines.inc.F90"
381 0 : end procedure
382 : #endif
383 :
384 : #if RK1_ENABLED
385 3 : module procedure getCountLocDefBorDefCom_D1_D0_RK1
386 : use pm_kind, only: RKC => RK1
387 : #include "pm_arrayFind@routines.inc.F90"
388 3 : end procedure
389 : #endif
390 :
391 : #undef RK_ENABLED
392 :
393 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
394 :
395 : #undef DefCom_ENABLED
396 : #undef DefIns_ENABLED
397 :
398 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
399 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
400 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
401 :
402 : #define CusCom_ENABLED 1
403 : #define DefIns_ENABLED 1
404 :
405 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
406 :
407 : #define SK_ENABLED 1
408 :
409 : #if SK5_ENABLED
410 : module procedure getCountLocDefBorCusCom_D1_D0_SK5
411 : use pm_kind, only: SKC => SK5
412 : #include "pm_arrayFind@routines.inc.F90"
413 : end procedure
414 : #endif
415 :
416 : #if SK4_ENABLED
417 : module procedure getCountLocDefBorCusCom_D1_D0_SK4
418 : use pm_kind, only: SKC => SK4
419 : #include "pm_arrayFind@routines.inc.F90"
420 : end procedure
421 : #endif
422 :
423 : #if SK3_ENABLED
424 : module procedure getCountLocDefBorCusCom_D1_D0_SK3
425 : use pm_kind, only: SKC => SK3
426 : #include "pm_arrayFind@routines.inc.F90"
427 : end procedure
428 : #endif
429 :
430 : #if SK2_ENABLED
431 : module procedure getCountLocDefBorCusCom_D1_D0_SK2
432 : use pm_kind, only: SKC => SK2
433 : #include "pm_arrayFind@routines.inc.F90"
434 : end procedure
435 : #endif
436 :
437 : #if SK1_ENABLED
438 1 : module procedure getCountLocDefBorCusCom_D1_D0_SK1
439 : use pm_kind, only: SKC => SK1
440 : #include "pm_arrayFind@routines.inc.F90"
441 1 : end procedure
442 : #endif
443 :
444 : #undef SK_ENABLED
445 :
446 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
447 :
448 : #define IK_ENABLED 1
449 :
450 : #if IK5_ENABLED
451 0 : module procedure getCountLocDefBorCusCom_D1_D0_IK5
452 : use pm_kind, only: IKC => IK5
453 : #include "pm_arrayFind@routines.inc.F90"
454 0 : end procedure
455 : #endif
456 :
457 : #if IK4_ENABLED
458 0 : module procedure getCountLocDefBorCusCom_D1_D0_IK4
459 : use pm_kind, only: IKC => IK4
460 : #include "pm_arrayFind@routines.inc.F90"
461 0 : end procedure
462 : #endif
463 :
464 : #if IK3_ENABLED
465 1 : module procedure getCountLocDefBorCusCom_D1_D0_IK3
466 : use pm_kind, only: IKC => IK3
467 : #include "pm_arrayFind@routines.inc.F90"
468 1 : end procedure
469 : #endif
470 :
471 : #if IK2_ENABLED
472 0 : module procedure getCountLocDefBorCusCom_D1_D0_IK2
473 : use pm_kind, only: IKC => IK2
474 : #include "pm_arrayFind@routines.inc.F90"
475 0 : end procedure
476 : #endif
477 :
478 : #if IK1_ENABLED
479 0 : module procedure getCountLocDefBorCusCom_D1_D0_IK1
480 : use pm_kind, only: IKC => IK1
481 : #include "pm_arrayFind@routines.inc.F90"
482 0 : end procedure
483 : #endif
484 :
485 : #undef IK_ENABLED
486 :
487 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
488 :
489 : #define LK_ENABLED 1
490 :
491 : #if LK5_ENABLED
492 0 : module procedure getCountLocDefBorCusCom_D1_D0_LK5
493 : use pm_kind, only: LKC => LK5
494 : #include "pm_arrayFind@routines.inc.F90"
495 0 : end procedure
496 : #endif
497 :
498 : #if LK4_ENABLED
499 0 : module procedure getCountLocDefBorCusCom_D1_D0_LK4
500 : use pm_kind, only: LKC => LK4
501 : #include "pm_arrayFind@routines.inc.F90"
502 0 : end procedure
503 : #endif
504 :
505 : #if LK3_ENABLED
506 0 : module procedure getCountLocDefBorCusCom_D1_D0_LK3
507 : use pm_kind, only: LKC => LK3
508 : #include "pm_arrayFind@routines.inc.F90"
509 0 : end procedure
510 : #endif
511 :
512 : #if LK2_ENABLED
513 0 : module procedure getCountLocDefBorCusCom_D1_D0_LK2
514 : use pm_kind, only: LKC => LK2
515 : #include "pm_arrayFind@routines.inc.F90"
516 0 : end procedure
517 : #endif
518 :
519 : #if LK1_ENABLED
520 0 : module procedure getCountLocDefBorCusCom_D1_D0_LK1
521 : use pm_kind, only: LKC => LK1
522 : #include "pm_arrayFind@routines.inc.F90"
523 0 : end procedure
524 : #endif
525 :
526 : #undef LK_ENABLED
527 :
528 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
529 :
530 : #define CK_ENABLED 1
531 :
532 : #if CK5_ENABLED
533 : module procedure getCountLocDefBorCusCom_D1_D0_CK5
534 : use pm_kind, only: CKC => CK5
535 : #include "pm_arrayFind@routines.inc.F90"
536 : end procedure
537 : #endif
538 :
539 : #if CK4_ENABLED
540 0 : module procedure getCountLocDefBorCusCom_D1_D0_CK4
541 : use pm_kind, only: CKC => CK4
542 : #include "pm_arrayFind@routines.inc.F90"
543 0 : end procedure
544 : #endif
545 :
546 : #if CK3_ENABLED
547 0 : module procedure getCountLocDefBorCusCom_D1_D0_CK3
548 : use pm_kind, only: CKC => CK3
549 : #include "pm_arrayFind@routines.inc.F90"
550 0 : end procedure
551 : #endif
552 :
553 : #if CK2_ENABLED
554 0 : module procedure getCountLocDefBorCusCom_D1_D0_CK2
555 : use pm_kind, only: CKC => CK2
556 : #include "pm_arrayFind@routines.inc.F90"
557 0 : end procedure
558 : #endif
559 :
560 : #if CK1_ENABLED
561 1 : module procedure getCountLocDefBorCusCom_D1_D0_CK1
562 : use pm_kind, only: CKC => CK1
563 : #include "pm_arrayFind@routines.inc.F90"
564 1 : end procedure
565 : #endif
566 :
567 : #undef CK_ENABLED
568 :
569 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
570 :
571 : #define RK_ENABLED 1
572 :
573 : #if RK5_ENABLED
574 : module procedure getCountLocDefBorCusCom_D1_D0_RK5
575 : use pm_kind, only: RKC => RK5
576 : #include "pm_arrayFind@routines.inc.F90"
577 : end procedure
578 : #endif
579 :
580 : #if RK4_ENABLED
581 0 : module procedure getCountLocDefBorCusCom_D1_D0_RK4
582 : use pm_kind, only: RKC => RK4
583 : #include "pm_arrayFind@routines.inc.F90"
584 0 : end procedure
585 : #endif
586 :
587 : #if RK3_ENABLED
588 0 : module procedure getCountLocDefBorCusCom_D1_D0_RK3
589 : use pm_kind, only: RKC => RK3
590 : #include "pm_arrayFind@routines.inc.F90"
591 0 : end procedure
592 : #endif
593 :
594 : #if RK2_ENABLED
595 0 : module procedure getCountLocDefBorCusCom_D1_D0_RK2
596 : use pm_kind, only: RKC => RK2
597 : #include "pm_arrayFind@routines.inc.F90"
598 0 : end procedure
599 : #endif
600 :
601 : #if RK1_ENABLED
602 1 : module procedure getCountLocDefBorCusCom_D1_D0_RK1
603 : use pm_kind, only: RKC => RK1
604 : #include "pm_arrayFind@routines.inc.F90"
605 1 : end procedure
606 : #endif
607 :
608 : #undef RK_ENABLED
609 :
610 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
611 :
612 : #undef CusCom_ENABLED
613 : #undef DefIns_ENABLED
614 :
615 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
616 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
617 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
618 :
619 : #undef D1_D0_ENABLED
620 :
621 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
622 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
623 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
624 :
625 : #define D1_D1_ENABLED 1
626 :
627 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
628 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
629 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
630 :
631 : #define DefCom_ENABLED 1
632 : #define DefIns_ENABLED 1
633 :
634 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
635 :
636 : #define SK_ENABLED 1
637 :
638 : #if SK5_ENABLED
639 : module procedure getCountLocDefBorDefCom_D1_D1_SK5
640 : use pm_kind, only: SKC => SK5
641 : #include "pm_arrayFind@routines.inc.F90"
642 : end procedure
643 : #endif
644 :
645 : #if SK4_ENABLED
646 : module procedure getCountLocDefBorDefCom_D1_D1_SK4
647 : use pm_kind, only: SKC => SK4
648 : #include "pm_arrayFind@routines.inc.F90"
649 : end procedure
650 : #endif
651 :
652 : #if SK3_ENABLED
653 : module procedure getCountLocDefBorDefCom_D1_D1_SK3
654 : use pm_kind, only: SKC => SK3
655 : #include "pm_arrayFind@routines.inc.F90"
656 : end procedure
657 : #endif
658 :
659 : #if SK2_ENABLED
660 : module procedure getCountLocDefBorDefCom_D1_D1_SK2
661 : use pm_kind, only: SKC => SK2
662 : #include "pm_arrayFind@routines.inc.F90"
663 : end procedure
664 : #endif
665 :
666 : #if SK1_ENABLED
667 1 : module procedure getCountLocDefBorDefCom_D1_D1_SK1
668 : use pm_kind, only: SKC => SK1
669 : #include "pm_arrayFind@routines.inc.F90"
670 : end procedure
671 : #endif
672 :
673 : #undef SK_ENABLED
674 :
675 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
676 :
677 : #define IK_ENABLED 1
678 :
679 : #if IK5_ENABLED
680 0 : module procedure getCountLocDefBorDefCom_D1_D1_IK5
681 : use pm_kind, only: IKC => IK5
682 : #include "pm_arrayFind@routines.inc.F90"
683 : end procedure
684 : #endif
685 :
686 : #if IK4_ENABLED
687 0 : module procedure getCountLocDefBorDefCom_D1_D1_IK4
688 : use pm_kind, only: IKC => IK4
689 : #include "pm_arrayFind@routines.inc.F90"
690 : end procedure
691 : #endif
692 :
693 : #if IK3_ENABLED
694 1 : module procedure getCountLocDefBorDefCom_D1_D1_IK3
695 : use pm_kind, only: IKC => IK3
696 : #include "pm_arrayFind@routines.inc.F90"
697 : end procedure
698 : #endif
699 :
700 : #if IK2_ENABLED
701 0 : module procedure getCountLocDefBorDefCom_D1_D1_IK2
702 : use pm_kind, only: IKC => IK2
703 : #include "pm_arrayFind@routines.inc.F90"
704 : end procedure
705 : #endif
706 :
707 : #if IK1_ENABLED
708 0 : module procedure getCountLocDefBorDefCom_D1_D1_IK1
709 : use pm_kind, only: IKC => IK1
710 : #include "pm_arrayFind@routines.inc.F90"
711 : end procedure
712 : #endif
713 :
714 : #undef IK_ENABLED
715 :
716 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
717 :
718 : #define LK_ENABLED 1
719 :
720 : #if LK5_ENABLED
721 0 : module procedure getCountLocDefBorDefCom_D1_D1_LK5
722 : use pm_kind, only: LKC => LK5
723 : #include "pm_arrayFind@routines.inc.F90"
724 : end procedure
725 : #endif
726 :
727 : #if LK4_ENABLED
728 0 : module procedure getCountLocDefBorDefCom_D1_D1_LK4
729 : use pm_kind, only: LKC => LK4
730 : #include "pm_arrayFind@routines.inc.F90"
731 : end procedure
732 : #endif
733 :
734 : #if LK3_ENABLED
735 1 : module procedure getCountLocDefBorDefCom_D1_D1_LK3
736 : use pm_kind, only: LKC => LK3
737 : #include "pm_arrayFind@routines.inc.F90"
738 : end procedure
739 : #endif
740 :
741 : #if LK2_ENABLED
742 0 : module procedure getCountLocDefBorDefCom_D1_D1_LK2
743 : use pm_kind, only: LKC => LK2
744 : #include "pm_arrayFind@routines.inc.F90"
745 : end procedure
746 : #endif
747 :
748 : #if LK1_ENABLED
749 0 : module procedure getCountLocDefBorDefCom_D1_D1_LK1
750 : use pm_kind, only: LKC => LK1
751 : #include "pm_arrayFind@routines.inc.F90"
752 : end procedure
753 : #endif
754 :
755 : #undef LK_ENABLED
756 :
757 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
758 :
759 : #define CK_ENABLED 1
760 :
761 : #if CK5_ENABLED
762 : module procedure getCountLocDefBorDefCom_D1_D1_CK5
763 : use pm_kind, only: CKC => CK5
764 : #include "pm_arrayFind@routines.inc.F90"
765 : end procedure
766 : #endif
767 :
768 : #if CK4_ENABLED
769 0 : module procedure getCountLocDefBorDefCom_D1_D1_CK4
770 : use pm_kind, only: CKC => CK4
771 : #include "pm_arrayFind@routines.inc.F90"
772 : end procedure
773 : #endif
774 :
775 : #if CK3_ENABLED
776 0 : module procedure getCountLocDefBorDefCom_D1_D1_CK3
777 : use pm_kind, only: CKC => CK3
778 : #include "pm_arrayFind@routines.inc.F90"
779 : end procedure
780 : #endif
781 :
782 : #if CK2_ENABLED
783 0 : module procedure getCountLocDefBorDefCom_D1_D1_CK2
784 : use pm_kind, only: CKC => CK2
785 : #include "pm_arrayFind@routines.inc.F90"
786 : end procedure
787 : #endif
788 :
789 : #if CK1_ENABLED
790 1 : module procedure getCountLocDefBorDefCom_D1_D1_CK1
791 : use pm_kind, only: CKC => CK1
792 : #include "pm_arrayFind@routines.inc.F90"
793 : end procedure
794 : #endif
795 :
796 : #undef CK_ENABLED
797 :
798 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
799 :
800 : #define RK_ENABLED 1
801 :
802 : #if RK5_ENABLED
803 : module procedure getCountLocDefBorDefCom_D1_D1_RK5
804 : use pm_kind, only: RKC => RK5
805 : #include "pm_arrayFind@routines.inc.F90"
806 : end procedure
807 : #endif
808 :
809 : #if RK4_ENABLED
810 0 : module procedure getCountLocDefBorDefCom_D1_D1_RK4
811 : use pm_kind, only: RKC => RK4
812 : #include "pm_arrayFind@routines.inc.F90"
813 : end procedure
814 : #endif
815 :
816 : #if RK3_ENABLED
817 0 : module procedure getCountLocDefBorDefCom_D1_D1_RK3
818 : use pm_kind, only: RKC => RK3
819 : #include "pm_arrayFind@routines.inc.F90"
820 : end procedure
821 : #endif
822 :
823 : #if RK2_ENABLED
824 0 : module procedure getCountLocDefBorDefCom_D1_D1_RK2
825 : use pm_kind, only: RKC => RK2
826 : #include "pm_arrayFind@routines.inc.F90"
827 : end procedure
828 : #endif
829 :
830 : #if RK1_ENABLED
831 1 : module procedure getCountLocDefBorDefCom_D1_D1_RK1
832 : use pm_kind, only: RKC => RK1
833 : #include "pm_arrayFind@routines.inc.F90"
834 : end procedure
835 : #endif
836 :
837 : #undef RK_ENABLED
838 :
839 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
840 :
841 : #undef DefCom_ENABLED
842 : #undef DefIns_ENABLED
843 :
844 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
845 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
846 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
847 :
848 : #define CusCom_ENABLED 1
849 : #define DefIns_ENABLED 1
850 :
851 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
852 :
853 : #define SK_ENABLED 1
854 :
855 : #if SK5_ENABLED
856 : module procedure getCountLocDefBorCusCom_D1_D1_SK5
857 : use pm_kind, only: SKC => SK5
858 : #include "pm_arrayFind@routines.inc.F90"
859 : end procedure
860 : #endif
861 :
862 : #if SK4_ENABLED
863 : module procedure getCountLocDefBorCusCom_D1_D1_SK4
864 : use pm_kind, only: SKC => SK4
865 : #include "pm_arrayFind@routines.inc.F90"
866 : end procedure
867 : #endif
868 :
869 : #if SK3_ENABLED
870 : module procedure getCountLocDefBorCusCom_D1_D1_SK3
871 : use pm_kind, only: SKC => SK3
872 : #include "pm_arrayFind@routines.inc.F90"
873 : end procedure
874 : #endif
875 :
876 : #if SK2_ENABLED
877 : module procedure getCountLocDefBorCusCom_D1_D1_SK2
878 : use pm_kind, only: SKC => SK2
879 : #include "pm_arrayFind@routines.inc.F90"
880 : end procedure
881 : #endif
882 :
883 : #if SK1_ENABLED
884 0 : module procedure getCountLocDefBorCusCom_D1_D1_SK1
885 : use pm_kind, only: SKC => SK1
886 : #include "pm_arrayFind@routines.inc.F90"
887 : end procedure
888 : #endif
889 :
890 : #undef SK_ENABLED
891 :
892 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
893 :
894 : #define IK_ENABLED 1
895 :
896 : #if IK5_ENABLED
897 0 : module procedure getCountLocDefBorCusCom_D1_D1_IK5
898 : use pm_kind, only: IKC => IK5
899 : #include "pm_arrayFind@routines.inc.F90"
900 : end procedure
901 : #endif
902 :
903 : #if IK4_ENABLED
904 0 : module procedure getCountLocDefBorCusCom_D1_D1_IK4
905 : use pm_kind, only: IKC => IK4
906 : #include "pm_arrayFind@routines.inc.F90"
907 : end procedure
908 : #endif
909 :
910 : #if IK3_ENABLED
911 0 : module procedure getCountLocDefBorCusCom_D1_D1_IK3
912 : use pm_kind, only: IKC => IK3
913 : #include "pm_arrayFind@routines.inc.F90"
914 : end procedure
915 : #endif
916 :
917 : #if IK2_ENABLED
918 0 : module procedure getCountLocDefBorCusCom_D1_D1_IK2
919 : use pm_kind, only: IKC => IK2
920 : #include "pm_arrayFind@routines.inc.F90"
921 : end procedure
922 : #endif
923 :
924 : #if IK1_ENABLED
925 0 : module procedure getCountLocDefBorCusCom_D1_D1_IK1
926 : use pm_kind, only: IKC => IK1
927 : #include "pm_arrayFind@routines.inc.F90"
928 : end procedure
929 : #endif
930 :
931 : #undef IK_ENABLED
932 :
933 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
934 :
935 : #define LK_ENABLED 1
936 :
937 : #if LK5_ENABLED
938 0 : module procedure getCountLocDefBorCusCom_D1_D1_LK5
939 : use pm_kind, only: LKC => LK5
940 : #include "pm_arrayFind@routines.inc.F90"
941 : end procedure
942 : #endif
943 :
944 : #if LK4_ENABLED
945 0 : module procedure getCountLocDefBorCusCom_D1_D1_LK4
946 : use pm_kind, only: LKC => LK4
947 : #include "pm_arrayFind@routines.inc.F90"
948 : end procedure
949 : #endif
950 :
951 : #if LK3_ENABLED
952 1 : module procedure getCountLocDefBorCusCom_D1_D1_LK3
953 : use pm_kind, only: LKC => LK3
954 : #include "pm_arrayFind@routines.inc.F90"
955 : end procedure
956 : #endif
957 :
958 : #if LK2_ENABLED
959 0 : module procedure getCountLocDefBorCusCom_D1_D1_LK2
960 : use pm_kind, only: LKC => LK2
961 : #include "pm_arrayFind@routines.inc.F90"
962 : end procedure
963 : #endif
964 :
965 : #if LK1_ENABLED
966 0 : module procedure getCountLocDefBorCusCom_D1_D1_LK1
967 : use pm_kind, only: LKC => LK1
968 : #include "pm_arrayFind@routines.inc.F90"
969 : end procedure
970 : #endif
971 :
972 : #undef LK_ENABLED
973 :
974 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
975 :
976 : #define CK_ENABLED 1
977 :
978 : #if CK5_ENABLED
979 : module procedure getCountLocDefBorCusCom_D1_D1_CK5
980 : use pm_kind, only: CKC => CK5
981 : #include "pm_arrayFind@routines.inc.F90"
982 : end procedure
983 : #endif
984 :
985 : #if CK4_ENABLED
986 0 : module procedure getCountLocDefBorCusCom_D1_D1_CK4
987 : use pm_kind, only: CKC => CK4
988 : #include "pm_arrayFind@routines.inc.F90"
989 : end procedure
990 : #endif
991 :
992 : #if CK3_ENABLED
993 0 : module procedure getCountLocDefBorCusCom_D1_D1_CK3
994 : use pm_kind, only: CKC => CK3
995 : #include "pm_arrayFind@routines.inc.F90"
996 : end procedure
997 : #endif
998 :
999 : #if CK2_ENABLED
1000 0 : module procedure getCountLocDefBorCusCom_D1_D1_CK2
1001 : use pm_kind, only: CKC => CK2
1002 : #include "pm_arrayFind@routines.inc.F90"
1003 : end procedure
1004 : #endif
1005 :
1006 : #if CK1_ENABLED
1007 0 : module procedure getCountLocDefBorCusCom_D1_D1_CK1
1008 : use pm_kind, only: CKC => CK1
1009 : #include "pm_arrayFind@routines.inc.F90"
1010 : end procedure
1011 : #endif
1012 :
1013 : #undef CK_ENABLED
1014 :
1015 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1016 :
1017 : #define RK_ENABLED 1
1018 :
1019 : #if RK5_ENABLED
1020 : module procedure getCountLocDefBorCusCom_D1_D1_RK5
1021 : use pm_kind, only: RKC => RK5
1022 : #include "pm_arrayFind@routines.inc.F90"
1023 : end procedure
1024 : #endif
1025 :
1026 : #if RK4_ENABLED
1027 0 : module procedure getCountLocDefBorCusCom_D1_D1_RK4
1028 : use pm_kind, only: RKC => RK4
1029 : #include "pm_arrayFind@routines.inc.F90"
1030 : end procedure
1031 : #endif
1032 :
1033 : #if RK3_ENABLED
1034 0 : module procedure getCountLocDefBorCusCom_D1_D1_RK3
1035 : use pm_kind, only: RKC => RK3
1036 : #include "pm_arrayFind@routines.inc.F90"
1037 : end procedure
1038 : #endif
1039 :
1040 : #if RK2_ENABLED
1041 0 : module procedure getCountLocDefBorCusCom_D1_D1_RK2
1042 : use pm_kind, only: RKC => RK2
1043 : #include "pm_arrayFind@routines.inc.F90"
1044 : end procedure
1045 : #endif
1046 :
1047 : #if RK1_ENABLED
1048 0 : module procedure getCountLocDefBorCusCom_D1_D1_RK1
1049 : use pm_kind, only: RKC => RK1
1050 : #include "pm_arrayFind@routines.inc.F90"
1051 : end procedure
1052 : #endif
1053 :
1054 : #undef RK_ENABLED
1055 :
1056 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1057 :
1058 : #undef CusCom_ENABLED
1059 : #undef DefIns_ENABLED
1060 :
1061 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1062 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1063 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1064 :
1065 : #undef D1_D1_ENABLED
1066 :
1067 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1068 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1069 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1070 :
1071 : #undef DefBor_ENABLED
1072 :
1073 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1074 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1075 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1076 :
1077 : #undef getCountLoc_ENABLED
1078 :
1079 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1080 :
1081 : #define getCountLoc_ENABLED 1
1082 :
1083 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1084 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1085 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1086 :
1087 : #define DisBor_ENABLED 1
1088 :
1089 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1090 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1091 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1092 :
1093 : #define D0_D0_ENABLED 1
1094 :
1095 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1096 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1097 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1098 :
1099 : #define DefCom_ENABLED 1
1100 : #define DefIns_ENABLED 1
1101 :
1102 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1103 :
1104 : #define SK_ENABLED 1
1105 :
1106 : #if SK5_ENABLED
1107 : module procedure getCountLocDisBorDefCom_D0_D0_SK5
1108 : use pm_kind, only: SKC => SK5
1109 : #include "pm_arrayFind@routines.inc.F90"
1110 : end procedure
1111 : #endif
1112 :
1113 : #if SK4_ENABLED
1114 : module procedure getCountLocDisBorDefCom_D0_D0_SK4
1115 : use pm_kind, only: SKC => SK4
1116 : #include "pm_arrayFind@routines.inc.F90"
1117 : end procedure
1118 : #endif
1119 :
1120 : #if SK3_ENABLED
1121 : module procedure getCountLocDisBorDefCom_D0_D0_SK3
1122 : use pm_kind, only: SKC => SK3
1123 : #include "pm_arrayFind@routines.inc.F90"
1124 : end procedure
1125 : #endif
1126 :
1127 : #if SK2_ENABLED
1128 : module procedure getCountLocDisBorDefCom_D0_D0_SK2
1129 : use pm_kind, only: SKC => SK2
1130 : #include "pm_arrayFind@routines.inc.F90"
1131 : end procedure
1132 : #endif
1133 :
1134 : #if SK1_ENABLED
1135 2 : module procedure getCountLocDisBorDefCom_D0_D0_SK1
1136 : use pm_kind, only: SKC => SK1
1137 : #include "pm_arrayFind@routines.inc.F90"
1138 : end procedure
1139 : #endif
1140 :
1141 : #undef SK_ENABLED
1142 :
1143 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1144 :
1145 : #undef DefCom_ENABLED
1146 : #undef DefIns_ENABLED
1147 :
1148 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1149 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1150 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1151 :
1152 : #define CusCom_ENABLED 1
1153 : #define DefIns_ENABLED 1
1154 :
1155 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1156 :
1157 : #define SK_ENABLED 1
1158 :
1159 : #if SK5_ENABLED
1160 : module procedure getCountLocDisBorCusCom_D0_D0_SK5
1161 : use pm_kind, only: SKC => SK5
1162 : #include "pm_arrayFind@routines.inc.F90"
1163 : end procedure
1164 : #endif
1165 :
1166 : #if SK4_ENABLED
1167 : module procedure getCountLocDisBorCusCom_D0_D0_SK4
1168 : use pm_kind, only: SKC => SK4
1169 : #include "pm_arrayFind@routines.inc.F90"
1170 : end procedure
1171 : #endif
1172 :
1173 : #if SK3_ENABLED
1174 : module procedure getCountLocDisBorCusCom_D0_D0_SK3
1175 : use pm_kind, only: SKC => SK3
1176 : #include "pm_arrayFind@routines.inc.F90"
1177 : end procedure
1178 : #endif
1179 :
1180 : #if SK2_ENABLED
1181 : module procedure getCountLocDisBorCusCom_D0_D0_SK2
1182 : use pm_kind, only: SKC => SK2
1183 : #include "pm_arrayFind@routines.inc.F90"
1184 : end procedure
1185 : #endif
1186 :
1187 : #if SK1_ENABLED
1188 0 : module procedure getCountLocDisBorCusCom_D0_D0_SK1
1189 : use pm_kind, only: SKC => SK1
1190 : #include "pm_arrayFind@routines.inc.F90"
1191 : end procedure
1192 : #endif
1193 :
1194 : #undef SK_ENABLED
1195 :
1196 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1197 :
1198 : #undef CusCom_ENABLED
1199 : #undef DefIns_ENABLED
1200 :
1201 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1203 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1204 :
1205 : #undef D0_D0_ENABLED
1206 :
1207 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1208 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1209 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1210 :
1211 : #define D1_D0_ENABLED 1
1212 :
1213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1214 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1215 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1216 :
1217 : #define DefCom_ENABLED 1
1218 : #define DefIns_ENABLED 1
1219 :
1220 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1221 :
1222 : #define SK_ENABLED 1
1223 :
1224 : #if SK5_ENABLED
1225 : module procedure getCountLocDisBorDefCom_D1_D0_SK5
1226 : use pm_kind, only: SKC => SK5
1227 : #include "pm_arrayFind@routines.inc.F90"
1228 : end procedure
1229 : #endif
1230 :
1231 : #if SK4_ENABLED
1232 : module procedure getCountLocDisBorDefCom_D1_D0_SK4
1233 : use pm_kind, only: SKC => SK4
1234 : #include "pm_arrayFind@routines.inc.F90"
1235 : end procedure
1236 : #endif
1237 :
1238 : #if SK3_ENABLED
1239 : module procedure getCountLocDisBorDefCom_D1_D0_SK3
1240 : use pm_kind, only: SKC => SK3
1241 : #include "pm_arrayFind@routines.inc.F90"
1242 : end procedure
1243 : #endif
1244 :
1245 : #if SK2_ENABLED
1246 : module procedure getCountLocDisBorDefCom_D1_D0_SK2
1247 : use pm_kind, only: SKC => SK2
1248 : #include "pm_arrayFind@routines.inc.F90"
1249 : end procedure
1250 : #endif
1251 :
1252 : #if SK1_ENABLED
1253 2 : module procedure getCountLocDisBorDefCom_D1_D0_SK1
1254 : use pm_kind, only: SKC => SK1
1255 : #include "pm_arrayFind@routines.inc.F90"
1256 2 : end procedure
1257 : #endif
1258 :
1259 : #undef SK_ENABLED
1260 :
1261 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1262 :
1263 : #define IK_ENABLED 1
1264 :
1265 : #if IK5_ENABLED
1266 0 : module procedure getCountLocDisBorDefCom_D1_D0_IK5
1267 : use pm_kind, only: IKC => IK5
1268 : #include "pm_arrayFind@routines.inc.F90"
1269 0 : end procedure
1270 : #endif
1271 :
1272 : #if IK4_ENABLED
1273 0 : module procedure getCountLocDisBorDefCom_D1_D0_IK4
1274 : use pm_kind, only: IKC => IK4
1275 : #include "pm_arrayFind@routines.inc.F90"
1276 0 : end procedure
1277 : #endif
1278 :
1279 : #if IK3_ENABLED
1280 2 : module procedure getCountLocDisBorDefCom_D1_D0_IK3
1281 : use pm_kind, only: IKC => IK3
1282 : #include "pm_arrayFind@routines.inc.F90"
1283 2 : end procedure
1284 : #endif
1285 :
1286 : #if IK2_ENABLED
1287 0 : module procedure getCountLocDisBorDefCom_D1_D0_IK2
1288 : use pm_kind, only: IKC => IK2
1289 : #include "pm_arrayFind@routines.inc.F90"
1290 0 : end procedure
1291 : #endif
1292 :
1293 : #if IK1_ENABLED
1294 0 : module procedure getCountLocDisBorDefCom_D1_D0_IK1
1295 : use pm_kind, only: IKC => IK1
1296 : #include "pm_arrayFind@routines.inc.F90"
1297 0 : end procedure
1298 : #endif
1299 :
1300 : #undef IK_ENABLED
1301 :
1302 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1303 :
1304 : #define LK_ENABLED 1
1305 :
1306 : #if LK5_ENABLED
1307 0 : module procedure getCountLocDisBorDefCom_D1_D0_LK5
1308 : use pm_kind, only: LKC => LK5
1309 : #include "pm_arrayFind@routines.inc.F90"
1310 0 : end procedure
1311 : #endif
1312 :
1313 : #if LK4_ENABLED
1314 0 : module procedure getCountLocDisBorDefCom_D1_D0_LK4
1315 : use pm_kind, only: LKC => LK4
1316 : #include "pm_arrayFind@routines.inc.F90"
1317 0 : end procedure
1318 : #endif
1319 :
1320 : #if LK3_ENABLED
1321 2 : module procedure getCountLocDisBorDefCom_D1_D0_LK3
1322 : use pm_kind, only: LKC => LK3
1323 : #include "pm_arrayFind@routines.inc.F90"
1324 2 : end procedure
1325 : #endif
1326 :
1327 : #if LK2_ENABLED
1328 0 : module procedure getCountLocDisBorDefCom_D1_D0_LK2
1329 : use pm_kind, only: LKC => LK2
1330 : #include "pm_arrayFind@routines.inc.F90"
1331 0 : end procedure
1332 : #endif
1333 :
1334 : #if LK1_ENABLED
1335 0 : module procedure getCountLocDisBorDefCom_D1_D0_LK1
1336 : use pm_kind, only: LKC => LK1
1337 : #include "pm_arrayFind@routines.inc.F90"
1338 0 : end procedure
1339 : #endif
1340 :
1341 : #undef LK_ENABLED
1342 :
1343 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1344 :
1345 : #define CK_ENABLED 1
1346 :
1347 : #if CK5_ENABLED
1348 : module procedure getCountLocDisBorDefCom_D1_D0_CK5
1349 : use pm_kind, only: CKC => CK5
1350 : #include "pm_arrayFind@routines.inc.F90"
1351 : end procedure
1352 : #endif
1353 :
1354 : #if CK4_ENABLED
1355 0 : module procedure getCountLocDisBorDefCom_D1_D0_CK4
1356 : use pm_kind, only: CKC => CK4
1357 : #include "pm_arrayFind@routines.inc.F90"
1358 0 : end procedure
1359 : #endif
1360 :
1361 : #if CK3_ENABLED
1362 0 : module procedure getCountLocDisBorDefCom_D1_D0_CK3
1363 : use pm_kind, only: CKC => CK3
1364 : #include "pm_arrayFind@routines.inc.F90"
1365 0 : end procedure
1366 : #endif
1367 :
1368 : #if CK2_ENABLED
1369 0 : module procedure getCountLocDisBorDefCom_D1_D0_CK2
1370 : use pm_kind, only: CKC => CK2
1371 : #include "pm_arrayFind@routines.inc.F90"
1372 0 : end procedure
1373 : #endif
1374 :
1375 : #if CK1_ENABLED
1376 2 : module procedure getCountLocDisBorDefCom_D1_D0_CK1
1377 : use pm_kind, only: CKC => CK1
1378 : #include "pm_arrayFind@routines.inc.F90"
1379 2 : end procedure
1380 : #endif
1381 :
1382 : #undef CK_ENABLED
1383 :
1384 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1385 :
1386 : #define RK_ENABLED 1
1387 :
1388 : #if RK5_ENABLED
1389 : module procedure getCountLocDisBorDefCom_D1_D0_RK5
1390 : use pm_kind, only: RKC => RK5
1391 : #include "pm_arrayFind@routines.inc.F90"
1392 : end procedure
1393 : #endif
1394 :
1395 : #if RK4_ENABLED
1396 0 : module procedure getCountLocDisBorDefCom_D1_D0_RK4
1397 : use pm_kind, only: RKC => RK4
1398 : #include "pm_arrayFind@routines.inc.F90"
1399 0 : end procedure
1400 : #endif
1401 :
1402 : #if RK3_ENABLED
1403 0 : module procedure getCountLocDisBorDefCom_D1_D0_RK3
1404 : use pm_kind, only: RKC => RK3
1405 : #include "pm_arrayFind@routines.inc.F90"
1406 0 : end procedure
1407 : #endif
1408 :
1409 : #if RK2_ENABLED
1410 0 : module procedure getCountLocDisBorDefCom_D1_D0_RK2
1411 : use pm_kind, only: RKC => RK2
1412 : #include "pm_arrayFind@routines.inc.F90"
1413 0 : end procedure
1414 : #endif
1415 :
1416 : #if RK1_ENABLED
1417 2 : module procedure getCountLocDisBorDefCom_D1_D0_RK1
1418 : use pm_kind, only: RKC => RK1
1419 : #include "pm_arrayFind@routines.inc.F90"
1420 2 : end procedure
1421 : #endif
1422 :
1423 : #undef RK_ENABLED
1424 :
1425 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1426 :
1427 : #undef DefCom_ENABLED
1428 : #undef DefIns_ENABLED
1429 :
1430 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1431 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1432 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1433 :
1434 : #define CusCom_ENABLED 1
1435 : #define DefIns_ENABLED 1
1436 :
1437 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1438 :
1439 : #define SK_ENABLED 1
1440 :
1441 : #if SK5_ENABLED
1442 : module procedure getCountLocDisBorCusCom_D1_D0_SK5
1443 : use pm_kind, only: SKC => SK5
1444 : #include "pm_arrayFind@routines.inc.F90"
1445 : end procedure
1446 : #endif
1447 :
1448 : #if SK4_ENABLED
1449 : module procedure getCountLocDisBorCusCom_D1_D0_SK4
1450 : use pm_kind, only: SKC => SK4
1451 : #include "pm_arrayFind@routines.inc.F90"
1452 : end procedure
1453 : #endif
1454 :
1455 : #if SK3_ENABLED
1456 : module procedure getCountLocDisBorCusCom_D1_D0_SK3
1457 : use pm_kind, only: SKC => SK3
1458 : #include "pm_arrayFind@routines.inc.F90"
1459 : end procedure
1460 : #endif
1461 :
1462 : #if SK2_ENABLED
1463 : module procedure getCountLocDisBorCusCom_D1_D0_SK2
1464 : use pm_kind, only: SKC => SK2
1465 : #include "pm_arrayFind@routines.inc.F90"
1466 : end procedure
1467 : #endif
1468 :
1469 : #if SK1_ENABLED
1470 0 : module procedure getCountLocDisBorCusCom_D1_D0_SK1
1471 : use pm_kind, only: SKC => SK1
1472 : #include "pm_arrayFind@routines.inc.F90"
1473 0 : end procedure
1474 : #endif
1475 :
1476 : #undef SK_ENABLED
1477 :
1478 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1479 :
1480 : #define IK_ENABLED 1
1481 :
1482 : #if IK5_ENABLED
1483 0 : module procedure getCountLocDisBorCusCom_D1_D0_IK5
1484 : use pm_kind, only: IKC => IK5
1485 : #include "pm_arrayFind@routines.inc.F90"
1486 0 : end procedure
1487 : #endif
1488 :
1489 : #if IK4_ENABLED
1490 0 : module procedure getCountLocDisBorCusCom_D1_D0_IK4
1491 : use pm_kind, only: IKC => IK4
1492 : #include "pm_arrayFind@routines.inc.F90"
1493 0 : end procedure
1494 : #endif
1495 :
1496 : #if IK3_ENABLED
1497 0 : module procedure getCountLocDisBorCusCom_D1_D0_IK3
1498 : use pm_kind, only: IKC => IK3
1499 : #include "pm_arrayFind@routines.inc.F90"
1500 0 : end procedure
1501 : #endif
1502 :
1503 : #if IK2_ENABLED
1504 0 : module procedure getCountLocDisBorCusCom_D1_D0_IK2
1505 : use pm_kind, only: IKC => IK2
1506 : #include "pm_arrayFind@routines.inc.F90"
1507 0 : end procedure
1508 : #endif
1509 :
1510 : #if IK1_ENABLED
1511 0 : module procedure getCountLocDisBorCusCom_D1_D0_IK1
1512 : use pm_kind, only: IKC => IK1
1513 : #include "pm_arrayFind@routines.inc.F90"
1514 0 : end procedure
1515 : #endif
1516 :
1517 : #undef IK_ENABLED
1518 :
1519 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1520 :
1521 : #define LK_ENABLED 1
1522 :
1523 : #if LK5_ENABLED
1524 0 : module procedure getCountLocDisBorCusCom_D1_D0_LK5
1525 : use pm_kind, only: LKC => LK5
1526 : #include "pm_arrayFind@routines.inc.F90"
1527 0 : end procedure
1528 : #endif
1529 :
1530 : #if LK4_ENABLED
1531 0 : module procedure getCountLocDisBorCusCom_D1_D0_LK4
1532 : use pm_kind, only: LKC => LK4
1533 : #include "pm_arrayFind@routines.inc.F90"
1534 0 : end procedure
1535 : #endif
1536 :
1537 : #if LK3_ENABLED
1538 0 : module procedure getCountLocDisBorCusCom_D1_D0_LK3
1539 : use pm_kind, only: LKC => LK3
1540 : #include "pm_arrayFind@routines.inc.F90"
1541 0 : end procedure
1542 : #endif
1543 :
1544 : #if LK2_ENABLED
1545 0 : module procedure getCountLocDisBorCusCom_D1_D0_LK2
1546 : use pm_kind, only: LKC => LK2
1547 : #include "pm_arrayFind@routines.inc.F90"
1548 0 : end procedure
1549 : #endif
1550 :
1551 : #if LK1_ENABLED
1552 0 : module procedure getCountLocDisBorCusCom_D1_D0_LK1
1553 : use pm_kind, only: LKC => LK1
1554 : #include "pm_arrayFind@routines.inc.F90"
1555 0 : end procedure
1556 : #endif
1557 :
1558 : #undef LK_ENABLED
1559 :
1560 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1561 :
1562 : #define CK_ENABLED 1
1563 :
1564 : #if CK5_ENABLED
1565 : module procedure getCountLocDisBorCusCom_D1_D0_CK5
1566 : use pm_kind, only: CKC => CK5
1567 : #include "pm_arrayFind@routines.inc.F90"
1568 : end procedure
1569 : #endif
1570 :
1571 : #if CK4_ENABLED
1572 0 : module procedure getCountLocDisBorCusCom_D1_D0_CK4
1573 : use pm_kind, only: CKC => CK4
1574 : #include "pm_arrayFind@routines.inc.F90"
1575 0 : end procedure
1576 : #endif
1577 :
1578 : #if CK3_ENABLED
1579 0 : module procedure getCountLocDisBorCusCom_D1_D0_CK3
1580 : use pm_kind, only: CKC => CK3
1581 : #include "pm_arrayFind@routines.inc.F90"
1582 0 : end procedure
1583 : #endif
1584 :
1585 : #if CK2_ENABLED
1586 0 : module procedure getCountLocDisBorCusCom_D1_D0_CK2
1587 : use pm_kind, only: CKC => CK2
1588 : #include "pm_arrayFind@routines.inc.F90"
1589 0 : end procedure
1590 : #endif
1591 :
1592 : #if CK1_ENABLED
1593 0 : module procedure getCountLocDisBorCusCom_D1_D0_CK1
1594 : use pm_kind, only: CKC => CK1
1595 : #include "pm_arrayFind@routines.inc.F90"
1596 0 : end procedure
1597 : #endif
1598 :
1599 : #undef CK_ENABLED
1600 :
1601 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1602 :
1603 : #define RK_ENABLED 1
1604 :
1605 : #if RK5_ENABLED
1606 : module procedure getCountLocDisBorCusCom_D1_D0_RK5
1607 : use pm_kind, only: RKC => RK5
1608 : #include "pm_arrayFind@routines.inc.F90"
1609 : end procedure
1610 : #endif
1611 :
1612 : #if RK4_ENABLED
1613 0 : module procedure getCountLocDisBorCusCom_D1_D0_RK4
1614 : use pm_kind, only: RKC => RK4
1615 : #include "pm_arrayFind@routines.inc.F90"
1616 0 : end procedure
1617 : #endif
1618 :
1619 : #if RK3_ENABLED
1620 0 : module procedure getCountLocDisBorCusCom_D1_D0_RK3
1621 : use pm_kind, only: RKC => RK3
1622 : #include "pm_arrayFind@routines.inc.F90"
1623 0 : end procedure
1624 : #endif
1625 :
1626 : #if RK2_ENABLED
1627 0 : module procedure getCountLocDisBorCusCom_D1_D0_RK2
1628 : use pm_kind, only: RKC => RK2
1629 : #include "pm_arrayFind@routines.inc.F90"
1630 0 : end procedure
1631 : #endif
1632 :
1633 : #if RK1_ENABLED
1634 0 : module procedure getCountLocDisBorCusCom_D1_D0_RK1
1635 : use pm_kind, only: RKC => RK1
1636 : #include "pm_arrayFind@routines.inc.F90"
1637 0 : end procedure
1638 : #endif
1639 :
1640 : #undef RK_ENABLED
1641 :
1642 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1643 :
1644 : #undef CusCom_ENABLED
1645 : #undef DefIns_ENABLED
1646 :
1647 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1648 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1649 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1650 :
1651 : #undef D1_D0_ENABLED
1652 :
1653 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1654 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1655 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1656 :
1657 : #define D1_D1_ENABLED 1
1658 :
1659 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1660 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1661 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1662 :
1663 : #define DefCom_ENABLED 1
1664 : #define DefIns_ENABLED 1
1665 :
1666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1667 :
1668 : #define SK_ENABLED 1
1669 :
1670 : #if SK5_ENABLED
1671 : module procedure getCountLocDisBorDefCom_D1_D1_SK5
1672 : use pm_kind, only: SKC => SK5
1673 : #include "pm_arrayFind@routines.inc.F90"
1674 : end procedure
1675 : #endif
1676 :
1677 : #if SK4_ENABLED
1678 : module procedure getCountLocDisBorDefCom_D1_D1_SK4
1679 : use pm_kind, only: SKC => SK4
1680 : #include "pm_arrayFind@routines.inc.F90"
1681 : end procedure
1682 : #endif
1683 :
1684 : #if SK3_ENABLED
1685 : module procedure getCountLocDisBorDefCom_D1_D1_SK3
1686 : use pm_kind, only: SKC => SK3
1687 : #include "pm_arrayFind@routines.inc.F90"
1688 : end procedure
1689 : #endif
1690 :
1691 : #if SK2_ENABLED
1692 : module procedure getCountLocDisBorDefCom_D1_D1_SK2
1693 : use pm_kind, only: SKC => SK2
1694 : #include "pm_arrayFind@routines.inc.F90"
1695 : end procedure
1696 : #endif
1697 :
1698 : #if SK1_ENABLED
1699 0 : module procedure getCountLocDisBorDefCom_D1_D1_SK1
1700 : use pm_kind, only: SKC => SK1
1701 : #include "pm_arrayFind@routines.inc.F90"
1702 : end procedure
1703 : #endif
1704 :
1705 : #undef SK_ENABLED
1706 :
1707 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1708 :
1709 : #define IK_ENABLED 1
1710 :
1711 : #if IK5_ENABLED
1712 0 : module procedure getCountLocDisBorDefCom_D1_D1_IK5
1713 : use pm_kind, only: IKC => IK5
1714 : #include "pm_arrayFind@routines.inc.F90"
1715 : end procedure
1716 : #endif
1717 :
1718 : #if IK4_ENABLED
1719 0 : module procedure getCountLocDisBorDefCom_D1_D1_IK4
1720 : use pm_kind, only: IKC => IK4
1721 : #include "pm_arrayFind@routines.inc.F90"
1722 : end procedure
1723 : #endif
1724 :
1725 : #if IK3_ENABLED
1726 0 : module procedure getCountLocDisBorDefCom_D1_D1_IK3
1727 : use pm_kind, only: IKC => IK3
1728 : #include "pm_arrayFind@routines.inc.F90"
1729 : end procedure
1730 : #endif
1731 :
1732 : #if IK2_ENABLED
1733 0 : module procedure getCountLocDisBorDefCom_D1_D1_IK2
1734 : use pm_kind, only: IKC => IK2
1735 : #include "pm_arrayFind@routines.inc.F90"
1736 : end procedure
1737 : #endif
1738 :
1739 : #if IK1_ENABLED
1740 0 : module procedure getCountLocDisBorDefCom_D1_D1_IK1
1741 : use pm_kind, only: IKC => IK1
1742 : #include "pm_arrayFind@routines.inc.F90"
1743 : end procedure
1744 : #endif
1745 :
1746 : #undef IK_ENABLED
1747 :
1748 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1749 :
1750 : #define LK_ENABLED 1
1751 :
1752 : #if LK5_ENABLED
1753 0 : module procedure getCountLocDisBorDefCom_D1_D1_LK5
1754 : use pm_kind, only: LKC => LK5
1755 : #include "pm_arrayFind@routines.inc.F90"
1756 : end procedure
1757 : #endif
1758 :
1759 : #if LK4_ENABLED
1760 0 : module procedure getCountLocDisBorDefCom_D1_D1_LK4
1761 : use pm_kind, only: LKC => LK4
1762 : #include "pm_arrayFind@routines.inc.F90"
1763 : end procedure
1764 : #endif
1765 :
1766 : #if LK3_ENABLED
1767 0 : module procedure getCountLocDisBorDefCom_D1_D1_LK3
1768 : use pm_kind, only: LKC => LK3
1769 : #include "pm_arrayFind@routines.inc.F90"
1770 : end procedure
1771 : #endif
1772 :
1773 : #if LK2_ENABLED
1774 0 : module procedure getCountLocDisBorDefCom_D1_D1_LK2
1775 : use pm_kind, only: LKC => LK2
1776 : #include "pm_arrayFind@routines.inc.F90"
1777 : end procedure
1778 : #endif
1779 :
1780 : #if LK1_ENABLED
1781 0 : module procedure getCountLocDisBorDefCom_D1_D1_LK1
1782 : use pm_kind, only: LKC => LK1
1783 : #include "pm_arrayFind@routines.inc.F90"
1784 : end procedure
1785 : #endif
1786 :
1787 : #undef LK_ENABLED
1788 :
1789 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1790 :
1791 : #define CK_ENABLED 1
1792 :
1793 : #if CK5_ENABLED
1794 : module procedure getCountLocDisBorDefCom_D1_D1_CK5
1795 : use pm_kind, only: CKC => CK5
1796 : #include "pm_arrayFind@routines.inc.F90"
1797 : end procedure
1798 : #endif
1799 :
1800 : #if CK4_ENABLED
1801 0 : module procedure getCountLocDisBorDefCom_D1_D1_CK4
1802 : use pm_kind, only: CKC => CK4
1803 : #include "pm_arrayFind@routines.inc.F90"
1804 : end procedure
1805 : #endif
1806 :
1807 : #if CK3_ENABLED
1808 0 : module procedure getCountLocDisBorDefCom_D1_D1_CK3
1809 : use pm_kind, only: CKC => CK3
1810 : #include "pm_arrayFind@routines.inc.F90"
1811 : end procedure
1812 : #endif
1813 :
1814 : #if CK2_ENABLED
1815 0 : module procedure getCountLocDisBorDefCom_D1_D1_CK2
1816 : use pm_kind, only: CKC => CK2
1817 : #include "pm_arrayFind@routines.inc.F90"
1818 : end procedure
1819 : #endif
1820 :
1821 : #if CK1_ENABLED
1822 0 : module procedure getCountLocDisBorDefCom_D1_D1_CK1
1823 : use pm_kind, only: CKC => CK1
1824 : #include "pm_arrayFind@routines.inc.F90"
1825 : end procedure
1826 : #endif
1827 :
1828 : #undef CK_ENABLED
1829 :
1830 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1831 :
1832 : #define RK_ENABLED 1
1833 :
1834 : #if RK5_ENABLED
1835 : module procedure getCountLocDisBorDefCom_D1_D1_RK5
1836 : use pm_kind, only: RKC => RK5
1837 : #include "pm_arrayFind@routines.inc.F90"
1838 : end procedure
1839 : #endif
1840 :
1841 : #if RK4_ENABLED
1842 0 : module procedure getCountLocDisBorDefCom_D1_D1_RK4
1843 : use pm_kind, only: RKC => RK4
1844 : #include "pm_arrayFind@routines.inc.F90"
1845 : end procedure
1846 : #endif
1847 :
1848 : #if RK3_ENABLED
1849 0 : module procedure getCountLocDisBorDefCom_D1_D1_RK3
1850 : use pm_kind, only: RKC => RK3
1851 : #include "pm_arrayFind@routines.inc.F90"
1852 : end procedure
1853 : #endif
1854 :
1855 : #if RK2_ENABLED
1856 0 : module procedure getCountLocDisBorDefCom_D1_D1_RK2
1857 : use pm_kind, only: RKC => RK2
1858 : #include "pm_arrayFind@routines.inc.F90"
1859 : end procedure
1860 : #endif
1861 :
1862 : #if RK1_ENABLED
1863 0 : module procedure getCountLocDisBorDefCom_D1_D1_RK1
1864 : use pm_kind, only: RKC => RK1
1865 : #include "pm_arrayFind@routines.inc.F90"
1866 : end procedure
1867 : #endif
1868 :
1869 : #undef RK_ENABLED
1870 :
1871 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1872 :
1873 : #undef DefCom_ENABLED
1874 : #undef DefIns_ENABLED
1875 :
1876 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1877 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1878 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1879 :
1880 : #define CusCom_ENABLED 1
1881 : #define DefIns_ENABLED 1
1882 :
1883 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1884 :
1885 : #define SK_ENABLED 1
1886 :
1887 : #if SK5_ENABLED
1888 : module procedure getCountLocDisBorCusCom_D1_D1_SK5
1889 : use pm_kind, only: SKC => SK5
1890 : #include "pm_arrayFind@routines.inc.F90"
1891 : end procedure
1892 : #endif
1893 :
1894 : #if SK4_ENABLED
1895 : module procedure getCountLocDisBorCusCom_D1_D1_SK4
1896 : use pm_kind, only: SKC => SK4
1897 : #include "pm_arrayFind@routines.inc.F90"
1898 : end procedure
1899 : #endif
1900 :
1901 : #if SK3_ENABLED
1902 : module procedure getCountLocDisBorCusCom_D1_D1_SK3
1903 : use pm_kind, only: SKC => SK3
1904 : #include "pm_arrayFind@routines.inc.F90"
1905 : end procedure
1906 : #endif
1907 :
1908 : #if SK2_ENABLED
1909 : module procedure getCountLocDisBorCusCom_D1_D1_SK2
1910 : use pm_kind, only: SKC => SK2
1911 : #include "pm_arrayFind@routines.inc.F90"
1912 : end procedure
1913 : #endif
1914 :
1915 : #if SK1_ENABLED
1916 0 : module procedure getCountLocDisBorCusCom_D1_D1_SK1
1917 : use pm_kind, only: SKC => SK1
1918 : #include "pm_arrayFind@routines.inc.F90"
1919 : end procedure
1920 : #endif
1921 :
1922 : #undef SK_ENABLED
1923 :
1924 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1925 :
1926 : #define IK_ENABLED 1
1927 :
1928 : #if IK5_ENABLED
1929 0 : module procedure getCountLocDisBorCusCom_D1_D1_IK5
1930 : use pm_kind, only: IKC => IK5
1931 : #include "pm_arrayFind@routines.inc.F90"
1932 : end procedure
1933 : #endif
1934 :
1935 : #if IK4_ENABLED
1936 0 : module procedure getCountLocDisBorCusCom_D1_D1_IK4
1937 : use pm_kind, only: IKC => IK4
1938 : #include "pm_arrayFind@routines.inc.F90"
1939 : end procedure
1940 : #endif
1941 :
1942 : #if IK3_ENABLED
1943 0 : module procedure getCountLocDisBorCusCom_D1_D1_IK3
1944 : use pm_kind, only: IKC => IK3
1945 : #include "pm_arrayFind@routines.inc.F90"
1946 : end procedure
1947 : #endif
1948 :
1949 : #if IK2_ENABLED
1950 0 : module procedure getCountLocDisBorCusCom_D1_D1_IK2
1951 : use pm_kind, only: IKC => IK2
1952 : #include "pm_arrayFind@routines.inc.F90"
1953 : end procedure
1954 : #endif
1955 :
1956 : #if IK1_ENABLED
1957 0 : module procedure getCountLocDisBorCusCom_D1_D1_IK1
1958 : use pm_kind, only: IKC => IK1
1959 : #include "pm_arrayFind@routines.inc.F90"
1960 : end procedure
1961 : #endif
1962 :
1963 : #undef IK_ENABLED
1964 :
1965 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1966 :
1967 : #define LK_ENABLED 1
1968 :
1969 : #if LK5_ENABLED
1970 0 : module procedure getCountLocDisBorCusCom_D1_D1_LK5
1971 : use pm_kind, only: LKC => LK5
1972 : #include "pm_arrayFind@routines.inc.F90"
1973 : end procedure
1974 : #endif
1975 :
1976 : #if LK4_ENABLED
1977 0 : module procedure getCountLocDisBorCusCom_D1_D1_LK4
1978 : use pm_kind, only: LKC => LK4
1979 : #include "pm_arrayFind@routines.inc.F90"
1980 : end procedure
1981 : #endif
1982 :
1983 : #if LK3_ENABLED
1984 0 : module procedure getCountLocDisBorCusCom_D1_D1_LK3
1985 : use pm_kind, only: LKC => LK3
1986 : #include "pm_arrayFind@routines.inc.F90"
1987 : end procedure
1988 : #endif
1989 :
1990 : #if LK2_ENABLED
1991 0 : module procedure getCountLocDisBorCusCom_D1_D1_LK2
1992 : use pm_kind, only: LKC => LK2
1993 : #include "pm_arrayFind@routines.inc.F90"
1994 : end procedure
1995 : #endif
1996 :
1997 : #if LK1_ENABLED
1998 0 : module procedure getCountLocDisBorCusCom_D1_D1_LK1
1999 : use pm_kind, only: LKC => LK1
2000 : #include "pm_arrayFind@routines.inc.F90"
2001 : end procedure
2002 : #endif
2003 :
2004 : #undef LK_ENABLED
2005 :
2006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2007 :
2008 : #define CK_ENABLED 1
2009 :
2010 : #if CK5_ENABLED
2011 : module procedure getCountLocDisBorCusCom_D1_D1_CK5
2012 : use pm_kind, only: CKC => CK5
2013 : #include "pm_arrayFind@routines.inc.F90"
2014 : end procedure
2015 : #endif
2016 :
2017 : #if CK4_ENABLED
2018 0 : module procedure getCountLocDisBorCusCom_D1_D1_CK4
2019 : use pm_kind, only: CKC => CK4
2020 : #include "pm_arrayFind@routines.inc.F90"
2021 : end procedure
2022 : #endif
2023 :
2024 : #if CK3_ENABLED
2025 0 : module procedure getCountLocDisBorCusCom_D1_D1_CK3
2026 : use pm_kind, only: CKC => CK3
2027 : #include "pm_arrayFind@routines.inc.F90"
2028 : end procedure
2029 : #endif
2030 :
2031 : #if CK2_ENABLED
2032 0 : module procedure getCountLocDisBorCusCom_D1_D1_CK2
2033 : use pm_kind, only: CKC => CK2
2034 : #include "pm_arrayFind@routines.inc.F90"
2035 : end procedure
2036 : #endif
2037 :
2038 : #if CK1_ENABLED
2039 0 : module procedure getCountLocDisBorCusCom_D1_D1_CK1
2040 : use pm_kind, only: CKC => CK1
2041 : #include "pm_arrayFind@routines.inc.F90"
2042 : end procedure
2043 : #endif
2044 :
2045 : #undef CK_ENABLED
2046 :
2047 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2048 :
2049 : #define RK_ENABLED 1
2050 :
2051 : #if RK5_ENABLED
2052 : module procedure getCountLocDisBorCusCom_D1_D1_RK5
2053 : use pm_kind, only: RKC => RK5
2054 : #include "pm_arrayFind@routines.inc.F90"
2055 : end procedure
2056 : #endif
2057 :
2058 : #if RK4_ENABLED
2059 0 : module procedure getCountLocDisBorCusCom_D1_D1_RK4
2060 : use pm_kind, only: RKC => RK4
2061 : #include "pm_arrayFind@routines.inc.F90"
2062 : end procedure
2063 : #endif
2064 :
2065 : #if RK3_ENABLED
2066 0 : module procedure getCountLocDisBorCusCom_D1_D1_RK3
2067 : use pm_kind, only: RKC => RK3
2068 : #include "pm_arrayFind@routines.inc.F90"
2069 : end procedure
2070 : #endif
2071 :
2072 : #if RK2_ENABLED
2073 0 : module procedure getCountLocDisBorCusCom_D1_D1_RK2
2074 : use pm_kind, only: RKC => RK2
2075 : #include "pm_arrayFind@routines.inc.F90"
2076 : end procedure
2077 : #endif
2078 :
2079 : #if RK1_ENABLED
2080 0 : module procedure getCountLocDisBorCusCom_D1_D1_RK1
2081 : use pm_kind, only: RKC => RK1
2082 : #include "pm_arrayFind@routines.inc.F90"
2083 : end procedure
2084 : #endif
2085 :
2086 : #undef RK_ENABLED
2087 :
2088 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2089 :
2090 : #undef CusCom_ENABLED
2091 : #undef DefIns_ENABLED
2092 :
2093 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2094 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2095 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2096 :
2097 : #undef D1_D1_ENABLED
2098 :
2099 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2102 :
2103 : #undef DisBor_ENABLED
2104 :
2105 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2106 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2107 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2108 :
2109 : #undef getCountLoc_ENABLED
2110 :
2111 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2112 :
2113 : #define getLoc_ENABLED 1
2114 :
2115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2116 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2117 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2118 :
2119 : #define D0_D0_ENABLED 1
2120 :
2121 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2122 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2123 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2124 :
2125 : #define DefCom_ENABLED 1
2126 : #define DefIns_ENABLED 1
2127 :
2128 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2129 :
2130 : #define SK_ENABLED 1
2131 :
2132 : #if SK5_ENABLED
2133 : module procedure getLocDefComDefIns_D0_D0_SK5
2134 : use pm_kind, only: SKC => SK5
2135 : #include "pm_arrayFind@routines.inc.F90"
2136 : end procedure
2137 : #endif
2138 :
2139 : #if SK4_ENABLED
2140 : module procedure getLocDefComDefIns_D0_D0_SK4
2141 : use pm_kind, only: SKC => SK4
2142 : #include "pm_arrayFind@routines.inc.F90"
2143 : end procedure
2144 : #endif
2145 :
2146 : #if SK3_ENABLED
2147 : module procedure getLocDefComDefIns_D0_D0_SK3
2148 : use pm_kind, only: SKC => SK3
2149 : #include "pm_arrayFind@routines.inc.F90"
2150 : end procedure
2151 : #endif
2152 :
2153 : #if SK2_ENABLED
2154 : module procedure getLocDefComDefIns_D0_D0_SK2
2155 : use pm_kind, only: SKC => SK2
2156 : #include "pm_arrayFind@routines.inc.F90"
2157 : end procedure
2158 : #endif
2159 :
2160 : #if SK1_ENABLED
2161 29 : module procedure getLocDefComDefIns_D0_D0_SK1
2162 : use pm_kind, only: SKC => SK1
2163 : #include "pm_arrayFind@routines.inc.F90"
2164 : end procedure
2165 : #endif
2166 :
2167 : #undef SK_ENABLED
2168 :
2169 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2170 :
2171 : #undef DefCom_ENABLED
2172 : #undef DefIns_ENABLED
2173 :
2174 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2175 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2176 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2177 :
2178 : #define CusCom_ENABLED 1
2179 : #define DefIns_ENABLED 1
2180 :
2181 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2182 :
2183 : #define SK_ENABLED 1
2184 :
2185 : #if SK5_ENABLED
2186 : module procedure getLocCusComDefIns_D0_D0_SK5
2187 : use pm_kind, only: SKC => SK5
2188 : #include "pm_arrayFind@routines.inc.F90"
2189 : end procedure
2190 : #endif
2191 :
2192 : #if SK4_ENABLED
2193 : module procedure getLocCusComDefIns_D0_D0_SK4
2194 : use pm_kind, only: SKC => SK4
2195 : #include "pm_arrayFind@routines.inc.F90"
2196 : end procedure
2197 : #endif
2198 :
2199 : #if SK3_ENABLED
2200 : module procedure getLocCusComDefIns_D0_D0_SK3
2201 : use pm_kind, only: SKC => SK3
2202 : #include "pm_arrayFind@routines.inc.F90"
2203 : end procedure
2204 : #endif
2205 :
2206 : #if SK2_ENABLED
2207 : module procedure getLocCusComDefIns_D0_D0_SK2
2208 : use pm_kind, only: SKC => SK2
2209 : #include "pm_arrayFind@routines.inc.F90"
2210 : end procedure
2211 : #endif
2212 :
2213 : #if SK1_ENABLED
2214 18 : module procedure getLocCusComDefIns_D0_D0_SK1
2215 : use pm_kind, only: SKC => SK1
2216 : #include "pm_arrayFind@routines.inc.F90"
2217 : end procedure
2218 : #endif
2219 :
2220 : #undef SK_ENABLED
2221 :
2222 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2223 :
2224 : #undef CusCom_ENABLED
2225 : #undef DefIns_ENABLED
2226 :
2227 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2228 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2229 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2230 :
2231 : #define DefCom_ENABLED 1
2232 : #define CusIns_ENABLED 1
2233 :
2234 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2235 :
2236 : #define SK_ENABLED 1
2237 :
2238 : #if SK5_ENABLED
2239 : module procedure getLocDefComCusIns_D0_D0_SK5
2240 : use pm_kind, only: SKC => SK5
2241 : #include "pm_arrayFind@routines.inc.F90"
2242 : end procedure
2243 : #endif
2244 :
2245 : #if SK4_ENABLED
2246 : module procedure getLocDefComCusIns_D0_D0_SK4
2247 : use pm_kind, only: SKC => SK4
2248 : #include "pm_arrayFind@routines.inc.F90"
2249 : end procedure
2250 : #endif
2251 :
2252 : #if SK3_ENABLED
2253 : module procedure getLocDefComCusIns_D0_D0_SK3
2254 : use pm_kind, only: SKC => SK3
2255 : #include "pm_arrayFind@routines.inc.F90"
2256 : end procedure
2257 : #endif
2258 :
2259 : #if SK2_ENABLED
2260 : module procedure getLocDefComCusIns_D0_D0_SK2
2261 : use pm_kind, only: SKC => SK2
2262 : #include "pm_arrayFind@routines.inc.F90"
2263 : end procedure
2264 : #endif
2265 :
2266 : #if SK1_ENABLED
2267 344 : module procedure getLocDefComCusIns_D0_D0_SK1
2268 : use pm_kind, only: SKC => SK1
2269 : #include "pm_arrayFind@routines.inc.F90"
2270 : end procedure
2271 : #endif
2272 :
2273 : #undef SK_ENABLED
2274 :
2275 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2276 :
2277 : #undef DefCom_ENABLED
2278 : #undef CusIns_ENABLED
2279 :
2280 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2281 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2282 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2283 :
2284 : #define CusCom_ENABLED 1
2285 : #define CusIns_ENABLED 1
2286 :
2287 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2288 :
2289 : #define SK_ENABLED 1
2290 :
2291 : #if SK5_ENABLED
2292 : module procedure getLocCusComCusIns_D0_D0_SK5
2293 : use pm_kind, only: SKC => SK5
2294 : #include "pm_arrayFind@routines.inc.F90"
2295 : end procedure
2296 : #endif
2297 :
2298 : #if SK4_ENABLED
2299 : module procedure getLocCusComCusIns_D0_D0_SK4
2300 : use pm_kind, only: SKC => SK4
2301 : #include "pm_arrayFind@routines.inc.F90"
2302 : end procedure
2303 : #endif
2304 :
2305 : #if SK3_ENABLED
2306 : module procedure getLocCusComCusIns_D0_D0_SK3
2307 : use pm_kind, only: SKC => SK3
2308 : #include "pm_arrayFind@routines.inc.F90"
2309 : end procedure
2310 : #endif
2311 :
2312 : #if SK2_ENABLED
2313 : module procedure getLocCusComCusIns_D0_D0_SK2
2314 : use pm_kind, only: SKC => SK2
2315 : #include "pm_arrayFind@routines.inc.F90"
2316 : end procedure
2317 : #endif
2318 :
2319 : #if SK1_ENABLED
2320 343 : module procedure getLocCusComCusIns_D0_D0_SK1
2321 : use pm_kind, only: SKC => SK1
2322 : #include "pm_arrayFind@routines.inc.F90"
2323 : end procedure
2324 : #endif
2325 :
2326 : #undef SK_ENABLED
2327 :
2328 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2329 :
2330 : #undef CusCom_ENABLED
2331 : #undef CusIns_ENABLED
2332 :
2333 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2334 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2336 :
2337 : #undef D0_D0_ENABLED
2338 :
2339 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2340 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2342 :
2343 : #define D1_D0_ENABLED 1
2344 :
2345 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2346 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2347 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2348 :
2349 : #define DefCom_ENABLED 1
2350 : #define DefIns_ENABLED 1
2351 :
2352 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2353 :
2354 : #define SK_ENABLED 1
2355 :
2356 : #if SK5_ENABLED
2357 : module procedure getLocDefComDefIns_D1_D0_SK5
2358 : use pm_kind, only: SKC => SK5
2359 : #include "pm_arrayFind@routines.inc.F90"
2360 : end procedure
2361 : #endif
2362 :
2363 : #if SK4_ENABLED
2364 : module procedure getLocDefComDefIns_D1_D0_SK4
2365 : use pm_kind, only: SKC => SK4
2366 : #include "pm_arrayFind@routines.inc.F90"
2367 : end procedure
2368 : #endif
2369 :
2370 : #if SK3_ENABLED
2371 : module procedure getLocDefComDefIns_D1_D0_SK3
2372 : use pm_kind, only: SKC => SK3
2373 : #include "pm_arrayFind@routines.inc.F90"
2374 : end procedure
2375 : #endif
2376 :
2377 : #if SK2_ENABLED
2378 : module procedure getLocDefComDefIns_D1_D0_SK2
2379 : use pm_kind, only: SKC => SK2
2380 : #include "pm_arrayFind@routines.inc.F90"
2381 : end procedure
2382 : #endif
2383 :
2384 : #if SK1_ENABLED
2385 16 : module procedure getLocDefComDefIns_D1_D0_SK1
2386 : use pm_kind, only: SKC => SK1
2387 : #include "pm_arrayFind@routines.inc.F90"
2388 : end procedure
2389 : #endif
2390 :
2391 : #undef SK_ENABLED
2392 :
2393 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2394 :
2395 : #define IK_ENABLED 1
2396 :
2397 : #if IK5_ENABLED
2398 16 : module procedure getLocDefComDefIns_D1_D0_IK5
2399 : use pm_kind, only: IKC => IK5
2400 : #include "pm_arrayFind@routines.inc.F90"
2401 : end procedure
2402 : #endif
2403 :
2404 : #if IK4_ENABLED
2405 16 : module procedure getLocDefComDefIns_D1_D0_IK4
2406 : use pm_kind, only: IKC => IK4
2407 : #include "pm_arrayFind@routines.inc.F90"
2408 : end procedure
2409 : #endif
2410 :
2411 : #if IK3_ENABLED
2412 16 : module procedure getLocDefComDefIns_D1_D0_IK3
2413 : use pm_kind, only: IKC => IK3
2414 : #include "pm_arrayFind@routines.inc.F90"
2415 : end procedure
2416 : #endif
2417 :
2418 : #if IK2_ENABLED
2419 16 : module procedure getLocDefComDefIns_D1_D0_IK2
2420 : use pm_kind, only: IKC => IK2
2421 : #include "pm_arrayFind@routines.inc.F90"
2422 : end procedure
2423 : #endif
2424 :
2425 : #if IK1_ENABLED
2426 16 : module procedure getLocDefComDefIns_D1_D0_IK1
2427 : use pm_kind, only: IKC => IK1
2428 : #include "pm_arrayFind@routines.inc.F90"
2429 : end procedure
2430 : #endif
2431 :
2432 : #undef IK_ENABLED
2433 :
2434 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2435 :
2436 : #define LK_ENABLED 1
2437 :
2438 : #if LK5_ENABLED
2439 16 : module procedure getLocDefComDefIns_D1_D0_LK5
2440 : use pm_kind, only: LKC => LK5
2441 : #include "pm_arrayFind@routines.inc.F90"
2442 : end procedure
2443 : #endif
2444 :
2445 : #if LK4_ENABLED
2446 16 : module procedure getLocDefComDefIns_D1_D0_LK4
2447 : use pm_kind, only: LKC => LK4
2448 : #include "pm_arrayFind@routines.inc.F90"
2449 : end procedure
2450 : #endif
2451 :
2452 : #if LK3_ENABLED
2453 16 : module procedure getLocDefComDefIns_D1_D0_LK3
2454 : use pm_kind, only: LKC => LK3
2455 : #include "pm_arrayFind@routines.inc.F90"
2456 : end procedure
2457 : #endif
2458 :
2459 : #if LK2_ENABLED
2460 16 : module procedure getLocDefComDefIns_D1_D0_LK2
2461 : use pm_kind, only: LKC => LK2
2462 : #include "pm_arrayFind@routines.inc.F90"
2463 : end procedure
2464 : #endif
2465 :
2466 : #if LK1_ENABLED
2467 16 : module procedure getLocDefComDefIns_D1_D0_LK1
2468 : use pm_kind, only: LKC => LK1
2469 : #include "pm_arrayFind@routines.inc.F90"
2470 : end procedure
2471 : #endif
2472 :
2473 : #undef LK_ENABLED
2474 :
2475 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2476 :
2477 : #define CK_ENABLED 1
2478 :
2479 : #if CK5_ENABLED
2480 : module procedure getLocDefComDefIns_D1_D0_CK5
2481 : use pm_kind, only: CKC => CK5
2482 : #include "pm_arrayFind@routines.inc.F90"
2483 : end procedure
2484 : #endif
2485 :
2486 : #if CK4_ENABLED
2487 16 : module procedure getLocDefComDefIns_D1_D0_CK4
2488 : use pm_kind, only: CKC => CK4
2489 : #include "pm_arrayFind@routines.inc.F90"
2490 : end procedure
2491 : #endif
2492 :
2493 : #if CK3_ENABLED
2494 16 : module procedure getLocDefComDefIns_D1_D0_CK3
2495 : use pm_kind, only: CKC => CK3
2496 : #include "pm_arrayFind@routines.inc.F90"
2497 : end procedure
2498 : #endif
2499 :
2500 : #if CK2_ENABLED
2501 16 : module procedure getLocDefComDefIns_D1_D0_CK2
2502 : use pm_kind, only: CKC => CK2
2503 : #include "pm_arrayFind@routines.inc.F90"
2504 : end procedure
2505 : #endif
2506 :
2507 : #if CK1_ENABLED
2508 16 : module procedure getLocDefComDefIns_D1_D0_CK1
2509 : use pm_kind, only: CKC => CK1
2510 : #include "pm_arrayFind@routines.inc.F90"
2511 : end procedure
2512 : #endif
2513 :
2514 : #undef CK_ENABLED
2515 :
2516 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2517 :
2518 : #define RK_ENABLED 1
2519 :
2520 : #if RK5_ENABLED
2521 : module procedure getLocDefComDefIns_D1_D0_RK5
2522 : use pm_kind, only: RKC => RK5
2523 : #include "pm_arrayFind@routines.inc.F90"
2524 : end procedure
2525 : #endif
2526 :
2527 : #if RK4_ENABLED
2528 16 : module procedure getLocDefComDefIns_D1_D0_RK4
2529 : use pm_kind, only: RKC => RK4
2530 : #include "pm_arrayFind@routines.inc.F90"
2531 : end procedure
2532 : #endif
2533 :
2534 : #if RK3_ENABLED
2535 16 : module procedure getLocDefComDefIns_D1_D0_RK3
2536 : use pm_kind, only: RKC => RK3
2537 : #include "pm_arrayFind@routines.inc.F90"
2538 : end procedure
2539 : #endif
2540 :
2541 : #if RK2_ENABLED
2542 16 : module procedure getLocDefComDefIns_D1_D0_RK2
2543 : use pm_kind, only: RKC => RK2
2544 : #include "pm_arrayFind@routines.inc.F90"
2545 : end procedure
2546 : #endif
2547 :
2548 : #if RK1_ENABLED
2549 16 : module procedure getLocDefComDefIns_D1_D0_RK1
2550 : use pm_kind, only: RKC => RK1
2551 : #include "pm_arrayFind@routines.inc.F90"
2552 : end procedure
2553 : #endif
2554 :
2555 : #undef RK_ENABLED
2556 :
2557 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2558 :
2559 : #undef DefCom_ENABLED
2560 : #undef DefIns_ENABLED
2561 :
2562 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2563 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2564 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2565 :
2566 : #define CusCom_ENABLED 1
2567 : #define DefIns_ENABLED 1
2568 :
2569 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2570 :
2571 : #define SK_ENABLED 1
2572 :
2573 : #if SK5_ENABLED
2574 : module procedure getLocCusComDefIns_D1_D0_SK5
2575 : use pm_kind, only: SKC => SK5
2576 : #include "pm_arrayFind@routines.inc.F90"
2577 : end procedure
2578 : #endif
2579 :
2580 : #if SK4_ENABLED
2581 : module procedure getLocCusComDefIns_D1_D0_SK4
2582 : use pm_kind, only: SKC => SK4
2583 : #include "pm_arrayFind@routines.inc.F90"
2584 : end procedure
2585 : #endif
2586 :
2587 : #if SK3_ENABLED
2588 : module procedure getLocCusComDefIns_D1_D0_SK3
2589 : use pm_kind, only: SKC => SK3
2590 : #include "pm_arrayFind@routines.inc.F90"
2591 : end procedure
2592 : #endif
2593 :
2594 : #if SK2_ENABLED
2595 : module procedure getLocCusComDefIns_D1_D0_SK2
2596 : use pm_kind, only: SKC => SK2
2597 : #include "pm_arrayFind@routines.inc.F90"
2598 : end procedure
2599 : #endif
2600 :
2601 : #if SK1_ENABLED
2602 16 : module procedure getLocCusComDefIns_D1_D0_SK1
2603 : use pm_kind, only: SKC => SK1
2604 : #include "pm_arrayFind@routines.inc.F90"
2605 : end procedure
2606 : #endif
2607 :
2608 : #undef SK_ENABLED
2609 :
2610 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2611 :
2612 : #define IK_ENABLED 1
2613 :
2614 : #if IK5_ENABLED
2615 16 : module procedure getLocCusComDefIns_D1_D0_IK5
2616 : use pm_kind, only: IKC => IK5
2617 : #include "pm_arrayFind@routines.inc.F90"
2618 : end procedure
2619 : #endif
2620 :
2621 : #if IK4_ENABLED
2622 16 : module procedure getLocCusComDefIns_D1_D0_IK4
2623 : use pm_kind, only: IKC => IK4
2624 : #include "pm_arrayFind@routines.inc.F90"
2625 : end procedure
2626 : #endif
2627 :
2628 : #if IK3_ENABLED
2629 16 : module procedure getLocCusComDefIns_D1_D0_IK3
2630 : use pm_kind, only: IKC => IK3
2631 : #include "pm_arrayFind@routines.inc.F90"
2632 : end procedure
2633 : #endif
2634 :
2635 : #if IK2_ENABLED
2636 16 : module procedure getLocCusComDefIns_D1_D0_IK2
2637 : use pm_kind, only: IKC => IK2
2638 : #include "pm_arrayFind@routines.inc.F90"
2639 : end procedure
2640 : #endif
2641 :
2642 : #if IK1_ENABLED
2643 16 : module procedure getLocCusComDefIns_D1_D0_IK1
2644 : use pm_kind, only: IKC => IK1
2645 : #include "pm_arrayFind@routines.inc.F90"
2646 : end procedure
2647 : #endif
2648 :
2649 : #undef IK_ENABLED
2650 :
2651 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2652 :
2653 : #define LK_ENABLED 1
2654 :
2655 : #if LK5_ENABLED
2656 16 : module procedure getLocCusComDefIns_D1_D0_LK5
2657 : use pm_kind, only: LKC => LK5
2658 : #include "pm_arrayFind@routines.inc.F90"
2659 : end procedure
2660 : #endif
2661 :
2662 : #if LK4_ENABLED
2663 16 : module procedure getLocCusComDefIns_D1_D0_LK4
2664 : use pm_kind, only: LKC => LK4
2665 : #include "pm_arrayFind@routines.inc.F90"
2666 : end procedure
2667 : #endif
2668 :
2669 : #if LK3_ENABLED
2670 16 : module procedure getLocCusComDefIns_D1_D0_LK3
2671 : use pm_kind, only: LKC => LK3
2672 : #include "pm_arrayFind@routines.inc.F90"
2673 : end procedure
2674 : #endif
2675 :
2676 : #if LK2_ENABLED
2677 16 : module procedure getLocCusComDefIns_D1_D0_LK2
2678 : use pm_kind, only: LKC => LK2
2679 : #include "pm_arrayFind@routines.inc.F90"
2680 : end procedure
2681 : #endif
2682 :
2683 : #if LK1_ENABLED
2684 16 : module procedure getLocCusComDefIns_D1_D0_LK1
2685 : use pm_kind, only: LKC => LK1
2686 : #include "pm_arrayFind@routines.inc.F90"
2687 : end procedure
2688 : #endif
2689 :
2690 : #undef LK_ENABLED
2691 :
2692 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2693 :
2694 : #define CK_ENABLED 1
2695 :
2696 : #if CK5_ENABLED
2697 : module procedure getLocCusComDefIns_D1_D0_CK5
2698 : use pm_kind, only: CKC => CK5
2699 : #include "pm_arrayFind@routines.inc.F90"
2700 : end procedure
2701 : #endif
2702 :
2703 : #if CK4_ENABLED
2704 16 : module procedure getLocCusComDefIns_D1_D0_CK4
2705 : use pm_kind, only: CKC => CK4
2706 : #include "pm_arrayFind@routines.inc.F90"
2707 : end procedure
2708 : #endif
2709 :
2710 : #if CK3_ENABLED
2711 16 : module procedure getLocCusComDefIns_D1_D0_CK3
2712 : use pm_kind, only: CKC => CK3
2713 : #include "pm_arrayFind@routines.inc.F90"
2714 : end procedure
2715 : #endif
2716 :
2717 : #if CK2_ENABLED
2718 16 : module procedure getLocCusComDefIns_D1_D0_CK2
2719 : use pm_kind, only: CKC => CK2
2720 : #include "pm_arrayFind@routines.inc.F90"
2721 : end procedure
2722 : #endif
2723 :
2724 : #if CK1_ENABLED
2725 16 : module procedure getLocCusComDefIns_D1_D0_CK1
2726 : use pm_kind, only: CKC => CK1
2727 : #include "pm_arrayFind@routines.inc.F90"
2728 : end procedure
2729 : #endif
2730 :
2731 : #undef CK_ENABLED
2732 :
2733 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2734 :
2735 : #define RK_ENABLED 1
2736 :
2737 : #if RK5_ENABLED
2738 : module procedure getLocCusComDefIns_D1_D0_RK5
2739 : use pm_kind, only: RKC => RK5
2740 : #include "pm_arrayFind@routines.inc.F90"
2741 : end procedure
2742 : #endif
2743 :
2744 : #if RK4_ENABLED
2745 16 : module procedure getLocCusComDefIns_D1_D0_RK4
2746 : use pm_kind, only: RKC => RK4
2747 : #include "pm_arrayFind@routines.inc.F90"
2748 : end procedure
2749 : #endif
2750 :
2751 : #if RK3_ENABLED
2752 16 : module procedure getLocCusComDefIns_D1_D0_RK3
2753 : use pm_kind, only: RKC => RK3
2754 : #include "pm_arrayFind@routines.inc.F90"
2755 : end procedure
2756 : #endif
2757 :
2758 : #if RK2_ENABLED
2759 16 : module procedure getLocCusComDefIns_D1_D0_RK2
2760 : use pm_kind, only: RKC => RK2
2761 : #include "pm_arrayFind@routines.inc.F90"
2762 : end procedure
2763 : #endif
2764 :
2765 : #if RK1_ENABLED
2766 16 : module procedure getLocCusComDefIns_D1_D0_RK1
2767 : use pm_kind, only: RKC => RK1
2768 : #include "pm_arrayFind@routines.inc.F90"
2769 : end procedure
2770 : #endif
2771 :
2772 : #undef RK_ENABLED
2773 :
2774 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2775 :
2776 : #undef CusCom_ENABLED
2777 : #undef DefIns_ENABLED
2778 :
2779 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2780 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2781 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2782 :
2783 : #define DefCom_ENABLED 1
2784 : #define CusIns_ENABLED 1
2785 :
2786 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2787 :
2788 : #define SK_ENABLED 1
2789 :
2790 : #if SK5_ENABLED
2791 : module procedure getLocDefComCusIns_D1_D0_SK5
2792 : use pm_kind, only: SKC => SK5
2793 : #include "pm_arrayFind@routines.inc.F90"
2794 : end procedure
2795 : #endif
2796 :
2797 : #if SK4_ENABLED
2798 : module procedure getLocDefComCusIns_D1_D0_SK4
2799 : use pm_kind, only: SKC => SK4
2800 : #include "pm_arrayFind@routines.inc.F90"
2801 : end procedure
2802 : #endif
2803 :
2804 : #if SK3_ENABLED
2805 : module procedure getLocDefComCusIns_D1_D0_SK3
2806 : use pm_kind, only: SKC => SK3
2807 : #include "pm_arrayFind@routines.inc.F90"
2808 : end procedure
2809 : #endif
2810 :
2811 : #if SK2_ENABLED
2812 : module procedure getLocDefComCusIns_D1_D0_SK2
2813 : use pm_kind, only: SKC => SK2
2814 : #include "pm_arrayFind@routines.inc.F90"
2815 : end procedure
2816 : #endif
2817 :
2818 : #if SK1_ENABLED
2819 279 : module procedure getLocDefComCusIns_D1_D0_SK1
2820 : use pm_kind, only: SKC => SK1
2821 : #include "pm_arrayFind@routines.inc.F90"
2822 : end procedure
2823 : #endif
2824 :
2825 : #undef SK_ENABLED
2826 :
2827 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2828 :
2829 : #define IK_ENABLED 1
2830 :
2831 : #if IK5_ENABLED
2832 278 : module procedure getLocDefComCusIns_D1_D0_IK5
2833 : use pm_kind, only: IKC => IK5
2834 : #include "pm_arrayFind@routines.inc.F90"
2835 : end procedure
2836 : #endif
2837 :
2838 : #if IK4_ENABLED
2839 278 : module procedure getLocDefComCusIns_D1_D0_IK4
2840 : use pm_kind, only: IKC => IK4
2841 : #include "pm_arrayFind@routines.inc.F90"
2842 : end procedure
2843 : #endif
2844 :
2845 : #if IK3_ENABLED
2846 279 : module procedure getLocDefComCusIns_D1_D0_IK3
2847 : use pm_kind, only: IKC => IK3
2848 : #include "pm_arrayFind@routines.inc.F90"
2849 : end procedure
2850 : #endif
2851 :
2852 : #if IK2_ENABLED
2853 278 : module procedure getLocDefComCusIns_D1_D0_IK2
2854 : use pm_kind, only: IKC => IK2
2855 : #include "pm_arrayFind@routines.inc.F90"
2856 : end procedure
2857 : #endif
2858 :
2859 : #if IK1_ENABLED
2860 278 : module procedure getLocDefComCusIns_D1_D0_IK1
2861 : use pm_kind, only: IKC => IK1
2862 : #include "pm_arrayFind@routines.inc.F90"
2863 : end procedure
2864 : #endif
2865 :
2866 : #undef IK_ENABLED
2867 :
2868 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2869 :
2870 : #define LK_ENABLED 1
2871 :
2872 : #if LK5_ENABLED
2873 278 : module procedure getLocDefComCusIns_D1_D0_LK5
2874 : use pm_kind, only: LKC => LK5
2875 : #include "pm_arrayFind@routines.inc.F90"
2876 : end procedure
2877 : #endif
2878 :
2879 : #if LK4_ENABLED
2880 278 : module procedure getLocDefComCusIns_D1_D0_LK4
2881 : use pm_kind, only: LKC => LK4
2882 : #include "pm_arrayFind@routines.inc.F90"
2883 : end procedure
2884 : #endif
2885 :
2886 : #if LK3_ENABLED
2887 279 : module procedure getLocDefComCusIns_D1_D0_LK3
2888 : use pm_kind, only: LKC => LK3
2889 : #include "pm_arrayFind@routines.inc.F90"
2890 : end procedure
2891 : #endif
2892 :
2893 : #if LK2_ENABLED
2894 278 : module procedure getLocDefComCusIns_D1_D0_LK2
2895 : use pm_kind, only: LKC => LK2
2896 : #include "pm_arrayFind@routines.inc.F90"
2897 : end procedure
2898 : #endif
2899 :
2900 : #if LK1_ENABLED
2901 278 : module procedure getLocDefComCusIns_D1_D0_LK1
2902 : use pm_kind, only: LKC => LK1
2903 : #include "pm_arrayFind@routines.inc.F90"
2904 : end procedure
2905 : #endif
2906 :
2907 : #undef LK_ENABLED
2908 :
2909 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2910 :
2911 : #define CK_ENABLED 1
2912 :
2913 : #if CK5_ENABLED
2914 : module procedure getLocDefComCusIns_D1_D0_CK5
2915 : use pm_kind, only: CKC => CK5
2916 : #include "pm_arrayFind@routines.inc.F90"
2917 : end procedure
2918 : #endif
2919 :
2920 : #if CK4_ENABLED
2921 278 : module procedure getLocDefComCusIns_D1_D0_CK4
2922 : use pm_kind, only: CKC => CK4
2923 : #include "pm_arrayFind@routines.inc.F90"
2924 : end procedure
2925 : #endif
2926 :
2927 : #if CK3_ENABLED
2928 278 : module procedure getLocDefComCusIns_D1_D0_CK3
2929 : use pm_kind, only: CKC => CK3
2930 : #include "pm_arrayFind@routines.inc.F90"
2931 : end procedure
2932 : #endif
2933 :
2934 : #if CK2_ENABLED
2935 279 : module procedure getLocDefComCusIns_D1_D0_CK2
2936 : use pm_kind, only: CKC => CK2
2937 : #include "pm_arrayFind@routines.inc.F90"
2938 : end procedure
2939 : #endif
2940 :
2941 : #if CK1_ENABLED
2942 278 : module procedure getLocDefComCusIns_D1_D0_CK1
2943 : use pm_kind, only: CKC => CK1
2944 : #include "pm_arrayFind@routines.inc.F90"
2945 : end procedure
2946 : #endif
2947 :
2948 : #undef CK_ENABLED
2949 :
2950 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2951 :
2952 : #define RK_ENABLED 1
2953 :
2954 : #if RK5_ENABLED
2955 : module procedure getLocDefComCusIns_D1_D0_RK5
2956 : use pm_kind, only: RKC => RK5
2957 : #include "pm_arrayFind@routines.inc.F90"
2958 : end procedure
2959 : #endif
2960 :
2961 : #if RK4_ENABLED
2962 278 : module procedure getLocDefComCusIns_D1_D0_RK4
2963 : use pm_kind, only: RKC => RK4
2964 : #include "pm_arrayFind@routines.inc.F90"
2965 : end procedure
2966 : #endif
2967 :
2968 : #if RK3_ENABLED
2969 278 : module procedure getLocDefComCusIns_D1_D0_RK3
2970 : use pm_kind, only: RKC => RK3
2971 : #include "pm_arrayFind@routines.inc.F90"
2972 : end procedure
2973 : #endif
2974 :
2975 : #if RK2_ENABLED
2976 279 : module procedure getLocDefComCusIns_D1_D0_RK2
2977 : use pm_kind, only: RKC => RK2
2978 : #include "pm_arrayFind@routines.inc.F90"
2979 : end procedure
2980 : #endif
2981 :
2982 : #if RK1_ENABLED
2983 278 : module procedure getLocDefComCusIns_D1_D0_RK1
2984 : use pm_kind, only: RKC => RK1
2985 : #include "pm_arrayFind@routines.inc.F90"
2986 : end procedure
2987 : #endif
2988 :
2989 : #undef RK_ENABLED
2990 :
2991 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2992 :
2993 : #undef DefCom_ENABLED
2994 : #undef CusIns_ENABLED
2995 :
2996 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2997 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2998 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2999 :
3000 : #define CusCom_ENABLED 1
3001 : #define CusIns_ENABLED 1
3002 :
3003 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3004 :
3005 : #define SK_ENABLED 1
3006 :
3007 : #if SK5_ENABLED
3008 : module procedure getLocCusComCusIns_D1_D0_SK5
3009 : use pm_kind, only: SKC => SK5
3010 : #include "pm_arrayFind@routines.inc.F90"
3011 : end procedure
3012 : #endif
3013 :
3014 : #if SK4_ENABLED
3015 : module procedure getLocCusComCusIns_D1_D0_SK4
3016 : use pm_kind, only: SKC => SK4
3017 : #include "pm_arrayFind@routines.inc.F90"
3018 : end procedure
3019 : #endif
3020 :
3021 : #if SK3_ENABLED
3022 : module procedure getLocCusComCusIns_D1_D0_SK3
3023 : use pm_kind, only: SKC => SK3
3024 : #include "pm_arrayFind@routines.inc.F90"
3025 : end procedure
3026 : #endif
3027 :
3028 : #if SK2_ENABLED
3029 : module procedure getLocCusComCusIns_D1_D0_SK2
3030 : use pm_kind, only: SKC => SK2
3031 : #include "pm_arrayFind@routines.inc.F90"
3032 : end procedure
3033 : #endif
3034 :
3035 : #if SK1_ENABLED
3036 278 : module procedure getLocCusComCusIns_D1_D0_SK1
3037 : use pm_kind, only: SKC => SK1
3038 : #include "pm_arrayFind@routines.inc.F90"
3039 : end procedure
3040 : #endif
3041 :
3042 : #undef SK_ENABLED
3043 :
3044 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3045 :
3046 : #define IK_ENABLED 1
3047 :
3048 : #if IK5_ENABLED
3049 278 : module procedure getLocCusComCusIns_D1_D0_IK5
3050 : use pm_kind, only: IKC => IK5
3051 : #include "pm_arrayFind@routines.inc.F90"
3052 : end procedure
3053 : #endif
3054 :
3055 : #if IK4_ENABLED
3056 278 : module procedure getLocCusComCusIns_D1_D0_IK4
3057 : use pm_kind, only: IKC => IK4
3058 : #include "pm_arrayFind@routines.inc.F90"
3059 : end procedure
3060 : #endif
3061 :
3062 : #if IK3_ENABLED
3063 278 : module procedure getLocCusComCusIns_D1_D0_IK3
3064 : use pm_kind, only: IKC => IK3
3065 : #include "pm_arrayFind@routines.inc.F90"
3066 : end procedure
3067 : #endif
3068 :
3069 : #if IK2_ENABLED
3070 278 : module procedure getLocCusComCusIns_D1_D0_IK2
3071 : use pm_kind, only: IKC => IK2
3072 : #include "pm_arrayFind@routines.inc.F90"
3073 : end procedure
3074 : #endif
3075 :
3076 : #if IK1_ENABLED
3077 278 : module procedure getLocCusComCusIns_D1_D0_IK1
3078 : use pm_kind, only: IKC => IK1
3079 : #include "pm_arrayFind@routines.inc.F90"
3080 : end procedure
3081 : #endif
3082 :
3083 : #undef IK_ENABLED
3084 :
3085 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3086 :
3087 : #define LK_ENABLED 1
3088 :
3089 : #if LK5_ENABLED
3090 278 : module procedure getLocCusComCusIns_D1_D0_LK5
3091 : use pm_kind, only: LKC => LK5
3092 : #include "pm_arrayFind@routines.inc.F90"
3093 : end procedure
3094 : #endif
3095 :
3096 : #if LK4_ENABLED
3097 278 : module procedure getLocCusComCusIns_D1_D0_LK4
3098 : use pm_kind, only: LKC => LK4
3099 : #include "pm_arrayFind@routines.inc.F90"
3100 : end procedure
3101 : #endif
3102 :
3103 : #if LK3_ENABLED
3104 278 : module procedure getLocCusComCusIns_D1_D0_LK3
3105 : use pm_kind, only: LKC => LK3
3106 : #include "pm_arrayFind@routines.inc.F90"
3107 : end procedure
3108 : #endif
3109 :
3110 : #if LK2_ENABLED
3111 278 : module procedure getLocCusComCusIns_D1_D0_LK2
3112 : use pm_kind, only: LKC => LK2
3113 : #include "pm_arrayFind@routines.inc.F90"
3114 : end procedure
3115 : #endif
3116 :
3117 : #if LK1_ENABLED
3118 278 : module procedure getLocCusComCusIns_D1_D0_LK1
3119 : use pm_kind, only: LKC => LK1
3120 : #include "pm_arrayFind@routines.inc.F90"
3121 : end procedure
3122 : #endif
3123 :
3124 : #undef LK_ENABLED
3125 :
3126 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3127 :
3128 : #define CK_ENABLED 1
3129 :
3130 : #if CK5_ENABLED
3131 : module procedure getLocCusComCusIns_D1_D0_CK5
3132 : use pm_kind, only: CKC => CK5
3133 : #include "pm_arrayFind@routines.inc.F90"
3134 : end procedure
3135 : #endif
3136 :
3137 : #if CK4_ENABLED
3138 278 : module procedure getLocCusComCusIns_D1_D0_CK4
3139 : use pm_kind, only: CKC => CK4
3140 : #include "pm_arrayFind@routines.inc.F90"
3141 : end procedure
3142 : #endif
3143 :
3144 : #if CK3_ENABLED
3145 278 : module procedure getLocCusComCusIns_D1_D0_CK3
3146 : use pm_kind, only: CKC => CK3
3147 : #include "pm_arrayFind@routines.inc.F90"
3148 : end procedure
3149 : #endif
3150 :
3151 : #if CK2_ENABLED
3152 278 : module procedure getLocCusComCusIns_D1_D0_CK2
3153 : use pm_kind, only: CKC => CK2
3154 : #include "pm_arrayFind@routines.inc.F90"
3155 : end procedure
3156 : #endif
3157 :
3158 : #if CK1_ENABLED
3159 278 : module procedure getLocCusComCusIns_D1_D0_CK1
3160 : use pm_kind, only: CKC => CK1
3161 : #include "pm_arrayFind@routines.inc.F90"
3162 : end procedure
3163 : #endif
3164 :
3165 : #undef CK_ENABLED
3166 :
3167 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3168 :
3169 : #define RK_ENABLED 1
3170 :
3171 : #if RK5_ENABLED
3172 : module procedure getLocCusComCusIns_D1_D0_RK5
3173 : use pm_kind, only: RKC => RK5
3174 : #include "pm_arrayFind@routines.inc.F90"
3175 : end procedure
3176 : #endif
3177 :
3178 : #if RK4_ENABLED
3179 278 : module procedure getLocCusComCusIns_D1_D0_RK4
3180 : use pm_kind, only: RKC => RK4
3181 : #include "pm_arrayFind@routines.inc.F90"
3182 : end procedure
3183 : #endif
3184 :
3185 : #if RK3_ENABLED
3186 278 : module procedure getLocCusComCusIns_D1_D0_RK3
3187 : use pm_kind, only: RKC => RK3
3188 : #include "pm_arrayFind@routines.inc.F90"
3189 : end procedure
3190 : #endif
3191 :
3192 : #if RK2_ENABLED
3193 279 : module procedure getLocCusComCusIns_D1_D0_RK2
3194 : use pm_kind, only: RKC => RK2
3195 : #include "pm_arrayFind@routines.inc.F90"
3196 : end procedure
3197 : #endif
3198 :
3199 : #if RK1_ENABLED
3200 278 : module procedure getLocCusComCusIns_D1_D0_RK1
3201 : use pm_kind, only: RKC => RK1
3202 : #include "pm_arrayFind@routines.inc.F90"
3203 : end procedure
3204 : #endif
3205 :
3206 : #undef RK_ENABLED
3207 :
3208 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3209 :
3210 : #undef CusCom_ENABLED
3211 : #undef CusIns_ENABLED
3212 :
3213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3214 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3215 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3216 :
3217 : #undef D1_D0_ENABLED
3218 :
3219 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3220 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3221 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3222 :
3223 : #define D1_D1_ENABLED 1
3224 :
3225 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3226 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3227 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3228 :
3229 : #define DefCom_ENABLED 1
3230 : #define DefIns_ENABLED 1
3231 :
3232 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3233 :
3234 : #define SK_ENABLED 1
3235 :
3236 : #if SK5_ENABLED
3237 : module procedure getLocDefComDefIns_D1_D1_SK5
3238 : use pm_kind, only: SKC => SK5
3239 : #include "pm_arrayFind@routines.inc.F90"
3240 : end procedure
3241 : #endif
3242 :
3243 : #if SK4_ENABLED
3244 : module procedure getLocDefComDefIns_D1_D1_SK4
3245 : use pm_kind, only: SKC => SK4
3246 : #include "pm_arrayFind@routines.inc.F90"
3247 : end procedure
3248 : #endif
3249 :
3250 : #if SK3_ENABLED
3251 : module procedure getLocDefComDefIns_D1_D1_SK3
3252 : use pm_kind, only: SKC => SK3
3253 : #include "pm_arrayFind@routines.inc.F90"
3254 : end procedure
3255 : #endif
3256 :
3257 : #if SK2_ENABLED
3258 : module procedure getLocDefComDefIns_D1_D1_SK2
3259 : use pm_kind, only: SKC => SK2
3260 : #include "pm_arrayFind@routines.inc.F90"
3261 : end procedure
3262 : #endif
3263 :
3264 : #if SK1_ENABLED
3265 18 : module procedure getLocDefComDefIns_D1_D1_SK1
3266 : use pm_kind, only: SKC => SK1
3267 : #include "pm_arrayFind@routines.inc.F90"
3268 : end procedure
3269 : #endif
3270 :
3271 : #undef SK_ENABLED
3272 :
3273 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3274 :
3275 : #define IK_ENABLED 1
3276 :
3277 : #if IK5_ENABLED
3278 17 : module procedure getLocDefComDefIns_D1_D1_IK5
3279 : use pm_kind, only: IKC => IK5
3280 : #include "pm_arrayFind@routines.inc.F90"
3281 : end procedure
3282 : #endif
3283 :
3284 : #if IK4_ENABLED
3285 17 : module procedure getLocDefComDefIns_D1_D1_IK4
3286 : use pm_kind, only: IKC => IK4
3287 : #include "pm_arrayFind@routines.inc.F90"
3288 : end procedure
3289 : #endif
3290 :
3291 : #if IK3_ENABLED
3292 18 : module procedure getLocDefComDefIns_D1_D1_IK3
3293 : use pm_kind, only: IKC => IK3
3294 : #include "pm_arrayFind@routines.inc.F90"
3295 : end procedure
3296 : #endif
3297 :
3298 : #if IK2_ENABLED
3299 17 : module procedure getLocDefComDefIns_D1_D1_IK2
3300 : use pm_kind, only: IKC => IK2
3301 : #include "pm_arrayFind@routines.inc.F90"
3302 : end procedure
3303 : #endif
3304 :
3305 : #if IK1_ENABLED
3306 17 : module procedure getLocDefComDefIns_D1_D1_IK1
3307 : use pm_kind, only: IKC => IK1
3308 : #include "pm_arrayFind@routines.inc.F90"
3309 : end procedure
3310 : #endif
3311 :
3312 : #undef IK_ENABLED
3313 :
3314 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3315 :
3316 : #define LK_ENABLED 1
3317 :
3318 : #if LK5_ENABLED
3319 17 : module procedure getLocDefComDefIns_D1_D1_LK5
3320 : use pm_kind, only: LKC => LK5
3321 : #include "pm_arrayFind@routines.inc.F90"
3322 : end procedure
3323 : #endif
3324 :
3325 : #if LK4_ENABLED
3326 17 : module procedure getLocDefComDefIns_D1_D1_LK4
3327 : use pm_kind, only: LKC => LK4
3328 : #include "pm_arrayFind@routines.inc.F90"
3329 : end procedure
3330 : #endif
3331 :
3332 : #if LK3_ENABLED
3333 18 : module procedure getLocDefComDefIns_D1_D1_LK3
3334 : use pm_kind, only: LKC => LK3
3335 : #include "pm_arrayFind@routines.inc.F90"
3336 : end procedure
3337 : #endif
3338 :
3339 : #if LK2_ENABLED
3340 17 : module procedure getLocDefComDefIns_D1_D1_LK2
3341 : use pm_kind, only: LKC => LK2
3342 : #include "pm_arrayFind@routines.inc.F90"
3343 : end procedure
3344 : #endif
3345 :
3346 : #if LK1_ENABLED
3347 17 : module procedure getLocDefComDefIns_D1_D1_LK1
3348 : use pm_kind, only: LKC => LK1
3349 : #include "pm_arrayFind@routines.inc.F90"
3350 : end procedure
3351 : #endif
3352 :
3353 : #undef LK_ENABLED
3354 :
3355 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3356 :
3357 : #define CK_ENABLED 1
3358 :
3359 : #if CK5_ENABLED
3360 : module procedure getLocDefComDefIns_D1_D1_CK5
3361 : use pm_kind, only: CKC => CK5
3362 : #include "pm_arrayFind@routines.inc.F90"
3363 : end procedure
3364 : #endif
3365 :
3366 : #if CK4_ENABLED
3367 17 : module procedure getLocDefComDefIns_D1_D1_CK4
3368 : use pm_kind, only: CKC => CK4
3369 : #include "pm_arrayFind@routines.inc.F90"
3370 : end procedure
3371 : #endif
3372 :
3373 : #if CK3_ENABLED
3374 17 : module procedure getLocDefComDefIns_D1_D1_CK3
3375 : use pm_kind, only: CKC => CK3
3376 : #include "pm_arrayFind@routines.inc.F90"
3377 : end procedure
3378 : #endif
3379 :
3380 : #if CK2_ENABLED
3381 18 : module procedure getLocDefComDefIns_D1_D1_CK2
3382 : use pm_kind, only: CKC => CK2
3383 : #include "pm_arrayFind@routines.inc.F90"
3384 : end procedure
3385 : #endif
3386 :
3387 : #if CK1_ENABLED
3388 17 : module procedure getLocDefComDefIns_D1_D1_CK1
3389 : use pm_kind, only: CKC => CK1
3390 : #include "pm_arrayFind@routines.inc.F90"
3391 : end procedure
3392 : #endif
3393 :
3394 : #undef CK_ENABLED
3395 :
3396 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3397 :
3398 : #define RK_ENABLED 1
3399 :
3400 : #if RK5_ENABLED
3401 : module procedure getLocDefComDefIns_D1_D1_RK5
3402 : use pm_kind, only: RKC => RK5
3403 : #include "pm_arrayFind@routines.inc.F90"
3404 : end procedure
3405 : #endif
3406 :
3407 : #if RK4_ENABLED
3408 17 : module procedure getLocDefComDefIns_D1_D1_RK4
3409 : use pm_kind, only: RKC => RK4
3410 : #include "pm_arrayFind@routines.inc.F90"
3411 : end procedure
3412 : #endif
3413 :
3414 : #if RK3_ENABLED
3415 17 : module procedure getLocDefComDefIns_D1_D1_RK3
3416 : use pm_kind, only: RKC => RK3
3417 : #include "pm_arrayFind@routines.inc.F90"
3418 : end procedure
3419 : #endif
3420 :
3421 : #if RK2_ENABLED
3422 18 : module procedure getLocDefComDefIns_D1_D1_RK2
3423 : use pm_kind, only: RKC => RK2
3424 : #include "pm_arrayFind@routines.inc.F90"
3425 : end procedure
3426 : #endif
3427 :
3428 : #if RK1_ENABLED
3429 17 : module procedure getLocDefComDefIns_D1_D1_RK1
3430 : use pm_kind, only: RKC => RK1
3431 : #include "pm_arrayFind@routines.inc.F90"
3432 : end procedure
3433 : #endif
3434 :
3435 : #undef RK_ENABLED
3436 :
3437 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3438 :
3439 : #undef DefCom_ENABLED
3440 : #undef DefIns_ENABLED
3441 :
3442 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3443 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3444 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3445 :
3446 : #define CusCom_ENABLED 1
3447 : #define DefIns_ENABLED 1
3448 :
3449 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3450 :
3451 : #define SK_ENABLED 1
3452 :
3453 : #if SK5_ENABLED
3454 : module procedure getLocCusComDefIns_D1_D1_SK5
3455 : use pm_kind, only: SKC => SK5
3456 : #include "pm_arrayFind@routines.inc.F90"
3457 : end procedure
3458 : #endif
3459 :
3460 : #if SK4_ENABLED
3461 : module procedure getLocCusComDefIns_D1_D1_SK4
3462 : use pm_kind, only: SKC => SK4
3463 : #include "pm_arrayFind@routines.inc.F90"
3464 : end procedure
3465 : #endif
3466 :
3467 : #if SK3_ENABLED
3468 : module procedure getLocCusComDefIns_D1_D1_SK3
3469 : use pm_kind, only: SKC => SK3
3470 : #include "pm_arrayFind@routines.inc.F90"
3471 : end procedure
3472 : #endif
3473 :
3474 : #if SK2_ENABLED
3475 : module procedure getLocCusComDefIns_D1_D1_SK2
3476 : use pm_kind, only: SKC => SK2
3477 : #include "pm_arrayFind@routines.inc.F90"
3478 : end procedure
3479 : #endif
3480 :
3481 : #if SK1_ENABLED
3482 17 : module procedure getLocCusComDefIns_D1_D1_SK1
3483 : use pm_kind, only: SKC => SK1
3484 : #include "pm_arrayFind@routines.inc.F90"
3485 : end procedure
3486 : #endif
3487 :
3488 : #undef SK_ENABLED
3489 :
3490 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3491 :
3492 : #define IK_ENABLED 1
3493 :
3494 : #if IK5_ENABLED
3495 17 : module procedure getLocCusComDefIns_D1_D1_IK5
3496 : use pm_kind, only: IKC => IK5
3497 : #include "pm_arrayFind@routines.inc.F90"
3498 : end procedure
3499 : #endif
3500 :
3501 : #if IK4_ENABLED
3502 17 : module procedure getLocCusComDefIns_D1_D1_IK4
3503 : use pm_kind, only: IKC => IK4
3504 : #include "pm_arrayFind@routines.inc.F90"
3505 : end procedure
3506 : #endif
3507 :
3508 : #if IK3_ENABLED
3509 17 : module procedure getLocCusComDefIns_D1_D1_IK3
3510 : use pm_kind, only: IKC => IK3
3511 : #include "pm_arrayFind@routines.inc.F90"
3512 : end procedure
3513 : #endif
3514 :
3515 : #if IK2_ENABLED
3516 17 : module procedure getLocCusComDefIns_D1_D1_IK2
3517 : use pm_kind, only: IKC => IK2
3518 : #include "pm_arrayFind@routines.inc.F90"
3519 : end procedure
3520 : #endif
3521 :
3522 : #if IK1_ENABLED
3523 17 : module procedure getLocCusComDefIns_D1_D1_IK1
3524 : use pm_kind, only: IKC => IK1
3525 : #include "pm_arrayFind@routines.inc.F90"
3526 : end procedure
3527 : #endif
3528 :
3529 : #undef IK_ENABLED
3530 :
3531 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3532 :
3533 : #define LK_ENABLED 1
3534 :
3535 : #if LK5_ENABLED
3536 17 : module procedure getLocCusComDefIns_D1_D1_LK5
3537 : use pm_kind, only: LKC => LK5
3538 : #include "pm_arrayFind@routines.inc.F90"
3539 : end procedure
3540 : #endif
3541 :
3542 : #if LK4_ENABLED
3543 17 : module procedure getLocCusComDefIns_D1_D1_LK4
3544 : use pm_kind, only: LKC => LK4
3545 : #include "pm_arrayFind@routines.inc.F90"
3546 : end procedure
3547 : #endif
3548 :
3549 : #if LK3_ENABLED
3550 17 : module procedure getLocCusComDefIns_D1_D1_LK3
3551 : use pm_kind, only: LKC => LK3
3552 : #include "pm_arrayFind@routines.inc.F90"
3553 : end procedure
3554 : #endif
3555 :
3556 : #if LK2_ENABLED
3557 17 : module procedure getLocCusComDefIns_D1_D1_LK2
3558 : use pm_kind, only: LKC => LK2
3559 : #include "pm_arrayFind@routines.inc.F90"
3560 : end procedure
3561 : #endif
3562 :
3563 : #if LK1_ENABLED
3564 17 : module procedure getLocCusComDefIns_D1_D1_LK1
3565 : use pm_kind, only: LKC => LK1
3566 : #include "pm_arrayFind@routines.inc.F90"
3567 : end procedure
3568 : #endif
3569 :
3570 : #undef LK_ENABLED
3571 :
3572 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3573 :
3574 : #define CK_ENABLED 1
3575 :
3576 : #if CK5_ENABLED
3577 : module procedure getLocCusComDefIns_D1_D1_CK5
3578 : use pm_kind, only: CKC => CK5
3579 : #include "pm_arrayFind@routines.inc.F90"
3580 : end procedure
3581 : #endif
3582 :
3583 : #if CK4_ENABLED
3584 17 : module procedure getLocCusComDefIns_D1_D1_CK4
3585 : use pm_kind, only: CKC => CK4
3586 : #include "pm_arrayFind@routines.inc.F90"
3587 : end procedure
3588 : #endif
3589 :
3590 : #if CK3_ENABLED
3591 17 : module procedure getLocCusComDefIns_D1_D1_CK3
3592 : use pm_kind, only: CKC => CK3
3593 : #include "pm_arrayFind@routines.inc.F90"
3594 : end procedure
3595 : #endif
3596 :
3597 : #if CK2_ENABLED
3598 17 : module procedure getLocCusComDefIns_D1_D1_CK2
3599 : use pm_kind, only: CKC => CK2
3600 : #include "pm_arrayFind@routines.inc.F90"
3601 : end procedure
3602 : #endif
3603 :
3604 : #if CK1_ENABLED
3605 17 : module procedure getLocCusComDefIns_D1_D1_CK1
3606 : use pm_kind, only: CKC => CK1
3607 : #include "pm_arrayFind@routines.inc.F90"
3608 : end procedure
3609 : #endif
3610 :
3611 : #undef CK_ENABLED
3612 :
3613 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3614 :
3615 : #define RK_ENABLED 1
3616 :
3617 : #if RK5_ENABLED
3618 : module procedure getLocCusComDefIns_D1_D1_RK5
3619 : use pm_kind, only: RKC => RK5
3620 : #include "pm_arrayFind@routines.inc.F90"
3621 : end procedure
3622 : #endif
3623 :
3624 : #if RK4_ENABLED
3625 17 : module procedure getLocCusComDefIns_D1_D1_RK4
3626 : use pm_kind, only: RKC => RK4
3627 : #include "pm_arrayFind@routines.inc.F90"
3628 : end procedure
3629 : #endif
3630 :
3631 : #if RK3_ENABLED
3632 17 : module procedure getLocCusComDefIns_D1_D1_RK3
3633 : use pm_kind, only: RKC => RK3
3634 : #include "pm_arrayFind@routines.inc.F90"
3635 : end procedure
3636 : #endif
3637 :
3638 : #if RK2_ENABLED
3639 17 : module procedure getLocCusComDefIns_D1_D1_RK2
3640 : use pm_kind, only: RKC => RK2
3641 : #include "pm_arrayFind@routines.inc.F90"
3642 : end procedure
3643 : #endif
3644 :
3645 : #if RK1_ENABLED
3646 17 : module procedure getLocCusComDefIns_D1_D1_RK1
3647 : use pm_kind, only: RKC => RK1
3648 : #include "pm_arrayFind@routines.inc.F90"
3649 : end procedure
3650 : #endif
3651 :
3652 : #undef RK_ENABLED
3653 :
3654 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3655 :
3656 : #undef CusCom_ENABLED
3657 : #undef DefIns_ENABLED
3658 :
3659 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3660 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3661 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3662 :
3663 : #define DefCom_ENABLED 1
3664 : #define CusIns_ENABLED 1
3665 :
3666 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3667 :
3668 : #define SK_ENABLED 1
3669 :
3670 : #if SK5_ENABLED
3671 : module procedure getLocDefComCusIns_D1_D1_SK5
3672 : use pm_kind, only: SKC => SK5
3673 : #include "pm_arrayFind@routines.inc.F90"
3674 : end procedure
3675 : #endif
3676 :
3677 : #if SK4_ENABLED
3678 : module procedure getLocDefComCusIns_D1_D1_SK4
3679 : use pm_kind, only: SKC => SK4
3680 : #include "pm_arrayFind@routines.inc.F90"
3681 : end procedure
3682 : #endif
3683 :
3684 : #if SK3_ENABLED
3685 : module procedure getLocDefComCusIns_D1_D1_SK3
3686 : use pm_kind, only: SKC => SK3
3687 : #include "pm_arrayFind@routines.inc.F90"
3688 : end procedure
3689 : #endif
3690 :
3691 : #if SK2_ENABLED
3692 : module procedure getLocDefComCusIns_D1_D1_SK2
3693 : use pm_kind, only: SKC => SK2
3694 : #include "pm_arrayFind@routines.inc.F90"
3695 : end procedure
3696 : #endif
3697 :
3698 : #if SK1_ENABLED
3699 344 : module procedure getLocDefComCusIns_D1_D1_SK1
3700 : use pm_kind, only: SKC => SK1
3701 : #include "pm_arrayFind@routines.inc.F90"
3702 : end procedure
3703 : #endif
3704 :
3705 : #undef SK_ENABLED
3706 :
3707 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3708 :
3709 : #define IK_ENABLED 1
3710 :
3711 : #if IK5_ENABLED
3712 343 : module procedure getLocDefComCusIns_D1_D1_IK5
3713 : use pm_kind, only: IKC => IK5
3714 : #include "pm_arrayFind@routines.inc.F90"
3715 : end procedure
3716 : #endif
3717 :
3718 : #if IK4_ENABLED
3719 343 : module procedure getLocDefComCusIns_D1_D1_IK4
3720 : use pm_kind, only: IKC => IK4
3721 : #include "pm_arrayFind@routines.inc.F90"
3722 : end procedure
3723 : #endif
3724 :
3725 : #if IK3_ENABLED
3726 344 : module procedure getLocDefComCusIns_D1_D1_IK3
3727 : use pm_kind, only: IKC => IK3
3728 : #include "pm_arrayFind@routines.inc.F90"
3729 : end procedure
3730 : #endif
3731 :
3732 : #if IK2_ENABLED
3733 343 : module procedure getLocDefComCusIns_D1_D1_IK2
3734 : use pm_kind, only: IKC => IK2
3735 : #include "pm_arrayFind@routines.inc.F90"
3736 : end procedure
3737 : #endif
3738 :
3739 : #if IK1_ENABLED
3740 343 : module procedure getLocDefComCusIns_D1_D1_IK1
3741 : use pm_kind, only: IKC => IK1
3742 : #include "pm_arrayFind@routines.inc.F90"
3743 : end procedure
3744 : #endif
3745 :
3746 : #undef IK_ENABLED
3747 :
3748 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3749 :
3750 : #define LK_ENABLED 1
3751 :
3752 : #if LK5_ENABLED
3753 343 : module procedure getLocDefComCusIns_D1_D1_LK5
3754 : use pm_kind, only: LKC => LK5
3755 : #include "pm_arrayFind@routines.inc.F90"
3756 : end procedure
3757 : #endif
3758 :
3759 : #if LK4_ENABLED
3760 343 : module procedure getLocDefComCusIns_D1_D1_LK4
3761 : use pm_kind, only: LKC => LK4
3762 : #include "pm_arrayFind@routines.inc.F90"
3763 : end procedure
3764 : #endif
3765 :
3766 : #if LK3_ENABLED
3767 344 : module procedure getLocDefComCusIns_D1_D1_LK3
3768 : use pm_kind, only: LKC => LK3
3769 : #include "pm_arrayFind@routines.inc.F90"
3770 : end procedure
3771 : #endif
3772 :
3773 : #if LK2_ENABLED
3774 343 : module procedure getLocDefComCusIns_D1_D1_LK2
3775 : use pm_kind, only: LKC => LK2
3776 : #include "pm_arrayFind@routines.inc.F90"
3777 : end procedure
3778 : #endif
3779 :
3780 : #if LK1_ENABLED
3781 343 : module procedure getLocDefComCusIns_D1_D1_LK1
3782 : use pm_kind, only: LKC => LK1
3783 : #include "pm_arrayFind@routines.inc.F90"
3784 : end procedure
3785 : #endif
3786 :
3787 : #undef LK_ENABLED
3788 :
3789 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3790 :
3791 : #define CK_ENABLED 1
3792 :
3793 : #if CK5_ENABLED
3794 : module procedure getLocDefComCusIns_D1_D1_CK5
3795 : use pm_kind, only: CKC => CK5
3796 : #include "pm_arrayFind@routines.inc.F90"
3797 : end procedure
3798 : #endif
3799 :
3800 : #if CK4_ENABLED
3801 343 : module procedure getLocDefComCusIns_D1_D1_CK4
3802 : use pm_kind, only: CKC => CK4
3803 : #include "pm_arrayFind@routines.inc.F90"
3804 : end procedure
3805 : #endif
3806 :
3807 : #if CK3_ENABLED
3808 343 : module procedure getLocDefComCusIns_D1_D1_CK3
3809 : use pm_kind, only: CKC => CK3
3810 : #include "pm_arrayFind@routines.inc.F90"
3811 : end procedure
3812 : #endif
3813 :
3814 : #if CK2_ENABLED
3815 344 : module procedure getLocDefComCusIns_D1_D1_CK2
3816 : use pm_kind, only: CKC => CK2
3817 : #include "pm_arrayFind@routines.inc.F90"
3818 : end procedure
3819 : #endif
3820 :
3821 : #if CK1_ENABLED
3822 343 : module procedure getLocDefComCusIns_D1_D1_CK1
3823 : use pm_kind, only: CKC => CK1
3824 : #include "pm_arrayFind@routines.inc.F90"
3825 : end procedure
3826 : #endif
3827 :
3828 : #undef CK_ENABLED
3829 :
3830 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3831 :
3832 : #define RK_ENABLED 1
3833 :
3834 : #if RK5_ENABLED
3835 : module procedure getLocDefComCusIns_D1_D1_RK5
3836 : use pm_kind, only: RKC => RK5
3837 : #include "pm_arrayFind@routines.inc.F90"
3838 : end procedure
3839 : #endif
3840 :
3841 : #if RK4_ENABLED
3842 343 : module procedure getLocDefComCusIns_D1_D1_RK4
3843 : use pm_kind, only: RKC => RK4
3844 : #include "pm_arrayFind@routines.inc.F90"
3845 : end procedure
3846 : #endif
3847 :
3848 : #if RK3_ENABLED
3849 343 : module procedure getLocDefComCusIns_D1_D1_RK3
3850 : use pm_kind, only: RKC => RK3
3851 : #include "pm_arrayFind@routines.inc.F90"
3852 : end procedure
3853 : #endif
3854 :
3855 : #if RK2_ENABLED
3856 344 : module procedure getLocDefComCusIns_D1_D1_RK2
3857 : use pm_kind, only: RKC => RK2
3858 : #include "pm_arrayFind@routines.inc.F90"
3859 : end procedure
3860 : #endif
3861 :
3862 : #if RK1_ENABLED
3863 343 : module procedure getLocDefComCusIns_D1_D1_RK1
3864 : use pm_kind, only: RKC => RK1
3865 : #include "pm_arrayFind@routines.inc.F90"
3866 : end procedure
3867 : #endif
3868 :
3869 : #undef RK_ENABLED
3870 :
3871 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3872 :
3873 : #undef DefCom_ENABLED
3874 : #undef CusIns_ENABLED
3875 :
3876 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3877 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3878 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3879 :
3880 : #define CusCom_ENABLED 1
3881 : #define CusIns_ENABLED 1
3882 :
3883 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3884 :
3885 : #define SK_ENABLED 1
3886 :
3887 : #if SK5_ENABLED
3888 : module procedure getLocCusComCusIns_D1_D1_SK5
3889 : use pm_kind, only: SKC => SK5
3890 : #include "pm_arrayFind@routines.inc.F90"
3891 : end procedure
3892 : #endif
3893 :
3894 : #if SK4_ENABLED
3895 : module procedure getLocCusComCusIns_D1_D1_SK4
3896 : use pm_kind, only: SKC => SK4
3897 : #include "pm_arrayFind@routines.inc.F90"
3898 : end procedure
3899 : #endif
3900 :
3901 : #if SK3_ENABLED
3902 : module procedure getLocCusComCusIns_D1_D1_SK3
3903 : use pm_kind, only: SKC => SK3
3904 : #include "pm_arrayFind@routines.inc.F90"
3905 : end procedure
3906 : #endif
3907 :
3908 : #if SK2_ENABLED
3909 : module procedure getLocCusComCusIns_D1_D1_SK2
3910 : use pm_kind, only: SKC => SK2
3911 : #include "pm_arrayFind@routines.inc.F90"
3912 : end procedure
3913 : #endif
3914 :
3915 : #if SK1_ENABLED
3916 343 : module procedure getLocCusComCusIns_D1_D1_SK1
3917 : use pm_kind, only: SKC => SK1
3918 : #include "pm_arrayFind@routines.inc.F90"
3919 : end procedure
3920 : #endif
3921 :
3922 : #undef SK_ENABLED
3923 :
3924 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3925 :
3926 : #define IK_ENABLED 1
3927 :
3928 : #if IK5_ENABLED
3929 343 : module procedure getLocCusComCusIns_D1_D1_IK5
3930 : use pm_kind, only: IKC => IK5
3931 : #include "pm_arrayFind@routines.inc.F90"
3932 : end procedure
3933 : #endif
3934 :
3935 : #if IK4_ENABLED
3936 343 : module procedure getLocCusComCusIns_D1_D1_IK4
3937 : use pm_kind, only: IKC => IK4
3938 : #include "pm_arrayFind@routines.inc.F90"
3939 : end procedure
3940 : #endif
3941 :
3942 : #if IK3_ENABLED
3943 343 : module procedure getLocCusComCusIns_D1_D1_IK3
3944 : use pm_kind, only: IKC => IK3
3945 : #include "pm_arrayFind@routines.inc.F90"
3946 : end procedure
3947 : #endif
3948 :
3949 : #if IK2_ENABLED
3950 343 : module procedure getLocCusComCusIns_D1_D1_IK2
3951 : use pm_kind, only: IKC => IK2
3952 : #include "pm_arrayFind@routines.inc.F90"
3953 : end procedure
3954 : #endif
3955 :
3956 : #if IK1_ENABLED
3957 343 : module procedure getLocCusComCusIns_D1_D1_IK1
3958 : use pm_kind, only: IKC => IK1
3959 : #include "pm_arrayFind@routines.inc.F90"
3960 : end procedure
3961 : #endif
3962 :
3963 : #undef IK_ENABLED
3964 :
3965 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3966 :
3967 : #define LK_ENABLED 1
3968 :
3969 : #if LK5_ENABLED
3970 343 : module procedure getLocCusComCusIns_D1_D1_LK5
3971 : use pm_kind, only: LKC => LK5
3972 : #include "pm_arrayFind@routines.inc.F90"
3973 : end procedure
3974 : #endif
3975 :
3976 : #if LK4_ENABLED
3977 343 : module procedure getLocCusComCusIns_D1_D1_LK4
3978 : use pm_kind, only: LKC => LK4
3979 : #include "pm_arrayFind@routines.inc.F90"
3980 : end procedure
3981 : #endif
3982 :
3983 : #if LK3_ENABLED
3984 343 : module procedure getLocCusComCusIns_D1_D1_LK3
3985 : use pm_kind, only: LKC => LK3
3986 : #include "pm_arrayFind@routines.inc.F90"
3987 : end procedure
3988 : #endif
3989 :
3990 : #if LK2_ENABLED
3991 343 : module procedure getLocCusComCusIns_D1_D1_LK2
3992 : use pm_kind, only: LKC => LK2
3993 : #include "pm_arrayFind@routines.inc.F90"
3994 : end procedure
3995 : #endif
3996 :
3997 : #if LK1_ENABLED
3998 343 : module procedure getLocCusComCusIns_D1_D1_LK1
3999 : use pm_kind, only: LKC => LK1
4000 : #include "pm_arrayFind@routines.inc.F90"
4001 : end procedure
4002 : #endif
4003 :
4004 : #undef LK_ENABLED
4005 :
4006 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4007 :
4008 : #define CK_ENABLED 1
4009 :
4010 : #if CK5_ENABLED
4011 : module procedure getLocCusComCusIns_D1_D1_CK5
4012 : use pm_kind, only: CKC => CK5
4013 : #include "pm_arrayFind@routines.inc.F90"
4014 : end procedure
4015 : #endif
4016 :
4017 : #if CK4_ENABLED
4018 343 : module procedure getLocCusComCusIns_D1_D1_CK4
4019 : use pm_kind, only: CKC => CK4
4020 : #include "pm_arrayFind@routines.inc.F90"
4021 : end procedure
4022 : #endif
4023 :
4024 : #if CK3_ENABLED
4025 343 : module procedure getLocCusComCusIns_D1_D1_CK3
4026 : use pm_kind, only: CKC => CK3
4027 : #include "pm_arrayFind@routines.inc.F90"
4028 : end procedure
4029 : #endif
4030 :
4031 : #if CK2_ENABLED
4032 343 : module procedure getLocCusComCusIns_D1_D1_CK2
4033 : use pm_kind, only: CKC => CK2
4034 : #include "pm_arrayFind@routines.inc.F90"
4035 : end procedure
4036 : #endif
4037 :
4038 : #if CK1_ENABLED
4039 343 : module procedure getLocCusComCusIns_D1_D1_CK1
4040 : use pm_kind, only: CKC => CK1
4041 : #include "pm_arrayFind@routines.inc.F90"
4042 : end procedure
4043 : #endif
4044 :
4045 : #undef CK_ENABLED
4046 :
4047 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4048 :
4049 : #define RK_ENABLED 1
4050 :
4051 : #if RK5_ENABLED
4052 : module procedure getLocCusComCusIns_D1_D1_RK5
4053 : use pm_kind, only: RKC => RK5
4054 : #include "pm_arrayFind@routines.inc.F90"
4055 : end procedure
4056 : #endif
4057 :
4058 : #if RK4_ENABLED
4059 343 : module procedure getLocCusComCusIns_D1_D1_RK4
4060 : use pm_kind, only: RKC => RK4
4061 : #include "pm_arrayFind@routines.inc.F90"
4062 : end procedure
4063 : #endif
4064 :
4065 : #if RK3_ENABLED
4066 343 : module procedure getLocCusComCusIns_D1_D1_RK3
4067 : use pm_kind, only: RKC => RK3
4068 : #include "pm_arrayFind@routines.inc.F90"
4069 : end procedure
4070 : #endif
4071 :
4072 : #if RK2_ENABLED
4073 344 : module procedure getLocCusComCusIns_D1_D1_RK2
4074 : use pm_kind, only: RKC => RK2
4075 : #include "pm_arrayFind@routines.inc.F90"
4076 : end procedure
4077 : #endif
4078 :
4079 : #if RK1_ENABLED
4080 343 : module procedure getLocCusComCusIns_D1_D1_RK1
4081 : use pm_kind, only: RKC => RK1
4082 : #include "pm_arrayFind@routines.inc.F90"
4083 : end procedure
4084 : #endif
4085 :
4086 : #undef RK_ENABLED
4087 :
4088 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4089 :
4090 : #undef CusCom_ENABLED
4091 : #undef CusIns_ENABLED
4092 :
4093 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4094 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4095 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4096 :
4097 : #undef D1_D1_ENABLED
4098 :
4099 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4100 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4101 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4102 :
4103 : #undef getLoc_ENABLED
4104 :
4105 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4106 :
4107 : #define setLoc_ENABLED 1
4108 :
4109 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4110 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4111 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4112 :
4113 : #define D0_D0_ENABLED 1
4114 :
4115 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4116 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4117 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4118 :
4119 : #define DefCom_ENABLED 1
4120 : #define DefIns_ENABLED 1
4121 :
4122 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4123 :
4124 : #define SK_ENABLED 1
4125 :
4126 : #if SK5_ENABLED
4127 : module procedure setLocDefComDefIns_D0_D0_SK5
4128 : use pm_kind, only: SKC => SK5
4129 : #include "pm_arrayFind@routines.inc.F90"
4130 : end procedure
4131 : #endif
4132 :
4133 : #if SK4_ENABLED
4134 : module procedure setLocDefComDefIns_D0_D0_SK4
4135 : use pm_kind, only: SKC => SK4
4136 : #include "pm_arrayFind@routines.inc.F90"
4137 : end procedure
4138 : #endif
4139 :
4140 : #if SK3_ENABLED
4141 : module procedure setLocDefComDefIns_D0_D0_SK3
4142 : use pm_kind, only: SKC => SK3
4143 : #include "pm_arrayFind@routines.inc.F90"
4144 : end procedure
4145 : #endif
4146 :
4147 : #if SK2_ENABLED
4148 : module procedure setLocDefComDefIns_D0_D0_SK2
4149 : use pm_kind, only: SKC => SK2
4150 : #include "pm_arrayFind@routines.inc.F90"
4151 : end procedure
4152 : #endif
4153 :
4154 : #if SK1_ENABLED
4155 21760 : module procedure setLocDefComDefIns_D0_D0_SK1
4156 : use pm_kind, only: SKC => SK1
4157 : #include "pm_arrayFind@routines.inc.F90"
4158 : end procedure
4159 : #endif
4160 :
4161 : #undef SK_ENABLED
4162 :
4163 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4164 :
4165 : #undef DefCom_ENABLED
4166 : #undef DefIns_ENABLED
4167 :
4168 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4169 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4170 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4171 :
4172 : #define CusCom_ENABLED 1
4173 : #define DefIns_ENABLED 1
4174 :
4175 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4176 :
4177 : #define SK_ENABLED 1
4178 :
4179 : #if SK5_ENABLED
4180 : module procedure setLocCusComDefIns_D0_D0_SK5
4181 : use pm_kind, only: SKC => SK5
4182 : #include "pm_arrayFind@routines.inc.F90"
4183 : end procedure
4184 : #endif
4185 :
4186 : #if SK4_ENABLED
4187 : module procedure setLocCusComDefIns_D0_D0_SK4
4188 : use pm_kind, only: SKC => SK4
4189 : #include "pm_arrayFind@routines.inc.F90"
4190 : end procedure
4191 : #endif
4192 :
4193 : #if SK3_ENABLED
4194 : module procedure setLocCusComDefIns_D0_D0_SK3
4195 : use pm_kind, only: SKC => SK3
4196 : #include "pm_arrayFind@routines.inc.F90"
4197 : end procedure
4198 : #endif
4199 :
4200 : #if SK2_ENABLED
4201 : module procedure setLocCusComDefIns_D0_D0_SK2
4202 : use pm_kind, only: SKC => SK2
4203 : #include "pm_arrayFind@routines.inc.F90"
4204 : end procedure
4205 : #endif
4206 :
4207 : #if SK1_ENABLED
4208 18 : module procedure setLocCusComDefIns_D0_D0_SK1
4209 : use pm_kind, only: SKC => SK1
4210 : #include "pm_arrayFind@routines.inc.F90"
4211 : end procedure
4212 : #endif
4213 :
4214 : #undef SK_ENABLED
4215 :
4216 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4217 :
4218 : #undef CusCom_ENABLED
4219 : #undef DefIns_ENABLED
4220 :
4221 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4222 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4223 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4224 :
4225 : #define DefCom_ENABLED 1
4226 : #define CusIns_ENABLED 1
4227 :
4228 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4229 :
4230 : #define SK_ENABLED 1
4231 :
4232 : #if SK5_ENABLED
4233 : module procedure setLocDefComCusIns_D0_D0_SK5
4234 : use pm_kind, only: SKC => SK5
4235 : #include "pm_arrayFind@routines.inc.F90"
4236 : end procedure
4237 : #endif
4238 :
4239 : #if SK4_ENABLED
4240 : module procedure setLocDefComCusIns_D0_D0_SK4
4241 : use pm_kind, only: SKC => SK4
4242 : #include "pm_arrayFind@routines.inc.F90"
4243 : end procedure
4244 : #endif
4245 :
4246 : #if SK3_ENABLED
4247 : module procedure setLocDefComCusIns_D0_D0_SK3
4248 : use pm_kind, only: SKC => SK3
4249 : #include "pm_arrayFind@routines.inc.F90"
4250 : end procedure
4251 : #endif
4252 :
4253 : #if SK2_ENABLED
4254 : module procedure setLocDefComCusIns_D0_D0_SK2
4255 : use pm_kind, only: SKC => SK2
4256 : #include "pm_arrayFind@routines.inc.F90"
4257 : end procedure
4258 : #endif
4259 :
4260 : #if SK1_ENABLED
4261 344 : module procedure setLocDefComCusIns_D0_D0_SK1
4262 : use pm_kind, only: SKC => SK1
4263 : #include "pm_arrayFind@routines.inc.F90"
4264 : end procedure
4265 : #endif
4266 :
4267 : #undef SK_ENABLED
4268 :
4269 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4270 :
4271 : #undef DefCom_ENABLED
4272 : #undef CusIns_ENABLED
4273 :
4274 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4275 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4276 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4277 :
4278 : #define CusCom_ENABLED 1
4279 : #define CusIns_ENABLED 1
4280 :
4281 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4282 :
4283 : #define SK_ENABLED 1
4284 :
4285 : #if SK5_ENABLED
4286 : module procedure setLocCusComCusIns_D0_D0_SK5
4287 : use pm_kind, only: SKC => SK5
4288 : #include "pm_arrayFind@routines.inc.F90"
4289 : end procedure
4290 : #endif
4291 :
4292 : #if SK4_ENABLED
4293 : module procedure setLocCusComCusIns_D0_D0_SK4
4294 : use pm_kind, only: SKC => SK4
4295 : #include "pm_arrayFind@routines.inc.F90"
4296 : end procedure
4297 : #endif
4298 :
4299 : #if SK3_ENABLED
4300 : module procedure setLocCusComCusIns_D0_D0_SK3
4301 : use pm_kind, only: SKC => SK3
4302 : #include "pm_arrayFind@routines.inc.F90"
4303 : end procedure
4304 : #endif
4305 :
4306 : #if SK2_ENABLED
4307 : module procedure setLocCusComCusIns_D0_D0_SK2
4308 : use pm_kind, only: SKC => SK2
4309 : #include "pm_arrayFind@routines.inc.F90"
4310 : end procedure
4311 : #endif
4312 :
4313 : #if SK1_ENABLED
4314 343 : module procedure setLocCusComCusIns_D0_D0_SK1
4315 : use pm_kind, only: SKC => SK1
4316 : #include "pm_arrayFind@routines.inc.F90"
4317 : end procedure
4318 : #endif
4319 :
4320 : #undef SK_ENABLED
4321 :
4322 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4323 :
4324 : #undef CusCom_ENABLED
4325 : #undef CusIns_ENABLED
4326 :
4327 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4328 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4329 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4330 :
4331 : #undef D0_D0_ENABLED
4332 :
4333 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4334 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4335 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4336 :
4337 : #define D1_D0_ENABLED 1
4338 :
4339 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4340 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4341 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4342 :
4343 : #define DefCom_ENABLED 1
4344 : #define DefIns_ENABLED 1
4345 :
4346 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4347 :
4348 : #define SK_ENABLED 1
4349 :
4350 : #if SK5_ENABLED
4351 : module procedure setLocDefComDefIns_D1_D0_SK5
4352 : use pm_kind, only: SKC => SK5
4353 : #include "pm_arrayFind@routines.inc.F90"
4354 : end procedure
4355 : #endif
4356 :
4357 : #if SK4_ENABLED
4358 : module procedure setLocDefComDefIns_D1_D0_SK4
4359 : use pm_kind, only: SKC => SK4
4360 : #include "pm_arrayFind@routines.inc.F90"
4361 : end procedure
4362 : #endif
4363 :
4364 : #if SK3_ENABLED
4365 : module procedure setLocDefComDefIns_D1_D0_SK3
4366 : use pm_kind, only: SKC => SK3
4367 : #include "pm_arrayFind@routines.inc.F90"
4368 : end procedure
4369 : #endif
4370 :
4371 : #if SK2_ENABLED
4372 : module procedure setLocDefComDefIns_D1_D0_SK2
4373 : use pm_kind, only: SKC => SK2
4374 : #include "pm_arrayFind@routines.inc.F90"
4375 : end procedure
4376 : #endif
4377 :
4378 : #if SK1_ENABLED
4379 16 : module procedure setLocDefComDefIns_D1_D0_SK1
4380 : use pm_kind, only: SKC => SK1
4381 : #include "pm_arrayFind@routines.inc.F90"
4382 : end procedure
4383 : #endif
4384 :
4385 : #undef SK_ENABLED
4386 :
4387 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4388 :
4389 : #define IK_ENABLED 1
4390 :
4391 : #if IK5_ENABLED
4392 16 : module procedure setLocDefComDefIns_D1_D0_IK5
4393 : use pm_kind, only: IKC => IK5
4394 : #include "pm_arrayFind@routines.inc.F90"
4395 : end procedure
4396 : #endif
4397 :
4398 : #if IK4_ENABLED
4399 16 : module procedure setLocDefComDefIns_D1_D0_IK4
4400 : use pm_kind, only: IKC => IK4
4401 : #include "pm_arrayFind@routines.inc.F90"
4402 : end procedure
4403 : #endif
4404 :
4405 : #if IK3_ENABLED
4406 16 : module procedure setLocDefComDefIns_D1_D0_IK3
4407 : use pm_kind, only: IKC => IK3
4408 : #include "pm_arrayFind@routines.inc.F90"
4409 : end procedure
4410 : #endif
4411 :
4412 : #if IK2_ENABLED
4413 16 : module procedure setLocDefComDefIns_D1_D0_IK2
4414 : use pm_kind, only: IKC => IK2
4415 : #include "pm_arrayFind@routines.inc.F90"
4416 : end procedure
4417 : #endif
4418 :
4419 : #if IK1_ENABLED
4420 16 : module procedure setLocDefComDefIns_D1_D0_IK1
4421 : use pm_kind, only: IKC => IK1
4422 : #include "pm_arrayFind@routines.inc.F90"
4423 : end procedure
4424 : #endif
4425 :
4426 : #undef IK_ENABLED
4427 :
4428 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4429 :
4430 : #define LK_ENABLED 1
4431 :
4432 : #if LK5_ENABLED
4433 16 : module procedure setLocDefComDefIns_D1_D0_LK5
4434 : use pm_kind, only: LKC => LK5
4435 : #include "pm_arrayFind@routines.inc.F90"
4436 : end procedure
4437 : #endif
4438 :
4439 : #if LK4_ENABLED
4440 16 : module procedure setLocDefComDefIns_D1_D0_LK4
4441 : use pm_kind, only: LKC => LK4
4442 : #include "pm_arrayFind@routines.inc.F90"
4443 : end procedure
4444 : #endif
4445 :
4446 : #if LK3_ENABLED
4447 16 : module procedure setLocDefComDefIns_D1_D0_LK3
4448 : use pm_kind, only: LKC => LK3
4449 : #include "pm_arrayFind@routines.inc.F90"
4450 : end procedure
4451 : #endif
4452 :
4453 : #if LK2_ENABLED
4454 16 : module procedure setLocDefComDefIns_D1_D0_LK2
4455 : use pm_kind, only: LKC => LK2
4456 : #include "pm_arrayFind@routines.inc.F90"
4457 : end procedure
4458 : #endif
4459 :
4460 : #if LK1_ENABLED
4461 16 : module procedure setLocDefComDefIns_D1_D0_LK1
4462 : use pm_kind, only: LKC => LK1
4463 : #include "pm_arrayFind@routines.inc.F90"
4464 : end procedure
4465 : #endif
4466 :
4467 : #undef LK_ENABLED
4468 :
4469 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4470 :
4471 : #define CK_ENABLED 1
4472 :
4473 : #if CK5_ENABLED
4474 : module procedure setLocDefComDefIns_D1_D0_CK5
4475 : use pm_kind, only: CKC => CK5
4476 : #include "pm_arrayFind@routines.inc.F90"
4477 : end procedure
4478 : #endif
4479 :
4480 : #if CK4_ENABLED
4481 16 : module procedure setLocDefComDefIns_D1_D0_CK4
4482 : use pm_kind, only: CKC => CK4
4483 : #include "pm_arrayFind@routines.inc.F90"
4484 : end procedure
4485 : #endif
4486 :
4487 : #if CK3_ENABLED
4488 16 : module procedure setLocDefComDefIns_D1_D0_CK3
4489 : use pm_kind, only: CKC => CK3
4490 : #include "pm_arrayFind@routines.inc.F90"
4491 : end procedure
4492 : #endif
4493 :
4494 : #if CK2_ENABLED
4495 16 : module procedure setLocDefComDefIns_D1_D0_CK2
4496 : use pm_kind, only: CKC => CK2
4497 : #include "pm_arrayFind@routines.inc.F90"
4498 : end procedure
4499 : #endif
4500 :
4501 : #if CK1_ENABLED
4502 16 : module procedure setLocDefComDefIns_D1_D0_CK1
4503 : use pm_kind, only: CKC => CK1
4504 : #include "pm_arrayFind@routines.inc.F90"
4505 : end procedure
4506 : #endif
4507 :
4508 : #undef CK_ENABLED
4509 :
4510 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4511 :
4512 : #define RK_ENABLED 1
4513 :
4514 : #if RK5_ENABLED
4515 : module procedure setLocDefComDefIns_D1_D0_RK5
4516 : use pm_kind, only: RKC => RK5
4517 : #include "pm_arrayFind@routines.inc.F90"
4518 : end procedure
4519 : #endif
4520 :
4521 : #if RK4_ENABLED
4522 16 : module procedure setLocDefComDefIns_D1_D0_RK4
4523 : use pm_kind, only: RKC => RK4
4524 : #include "pm_arrayFind@routines.inc.F90"
4525 : end procedure
4526 : #endif
4527 :
4528 : #if RK3_ENABLED
4529 16 : module procedure setLocDefComDefIns_D1_D0_RK3
4530 : use pm_kind, only: RKC => RK3
4531 : #include "pm_arrayFind@routines.inc.F90"
4532 : end procedure
4533 : #endif
4534 :
4535 : #if RK2_ENABLED
4536 16 : module procedure setLocDefComDefIns_D1_D0_RK2
4537 : use pm_kind, only: RKC => RK2
4538 : #include "pm_arrayFind@routines.inc.F90"
4539 : end procedure
4540 : #endif
4541 :
4542 : #if RK1_ENABLED
4543 16 : module procedure setLocDefComDefIns_D1_D0_RK1
4544 : use pm_kind, only: RKC => RK1
4545 : #include "pm_arrayFind@routines.inc.F90"
4546 : end procedure
4547 : #endif
4548 :
4549 : #undef RK_ENABLED
4550 :
4551 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4552 :
4553 : #undef DefCom_ENABLED
4554 : #undef DefIns_ENABLED
4555 :
4556 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4557 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4558 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4559 :
4560 : #define CusCom_ENABLED 1
4561 : #define DefIns_ENABLED 1
4562 :
4563 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4564 :
4565 : #define SK_ENABLED 1
4566 :
4567 : #if SK5_ENABLED
4568 : module procedure setLocCusComDefIns_D1_D0_SK5
4569 : use pm_kind, only: SKC => SK5
4570 : #include "pm_arrayFind@routines.inc.F90"
4571 : end procedure
4572 : #endif
4573 :
4574 : #if SK4_ENABLED
4575 : module procedure setLocCusComDefIns_D1_D0_SK4
4576 : use pm_kind, only: SKC => SK4
4577 : #include "pm_arrayFind@routines.inc.F90"
4578 : end procedure
4579 : #endif
4580 :
4581 : #if SK3_ENABLED
4582 : module procedure setLocCusComDefIns_D1_D0_SK3
4583 : use pm_kind, only: SKC => SK3
4584 : #include "pm_arrayFind@routines.inc.F90"
4585 : end procedure
4586 : #endif
4587 :
4588 : #if SK2_ENABLED
4589 : module procedure setLocCusComDefIns_D1_D0_SK2
4590 : use pm_kind, only: SKC => SK2
4591 : #include "pm_arrayFind@routines.inc.F90"
4592 : end procedure
4593 : #endif
4594 :
4595 : #if SK1_ENABLED
4596 16 : module procedure setLocCusComDefIns_D1_D0_SK1
4597 : use pm_kind, only: SKC => SK1
4598 : #include "pm_arrayFind@routines.inc.F90"
4599 : end procedure
4600 : #endif
4601 :
4602 : #undef SK_ENABLED
4603 :
4604 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4605 :
4606 : #define IK_ENABLED 1
4607 :
4608 : #if IK5_ENABLED
4609 16 : module procedure setLocCusComDefIns_D1_D0_IK5
4610 : use pm_kind, only: IKC => IK5
4611 : #include "pm_arrayFind@routines.inc.F90"
4612 : end procedure
4613 : #endif
4614 :
4615 : #if IK4_ENABLED
4616 16 : module procedure setLocCusComDefIns_D1_D0_IK4
4617 : use pm_kind, only: IKC => IK4
4618 : #include "pm_arrayFind@routines.inc.F90"
4619 : end procedure
4620 : #endif
4621 :
4622 : #if IK3_ENABLED
4623 16 : module procedure setLocCusComDefIns_D1_D0_IK3
4624 : use pm_kind, only: IKC => IK3
4625 : #include "pm_arrayFind@routines.inc.F90"
4626 : end procedure
4627 : #endif
4628 :
4629 : #if IK2_ENABLED
4630 16 : module procedure setLocCusComDefIns_D1_D0_IK2
4631 : use pm_kind, only: IKC => IK2
4632 : #include "pm_arrayFind@routines.inc.F90"
4633 : end procedure
4634 : #endif
4635 :
4636 : #if IK1_ENABLED
4637 16 : module procedure setLocCusComDefIns_D1_D0_IK1
4638 : use pm_kind, only: IKC => IK1
4639 : #include "pm_arrayFind@routines.inc.F90"
4640 : end procedure
4641 : #endif
4642 :
4643 : #undef IK_ENABLED
4644 :
4645 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4646 :
4647 : #define LK_ENABLED 1
4648 :
4649 : #if LK5_ENABLED
4650 16 : module procedure setLocCusComDefIns_D1_D0_LK5
4651 : use pm_kind, only: LKC => LK5
4652 : #include "pm_arrayFind@routines.inc.F90"
4653 : end procedure
4654 : #endif
4655 :
4656 : #if LK4_ENABLED
4657 16 : module procedure setLocCusComDefIns_D1_D0_LK4
4658 : use pm_kind, only: LKC => LK4
4659 : #include "pm_arrayFind@routines.inc.F90"
4660 : end procedure
4661 : #endif
4662 :
4663 : #if LK3_ENABLED
4664 16 : module procedure setLocCusComDefIns_D1_D0_LK3
4665 : use pm_kind, only: LKC => LK3
4666 : #include "pm_arrayFind@routines.inc.F90"
4667 : end procedure
4668 : #endif
4669 :
4670 : #if LK2_ENABLED
4671 16 : module procedure setLocCusComDefIns_D1_D0_LK2
4672 : use pm_kind, only: LKC => LK2
4673 : #include "pm_arrayFind@routines.inc.F90"
4674 : end procedure
4675 : #endif
4676 :
4677 : #if LK1_ENABLED
4678 16 : module procedure setLocCusComDefIns_D1_D0_LK1
4679 : use pm_kind, only: LKC => LK1
4680 : #include "pm_arrayFind@routines.inc.F90"
4681 : end procedure
4682 : #endif
4683 :
4684 : #undef LK_ENABLED
4685 :
4686 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4687 :
4688 : #define CK_ENABLED 1
4689 :
4690 : #if CK5_ENABLED
4691 : module procedure setLocCusComDefIns_D1_D0_CK5
4692 : use pm_kind, only: CKC => CK5
4693 : #include "pm_arrayFind@routines.inc.F90"
4694 : end procedure
4695 : #endif
4696 :
4697 : #if CK4_ENABLED
4698 16 : module procedure setLocCusComDefIns_D1_D0_CK4
4699 : use pm_kind, only: CKC => CK4
4700 : #include "pm_arrayFind@routines.inc.F90"
4701 : end procedure
4702 : #endif
4703 :
4704 : #if CK3_ENABLED
4705 16 : module procedure setLocCusComDefIns_D1_D0_CK3
4706 : use pm_kind, only: CKC => CK3
4707 : #include "pm_arrayFind@routines.inc.F90"
4708 : end procedure
4709 : #endif
4710 :
4711 : #if CK2_ENABLED
4712 16 : module procedure setLocCusComDefIns_D1_D0_CK2
4713 : use pm_kind, only: CKC => CK2
4714 : #include "pm_arrayFind@routines.inc.F90"
4715 : end procedure
4716 : #endif
4717 :
4718 : #if CK1_ENABLED
4719 16 : module procedure setLocCusComDefIns_D1_D0_CK1
4720 : use pm_kind, only: CKC => CK1
4721 : #include "pm_arrayFind@routines.inc.F90"
4722 : end procedure
4723 : #endif
4724 :
4725 : #undef CK_ENABLED
4726 :
4727 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4728 :
4729 : #define RK_ENABLED 1
4730 :
4731 : #if RK5_ENABLED
4732 : module procedure setLocCusComDefIns_D1_D0_RK5
4733 : use pm_kind, only: RKC => RK5
4734 : #include "pm_arrayFind@routines.inc.F90"
4735 : end procedure
4736 : #endif
4737 :
4738 : #if RK4_ENABLED
4739 16 : module procedure setLocCusComDefIns_D1_D0_RK4
4740 : use pm_kind, only: RKC => RK4
4741 : #include "pm_arrayFind@routines.inc.F90"
4742 : end procedure
4743 : #endif
4744 :
4745 : #if RK3_ENABLED
4746 16 : module procedure setLocCusComDefIns_D1_D0_RK3
4747 : use pm_kind, only: RKC => RK3
4748 : #include "pm_arrayFind@routines.inc.F90"
4749 : end procedure
4750 : #endif
4751 :
4752 : #if RK2_ENABLED
4753 16 : module procedure setLocCusComDefIns_D1_D0_RK2
4754 : use pm_kind, only: RKC => RK2
4755 : #include "pm_arrayFind@routines.inc.F90"
4756 : end procedure
4757 : #endif
4758 :
4759 : #if RK1_ENABLED
4760 16 : module procedure setLocCusComDefIns_D1_D0_RK1
4761 : use pm_kind, only: RKC => RK1
4762 : #include "pm_arrayFind@routines.inc.F90"
4763 : end procedure
4764 : #endif
4765 :
4766 : #undef RK_ENABLED
4767 :
4768 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4769 :
4770 : #undef CusCom_ENABLED
4771 : #undef DefIns_ENABLED
4772 :
4773 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4774 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4775 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4776 :
4777 : #define DefCom_ENABLED 1
4778 : #define CusIns_ENABLED 1
4779 :
4780 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4781 :
4782 : #define SK_ENABLED 1
4783 :
4784 : #if SK5_ENABLED
4785 : module procedure setLocDefComCusIns_D1_D0_SK5
4786 : use pm_kind, only: SKC => SK5
4787 : #include "pm_arrayFind@routines.inc.F90"
4788 : end procedure
4789 : #endif
4790 :
4791 : #if SK4_ENABLED
4792 : module procedure setLocDefComCusIns_D1_D0_SK4
4793 : use pm_kind, only: SKC => SK4
4794 : #include "pm_arrayFind@routines.inc.F90"
4795 : end procedure
4796 : #endif
4797 :
4798 : #if SK3_ENABLED
4799 : module procedure setLocDefComCusIns_D1_D0_SK3
4800 : use pm_kind, only: SKC => SK3
4801 : #include "pm_arrayFind@routines.inc.F90"
4802 : end procedure
4803 : #endif
4804 :
4805 : #if SK2_ENABLED
4806 : module procedure setLocDefComCusIns_D1_D0_SK2
4807 : use pm_kind, only: SKC => SK2
4808 : #include "pm_arrayFind@routines.inc.F90"
4809 : end procedure
4810 : #endif
4811 :
4812 : #if SK1_ENABLED
4813 279 : module procedure setLocDefComCusIns_D1_D0_SK1
4814 : use pm_kind, only: SKC => SK1
4815 : #include "pm_arrayFind@routines.inc.F90"
4816 : end procedure
4817 : #endif
4818 :
4819 : #undef SK_ENABLED
4820 :
4821 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4822 :
4823 : #define IK_ENABLED 1
4824 :
4825 : #if IK5_ENABLED
4826 278 : module procedure setLocDefComCusIns_D1_D0_IK5
4827 : use pm_kind, only: IKC => IK5
4828 : #include "pm_arrayFind@routines.inc.F90"
4829 : end procedure
4830 : #endif
4831 :
4832 : #if IK4_ENABLED
4833 278 : module procedure setLocDefComCusIns_D1_D0_IK4
4834 : use pm_kind, only: IKC => IK4
4835 : #include "pm_arrayFind@routines.inc.F90"
4836 : end procedure
4837 : #endif
4838 :
4839 : #if IK3_ENABLED
4840 279 : module procedure setLocDefComCusIns_D1_D0_IK3
4841 : use pm_kind, only: IKC => IK3
4842 : #include "pm_arrayFind@routines.inc.F90"
4843 : end procedure
4844 : #endif
4845 :
4846 : #if IK2_ENABLED
4847 278 : module procedure setLocDefComCusIns_D1_D0_IK2
4848 : use pm_kind, only: IKC => IK2
4849 : #include "pm_arrayFind@routines.inc.F90"
4850 : end procedure
4851 : #endif
4852 :
4853 : #if IK1_ENABLED
4854 278 : module procedure setLocDefComCusIns_D1_D0_IK1
4855 : use pm_kind, only: IKC => IK1
4856 : #include "pm_arrayFind@routines.inc.F90"
4857 : end procedure
4858 : #endif
4859 :
4860 : #undef IK_ENABLED
4861 :
4862 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4863 :
4864 : #define LK_ENABLED 1
4865 :
4866 : #if LK5_ENABLED
4867 278 : module procedure setLocDefComCusIns_D1_D0_LK5
4868 : use pm_kind, only: LKC => LK5
4869 : #include "pm_arrayFind@routines.inc.F90"
4870 : end procedure
4871 : #endif
4872 :
4873 : #if LK4_ENABLED
4874 278 : module procedure setLocDefComCusIns_D1_D0_LK4
4875 : use pm_kind, only: LKC => LK4
4876 : #include "pm_arrayFind@routines.inc.F90"
4877 : end procedure
4878 : #endif
4879 :
4880 : #if LK3_ENABLED
4881 279 : module procedure setLocDefComCusIns_D1_D0_LK3
4882 : use pm_kind, only: LKC => LK3
4883 : #include "pm_arrayFind@routines.inc.F90"
4884 : end procedure
4885 : #endif
4886 :
4887 : #if LK2_ENABLED
4888 278 : module procedure setLocDefComCusIns_D1_D0_LK2
4889 : use pm_kind, only: LKC => LK2
4890 : #include "pm_arrayFind@routines.inc.F90"
4891 : end procedure
4892 : #endif
4893 :
4894 : #if LK1_ENABLED
4895 278 : module procedure setLocDefComCusIns_D1_D0_LK1
4896 : use pm_kind, only: LKC => LK1
4897 : #include "pm_arrayFind@routines.inc.F90"
4898 : end procedure
4899 : #endif
4900 :
4901 : #undef LK_ENABLED
4902 :
4903 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4904 :
4905 : #define CK_ENABLED 1
4906 :
4907 : #if CK5_ENABLED
4908 : module procedure setLocDefComCusIns_D1_D0_CK5
4909 : use pm_kind, only: CKC => CK5
4910 : #include "pm_arrayFind@routines.inc.F90"
4911 : end procedure
4912 : #endif
4913 :
4914 : #if CK4_ENABLED
4915 278 : module procedure setLocDefComCusIns_D1_D0_CK4
4916 : use pm_kind, only: CKC => CK4
4917 : #include "pm_arrayFind@routines.inc.F90"
4918 : end procedure
4919 : #endif
4920 :
4921 : #if CK3_ENABLED
4922 278 : module procedure setLocDefComCusIns_D1_D0_CK3
4923 : use pm_kind, only: CKC => CK3
4924 : #include "pm_arrayFind@routines.inc.F90"
4925 : end procedure
4926 : #endif
4927 :
4928 : #if CK2_ENABLED
4929 279 : module procedure setLocDefComCusIns_D1_D0_CK2
4930 : use pm_kind, only: CKC => CK2
4931 : #include "pm_arrayFind@routines.inc.F90"
4932 : end procedure
4933 : #endif
4934 :
4935 : #if CK1_ENABLED
4936 278 : module procedure setLocDefComCusIns_D1_D0_CK1
4937 : use pm_kind, only: CKC => CK1
4938 : #include "pm_arrayFind@routines.inc.F90"
4939 : end procedure
4940 : #endif
4941 :
4942 : #undef CK_ENABLED
4943 :
4944 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4945 :
4946 : #define RK_ENABLED 1
4947 :
4948 : #if RK5_ENABLED
4949 : module procedure setLocDefComCusIns_D1_D0_RK5
4950 : use pm_kind, only: RKC => RK5
4951 : #include "pm_arrayFind@routines.inc.F90"
4952 : end procedure
4953 : #endif
4954 :
4955 : #if RK4_ENABLED
4956 278 : module procedure setLocDefComCusIns_D1_D0_RK4
4957 : use pm_kind, only: RKC => RK4
4958 : #include "pm_arrayFind@routines.inc.F90"
4959 : end procedure
4960 : #endif
4961 :
4962 : #if RK3_ENABLED
4963 278 : module procedure setLocDefComCusIns_D1_D0_RK3
4964 : use pm_kind, only: RKC => RK3
4965 : #include "pm_arrayFind@routines.inc.F90"
4966 : end procedure
4967 : #endif
4968 :
4969 : #if RK2_ENABLED
4970 279 : module procedure setLocDefComCusIns_D1_D0_RK2
4971 : use pm_kind, only: RKC => RK2
4972 : #include "pm_arrayFind@routines.inc.F90"
4973 : end procedure
4974 : #endif
4975 :
4976 : #if RK1_ENABLED
4977 278 : module procedure setLocDefComCusIns_D1_D0_RK1
4978 : use pm_kind, only: RKC => RK1
4979 : #include "pm_arrayFind@routines.inc.F90"
4980 : end procedure
4981 : #endif
4982 :
4983 : #undef RK_ENABLED
4984 :
4985 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4986 :
4987 : #undef DefCom_ENABLED
4988 : #undef CusIns_ENABLED
4989 :
4990 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4991 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4992 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4993 :
4994 : #define CusCom_ENABLED 1
4995 : #define CusIns_ENABLED 1
4996 :
4997 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4998 :
4999 : #define SK_ENABLED 1
5000 :
5001 : #if SK5_ENABLED
5002 : module procedure setLocCusComCusIns_D1_D0_SK5
5003 : use pm_kind, only: SKC => SK5
5004 : #include "pm_arrayFind@routines.inc.F90"
5005 : end procedure
5006 : #endif
5007 :
5008 : #if SK4_ENABLED
5009 : module procedure setLocCusComCusIns_D1_D0_SK4
5010 : use pm_kind, only: SKC => SK4
5011 : #include "pm_arrayFind@routines.inc.F90"
5012 : end procedure
5013 : #endif
5014 :
5015 : #if SK3_ENABLED
5016 : module procedure setLocCusComCusIns_D1_D0_SK3
5017 : use pm_kind, only: SKC => SK3
5018 : #include "pm_arrayFind@routines.inc.F90"
5019 : end procedure
5020 : #endif
5021 :
5022 : #if SK2_ENABLED
5023 : module procedure setLocCusComCusIns_D1_D0_SK2
5024 : use pm_kind, only: SKC => SK2
5025 : #include "pm_arrayFind@routines.inc.F90"
5026 : end procedure
5027 : #endif
5028 :
5029 : #if SK1_ENABLED
5030 278 : module procedure setLocCusComCusIns_D1_D0_SK1
5031 : use pm_kind, only: SKC => SK1
5032 : #include "pm_arrayFind@routines.inc.F90"
5033 : end procedure
5034 : #endif
5035 :
5036 : #undef SK_ENABLED
5037 :
5038 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5039 :
5040 : #define IK_ENABLED 1
5041 :
5042 : #if IK5_ENABLED
5043 278 : module procedure setLocCusComCusIns_D1_D0_IK5
5044 : use pm_kind, only: IKC => IK5
5045 : #include "pm_arrayFind@routines.inc.F90"
5046 : end procedure
5047 : #endif
5048 :
5049 : #if IK4_ENABLED
5050 278 : module procedure setLocCusComCusIns_D1_D0_IK4
5051 : use pm_kind, only: IKC => IK4
5052 : #include "pm_arrayFind@routines.inc.F90"
5053 : end procedure
5054 : #endif
5055 :
5056 : #if IK3_ENABLED
5057 278 : module procedure setLocCusComCusIns_D1_D0_IK3
5058 : use pm_kind, only: IKC => IK3
5059 : #include "pm_arrayFind@routines.inc.F90"
5060 : end procedure
5061 : #endif
5062 :
5063 : #if IK2_ENABLED
5064 278 : module procedure setLocCusComCusIns_D1_D0_IK2
5065 : use pm_kind, only: IKC => IK2
5066 : #include "pm_arrayFind@routines.inc.F90"
5067 : end procedure
5068 : #endif
5069 :
5070 : #if IK1_ENABLED
5071 278 : module procedure setLocCusComCusIns_D1_D0_IK1
5072 : use pm_kind, only: IKC => IK1
5073 : #include "pm_arrayFind@routines.inc.F90"
5074 : end procedure
5075 : #endif
5076 :
5077 : #undef IK_ENABLED
5078 :
5079 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5080 :
5081 : #define LK_ENABLED 1
5082 :
5083 : #if LK5_ENABLED
5084 278 : module procedure setLocCusComCusIns_D1_D0_LK5
5085 : use pm_kind, only: LKC => LK5
5086 : #include "pm_arrayFind@routines.inc.F90"
5087 : end procedure
5088 : #endif
5089 :
5090 : #if LK4_ENABLED
5091 278 : module procedure setLocCusComCusIns_D1_D0_LK4
5092 : use pm_kind, only: LKC => LK4
5093 : #include "pm_arrayFind@routines.inc.F90"
5094 : end procedure
5095 : #endif
5096 :
5097 : #if LK3_ENABLED
5098 278 : module procedure setLocCusComCusIns_D1_D0_LK3
5099 : use pm_kind, only: LKC => LK3
5100 : #include "pm_arrayFind@routines.inc.F90"
5101 : end procedure
5102 : #endif
5103 :
5104 : #if LK2_ENABLED
5105 278 : module procedure setLocCusComCusIns_D1_D0_LK2
5106 : use pm_kind, only: LKC => LK2
5107 : #include "pm_arrayFind@routines.inc.F90"
5108 : end procedure
5109 : #endif
5110 :
5111 : #if LK1_ENABLED
5112 278 : module procedure setLocCusComCusIns_D1_D0_LK1
5113 : use pm_kind, only: LKC => LK1
5114 : #include "pm_arrayFind@routines.inc.F90"
5115 : end procedure
5116 : #endif
5117 :
5118 : #undef LK_ENABLED
5119 :
5120 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5121 :
5122 : #define CK_ENABLED 1
5123 :
5124 : #if CK5_ENABLED
5125 : module procedure setLocCusComCusIns_D1_D0_CK5
5126 : use pm_kind, only: CKC => CK5
5127 : #include "pm_arrayFind@routines.inc.F90"
5128 : end procedure
5129 : #endif
5130 :
5131 : #if CK4_ENABLED
5132 278 : module procedure setLocCusComCusIns_D1_D0_CK4
5133 : use pm_kind, only: CKC => CK4
5134 : #include "pm_arrayFind@routines.inc.F90"
5135 : end procedure
5136 : #endif
5137 :
5138 : #if CK3_ENABLED
5139 278 : module procedure setLocCusComCusIns_D1_D0_CK3
5140 : use pm_kind, only: CKC => CK3
5141 : #include "pm_arrayFind@routines.inc.F90"
5142 : end procedure
5143 : #endif
5144 :
5145 : #if CK2_ENABLED
5146 278 : module procedure setLocCusComCusIns_D1_D0_CK2
5147 : use pm_kind, only: CKC => CK2
5148 : #include "pm_arrayFind@routines.inc.F90"
5149 : end procedure
5150 : #endif
5151 :
5152 : #if CK1_ENABLED
5153 278 : module procedure setLocCusComCusIns_D1_D0_CK1
5154 : use pm_kind, only: CKC => CK1
5155 : #include "pm_arrayFind@routines.inc.F90"
5156 : end procedure
5157 : #endif
5158 :
5159 : #undef CK_ENABLED
5160 :
5161 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5162 :
5163 : #define RK_ENABLED 1
5164 :
5165 : #if RK5_ENABLED
5166 : module procedure setLocCusComCusIns_D1_D0_RK5
5167 : use pm_kind, only: RKC => RK5
5168 : #include "pm_arrayFind@routines.inc.F90"
5169 : end procedure
5170 : #endif
5171 :
5172 : #if RK4_ENABLED
5173 278 : module procedure setLocCusComCusIns_D1_D0_RK4
5174 : use pm_kind, only: RKC => RK4
5175 : #include "pm_arrayFind@routines.inc.F90"
5176 : end procedure
5177 : #endif
5178 :
5179 : #if RK3_ENABLED
5180 278 : module procedure setLocCusComCusIns_D1_D0_RK3
5181 : use pm_kind, only: RKC => RK3
5182 : #include "pm_arrayFind@routines.inc.F90"
5183 : end procedure
5184 : #endif
5185 :
5186 : #if RK2_ENABLED
5187 279 : module procedure setLocCusComCusIns_D1_D0_RK2
5188 : use pm_kind, only: RKC => RK2
5189 : #include "pm_arrayFind@routines.inc.F90"
5190 : end procedure
5191 : #endif
5192 :
5193 : #if RK1_ENABLED
5194 278 : module procedure setLocCusComCusIns_D1_D0_RK1
5195 : use pm_kind, only: RKC => RK1
5196 : #include "pm_arrayFind@routines.inc.F90"
5197 : end procedure
5198 : #endif
5199 :
5200 : #undef RK_ENABLED
5201 :
5202 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5203 :
5204 : #undef CusCom_ENABLED
5205 : #undef CusIns_ENABLED
5206 :
5207 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5208 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5209 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5210 :
5211 : #undef D1_D0_ENABLED
5212 :
5213 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5214 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5215 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5216 :
5217 : #define D1_D1_ENABLED 1
5218 :
5219 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5220 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5221 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5222 :
5223 : #define DefCom_ENABLED 1
5224 : #define DefIns_ENABLED 1
5225 :
5226 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5227 :
5228 : #define SK_ENABLED 1
5229 :
5230 : #if SK5_ENABLED
5231 : module procedure setLocDefComDefIns_D1_D1_SK5
5232 : use pm_kind, only: SKC => SK5
5233 : #include "pm_arrayFind@routines.inc.F90"
5234 : end procedure
5235 : #endif
5236 :
5237 : #if SK4_ENABLED
5238 : module procedure setLocDefComDefIns_D1_D1_SK4
5239 : use pm_kind, only: SKC => SK4
5240 : #include "pm_arrayFind@routines.inc.F90"
5241 : end procedure
5242 : #endif
5243 :
5244 : #if SK3_ENABLED
5245 : module procedure setLocDefComDefIns_D1_D1_SK3
5246 : use pm_kind, only: SKC => SK3
5247 : #include "pm_arrayFind@routines.inc.F90"
5248 : end procedure
5249 : #endif
5250 :
5251 : #if SK2_ENABLED
5252 : module procedure setLocDefComDefIns_D1_D1_SK2
5253 : use pm_kind, only: SKC => SK2
5254 : #include "pm_arrayFind@routines.inc.F90"
5255 : end procedure
5256 : #endif
5257 :
5258 : #if SK1_ENABLED
5259 18 : module procedure setLocDefComDefIns_D1_D1_SK1
5260 : use pm_kind, only: SKC => SK1
5261 : #include "pm_arrayFind@routines.inc.F90"
5262 : end procedure
5263 : #endif
5264 :
5265 : #undef SK_ENABLED
5266 :
5267 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5268 :
5269 : #define IK_ENABLED 1
5270 :
5271 : #if IK5_ENABLED
5272 17 : module procedure setLocDefComDefIns_D1_D1_IK5
5273 : use pm_kind, only: IKC => IK5
5274 : #include "pm_arrayFind@routines.inc.F90"
5275 : end procedure
5276 : #endif
5277 :
5278 : #if IK4_ENABLED
5279 17 : module procedure setLocDefComDefIns_D1_D1_IK4
5280 : use pm_kind, only: IKC => IK4
5281 : #include "pm_arrayFind@routines.inc.F90"
5282 : end procedure
5283 : #endif
5284 :
5285 : #if IK3_ENABLED
5286 18 : module procedure setLocDefComDefIns_D1_D1_IK3
5287 : use pm_kind, only: IKC => IK3
5288 : #include "pm_arrayFind@routines.inc.F90"
5289 : end procedure
5290 : #endif
5291 :
5292 : #if IK2_ENABLED
5293 17 : module procedure setLocDefComDefIns_D1_D1_IK2
5294 : use pm_kind, only: IKC => IK2
5295 : #include "pm_arrayFind@routines.inc.F90"
5296 : end procedure
5297 : #endif
5298 :
5299 : #if IK1_ENABLED
5300 17 : module procedure setLocDefComDefIns_D1_D1_IK1
5301 : use pm_kind, only: IKC => IK1
5302 : #include "pm_arrayFind@routines.inc.F90"
5303 : end procedure
5304 : #endif
5305 :
5306 : #undef IK_ENABLED
5307 :
5308 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5309 :
5310 : #define LK_ENABLED 1
5311 :
5312 : #if LK5_ENABLED
5313 17 : module procedure setLocDefComDefIns_D1_D1_LK5
5314 : use pm_kind, only: LKC => LK5
5315 : #include "pm_arrayFind@routines.inc.F90"
5316 : end procedure
5317 : #endif
5318 :
5319 : #if LK4_ENABLED
5320 17 : module procedure setLocDefComDefIns_D1_D1_LK4
5321 : use pm_kind, only: LKC => LK4
5322 : #include "pm_arrayFind@routines.inc.F90"
5323 : end procedure
5324 : #endif
5325 :
5326 : #if LK3_ENABLED
5327 18 : module procedure setLocDefComDefIns_D1_D1_LK3
5328 : use pm_kind, only: LKC => LK3
5329 : #include "pm_arrayFind@routines.inc.F90"
5330 : end procedure
5331 : #endif
5332 :
5333 : #if LK2_ENABLED
5334 17 : module procedure setLocDefComDefIns_D1_D1_LK2
5335 : use pm_kind, only: LKC => LK2
5336 : #include "pm_arrayFind@routines.inc.F90"
5337 : end procedure
5338 : #endif
5339 :
5340 : #if LK1_ENABLED
5341 17 : module procedure setLocDefComDefIns_D1_D1_LK1
5342 : use pm_kind, only: LKC => LK1
5343 : #include "pm_arrayFind@routines.inc.F90"
5344 : end procedure
5345 : #endif
5346 :
5347 : #undef LK_ENABLED
5348 :
5349 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5350 :
5351 : #define CK_ENABLED 1
5352 :
5353 : #if CK5_ENABLED
5354 : module procedure setLocDefComDefIns_D1_D1_CK5
5355 : use pm_kind, only: CKC => CK5
5356 : #include "pm_arrayFind@routines.inc.F90"
5357 : end procedure
5358 : #endif
5359 :
5360 : #if CK4_ENABLED
5361 17 : module procedure setLocDefComDefIns_D1_D1_CK4
5362 : use pm_kind, only: CKC => CK4
5363 : #include "pm_arrayFind@routines.inc.F90"
5364 : end procedure
5365 : #endif
5366 :
5367 : #if CK3_ENABLED
5368 17 : module procedure setLocDefComDefIns_D1_D1_CK3
5369 : use pm_kind, only: CKC => CK3
5370 : #include "pm_arrayFind@routines.inc.F90"
5371 : end procedure
5372 : #endif
5373 :
5374 : #if CK2_ENABLED
5375 18 : module procedure setLocDefComDefIns_D1_D1_CK2
5376 : use pm_kind, only: CKC => CK2
5377 : #include "pm_arrayFind@routines.inc.F90"
5378 : end procedure
5379 : #endif
5380 :
5381 : #if CK1_ENABLED
5382 17 : module procedure setLocDefComDefIns_D1_D1_CK1
5383 : use pm_kind, only: CKC => CK1
5384 : #include "pm_arrayFind@routines.inc.F90"
5385 : end procedure
5386 : #endif
5387 :
5388 : #undef CK_ENABLED
5389 :
5390 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5391 :
5392 : #define RK_ENABLED 1
5393 :
5394 : #if RK5_ENABLED
5395 : module procedure setLocDefComDefIns_D1_D1_RK5
5396 : use pm_kind, only: RKC => RK5
5397 : #include "pm_arrayFind@routines.inc.F90"
5398 : end procedure
5399 : #endif
5400 :
5401 : #if RK4_ENABLED
5402 17 : module procedure setLocDefComDefIns_D1_D1_RK4
5403 : use pm_kind, only: RKC => RK4
5404 : #include "pm_arrayFind@routines.inc.F90"
5405 : end procedure
5406 : #endif
5407 :
5408 : #if RK3_ENABLED
5409 17 : module procedure setLocDefComDefIns_D1_D1_RK3
5410 : use pm_kind, only: RKC => RK3
5411 : #include "pm_arrayFind@routines.inc.F90"
5412 : end procedure
5413 : #endif
5414 :
5415 : #if RK2_ENABLED
5416 18 : module procedure setLocDefComDefIns_D1_D1_RK2
5417 : use pm_kind, only: RKC => RK2
5418 : #include "pm_arrayFind@routines.inc.F90"
5419 : end procedure
5420 : #endif
5421 :
5422 : #if RK1_ENABLED
5423 17 : module procedure setLocDefComDefIns_D1_D1_RK1
5424 : use pm_kind, only: RKC => RK1
5425 : #include "pm_arrayFind@routines.inc.F90"
5426 : end procedure
5427 : #endif
5428 :
5429 : #undef RK_ENABLED
5430 :
5431 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5432 :
5433 : #undef DefCom_ENABLED
5434 : #undef DefIns_ENABLED
5435 :
5436 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5437 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5438 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5439 :
5440 : #define CusCom_ENABLED 1
5441 : #define DefIns_ENABLED 1
5442 :
5443 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5444 :
5445 : #define SK_ENABLED 1
5446 :
5447 : #if SK5_ENABLED
5448 : module procedure setLocCusComDefIns_D1_D1_SK5
5449 : use pm_kind, only: SKC => SK5
5450 : #include "pm_arrayFind@routines.inc.F90"
5451 : end procedure
5452 : #endif
5453 :
5454 : #if SK4_ENABLED
5455 : module procedure setLocCusComDefIns_D1_D1_SK4
5456 : use pm_kind, only: SKC => SK4
5457 : #include "pm_arrayFind@routines.inc.F90"
5458 : end procedure
5459 : #endif
5460 :
5461 : #if SK3_ENABLED
5462 : module procedure setLocCusComDefIns_D1_D1_SK3
5463 : use pm_kind, only: SKC => SK3
5464 : #include "pm_arrayFind@routines.inc.F90"
5465 : end procedure
5466 : #endif
5467 :
5468 : #if SK2_ENABLED
5469 : module procedure setLocCusComDefIns_D1_D1_SK2
5470 : use pm_kind, only: SKC => SK2
5471 : #include "pm_arrayFind@routines.inc.F90"
5472 : end procedure
5473 : #endif
5474 :
5475 : #if SK1_ENABLED
5476 17 : module procedure setLocCusComDefIns_D1_D1_SK1
5477 : use pm_kind, only: SKC => SK1
5478 : #include "pm_arrayFind@routines.inc.F90"
5479 : end procedure
5480 : #endif
5481 :
5482 : #undef SK_ENABLED
5483 :
5484 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5485 :
5486 : #define IK_ENABLED 1
5487 :
5488 : #if IK5_ENABLED
5489 17 : module procedure setLocCusComDefIns_D1_D1_IK5
5490 : use pm_kind, only: IKC => IK5
5491 : #include "pm_arrayFind@routines.inc.F90"
5492 : end procedure
5493 : #endif
5494 :
5495 : #if IK4_ENABLED
5496 17 : module procedure setLocCusComDefIns_D1_D1_IK4
5497 : use pm_kind, only: IKC => IK4
5498 : #include "pm_arrayFind@routines.inc.F90"
5499 : end procedure
5500 : #endif
5501 :
5502 : #if IK3_ENABLED
5503 17 : module procedure setLocCusComDefIns_D1_D1_IK3
5504 : use pm_kind, only: IKC => IK3
5505 : #include "pm_arrayFind@routines.inc.F90"
5506 : end procedure
5507 : #endif
5508 :
5509 : #if IK2_ENABLED
5510 17 : module procedure setLocCusComDefIns_D1_D1_IK2
5511 : use pm_kind, only: IKC => IK2
5512 : #include "pm_arrayFind@routines.inc.F90"
5513 : end procedure
5514 : #endif
5515 :
5516 : #if IK1_ENABLED
5517 17 : module procedure setLocCusComDefIns_D1_D1_IK1
5518 : use pm_kind, only: IKC => IK1
5519 : #include "pm_arrayFind@routines.inc.F90"
5520 : end procedure
5521 : #endif
5522 :
5523 : #undef IK_ENABLED
5524 :
5525 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5526 :
5527 : #define LK_ENABLED 1
5528 :
5529 : #if LK5_ENABLED
5530 17 : module procedure setLocCusComDefIns_D1_D1_LK5
5531 : use pm_kind, only: LKC => LK5
5532 : #include "pm_arrayFind@routines.inc.F90"
5533 : end procedure
5534 : #endif
5535 :
5536 : #if LK4_ENABLED
5537 17 : module procedure setLocCusComDefIns_D1_D1_LK4
5538 : use pm_kind, only: LKC => LK4
5539 : #include "pm_arrayFind@routines.inc.F90"
5540 : end procedure
5541 : #endif
5542 :
5543 : #if LK3_ENABLED
5544 17 : module procedure setLocCusComDefIns_D1_D1_LK3
5545 : use pm_kind, only: LKC => LK3
5546 : #include "pm_arrayFind@routines.inc.F90"
5547 : end procedure
5548 : #endif
5549 :
5550 : #if LK2_ENABLED
5551 17 : module procedure setLocCusComDefIns_D1_D1_LK2
5552 : use pm_kind, only: LKC => LK2
5553 : #include "pm_arrayFind@routines.inc.F90"
5554 : end procedure
5555 : #endif
5556 :
5557 : #if LK1_ENABLED
5558 17 : module procedure setLocCusComDefIns_D1_D1_LK1
5559 : use pm_kind, only: LKC => LK1
5560 : #include "pm_arrayFind@routines.inc.F90"
5561 : end procedure
5562 : #endif
5563 :
5564 : #undef LK_ENABLED
5565 :
5566 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5567 :
5568 : #define CK_ENABLED 1
5569 :
5570 : #if CK5_ENABLED
5571 : module procedure setLocCusComDefIns_D1_D1_CK5
5572 : use pm_kind, only: CKC => CK5
5573 : #include "pm_arrayFind@routines.inc.F90"
5574 : end procedure
5575 : #endif
5576 :
5577 : #if CK4_ENABLED
5578 17 : module procedure setLocCusComDefIns_D1_D1_CK4
5579 : use pm_kind, only: CKC => CK4
5580 : #include "pm_arrayFind@routines.inc.F90"
5581 : end procedure
5582 : #endif
5583 :
5584 : #if CK3_ENABLED
5585 17 : module procedure setLocCusComDefIns_D1_D1_CK3
5586 : use pm_kind, only: CKC => CK3
5587 : #include "pm_arrayFind@routines.inc.F90"
5588 : end procedure
5589 : #endif
5590 :
5591 : #if CK2_ENABLED
5592 17 : module procedure setLocCusComDefIns_D1_D1_CK2
5593 : use pm_kind, only: CKC => CK2
5594 : #include "pm_arrayFind@routines.inc.F90"
5595 : end procedure
5596 : #endif
5597 :
5598 : #if CK1_ENABLED
5599 17 : module procedure setLocCusComDefIns_D1_D1_CK1
5600 : use pm_kind, only: CKC => CK1
5601 : #include "pm_arrayFind@routines.inc.F90"
5602 : end procedure
5603 : #endif
5604 :
5605 : #undef CK_ENABLED
5606 :
5607 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5608 :
5609 : #define RK_ENABLED 1
5610 :
5611 : #if RK5_ENABLED
5612 : module procedure setLocCusComDefIns_D1_D1_RK5
5613 : use pm_kind, only: RKC => RK5
5614 : #include "pm_arrayFind@routines.inc.F90"
5615 : end procedure
5616 : #endif
5617 :
5618 : #if RK4_ENABLED
5619 17 : module procedure setLocCusComDefIns_D1_D1_RK4
5620 : use pm_kind, only: RKC => RK4
5621 : #include "pm_arrayFind@routines.inc.F90"
5622 : end procedure
5623 : #endif
5624 :
5625 : #if RK3_ENABLED
5626 17 : module procedure setLocCusComDefIns_D1_D1_RK3
5627 : use pm_kind, only: RKC => RK3
5628 : #include "pm_arrayFind@routines.inc.F90"
5629 : end procedure
5630 : #endif
5631 :
5632 : #if RK2_ENABLED
5633 17 : module procedure setLocCusComDefIns_D1_D1_RK2
5634 : use pm_kind, only: RKC => RK2
5635 : #include "pm_arrayFind@routines.inc.F90"
5636 : end procedure
5637 : #endif
5638 :
5639 : #if RK1_ENABLED
5640 17 : module procedure setLocCusComDefIns_D1_D1_RK1
5641 : use pm_kind, only: RKC => RK1
5642 : #include "pm_arrayFind@routines.inc.F90"
5643 : end procedure
5644 : #endif
5645 :
5646 : #undef RK_ENABLED
5647 :
5648 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5649 :
5650 : #undef CusCom_ENABLED
5651 : #undef DefIns_ENABLED
5652 :
5653 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5654 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5655 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5656 :
5657 : #define DefCom_ENABLED 1
5658 : #define CusIns_ENABLED 1
5659 :
5660 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5661 :
5662 : #define SK_ENABLED 1
5663 :
5664 : #if SK5_ENABLED
5665 : module procedure setLocDefComCusIns_D1_D1_SK5
5666 : use pm_kind, only: SKC => SK5
5667 : #include "pm_arrayFind@routines.inc.F90"
5668 : end procedure
5669 : #endif
5670 :
5671 : #if SK4_ENABLED
5672 : module procedure setLocDefComCusIns_D1_D1_SK4
5673 : use pm_kind, only: SKC => SK4
5674 : #include "pm_arrayFind@routines.inc.F90"
5675 : end procedure
5676 : #endif
5677 :
5678 : #if SK3_ENABLED
5679 : module procedure setLocDefComCusIns_D1_D1_SK3
5680 : use pm_kind, only: SKC => SK3
5681 : #include "pm_arrayFind@routines.inc.F90"
5682 : end procedure
5683 : #endif
5684 :
5685 : #if SK2_ENABLED
5686 : module procedure setLocDefComCusIns_D1_D1_SK2
5687 : use pm_kind, only: SKC => SK2
5688 : #include "pm_arrayFind@routines.inc.F90"
5689 : end procedure
5690 : #endif
5691 :
5692 : #if SK1_ENABLED
5693 344 : module procedure setLocDefComCusIns_D1_D1_SK1
5694 : use pm_kind, only: SKC => SK1
5695 : #include "pm_arrayFind@routines.inc.F90"
5696 : end procedure
5697 : #endif
5698 :
5699 : #undef SK_ENABLED
5700 :
5701 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5702 :
5703 : #define IK_ENABLED 1
5704 :
5705 : #if IK5_ENABLED
5706 343 : module procedure setLocDefComCusIns_D1_D1_IK5
5707 : use pm_kind, only: IKC => IK5
5708 : #include "pm_arrayFind@routines.inc.F90"
5709 : end procedure
5710 : #endif
5711 :
5712 : #if IK4_ENABLED
5713 343 : module procedure setLocDefComCusIns_D1_D1_IK4
5714 : use pm_kind, only: IKC => IK4
5715 : #include "pm_arrayFind@routines.inc.F90"
5716 : end procedure
5717 : #endif
5718 :
5719 : #if IK3_ENABLED
5720 344 : module procedure setLocDefComCusIns_D1_D1_IK3
5721 : use pm_kind, only: IKC => IK3
5722 : #include "pm_arrayFind@routines.inc.F90"
5723 : end procedure
5724 : #endif
5725 :
5726 : #if IK2_ENABLED
5727 343 : module procedure setLocDefComCusIns_D1_D1_IK2
5728 : use pm_kind, only: IKC => IK2
5729 : #include "pm_arrayFind@routines.inc.F90"
5730 : end procedure
5731 : #endif
5732 :
5733 : #if IK1_ENABLED
5734 343 : module procedure setLocDefComCusIns_D1_D1_IK1
5735 : use pm_kind, only: IKC => IK1
5736 : #include "pm_arrayFind@routines.inc.F90"
5737 : end procedure
5738 : #endif
5739 :
5740 : #undef IK_ENABLED
5741 :
5742 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5743 :
5744 : #define LK_ENABLED 1
5745 :
5746 : #if LK5_ENABLED
5747 343 : module procedure setLocDefComCusIns_D1_D1_LK5
5748 : use pm_kind, only: LKC => LK5
5749 : #include "pm_arrayFind@routines.inc.F90"
5750 : end procedure
5751 : #endif
5752 :
5753 : #if LK4_ENABLED
5754 343 : module procedure setLocDefComCusIns_D1_D1_LK4
5755 : use pm_kind, only: LKC => LK4
5756 : #include "pm_arrayFind@routines.inc.F90"
5757 : end procedure
5758 : #endif
5759 :
5760 : #if LK3_ENABLED
5761 344 : module procedure setLocDefComCusIns_D1_D1_LK3
5762 : use pm_kind, only: LKC => LK3
5763 : #include "pm_arrayFind@routines.inc.F90"
5764 : end procedure
5765 : #endif
5766 :
5767 : #if LK2_ENABLED
5768 343 : module procedure setLocDefComCusIns_D1_D1_LK2
5769 : use pm_kind, only: LKC => LK2
5770 : #include "pm_arrayFind@routines.inc.F90"
5771 : end procedure
5772 : #endif
5773 :
5774 : #if LK1_ENABLED
5775 343 : module procedure setLocDefComCusIns_D1_D1_LK1
5776 : use pm_kind, only: LKC => LK1
5777 : #include "pm_arrayFind@routines.inc.F90"
5778 : end procedure
5779 : #endif
5780 :
5781 : #undef LK_ENABLED
5782 :
5783 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5784 :
5785 : #define CK_ENABLED 1
5786 :
5787 : #if CK5_ENABLED
5788 : module procedure setLocDefComCusIns_D1_D1_CK5
5789 : use pm_kind, only: CKC => CK5
5790 : #include "pm_arrayFind@routines.inc.F90"
5791 : end procedure
5792 : #endif
5793 :
5794 : #if CK4_ENABLED
5795 343 : module procedure setLocDefComCusIns_D1_D1_CK4
5796 : use pm_kind, only: CKC => CK4
5797 : #include "pm_arrayFind@routines.inc.F90"
5798 : end procedure
5799 : #endif
5800 :
5801 : #if CK3_ENABLED
5802 343 : module procedure setLocDefComCusIns_D1_D1_CK3
5803 : use pm_kind, only: CKC => CK3
5804 : #include "pm_arrayFind@routines.inc.F90"
5805 : end procedure
5806 : #endif
5807 :
5808 : #if CK2_ENABLED
5809 344 : module procedure setLocDefComCusIns_D1_D1_CK2
5810 : use pm_kind, only: CKC => CK2
5811 : #include "pm_arrayFind@routines.inc.F90"
5812 : end procedure
5813 : #endif
5814 :
5815 : #if CK1_ENABLED
5816 343 : module procedure setLocDefComCusIns_D1_D1_CK1
5817 : use pm_kind, only: CKC => CK1
5818 : #include "pm_arrayFind@routines.inc.F90"
5819 : end procedure
5820 : #endif
5821 :
5822 : #undef CK_ENABLED
5823 :
5824 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5825 :
5826 : #define RK_ENABLED 1
5827 :
5828 : #if RK5_ENABLED
5829 : module procedure setLocDefComCusIns_D1_D1_RK5
5830 : use pm_kind, only: RKC => RK5
5831 : #include "pm_arrayFind@routines.inc.F90"
5832 : end procedure
5833 : #endif
5834 :
5835 : #if RK4_ENABLED
5836 343 : module procedure setLocDefComCusIns_D1_D1_RK4
5837 : use pm_kind, only: RKC => RK4
5838 : #include "pm_arrayFind@routines.inc.F90"
5839 : end procedure
5840 : #endif
5841 :
5842 : #if RK3_ENABLED
5843 343 : module procedure setLocDefComCusIns_D1_D1_RK3
5844 : use pm_kind, only: RKC => RK3
5845 : #include "pm_arrayFind@routines.inc.F90"
5846 : end procedure
5847 : #endif
5848 :
5849 : #if RK2_ENABLED
5850 344 : module procedure setLocDefComCusIns_D1_D1_RK2
5851 : use pm_kind, only: RKC => RK2
5852 : #include "pm_arrayFind@routines.inc.F90"
5853 : end procedure
5854 : #endif
5855 :
5856 : #if RK1_ENABLED
5857 343 : module procedure setLocDefComCusIns_D1_D1_RK1
5858 : use pm_kind, only: RKC => RK1
5859 : #include "pm_arrayFind@routines.inc.F90"
5860 : end procedure
5861 : #endif
5862 :
5863 : #undef RK_ENABLED
5864 :
5865 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5866 :
5867 : #undef DefCom_ENABLED
5868 : #undef CusIns_ENABLED
5869 :
5870 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5871 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5872 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5873 :
5874 : #define CusCom_ENABLED 1
5875 : #define CusIns_ENABLED 1
5876 :
5877 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5878 :
5879 : #define SK_ENABLED 1
5880 :
5881 : #if SK5_ENABLED
5882 : module procedure setLocCusComCusIns_D1_D1_SK5
5883 : use pm_kind, only: SKC => SK5
5884 : #include "pm_arrayFind@routines.inc.F90"
5885 : end procedure
5886 : #endif
5887 :
5888 : #if SK4_ENABLED
5889 : module procedure setLocCusComCusIns_D1_D1_SK4
5890 : use pm_kind, only: SKC => SK4
5891 : #include "pm_arrayFind@routines.inc.F90"
5892 : end procedure
5893 : #endif
5894 :
5895 : #if SK3_ENABLED
5896 : module procedure setLocCusComCusIns_D1_D1_SK3
5897 : use pm_kind, only: SKC => SK3
5898 : #include "pm_arrayFind@routines.inc.F90"
5899 : end procedure
5900 : #endif
5901 :
5902 : #if SK2_ENABLED
5903 : module procedure setLocCusComCusIns_D1_D1_SK2
5904 : use pm_kind, only: SKC => SK2
5905 : #include "pm_arrayFind@routines.inc.F90"
5906 : end procedure
5907 : #endif
5908 :
5909 : #if SK1_ENABLED
5910 343 : module procedure setLocCusComCusIns_D1_D1_SK1
5911 : use pm_kind, only: SKC => SK1
5912 : #include "pm_arrayFind@routines.inc.F90"
5913 : end procedure
5914 : #endif
5915 :
5916 : #undef SK_ENABLED
5917 :
5918 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5919 :
5920 : #define IK_ENABLED 1
5921 :
5922 : #if IK5_ENABLED
5923 343 : module procedure setLocCusComCusIns_D1_D1_IK5
5924 : use pm_kind, only: IKC => IK5
5925 : #include "pm_arrayFind@routines.inc.F90"
5926 : end procedure
5927 : #endif
5928 :
5929 : #if IK4_ENABLED
5930 343 : module procedure setLocCusComCusIns_D1_D1_IK4
5931 : use pm_kind, only: IKC => IK4
5932 : #include "pm_arrayFind@routines.inc.F90"
5933 : end procedure
5934 : #endif
5935 :
5936 : #if IK3_ENABLED
5937 343 : module procedure setLocCusComCusIns_D1_D1_IK3
5938 : use pm_kind, only: IKC => IK3
5939 : #include "pm_arrayFind@routines.inc.F90"
5940 : end procedure
5941 : #endif
5942 :
5943 : #if IK2_ENABLED
5944 343 : module procedure setLocCusComCusIns_D1_D1_IK2
5945 : use pm_kind, only: IKC => IK2
5946 : #include "pm_arrayFind@routines.inc.F90"
5947 : end procedure
5948 : #endif
5949 :
5950 : #if IK1_ENABLED
5951 343 : module procedure setLocCusComCusIns_D1_D1_IK1
5952 : use pm_kind, only: IKC => IK1
5953 : #include "pm_arrayFind@routines.inc.F90"
5954 : end procedure
5955 : #endif
5956 :
5957 : #undef IK_ENABLED
5958 :
5959 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5960 :
5961 : #define LK_ENABLED 1
5962 :
5963 : #if LK5_ENABLED
5964 343 : module procedure setLocCusComCusIns_D1_D1_LK5
5965 : use pm_kind, only: LKC => LK5
5966 : #include "pm_arrayFind@routines.inc.F90"
5967 : end procedure
5968 : #endif
5969 :
5970 : #if LK4_ENABLED
5971 343 : module procedure setLocCusComCusIns_D1_D1_LK4
5972 : use pm_kind, only: LKC => LK4
5973 : #include "pm_arrayFind@routines.inc.F90"
5974 : end procedure
5975 : #endif
5976 :
5977 : #if LK3_ENABLED
5978 343 : module procedure setLocCusComCusIns_D1_D1_LK3
5979 : use pm_kind, only: LKC => LK3
5980 : #include "pm_arrayFind@routines.inc.F90"
5981 : end procedure
5982 : #endif
5983 :
5984 : #if LK2_ENABLED
5985 343 : module procedure setLocCusComCusIns_D1_D1_LK2
5986 : use pm_kind, only: LKC => LK2
5987 : #include "pm_arrayFind@routines.inc.F90"
5988 : end procedure
5989 : #endif
5990 :
5991 : #if LK1_ENABLED
5992 343 : module procedure setLocCusComCusIns_D1_D1_LK1
5993 : use pm_kind, only: LKC => LK1
5994 : #include "pm_arrayFind@routines.inc.F90"
5995 : end procedure
5996 : #endif
5997 :
5998 : #undef LK_ENABLED
5999 :
6000 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6001 :
6002 : #define CK_ENABLED 1
6003 :
6004 : #if CK5_ENABLED
6005 : module procedure setLocCusComCusIns_D1_D1_CK5
6006 : use pm_kind, only: CKC => CK5
6007 : #include "pm_arrayFind@routines.inc.F90"
6008 : end procedure
6009 : #endif
6010 :
6011 : #if CK4_ENABLED
6012 343 : module procedure setLocCusComCusIns_D1_D1_CK4
6013 : use pm_kind, only: CKC => CK4
6014 : #include "pm_arrayFind@routines.inc.F90"
6015 : end procedure
6016 : #endif
6017 :
6018 : #if CK3_ENABLED
6019 343 : module procedure setLocCusComCusIns_D1_D1_CK3
6020 : use pm_kind, only: CKC => CK3
6021 : #include "pm_arrayFind@routines.inc.F90"
6022 : end procedure
6023 : #endif
6024 :
6025 : #if CK2_ENABLED
6026 343 : module procedure setLocCusComCusIns_D1_D1_CK2
6027 : use pm_kind, only: CKC => CK2
6028 : #include "pm_arrayFind@routines.inc.F90"
6029 : end procedure
6030 : #endif
6031 :
6032 : #if CK1_ENABLED
6033 343 : module procedure setLocCusComCusIns_D1_D1_CK1
6034 : use pm_kind, only: CKC => CK1
6035 : #include "pm_arrayFind@routines.inc.F90"
6036 : end procedure
6037 : #endif
6038 :
6039 : #undef CK_ENABLED
6040 :
6041 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6042 :
6043 : #define RK_ENABLED 1
6044 :
6045 : #if RK5_ENABLED
6046 : module procedure setLocCusComCusIns_D1_D1_RK5
6047 : use pm_kind, only: RKC => RK5
6048 : #include "pm_arrayFind@routines.inc.F90"
6049 : end procedure
6050 : #endif
6051 :
6052 : #if RK4_ENABLED
6053 343 : module procedure setLocCusComCusIns_D1_D1_RK4
6054 : use pm_kind, only: RKC => RK4
6055 : #include "pm_arrayFind@routines.inc.F90"
6056 : end procedure
6057 : #endif
6058 :
6059 : #if RK3_ENABLED
6060 343 : module procedure setLocCusComCusIns_D1_D1_RK3
6061 : use pm_kind, only: RKC => RK3
6062 : #include "pm_arrayFind@routines.inc.F90"
6063 : end procedure
6064 : #endif
6065 :
6066 : #if RK2_ENABLED
6067 344 : module procedure setLocCusComCusIns_D1_D1_RK2
6068 : use pm_kind, only: RKC => RK2
6069 : #include "pm_arrayFind@routines.inc.F90"
6070 : end procedure
6071 : #endif
6072 :
6073 : #if RK1_ENABLED
6074 343 : module procedure setLocCusComCusIns_D1_D1_RK1
6075 : use pm_kind, only: RKC => RK1
6076 : #include "pm_arrayFind@routines.inc.F90"
6077 : end procedure
6078 : #endif
6079 :
6080 : #undef RK_ENABLED
6081 :
6082 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6083 :
6084 : #undef CusCom_ENABLED
6085 : #undef CusIns_ENABLED
6086 :
6087 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6088 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6089 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6090 :
6091 : #undef D1_D1_ENABLED
6092 :
6093 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6094 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6095 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6096 :
6097 : #undef setLoc_ENABLED
6098 :
6099 : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6100 :
6101 : #undef CHECK_ASSERTION
6102 :
6103 : end submodule routines
|
