ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_arrayRebill.F90
Go to the documentation of this file.
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
61
62!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
63
64module pm_arrayRebill
65
66 use pm_kind, only: SK, IK, LK
67
68 implicit none
69
70 character(*,SK), parameter :: MODULE_NAME = "@pm_arrayRebill"
71
72!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
73
214 interface setRebilled
215
216 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
217 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
218 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
219
220 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
221 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
222 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
223
224 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
225
226#if SK5_ENABLED
227 PURE module subroutine setRebilledSDDD_D1_SK5(array, fill, lb, ub, failed, errmsg)
228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
229 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_SK5
230#endif
231 use pm_kind, only: SKG => SK5
232 character(*,SKG) , intent(in) :: fill
233 character(*,SKG) , intent(inout) , allocatable :: array(:)
234 integer(IK) , intent(in) :: lb, ub
235 character(*, SK) , intent(out) , optional :: errmsg
236 logical(LK) , intent(out) , optional :: failed
237 end subroutine
238#endif
239
240#if SK4_ENABLED
241 PURE module subroutine setRebilledSDDD_D1_SK4(array, fill, lb, ub, failed, errmsg)
242#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
243 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_SK4
244#endif
245 use pm_kind, only: SKG => SK4
246 character(*,SKG) , intent(in) :: fill
247 character(*,SKG) , intent(inout) , allocatable :: array(:)
248 integer(IK) , intent(in) :: lb, ub
249 character(*, SK) , intent(out) , optional :: errmsg
250 logical(LK) , intent(out) , optional :: failed
251 end subroutine
252#endif
253
254#if SK3_ENABLED
255 PURE module subroutine setRebilledSDDD_D1_SK3(array, fill, lb, ub, failed, errmsg)
256#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
257 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_SK3
258#endif
259 use pm_kind, only: SKG => SK3
260 character(*,SKG) , intent(in) :: fill
261 character(*,SKG) , intent(inout) , allocatable :: array(:)
262 integer(IK) , intent(in) :: lb, ub
263 character(*, SK) , intent(out) , optional :: errmsg
264 logical(LK) , intent(out) , optional :: failed
265 end subroutine
266#endif
267
268#if SK2_ENABLED
269 PURE module subroutine setRebilledSDDD_D1_SK2(array, fill, lb, ub, failed, errmsg)
270#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
271 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_SK2
272#endif
273 use pm_kind, only: SKG => SK2
274 character(*,SKG) , intent(in) :: fill
275 character(*,SKG) , intent(inout) , allocatable :: array(:)
276 integer(IK) , intent(in) :: lb, ub
277 character(*, SK) , intent(out) , optional :: errmsg
278 logical(LK) , intent(out) , optional :: failed
279 end subroutine
280#endif
281
282#if SK1_ENABLED
283 PURE module subroutine setRebilledSDDD_D1_SK1(array, fill, lb, ub, failed, errmsg)
284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
285 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_SK1
286#endif
287 use pm_kind, only: SKG => SK1
288 character(*,SKG) , intent(in) :: fill
289 character(*,SKG) , intent(inout) , allocatable :: array(:)
290 integer(IK) , intent(in) :: lb, ub
291 character(*, SK) , intent(out) , optional :: errmsg
292 logical(LK) , intent(out) , optional :: failed
293 end subroutine
294#endif
295
296 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
297
298#if IK5_ENABLED
299 PURE module subroutine setRebilledSDDD_D1_IK5(array, fill, lb, ub, failed, errmsg)
300#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
301 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_IK5
302#endif
303 use pm_kind, only: IKG => IK5
304 integer(IKG) , intent(in) :: fill
305 integer(IKG) , intent(inout) , allocatable :: array(:)
306 integer(IK) , intent(in) :: lb, ub
307 character(*, SK) , intent(out) , optional :: errmsg
308 logical(LK) , intent(out) , optional :: failed
309 end subroutine
310#endif
311
312#if IK4_ENABLED
313 PURE module subroutine setRebilledSDDD_D1_IK4(array, fill, lb, ub, failed, errmsg)
314#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
315 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_IK4
316#endif
317 use pm_kind, only: IKG => IK4
318 integer(IKG) , intent(in) :: fill
319 integer(IKG) , intent(inout) , allocatable :: array(:)
320 integer(IK) , intent(in) :: lb, ub
321 character(*, SK) , intent(out) , optional :: errmsg
322 logical(LK) , intent(out) , optional :: failed
323 end subroutine
324#endif
325
326#if IK3_ENABLED
327 PURE module subroutine setRebilledSDDD_D1_IK3(array, fill, lb, ub, failed, errmsg)
328#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
329 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_IK3
330#endif
331 use pm_kind, only: IKG => IK3
332 integer(IKG) , intent(in) :: fill
333 integer(IKG) , intent(inout) , allocatable :: array(:)
334 integer(IK) , intent(in) :: lb, ub
335 character(*, SK) , intent(out) , optional :: errmsg
336 logical(LK) , intent(out) , optional :: failed
337 end subroutine
338#endif
339
340#if IK2_ENABLED
341 PURE module subroutine setRebilledSDDD_D1_IK2(array, fill, lb, ub, failed, errmsg)
342#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
343 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_IK2
344#endif
345 use pm_kind, only: IKG => IK2
346 integer(IKG) , intent(in) :: fill
347 integer(IKG) , intent(inout) , allocatable :: array(:)
348 integer(IK) , intent(in) :: lb, ub
349 character(*, SK) , intent(out) , optional :: errmsg
350 logical(LK) , intent(out) , optional :: failed
351 end subroutine
352#endif
353
354#if IK1_ENABLED
355 PURE module subroutine setRebilledSDDD_D1_IK1(array, fill, lb, ub, failed, errmsg)
356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
357 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_IK1
358#endif
359 use pm_kind, only: IKG => IK1
360 integer(IKG) , intent(in) :: fill
361 integer(IKG) , intent(inout) , allocatable :: array(:)
362 integer(IK) , intent(in) :: lb, ub
363 character(*, SK) , intent(out) , optional :: errmsg
364 logical(LK) , intent(out) , optional :: failed
365 end subroutine
366#endif
367
368 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
369
370#if LK5_ENABLED
371 PURE module subroutine setRebilledSDDD_D1_LK5(array, fill, lb, ub, failed, errmsg)
372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
373 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_LK5
374#endif
375 use pm_kind, only: LKG => LK5
376 logical(LKG) , intent(in) :: fill
377 logical(LKG) , intent(inout) , allocatable :: array(:)
378 integer(IK) , intent(in) :: lb, ub
379 character(*, SK) , intent(out) , optional :: errmsg
380 logical(LK) , intent(out) , optional :: failed
381 end subroutine
382#endif
383
384#if LK4_ENABLED
385 PURE module subroutine setRebilledSDDD_D1_LK4(array, fill, lb, ub, failed, errmsg)
386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
387 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_LK4
388#endif
389 use pm_kind, only: LKG => LK4
390 logical(LKG) , intent(in) :: fill
391 logical(LKG) , intent(inout) , allocatable :: array(:)
392 integer(IK) , intent(in) :: lb, ub
393 character(*, SK) , intent(out) , optional :: errmsg
394 logical(LK) , intent(out) , optional :: failed
395 end subroutine
396#endif
397
398#if LK3_ENABLED
399 PURE module subroutine setRebilledSDDD_D1_LK3(array, fill, lb, ub, failed, errmsg)
400#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
401 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_LK3
402#endif
403 use pm_kind, only: LKG => LK3
404 logical(LKG) , intent(in) :: fill
405 logical(LKG) , intent(inout) , allocatable :: array(:)
406 integer(IK) , intent(in) :: lb, ub
407 character(*, SK) , intent(out) , optional :: errmsg
408 logical(LK) , intent(out) , optional :: failed
409 end subroutine
410#endif
411
412#if LK2_ENABLED
413 PURE module subroutine setRebilledSDDD_D1_LK2(array, fill, lb, ub, failed, errmsg)
414#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
415 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_LK2
416#endif
417 use pm_kind, only: LKG => LK2
418 logical(LKG) , intent(in) :: fill
419 logical(LKG) , intent(inout) , allocatable :: array(:)
420 integer(IK) , intent(in) :: lb, ub
421 character(*, SK) , intent(out) , optional :: errmsg
422 logical(LK) , intent(out) , optional :: failed
423 end subroutine
424#endif
425
426#if LK1_ENABLED
427 PURE module subroutine setRebilledSDDD_D1_LK1(array, fill, lb, ub, failed, errmsg)
428#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
429 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_LK1
430#endif
431 use pm_kind, only: LKG => LK1
432 logical(LKG) , intent(in) :: fill
433 logical(LKG) , intent(inout) , allocatable :: array(:)
434 integer(IK) , intent(in) :: lb, ub
435 character(*, SK) , intent(out) , optional :: errmsg
436 logical(LK) , intent(out) , optional :: failed
437 end subroutine
438#endif
439
440 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
441
442#if CK5_ENABLED
443 PURE module subroutine setRebilledSDDD_D1_CK5(array, fill, lb, ub, failed, errmsg)
444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
445 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_CK5
446#endif
447 use pm_kind, only: CKG => CK5
448 complex(CKG) , intent(in) :: fill
449 complex(CKG) , intent(inout) , allocatable :: array(:)
450 integer(IK) , intent(in) :: lb, ub
451 character(*, SK) , intent(out) , optional :: errmsg
452 logical(LK) , intent(out) , optional :: failed
453 end subroutine
454#endif
455
456#if CK4_ENABLED
457 PURE module subroutine setRebilledSDDD_D1_CK4(array, fill, lb, ub, failed, errmsg)
458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
459 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_CK4
460#endif
461 use pm_kind, only: CKG => CK4
462 complex(CKG) , intent(in) :: fill
463 complex(CKG) , intent(inout) , allocatable :: array(:)
464 integer(IK) , intent(in) :: lb, ub
465 character(*, SK) , intent(out) , optional :: errmsg
466 logical(LK) , intent(out) , optional :: failed
467 end subroutine
468#endif
469
470#if CK3_ENABLED
471 PURE module subroutine setRebilledSDDD_D1_CK3(array, fill, lb, ub, failed, errmsg)
472#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
473 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_CK3
474#endif
475 use pm_kind, only: CKG => CK3
476 complex(CKG) , intent(in) :: fill
477 complex(CKG) , intent(inout) , allocatable :: array(:)
478 integer(IK) , intent(in) :: lb, ub
479 character(*, SK) , intent(out) , optional :: errmsg
480 logical(LK) , intent(out) , optional :: failed
481 end subroutine
482#endif
483
484#if CK2_ENABLED
485 PURE module subroutine setRebilledSDDD_D1_CK2(array, fill, lb, ub, failed, errmsg)
486#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
487 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_CK2
488#endif
489 use pm_kind, only: CKG => CK2
490 complex(CKG) , intent(in) :: fill
491 complex(CKG) , intent(inout) , allocatable :: array(:)
492 integer(IK) , intent(in) :: lb, ub
493 character(*, SK) , intent(out) , optional :: errmsg
494 logical(LK) , intent(out) , optional :: failed
495 end subroutine
496#endif
497
498#if CK1_ENABLED
499 PURE module subroutine setRebilledSDDD_D1_CK1(array, fill, lb, ub, failed, errmsg)
500#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
501 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_CK1
502#endif
503 use pm_kind, only: CKG => CK1
504 complex(CKG) , intent(in) :: fill
505 complex(CKG) , intent(inout) , allocatable :: array(:)
506 integer(IK) , intent(in) :: lb, ub
507 character(*, SK) , intent(out) , optional :: errmsg
508 logical(LK) , intent(out) , optional :: failed
509 end subroutine
510#endif
511
512 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
513
514#if RK5_ENABLED
515 PURE module subroutine setRebilledSDDD_D1_RK5(array, fill, lb, ub, failed, errmsg)
516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
517 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_RK5
518#endif
519 use pm_kind, only: RKG => RK5
520 real(RKG) , intent(in) :: fill
521 real(RKG) , intent(inout) , allocatable :: array(:)
522 integer(IK) , intent(in) :: lb, ub
523 character(*, SK) , intent(out) , optional :: errmsg
524 logical(LK) , intent(out) , optional :: failed
525 end subroutine
526#endif
527
528#if RK4_ENABLED
529 PURE module subroutine setRebilledSDDD_D1_RK4(array, fill, lb, ub, failed, errmsg)
530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
531 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_RK4
532#endif
533 use pm_kind, only: RKG => RK4
534 real(RKG) , intent(in) :: fill
535 real(RKG) , intent(inout) , allocatable :: array(:)
536 integer(IK) , intent(in) :: lb, ub
537 character(*, SK) , intent(out) , optional :: errmsg
538 logical(LK) , intent(out) , optional :: failed
539 end subroutine
540#endif
541
542#if RK3_ENABLED
543 PURE module subroutine setRebilledSDDD_D1_RK3(array, fill, lb, ub, failed, errmsg)
544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
545 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_RK3
546#endif
547 use pm_kind, only: RKG => RK3
548 real(RKG) , intent(in) :: fill
549 real(RKG) , intent(inout) , allocatable :: array(:)
550 integer(IK) , intent(in) :: lb, ub
551 character(*, SK) , intent(out) , optional :: errmsg
552 logical(LK) , intent(out) , optional :: failed
553 end subroutine
554#endif
555
556#if RK2_ENABLED
557 PURE module subroutine setRebilledSDDD_D1_RK2(array, fill, lb, ub, failed, errmsg)
558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
559 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_RK2
560#endif
561 use pm_kind, only: RKG => RK2
562 real(RKG) , intent(in) :: fill
563 real(RKG) , intent(inout) , allocatable :: array(:)
564 integer(IK) , intent(in) :: lb, ub
565 character(*, SK) , intent(out) , optional :: errmsg
566 logical(LK) , intent(out) , optional :: failed
567 end subroutine
568#endif
569
570#if RK1_ENABLED
571 PURE module subroutine setRebilledSDDD_D1_RK1(array, fill, lb, ub, failed, errmsg)
572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
573 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D1_RK1
574#endif
575 use pm_kind, only: RKG => RK1
576 real(RKG) , intent(in) :: fill
577 real(RKG) , intent(inout) , allocatable :: array(:)
578 integer(IK) , intent(in) :: lb, ub
579 character(*, SK) , intent(out) , optional :: errmsg
580 logical(LK) , intent(out) , optional :: failed
581 end subroutine
582#endif
583
584 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
585
586 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
587 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
588 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
589
590 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
591
592#if SK5_ENABLED
593 PURE module subroutine setRebilledSDDD_D2_SK5(array, fill, lb, ub, failed, errmsg)
594#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
595 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_SK5
596#endif
597 use pm_kind, only: SKG => SK5
598 character(*,SKG) , intent(in) :: fill
599 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
600 integer(IK) , intent(in) , dimension(2) :: lb, ub
601 character(*, SK) , intent(out) , optional :: errmsg
602 logical(LK) , intent(out) , optional :: failed
603 end subroutine
604#endif
605
606#if SK4_ENABLED
607 PURE module subroutine setRebilledSDDD_D2_SK4(array, fill, lb, ub, failed, errmsg)
608#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
609 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_SK4
610#endif
611 use pm_kind, only: SKG => SK4
612 character(*,SKG) , intent(in) :: fill
613 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
614 integer(IK) , intent(in) , dimension(2) :: lb, ub
615 character(*, SK) , intent(out) , optional :: errmsg
616 logical(LK) , intent(out) , optional :: failed
617 end subroutine
618#endif
619
620#if SK3_ENABLED
621 PURE module subroutine setRebilledSDDD_D2_SK3(array, fill, lb, ub, failed, errmsg)
622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
623 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_SK3
624#endif
625 use pm_kind, only: SKG => SK3
626 character(*,SKG) , intent(in) :: fill
627 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
628 integer(IK) , intent(in) , dimension(2) :: lb, ub
629 character(*, SK) , intent(out) , optional :: errmsg
630 logical(LK) , intent(out) , optional :: failed
631 end subroutine
632#endif
633
634#if SK2_ENABLED
635 PURE module subroutine setRebilledSDDD_D2_SK2(array, fill, lb, ub, failed, errmsg)
636#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
637 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_SK2
638#endif
639 use pm_kind, only: SKG => SK2
640 character(*,SKG) , intent(in) :: fill
641 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
642 integer(IK) , intent(in) , dimension(2) :: lb, ub
643 character(*, SK) , intent(out) , optional :: errmsg
644 logical(LK) , intent(out) , optional :: failed
645 end subroutine
646#endif
647
648#if SK1_ENABLED
649 PURE module subroutine setRebilledSDDD_D2_SK1(array, fill, lb, ub, failed, errmsg)
650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
651 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_SK1
652#endif
653 use pm_kind, only: SKG => SK1
654 character(*,SKG) , intent(in) :: fill
655 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
656 integer(IK) , intent(in) , dimension(2) :: lb, ub
657 character(*, SK) , intent(out) , optional :: errmsg
658 logical(LK) , intent(out) , optional :: failed
659 end subroutine
660#endif
661
662 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
663
664#if IK5_ENABLED
665 PURE module subroutine setRebilledSDDD_D2_IK5(array, fill, lb, ub, failed, errmsg)
666#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
667 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_IK5
668#endif
669 use pm_kind, only: IKG => IK5
670 integer(IKG) , intent(in) :: fill
671 integer(IKG) , intent(inout) , allocatable :: array(:,:)
672 integer(IK) , intent(in) , dimension(2) :: lb, ub
673 character(*, SK) , intent(out) , optional :: errmsg
674 logical(LK) , intent(out) , optional :: failed
675 end subroutine
676#endif
677
678#if IK4_ENABLED
679 PURE module subroutine setRebilledSDDD_D2_IK4(array, fill, lb, ub, failed, errmsg)
680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
681 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_IK4
682#endif
683 use pm_kind, only: IKG => IK4
684 integer(IKG) , intent(in) :: fill
685 integer(IKG) , intent(inout) , allocatable :: array(:,:)
686 integer(IK) , intent(in) , dimension(2) :: lb, ub
687 character(*, SK) , intent(out) , optional :: errmsg
688 logical(LK) , intent(out) , optional :: failed
689 end subroutine
690#endif
691
692#if IK3_ENABLED
693 PURE module subroutine setRebilledSDDD_D2_IK3(array, fill, lb, ub, failed, errmsg)
694#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
695 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_IK3
696#endif
697 use pm_kind, only: IKG => IK3
698 integer(IKG) , intent(in) :: fill
699 integer(IKG) , intent(inout) , allocatable :: array(:,:)
700 integer(IK) , intent(in) , dimension(2) :: lb, ub
701 character(*, SK) , intent(out) , optional :: errmsg
702 logical(LK) , intent(out) , optional :: failed
703 end subroutine
704#endif
705
706#if IK2_ENABLED
707 PURE module subroutine setRebilledSDDD_D2_IK2(array, fill, lb, ub, failed, errmsg)
708#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
709 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_IK2
710#endif
711 use pm_kind, only: IKG => IK2
712 integer(IKG) , intent(in) :: fill
713 integer(IKG) , intent(inout) , allocatable :: array(:,:)
714 integer(IK) , intent(in) , dimension(2) :: lb, ub
715 character(*, SK) , intent(out) , optional :: errmsg
716 logical(LK) , intent(out) , optional :: failed
717 end subroutine
718#endif
719
720#if IK1_ENABLED
721 PURE module subroutine setRebilledSDDD_D2_IK1(array, fill, lb, ub, failed, errmsg)
722#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
723 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_IK1
724#endif
725 use pm_kind, only: IKG => IK1
726 integer(IKG) , intent(in) :: fill
727 integer(IKG) , intent(inout) , allocatable :: array(:,:)
728 integer(IK) , intent(in) , dimension(2) :: lb, ub
729 character(*, SK) , intent(out) , optional :: errmsg
730 logical(LK) , intent(out) , optional :: failed
731 end subroutine
732#endif
733
734 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
735
736#if LK5_ENABLED
737 PURE module subroutine setRebilledSDDD_D2_LK5(array, fill, lb, ub, failed, errmsg)
738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
739 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_LK5
740#endif
741 use pm_kind, only: LKG => LK5
742 logical(LKG) , intent(in) :: fill
743 logical(LKG) , intent(inout) , allocatable :: array(:,:)
744 integer(IK) , intent(in) , dimension(2) :: lb, ub
745 character(*, SK) , intent(out) , optional :: errmsg
746 logical(LK) , intent(out) , optional :: failed
747 end subroutine
748#endif
749
750#if LK4_ENABLED
751 PURE module subroutine setRebilledSDDD_D2_LK4(array, fill, lb, ub, failed, errmsg)
752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
753 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_LK4
754#endif
755 use pm_kind, only: LKG => LK4
756 logical(LKG) , intent(in) :: fill
757 logical(LKG) , intent(inout) , allocatable :: array(:,:)
758 integer(IK) , intent(in) , dimension(2) :: lb, ub
759 character(*, SK) , intent(out) , optional :: errmsg
760 logical(LK) , intent(out) , optional :: failed
761 end subroutine
762#endif
763
764#if LK3_ENABLED
765 PURE module subroutine setRebilledSDDD_D2_LK3(array, fill, lb, ub, failed, errmsg)
766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
767 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_LK3
768#endif
769 use pm_kind, only: LKG => LK3
770 logical(LKG) , intent(in) :: fill
771 logical(LKG) , intent(inout) , allocatable :: array(:,:)
772 integer(IK) , intent(in) , dimension(2) :: lb, ub
773 character(*, SK) , intent(out) , optional :: errmsg
774 logical(LK) , intent(out) , optional :: failed
775 end subroutine
776#endif
777
778#if LK2_ENABLED
779 PURE module subroutine setRebilledSDDD_D2_LK2(array, fill, lb, ub, failed, errmsg)
780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
781 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_LK2
782#endif
783 use pm_kind, only: LKG => LK2
784 logical(LKG) , intent(in) :: fill
785 logical(LKG) , intent(inout) , allocatable :: array(:,:)
786 integer(IK) , intent(in) , dimension(2) :: lb, ub
787 character(*, SK) , intent(out) , optional :: errmsg
788 logical(LK) , intent(out) , optional :: failed
789 end subroutine
790#endif
791
792#if LK1_ENABLED
793 PURE module subroutine setRebilledSDDD_D2_LK1(array, fill, lb, ub, failed, errmsg)
794#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
795 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_LK1
796#endif
797 use pm_kind, only: LKG => LK1
798 logical(LKG) , intent(in) :: fill
799 logical(LKG) , intent(inout) , allocatable :: array(:,:)
800 integer(IK) , intent(in) , dimension(2) :: lb, ub
801 character(*, SK) , intent(out) , optional :: errmsg
802 logical(LK) , intent(out) , optional :: failed
803 end subroutine
804#endif
805
806 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
807
808#if CK5_ENABLED
809 PURE module subroutine setRebilledSDDD_D2_CK5(array, fill, lb, ub, failed, errmsg)
810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
811 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_CK5
812#endif
813 use pm_kind, only: CKG => CK5
814 complex(CKG) , intent(in) :: fill
815 complex(CKG) , intent(inout) , allocatable :: array(:,:)
816 integer(IK) , intent(in) , dimension(2) :: lb, ub
817 character(*, SK) , intent(out) , optional :: errmsg
818 logical(LK) , intent(out) , optional :: failed
819 end subroutine
820#endif
821
822#if CK4_ENABLED
823 PURE module subroutine setRebilledSDDD_D2_CK4(array, fill, lb, ub, failed, errmsg)
824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
825 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_CK4
826#endif
827 use pm_kind, only: CKG => CK4
828 complex(CKG) , intent(in) :: fill
829 complex(CKG) , intent(inout) , allocatable :: array(:,:)
830 integer(IK) , intent(in) , dimension(2) :: lb, ub
831 character(*, SK) , intent(out) , optional :: errmsg
832 logical(LK) , intent(out) , optional :: failed
833 end subroutine
834#endif
835
836#if CK3_ENABLED
837 PURE module subroutine setRebilledSDDD_D2_CK3(array, fill, lb, ub, failed, errmsg)
838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
839 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_CK3
840#endif
841 use pm_kind, only: CKG => CK3
842 complex(CKG) , intent(in) :: fill
843 complex(CKG) , intent(inout) , allocatable :: array(:,:)
844 integer(IK) , intent(in) , dimension(2) :: lb, ub
845 character(*, SK) , intent(out) , optional :: errmsg
846 logical(LK) , intent(out) , optional :: failed
847 end subroutine
848#endif
849
850#if CK2_ENABLED
851 PURE module subroutine setRebilledSDDD_D2_CK2(array, fill, lb, ub, failed, errmsg)
852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
853 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_CK2
854#endif
855 use pm_kind, only: CKG => CK2
856 complex(CKG) , intent(in) :: fill
857 complex(CKG) , intent(inout) , allocatable :: array(:,:)
858 integer(IK) , intent(in) , dimension(2) :: lb, ub
859 character(*, SK) , intent(out) , optional :: errmsg
860 logical(LK) , intent(out) , optional :: failed
861 end subroutine
862#endif
863
864#if CK1_ENABLED
865 PURE module subroutine setRebilledSDDD_D2_CK1(array, fill, lb, ub, failed, errmsg)
866#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
867 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_CK1
868#endif
869 use pm_kind, only: CKG => CK1
870 complex(CKG) , intent(in) :: fill
871 complex(CKG) , intent(inout) , allocatable :: array(:,:)
872 integer(IK) , intent(in) , dimension(2) :: lb, ub
873 character(*, SK) , intent(out) , optional :: errmsg
874 logical(LK) , intent(out) , optional :: failed
875 end subroutine
876#endif
877
878 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
879
880#if RK5_ENABLED
881 PURE module subroutine setRebilledSDDD_D2_RK5(array, fill, lb, ub, failed, errmsg)
882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
883 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_RK5
884#endif
885 use pm_kind, only: RKG => RK5
886 real(RKG) , intent(in) :: fill
887 real(RKG) , intent(inout) , allocatable :: array(:,:)
888 integer(IK) , intent(in) , dimension(2) :: lb, ub
889 character(*, SK) , intent(out) , optional :: errmsg
890 logical(LK) , intent(out) , optional :: failed
891 end subroutine
892#endif
893
894#if RK4_ENABLED
895 PURE module subroutine setRebilledSDDD_D2_RK4(array, fill, lb, ub, failed, errmsg)
896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
897 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_RK4
898#endif
899 use pm_kind, only: RKG => RK4
900 real(RKG) , intent(in) :: fill
901 real(RKG) , intent(inout) , allocatable :: array(:,:)
902 integer(IK) , intent(in) , dimension(2) :: lb, ub
903 character(*, SK) , intent(out) , optional :: errmsg
904 logical(LK) , intent(out) , optional :: failed
905 end subroutine
906#endif
907
908#if RK3_ENABLED
909 PURE module subroutine setRebilledSDDD_D2_RK3(array, fill, lb, ub, failed, errmsg)
910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
911 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_RK3
912#endif
913 use pm_kind, only: RKG => RK3
914 real(RKG) , intent(in) :: fill
915 real(RKG) , intent(inout) , allocatable :: array(:,:)
916 integer(IK) , intent(in) , dimension(2) :: lb, ub
917 character(*, SK) , intent(out) , optional :: errmsg
918 logical(LK) , intent(out) , optional :: failed
919 end subroutine
920#endif
921
922#if RK2_ENABLED
923 PURE module subroutine setRebilledSDDD_D2_RK2(array, fill, lb, ub, failed, errmsg)
924#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
925 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_RK2
926#endif
927 use pm_kind, only: RKG => RK2
928 real(RKG) , intent(in) :: fill
929 real(RKG) , intent(inout) , allocatable :: array(:,:)
930 integer(IK) , intent(in) , dimension(2) :: lb, ub
931 character(*, SK) , intent(out) , optional :: errmsg
932 logical(LK) , intent(out) , optional :: failed
933 end subroutine
934#endif
935
936#if RK1_ENABLED
937 PURE module subroutine setRebilledSDDD_D2_RK1(array, fill, lb, ub, failed, errmsg)
938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
939 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D2_RK1
940#endif
941 use pm_kind, only: RKG => RK1
942 real(RKG) , intent(in) :: fill
943 real(RKG) , intent(inout) , allocatable :: array(:,:)
944 integer(IK) , intent(in) , dimension(2) :: lb, ub
945 character(*, SK) , intent(out) , optional :: errmsg
946 logical(LK) , intent(out) , optional :: failed
947 end subroutine
948#endif
949
950 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
951
952 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
953 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
954 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
955
956 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
957
958#if SK5_ENABLED
959 PURE module subroutine setRebilledSDDD_D3_SK5(array, fill, lb, ub, failed, errmsg)
960#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
961 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_SK5
962#endif
963 use pm_kind, only: SKG => SK5
964 character(*,SKG) , intent(in) :: fill
965 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
966 integer(IK) , intent(in) , dimension(3) :: lb, ub
967 character(*, SK) , intent(out) , optional :: errmsg
968 logical(LK) , intent(out) , optional :: failed
969 end subroutine
970#endif
971
972#if SK4_ENABLED
973 PURE module subroutine setRebilledSDDD_D3_SK4(array, fill, lb, ub, failed, errmsg)
974#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
975 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_SK4
976#endif
977 use pm_kind, only: SKG => SK4
978 character(*,SKG) , intent(in) :: fill
979 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
980 integer(IK) , intent(in) , dimension(3) :: lb, ub
981 character(*, SK) , intent(out) , optional :: errmsg
982 logical(LK) , intent(out) , optional :: failed
983 end subroutine
984#endif
985
986#if SK3_ENABLED
987 PURE module subroutine setRebilledSDDD_D3_SK3(array, fill, lb, ub, failed, errmsg)
988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
989 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_SK3
990#endif
991 use pm_kind, only: SKG => SK3
992 character(*,SKG) , intent(in) :: fill
993 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
994 integer(IK) , intent(in) , dimension(3) :: lb, ub
995 character(*, SK) , intent(out) , optional :: errmsg
996 logical(LK) , intent(out) , optional :: failed
997 end subroutine
998#endif
999
1000#if SK2_ENABLED
1001 PURE module subroutine setRebilledSDDD_D3_SK2(array, fill, lb, ub, failed, errmsg)
1002#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1003 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_SK2
1004#endif
1005 use pm_kind, only: SKG => SK2
1006 character(*,SKG) , intent(in) :: fill
1007 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
1008 integer(IK) , intent(in) , dimension(3) :: lb, ub
1009 character(*, SK) , intent(out) , optional :: errmsg
1010 logical(LK) , intent(out) , optional :: failed
1011 end subroutine
1012#endif
1013
1014#if SK1_ENABLED
1015 PURE module subroutine setRebilledSDDD_D3_SK1(array, fill, lb, ub, failed, errmsg)
1016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1017 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_SK1
1018#endif
1019 use pm_kind, only: SKG => SK1
1020 character(*,SKG) , intent(in) :: fill
1021 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
1022 integer(IK) , intent(in) , dimension(3) :: lb, ub
1023 character(*, SK) , intent(out) , optional :: errmsg
1024 logical(LK) , intent(out) , optional :: failed
1025 end subroutine
1026#endif
1027
1028 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1029
1030#if IK5_ENABLED
1031 PURE module subroutine setRebilledSDDD_D3_IK5(array, fill, lb, ub, failed, errmsg)
1032#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1033 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_IK5
1034#endif
1035 use pm_kind, only: IKG => IK5
1036 integer(IKG) , intent(in) :: fill
1037 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
1038 integer(IK) , intent(in) , dimension(3) :: lb, ub
1039 character(*, SK) , intent(out) , optional :: errmsg
1040 logical(LK) , intent(out) , optional :: failed
1041 end subroutine
1042#endif
1043
1044#if IK4_ENABLED
1045 PURE module subroutine setRebilledSDDD_D3_IK4(array, fill, lb, ub, failed, errmsg)
1046#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1047 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_IK4
1048#endif
1049 use pm_kind, only: IKG => IK4
1050 integer(IKG) , intent(in) :: fill
1051 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
1052 integer(IK) , intent(in) , dimension(3) :: lb, ub
1053 character(*, SK) , intent(out) , optional :: errmsg
1054 logical(LK) , intent(out) , optional :: failed
1055 end subroutine
1056#endif
1057
1058#if IK3_ENABLED
1059 PURE module subroutine setRebilledSDDD_D3_IK3(array, fill, lb, ub, failed, errmsg)
1060#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1061 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_IK3
1062#endif
1063 use pm_kind, only: IKG => IK3
1064 integer(IKG) , intent(in) :: fill
1065 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
1066 integer(IK) , intent(in) , dimension(3) :: lb, ub
1067 character(*, SK) , intent(out) , optional :: errmsg
1068 logical(LK) , intent(out) , optional :: failed
1069 end subroutine
1070#endif
1071
1072#if IK2_ENABLED
1073 PURE module subroutine setRebilledSDDD_D3_IK2(array, fill, lb, ub, failed, errmsg)
1074#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1075 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_IK2
1076#endif
1077 use pm_kind, only: IKG => IK2
1078 integer(IKG) , intent(in) :: fill
1079 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
1080 integer(IK) , intent(in) , dimension(3) :: lb, ub
1081 character(*, SK) , intent(out) , optional :: errmsg
1082 logical(LK) , intent(out) , optional :: failed
1083 end subroutine
1084#endif
1085
1086#if IK1_ENABLED
1087 PURE module subroutine setRebilledSDDD_D3_IK1(array, fill, lb, ub, failed, errmsg)
1088#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1089 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_IK1
1090#endif
1091 use pm_kind, only: IKG => IK1
1092 integer(IKG) , intent(in) :: fill
1093 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
1094 integer(IK) , intent(in) , dimension(3) :: lb, ub
1095 character(*, SK) , intent(out) , optional :: errmsg
1096 logical(LK) , intent(out) , optional :: failed
1097 end subroutine
1098#endif
1099
1100 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1101
1102#if LK5_ENABLED
1103 PURE module subroutine setRebilledSDDD_D3_LK5(array, fill, lb, ub, failed, errmsg)
1104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1105 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_LK5
1106#endif
1107 use pm_kind, only: LKG => LK5
1108 logical(LKG) , intent(in) :: fill
1109 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1110 integer(IK) , intent(in) , dimension(3) :: lb, ub
1111 character(*, SK) , intent(out) , optional :: errmsg
1112 logical(LK) , intent(out) , optional :: failed
1113 end subroutine
1114#endif
1115
1116#if LK4_ENABLED
1117 PURE module subroutine setRebilledSDDD_D3_LK4(array, fill, lb, ub, failed, errmsg)
1118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1119 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_LK4
1120#endif
1121 use pm_kind, only: LKG => LK4
1122 logical(LKG) , intent(in) :: fill
1123 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1124 integer(IK) , intent(in) , dimension(3) :: lb, ub
1125 character(*, SK) , intent(out) , optional :: errmsg
1126 logical(LK) , intent(out) , optional :: failed
1127 end subroutine
1128#endif
1129
1130#if LK3_ENABLED
1131 PURE module subroutine setRebilledSDDD_D3_LK3(array, fill, lb, ub, failed, errmsg)
1132#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1133 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_LK3
1134#endif
1135 use pm_kind, only: LKG => LK3
1136 logical(LKG) , intent(in) :: fill
1137 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1138 integer(IK) , intent(in) , dimension(3) :: lb, ub
1139 character(*, SK) , intent(out) , optional :: errmsg
1140 logical(LK) , intent(out) , optional :: failed
1141 end subroutine
1142#endif
1143
1144#if LK2_ENABLED
1145 PURE module subroutine setRebilledSDDD_D3_LK2(array, fill, lb, ub, failed, errmsg)
1146#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1147 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_LK2
1148#endif
1149 use pm_kind, only: LKG => LK2
1150 logical(LKG) , intent(in) :: fill
1151 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1152 integer(IK) , intent(in) , dimension(3) :: lb, ub
1153 character(*, SK) , intent(out) , optional :: errmsg
1154 logical(LK) , intent(out) , optional :: failed
1155 end subroutine
1156#endif
1157
1158#if LK1_ENABLED
1159 PURE module subroutine setRebilledSDDD_D3_LK1(array, fill, lb, ub, failed, errmsg)
1160#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1161 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_LK1
1162#endif
1163 use pm_kind, only: LKG => LK1
1164 logical(LKG) , intent(in) :: fill
1165 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1166 integer(IK) , intent(in) , dimension(3) :: lb, ub
1167 character(*, SK) , intent(out) , optional :: errmsg
1168 logical(LK) , intent(out) , optional :: failed
1169 end subroutine
1170#endif
1171
1172 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1173
1174#if CK5_ENABLED
1175 PURE module subroutine setRebilledSDDD_D3_CK5(array, fill, lb, ub, failed, errmsg)
1176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1177 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_CK5
1178#endif
1179 use pm_kind, only: CKG => CK5
1180 complex(CKG) , intent(in) :: fill
1181 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1182 integer(IK) , intent(in) , dimension(3) :: lb, ub
1183 character(*, SK) , intent(out) , optional :: errmsg
1184 logical(LK) , intent(out) , optional :: failed
1185 end subroutine
1186#endif
1187
1188#if CK4_ENABLED
1189 PURE module subroutine setRebilledSDDD_D3_CK4(array, fill, lb, ub, failed, errmsg)
1190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1191 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_CK4
1192#endif
1193 use pm_kind, only: CKG => CK4
1194 complex(CKG) , intent(in) :: fill
1195 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1196 integer(IK) , intent(in) , dimension(3) :: lb, ub
1197 character(*, SK) , intent(out) , optional :: errmsg
1198 logical(LK) , intent(out) , optional :: failed
1199 end subroutine
1200#endif
1201
1202#if CK3_ENABLED
1203 PURE module subroutine setRebilledSDDD_D3_CK3(array, fill, lb, ub, failed, errmsg)
1204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1205 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_CK3
1206#endif
1207 use pm_kind, only: CKG => CK3
1208 complex(CKG) , intent(in) :: fill
1209 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1210 integer(IK) , intent(in) , dimension(3) :: lb, ub
1211 character(*, SK) , intent(out) , optional :: errmsg
1212 logical(LK) , intent(out) , optional :: failed
1213 end subroutine
1214#endif
1215
1216#if CK2_ENABLED
1217 PURE module subroutine setRebilledSDDD_D3_CK2(array, fill, lb, ub, failed, errmsg)
1218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1219 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_CK2
1220#endif
1221 use pm_kind, only: CKG => CK2
1222 complex(CKG) , intent(in) :: fill
1223 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1224 integer(IK) , intent(in) , dimension(3) :: lb, ub
1225 character(*, SK) , intent(out) , optional :: errmsg
1226 logical(LK) , intent(out) , optional :: failed
1227 end subroutine
1228#endif
1229
1230#if CK1_ENABLED
1231 PURE module subroutine setRebilledSDDD_D3_CK1(array, fill, lb, ub, failed, errmsg)
1232#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1233 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_CK1
1234#endif
1235 use pm_kind, only: CKG => CK1
1236 complex(CKG) , intent(in) :: fill
1237 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1238 integer(IK) , intent(in) , dimension(3) :: lb, ub
1239 character(*, SK) , intent(out) , optional :: errmsg
1240 logical(LK) , intent(out) , optional :: failed
1241 end subroutine
1242#endif
1243
1244 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1245
1246#if RK5_ENABLED
1247 PURE module subroutine setRebilledSDDD_D3_RK5(array, fill, lb, ub, failed, errmsg)
1248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1249 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_RK5
1250#endif
1251 use pm_kind, only: RKG => RK5
1252 real(RKG) , intent(in) :: fill
1253 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1254 integer(IK) , intent(in) , dimension(3) :: lb, ub
1255 character(*, SK) , intent(out) , optional :: errmsg
1256 logical(LK) , intent(out) , optional :: failed
1257 end subroutine
1258#endif
1259
1260#if RK4_ENABLED
1261 PURE module subroutine setRebilledSDDD_D3_RK4(array, fill, lb, ub, failed, errmsg)
1262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1263 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_RK4
1264#endif
1265 use pm_kind, only: RKG => RK4
1266 real(RKG) , intent(in) :: fill
1267 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1268 integer(IK) , intent(in) , dimension(3) :: lb, ub
1269 character(*, SK) , intent(out) , optional :: errmsg
1270 logical(LK) , intent(out) , optional :: failed
1271 end subroutine
1272#endif
1273
1274#if RK3_ENABLED
1275 PURE module subroutine setRebilledSDDD_D3_RK3(array, fill, lb, ub, failed, errmsg)
1276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1277 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_RK3
1278#endif
1279 use pm_kind, only: RKG => RK3
1280 real(RKG) , intent(in) :: fill
1281 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1282 integer(IK) , intent(in) , dimension(3) :: lb, ub
1283 character(*, SK) , intent(out) , optional :: errmsg
1284 logical(LK) , intent(out) , optional :: failed
1285 end subroutine
1286#endif
1287
1288#if RK2_ENABLED
1289 PURE module subroutine setRebilledSDDD_D3_RK2(array, fill, lb, ub, failed, errmsg)
1290#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1291 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_RK2
1292#endif
1293 use pm_kind, only: RKG => RK2
1294 real(RKG) , intent(in) :: fill
1295 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1296 integer(IK) , intent(in) , dimension(3) :: lb, ub
1297 character(*, SK) , intent(out) , optional :: errmsg
1298 logical(LK) , intent(out) , optional :: failed
1299 end subroutine
1300#endif
1301
1302#if RK1_ENABLED
1303 PURE module subroutine setRebilledSDDD_D3_RK1(array, fill, lb, ub, failed, errmsg)
1304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1305 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSDDD_D3_RK1
1306#endif
1307 use pm_kind, only: RKG => RK1
1308 real(RKG) , intent(in) :: fill
1309 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1310 integer(IK) , intent(in) , dimension(3) :: lb, ub
1311 character(*, SK) , intent(out) , optional :: errmsg
1312 logical(LK) , intent(out) , optional :: failed
1313 end subroutine
1314#endif
1315
1316 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1317
1318 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1319 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1320 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1321
1322 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1323 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1324 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1325
1326 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1327
1328#if SK5_ENABLED
1329 PURE module subroutine setRebilledSLDD_D1_SK5(array, fill, lb, ub, lbc, failed, errmsg)
1330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1331 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_SK5
1332#endif
1333 use pm_kind, only: SKG => SK5
1334 character(*,SKG) , intent(in) :: fill
1335 character(*,SKG) , intent(inout) , allocatable :: array(:)
1336 integer(IK) , intent(in) :: lb, ub, lbc
1337 character(*, SK) , intent(out) , optional :: errmsg
1338 logical(LK) , intent(out) , optional :: failed
1339 end subroutine
1340#endif
1341
1342#if SK4_ENABLED
1343 PURE module subroutine setRebilledSLDD_D1_SK4(array, fill, lb, ub, lbc, failed, errmsg)
1344#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1345 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_SK4
1346#endif
1347 use pm_kind, only: SKG => SK4
1348 character(*,SKG) , intent(in) :: fill
1349 character(*,SKG) , intent(inout) , allocatable :: array(:)
1350 integer(IK) , intent(in) :: lb, ub, lbc
1351 character(*, SK) , intent(out) , optional :: errmsg
1352 logical(LK) , intent(out) , optional :: failed
1353 end subroutine
1354#endif
1355
1356#if SK3_ENABLED
1357 PURE module subroutine setRebilledSLDD_D1_SK3(array, fill, lb, ub, lbc, failed, errmsg)
1358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1359 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_SK3
1360#endif
1361 use pm_kind, only: SKG => SK3
1362 character(*,SKG) , intent(in) :: fill
1363 character(*,SKG) , intent(inout) , allocatable :: array(:)
1364 integer(IK) , intent(in) :: lb, ub, lbc
1365 character(*, SK) , intent(out) , optional :: errmsg
1366 logical(LK) , intent(out) , optional :: failed
1367 end subroutine
1368#endif
1369
1370#if SK2_ENABLED
1371 PURE module subroutine setRebilledSLDD_D1_SK2(array, fill, lb, ub, lbc, failed, errmsg)
1372#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1373 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_SK2
1374#endif
1375 use pm_kind, only: SKG => SK2
1376 character(*,SKG) , intent(in) :: fill
1377 character(*,SKG) , intent(inout) , allocatable :: array(:)
1378 integer(IK) , intent(in) :: lb, ub, lbc
1379 character(*, SK) , intent(out) , optional :: errmsg
1380 logical(LK) , intent(out) , optional :: failed
1381 end subroutine
1382#endif
1383
1384#if SK1_ENABLED
1385 PURE module subroutine setRebilledSLDD_D1_SK1(array, fill, lb, ub, lbc, failed, errmsg)
1386#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1387 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_SK1
1388#endif
1389 use pm_kind, only: SKG => SK1
1390 character(*,SKG) , intent(in) :: fill
1391 character(*,SKG) , intent(inout) , allocatable :: array(:)
1392 integer(IK) , intent(in) :: lb, ub, lbc
1393 character(*, SK) , intent(out) , optional :: errmsg
1394 logical(LK) , intent(out) , optional :: failed
1395 end subroutine
1396#endif
1397
1398 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1399
1400#if IK5_ENABLED
1401 PURE module subroutine setRebilledSLDD_D1_IK5(array, fill, lb, ub, lbc, failed, errmsg)
1402#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1403 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_IK5
1404#endif
1405 use pm_kind, only: IKG => IK5
1406 integer(IKG) , intent(in) :: fill
1407 integer(IKG) , intent(inout) , allocatable :: array(:)
1408 integer(IK) , intent(in) :: lb, ub, lbc
1409 character(*, SK) , intent(out) , optional :: errmsg
1410 logical(LK) , intent(out) , optional :: failed
1411 end subroutine
1412#endif
1413
1414#if IK4_ENABLED
1415 PURE module subroutine setRebilledSLDD_D1_IK4(array, fill, lb, ub, lbc, failed, errmsg)
1416#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1417 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_IK4
1418#endif
1419 use pm_kind, only: IKG => IK4
1420 integer(IKG) , intent(in) :: fill
1421 integer(IKG) , intent(inout) , allocatable :: array(:)
1422 integer(IK) , intent(in) :: lb, ub, lbc
1423 character(*, SK) , intent(out) , optional :: errmsg
1424 logical(LK) , intent(out) , optional :: failed
1425 end subroutine
1426#endif
1427
1428#if IK3_ENABLED
1429 PURE module subroutine setRebilledSLDD_D1_IK3(array, fill, lb, ub, lbc, failed, errmsg)
1430#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1431 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_IK3
1432#endif
1433 use pm_kind, only: IKG => IK3
1434 integer(IKG) , intent(in) :: fill
1435 integer(IKG) , intent(inout) , allocatable :: array(:)
1436 integer(IK) , intent(in) :: lb, ub, lbc
1437 character(*, SK) , intent(out) , optional :: errmsg
1438 logical(LK) , intent(out) , optional :: failed
1439 end subroutine
1440#endif
1441
1442#if IK2_ENABLED
1443 PURE module subroutine setRebilledSLDD_D1_IK2(array, fill, lb, ub, lbc, failed, errmsg)
1444#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1445 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_IK2
1446#endif
1447 use pm_kind, only: IKG => IK2
1448 integer(IKG) , intent(in) :: fill
1449 integer(IKG) , intent(inout) , allocatable :: array(:)
1450 integer(IK) , intent(in) :: lb, ub, lbc
1451 character(*, SK) , intent(out) , optional :: errmsg
1452 logical(LK) , intent(out) , optional :: failed
1453 end subroutine
1454#endif
1455
1456#if IK1_ENABLED
1457 PURE module subroutine setRebilledSLDD_D1_IK1(array, fill, lb, ub, lbc, failed, errmsg)
1458#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1459 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_IK1
1460#endif
1461 use pm_kind, only: IKG => IK1
1462 integer(IKG) , intent(in) :: fill
1463 integer(IKG) , intent(inout) , allocatable :: array(:)
1464 integer(IK) , intent(in) :: lb, ub, lbc
1465 character(*, SK) , intent(out) , optional :: errmsg
1466 logical(LK) , intent(out) , optional :: failed
1467 end subroutine
1468#endif
1469
1470 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1471
1472#if LK5_ENABLED
1473 PURE module subroutine setRebilledSLDD_D1_LK5(array, fill, lb, ub, lbc, failed, errmsg)
1474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1475 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_LK5
1476#endif
1477 use pm_kind, only: LKG => LK5
1478 logical(LKG) , intent(in) :: fill
1479 logical(LKG) , intent(inout) , allocatable :: array(:)
1480 integer(IK) , intent(in) :: lb, ub, lbc
1481 character(*, SK) , intent(out) , optional :: errmsg
1482 logical(LK) , intent(out) , optional :: failed
1483 end subroutine
1484#endif
1485
1486#if LK4_ENABLED
1487 PURE module subroutine setRebilledSLDD_D1_LK4(array, fill, lb, ub, lbc, failed, errmsg)
1488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1489 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_LK4
1490#endif
1491 use pm_kind, only: LKG => LK4
1492 logical(LKG) , intent(in) :: fill
1493 logical(LKG) , intent(inout) , allocatable :: array(:)
1494 integer(IK) , intent(in) :: lb, ub, lbc
1495 character(*, SK) , intent(out) , optional :: errmsg
1496 logical(LK) , intent(out) , optional :: failed
1497 end subroutine
1498#endif
1499
1500#if LK3_ENABLED
1501 PURE module subroutine setRebilledSLDD_D1_LK3(array, fill, lb, ub, lbc, failed, errmsg)
1502#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1503 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_LK3
1504#endif
1505 use pm_kind, only: LKG => LK3
1506 logical(LKG) , intent(in) :: fill
1507 logical(LKG) , intent(inout) , allocatable :: array(:)
1508 integer(IK) , intent(in) :: lb, ub, lbc
1509 character(*, SK) , intent(out) , optional :: errmsg
1510 logical(LK) , intent(out) , optional :: failed
1511 end subroutine
1512#endif
1513
1514#if LK2_ENABLED
1515 PURE module subroutine setRebilledSLDD_D1_LK2(array, fill, lb, ub, lbc, failed, errmsg)
1516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1517 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_LK2
1518#endif
1519 use pm_kind, only: LKG => LK2
1520 logical(LKG) , intent(in) :: fill
1521 logical(LKG) , intent(inout) , allocatable :: array(:)
1522 integer(IK) , intent(in) :: lb, ub, lbc
1523 character(*, SK) , intent(out) , optional :: errmsg
1524 logical(LK) , intent(out) , optional :: failed
1525 end subroutine
1526#endif
1527
1528#if LK1_ENABLED
1529 PURE module subroutine setRebilledSLDD_D1_LK1(array, fill, lb, ub, lbc, failed, errmsg)
1530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1531 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_LK1
1532#endif
1533 use pm_kind, only: LKG => LK1
1534 logical(LKG) , intent(in) :: fill
1535 logical(LKG) , intent(inout) , allocatable :: array(:)
1536 integer(IK) , intent(in) :: lb, ub, lbc
1537 character(*, SK) , intent(out) , optional :: errmsg
1538 logical(LK) , intent(out) , optional :: failed
1539 end subroutine
1540#endif
1541
1542 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1543
1544#if CK5_ENABLED
1545 PURE module subroutine setRebilledSLDD_D1_CK5(array, fill, lb, ub, lbc, failed, errmsg)
1546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1547 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_CK5
1548#endif
1549 use pm_kind, only: CKG => CK5
1550 complex(CKG) , intent(in) :: fill
1551 complex(CKG) , intent(inout) , allocatable :: array(:)
1552 integer(IK) , intent(in) :: lb, ub, lbc
1553 character(*, SK) , intent(out) , optional :: errmsg
1554 logical(LK) , intent(out) , optional :: failed
1555 end subroutine
1556#endif
1557
1558#if CK4_ENABLED
1559 PURE module subroutine setRebilledSLDD_D1_CK4(array, fill, lb, ub, lbc, failed, errmsg)
1560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1561 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_CK4
1562#endif
1563 use pm_kind, only: CKG => CK4
1564 complex(CKG) , intent(in) :: fill
1565 complex(CKG) , intent(inout) , allocatable :: array(:)
1566 integer(IK) , intent(in) :: lb, ub, lbc
1567 character(*, SK) , intent(out) , optional :: errmsg
1568 logical(LK) , intent(out) , optional :: failed
1569 end subroutine
1570#endif
1571
1572#if CK3_ENABLED
1573 PURE module subroutine setRebilledSLDD_D1_CK3(array, fill, lb, ub, lbc, failed, errmsg)
1574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1575 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_CK3
1576#endif
1577 use pm_kind, only: CKG => CK3
1578 complex(CKG) , intent(in) :: fill
1579 complex(CKG) , intent(inout) , allocatable :: array(:)
1580 integer(IK) , intent(in) :: lb, ub, lbc
1581 character(*, SK) , intent(out) , optional :: errmsg
1582 logical(LK) , intent(out) , optional :: failed
1583 end subroutine
1584#endif
1585
1586#if CK2_ENABLED
1587 PURE module subroutine setRebilledSLDD_D1_CK2(array, fill, lb, ub, lbc, failed, errmsg)
1588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1589 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_CK2
1590#endif
1591 use pm_kind, only: CKG => CK2
1592 complex(CKG) , intent(in) :: fill
1593 complex(CKG) , intent(inout) , allocatable :: array(:)
1594 integer(IK) , intent(in) :: lb, ub, lbc
1595 character(*, SK) , intent(out) , optional :: errmsg
1596 logical(LK) , intent(out) , optional :: failed
1597 end subroutine
1598#endif
1599
1600#if CK1_ENABLED
1601 PURE module subroutine setRebilledSLDD_D1_CK1(array, fill, lb, ub, lbc, failed, errmsg)
1602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1603 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_CK1
1604#endif
1605 use pm_kind, only: CKG => CK1
1606 complex(CKG) , intent(in) :: fill
1607 complex(CKG) , intent(inout) , allocatable :: array(:)
1608 integer(IK) , intent(in) :: lb, ub, lbc
1609 character(*, SK) , intent(out) , optional :: errmsg
1610 logical(LK) , intent(out) , optional :: failed
1611 end subroutine
1612#endif
1613
1614 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1615
1616#if RK5_ENABLED
1617 PURE module subroutine setRebilledSLDD_D1_RK5(array, fill, lb, ub, lbc, failed, errmsg)
1618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1619 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_RK5
1620#endif
1621 use pm_kind, only: RKG => RK5
1622 real(RKG) , intent(in) :: fill
1623 real(RKG) , intent(inout) , allocatable :: array(:)
1624 integer(IK) , intent(in) :: lb, ub, lbc
1625 character(*, SK) , intent(out) , optional :: errmsg
1626 logical(LK) , intent(out) , optional :: failed
1627 end subroutine
1628#endif
1629
1630#if RK4_ENABLED
1631 PURE module subroutine setRebilledSLDD_D1_RK4(array, fill, lb, ub, lbc, failed, errmsg)
1632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1633 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_RK4
1634#endif
1635 use pm_kind, only: RKG => RK4
1636 real(RKG) , intent(in) :: fill
1637 real(RKG) , intent(inout) , allocatable :: array(:)
1638 integer(IK) , intent(in) :: lb, ub, lbc
1639 character(*, SK) , intent(out) , optional :: errmsg
1640 logical(LK) , intent(out) , optional :: failed
1641 end subroutine
1642#endif
1643
1644#if RK3_ENABLED
1645 PURE module subroutine setRebilledSLDD_D1_RK3(array, fill, lb, ub, lbc, failed, errmsg)
1646#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1647 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_RK3
1648#endif
1649 use pm_kind, only: RKG => RK3
1650 real(RKG) , intent(in) :: fill
1651 real(RKG) , intent(inout) , allocatable :: array(:)
1652 integer(IK) , intent(in) :: lb, ub, lbc
1653 character(*, SK) , intent(out) , optional :: errmsg
1654 logical(LK) , intent(out) , optional :: failed
1655 end subroutine
1656#endif
1657
1658#if RK2_ENABLED
1659 PURE module subroutine setRebilledSLDD_D1_RK2(array, fill, lb, ub, lbc, failed, errmsg)
1660#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1661 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_RK2
1662#endif
1663 use pm_kind, only: RKG => RK2
1664 real(RKG) , intent(in) :: fill
1665 real(RKG) , intent(inout) , allocatable :: array(:)
1666 integer(IK) , intent(in) :: lb, ub, lbc
1667 character(*, SK) , intent(out) , optional :: errmsg
1668 logical(LK) , intent(out) , optional :: failed
1669 end subroutine
1670#endif
1671
1672#if RK1_ENABLED
1673 PURE module subroutine setRebilledSLDD_D1_RK1(array, fill, lb, ub, lbc, failed, errmsg)
1674#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1675 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D1_RK1
1676#endif
1677 use pm_kind, only: RKG => RK1
1678 real(RKG) , intent(in) :: fill
1679 real(RKG) , intent(inout) , allocatable :: array(:)
1680 integer(IK) , intent(in) :: lb, ub, lbc
1681 character(*, SK) , intent(out) , optional :: errmsg
1682 logical(LK) , intent(out) , optional :: failed
1683 end subroutine
1684#endif
1685
1686 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1687
1688 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1689 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1690 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1691
1692 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1693
1694#if SK5_ENABLED
1695 PURE module subroutine setRebilledSLDD_D2_SK5(array, fill, lb, ub, lbc, failed, errmsg)
1696#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1697 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_SK5
1698#endif
1699 use pm_kind, only: SKG => SK5
1700 character(*,SKG) , intent(in) :: fill
1701 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
1702 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1703 character(*, SK) , intent(out) , optional :: errmsg
1704 logical(LK) , intent(out) , optional :: failed
1705 end subroutine
1706#endif
1707
1708#if SK4_ENABLED
1709 PURE module subroutine setRebilledSLDD_D2_SK4(array, fill, lb, ub, lbc, failed, errmsg)
1710#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1711 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_SK4
1712#endif
1713 use pm_kind, only: SKG => SK4
1714 character(*,SKG) , intent(in) :: fill
1715 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
1716 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1717 character(*, SK) , intent(out) , optional :: errmsg
1718 logical(LK) , intent(out) , optional :: failed
1719 end subroutine
1720#endif
1721
1722#if SK3_ENABLED
1723 PURE module subroutine setRebilledSLDD_D2_SK3(array, fill, lb, ub, lbc, failed, errmsg)
1724#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1725 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_SK3
1726#endif
1727 use pm_kind, only: SKG => SK3
1728 character(*,SKG) , intent(in) :: fill
1729 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
1730 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1731 character(*, SK) , intent(out) , optional :: errmsg
1732 logical(LK) , intent(out) , optional :: failed
1733 end subroutine
1734#endif
1735
1736#if SK2_ENABLED
1737 PURE module subroutine setRebilledSLDD_D2_SK2(array, fill, lb, ub, lbc, failed, errmsg)
1738#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1739 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_SK2
1740#endif
1741 use pm_kind, only: SKG => SK2
1742 character(*,SKG) , intent(in) :: fill
1743 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
1744 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1745 character(*, SK) , intent(out) , optional :: errmsg
1746 logical(LK) , intent(out) , optional :: failed
1747 end subroutine
1748#endif
1749
1750#if SK1_ENABLED
1751 PURE module subroutine setRebilledSLDD_D2_SK1(array, fill, lb, ub, lbc, failed, errmsg)
1752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1753 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_SK1
1754#endif
1755 use pm_kind, only: SKG => SK1
1756 character(*,SKG) , intent(in) :: fill
1757 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
1758 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1759 character(*, SK) , intent(out) , optional :: errmsg
1760 logical(LK) , intent(out) , optional :: failed
1761 end subroutine
1762#endif
1763
1764 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1765
1766#if IK5_ENABLED
1767 PURE module subroutine setRebilledSLDD_D2_IK5(array, fill, lb, ub, lbc, failed, errmsg)
1768#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1769 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_IK5
1770#endif
1771 use pm_kind, only: IKG => IK5
1772 integer(IKG) , intent(in) :: fill
1773 integer(IKG) , intent(inout) , allocatable :: array(:,:)
1774 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1775 character(*, SK) , intent(out) , optional :: errmsg
1776 logical(LK) , intent(out) , optional :: failed
1777 end subroutine
1778#endif
1779
1780#if IK4_ENABLED
1781 PURE module subroutine setRebilledSLDD_D2_IK4(array, fill, lb, ub, lbc, failed, errmsg)
1782#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1783 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_IK4
1784#endif
1785 use pm_kind, only: IKG => IK4
1786 integer(IKG) , intent(in) :: fill
1787 integer(IKG) , intent(inout) , allocatable :: array(:,:)
1788 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1789 character(*, SK) , intent(out) , optional :: errmsg
1790 logical(LK) , intent(out) , optional :: failed
1791 end subroutine
1792#endif
1793
1794#if IK3_ENABLED
1795 PURE module subroutine setRebilledSLDD_D2_IK3(array, fill, lb, ub, lbc, failed, errmsg)
1796#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1797 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_IK3
1798#endif
1799 use pm_kind, only: IKG => IK3
1800 integer(IKG) , intent(in) :: fill
1801 integer(IKG) , intent(inout) , allocatable :: array(:,:)
1802 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1803 character(*, SK) , intent(out) , optional :: errmsg
1804 logical(LK) , intent(out) , optional :: failed
1805 end subroutine
1806#endif
1807
1808#if IK2_ENABLED
1809 PURE module subroutine setRebilledSLDD_D2_IK2(array, fill, lb, ub, lbc, failed, errmsg)
1810#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1811 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_IK2
1812#endif
1813 use pm_kind, only: IKG => IK2
1814 integer(IKG) , intent(in) :: fill
1815 integer(IKG) , intent(inout) , allocatable :: array(:,:)
1816 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1817 character(*, SK) , intent(out) , optional :: errmsg
1818 logical(LK) , intent(out) , optional :: failed
1819 end subroutine
1820#endif
1821
1822#if IK1_ENABLED
1823 PURE module subroutine setRebilledSLDD_D2_IK1(array, fill, lb, ub, lbc, failed, errmsg)
1824#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1825 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_IK1
1826#endif
1827 use pm_kind, only: IKG => IK1
1828 integer(IKG) , intent(in) :: fill
1829 integer(IKG) , intent(inout) , allocatable :: array(:,:)
1830 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1831 character(*, SK) , intent(out) , optional :: errmsg
1832 logical(LK) , intent(out) , optional :: failed
1833 end subroutine
1834#endif
1835
1836 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1837
1838#if LK5_ENABLED
1839 PURE module subroutine setRebilledSLDD_D2_LK5(array, fill, lb, ub, lbc, failed, errmsg)
1840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1841 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_LK5
1842#endif
1843 use pm_kind, only: LKG => LK5
1844 logical(LKG) , intent(in) :: fill
1845 logical(LKG) , intent(inout) , allocatable :: array(:,:)
1846 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1847 character(*, SK) , intent(out) , optional :: errmsg
1848 logical(LK) , intent(out) , optional :: failed
1849 end subroutine
1850#endif
1851
1852#if LK4_ENABLED
1853 PURE module subroutine setRebilledSLDD_D2_LK4(array, fill, lb, ub, lbc, failed, errmsg)
1854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1855 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_LK4
1856#endif
1857 use pm_kind, only: LKG => LK4
1858 logical(LKG) , intent(in) :: fill
1859 logical(LKG) , intent(inout) , allocatable :: array(:,:)
1860 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1861 character(*, SK) , intent(out) , optional :: errmsg
1862 logical(LK) , intent(out) , optional :: failed
1863 end subroutine
1864#endif
1865
1866#if LK3_ENABLED
1867 PURE module subroutine setRebilledSLDD_D2_LK3(array, fill, lb, ub, lbc, failed, errmsg)
1868#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1869 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_LK3
1870#endif
1871 use pm_kind, only: LKG => LK3
1872 logical(LKG) , intent(in) :: fill
1873 logical(LKG) , intent(inout) , allocatable :: array(:,:)
1874 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1875 character(*, SK) , intent(out) , optional :: errmsg
1876 logical(LK) , intent(out) , optional :: failed
1877 end subroutine
1878#endif
1879
1880#if LK2_ENABLED
1881 PURE module subroutine setRebilledSLDD_D2_LK2(array, fill, lb, ub, lbc, failed, errmsg)
1882#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1883 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_LK2
1884#endif
1885 use pm_kind, only: LKG => LK2
1886 logical(LKG) , intent(in) :: fill
1887 logical(LKG) , intent(inout) , allocatable :: array(:,:)
1888 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1889 character(*, SK) , intent(out) , optional :: errmsg
1890 logical(LK) , intent(out) , optional :: failed
1891 end subroutine
1892#endif
1893
1894#if LK1_ENABLED
1895 PURE module subroutine setRebilledSLDD_D2_LK1(array, fill, lb, ub, lbc, failed, errmsg)
1896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1897 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_LK1
1898#endif
1899 use pm_kind, only: LKG => LK1
1900 logical(LKG) , intent(in) :: fill
1901 logical(LKG) , intent(inout) , allocatable :: array(:,:)
1902 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1903 character(*, SK) , intent(out) , optional :: errmsg
1904 logical(LK) , intent(out) , optional :: failed
1905 end subroutine
1906#endif
1907
1908 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1909
1910#if CK5_ENABLED
1911 PURE module subroutine setRebilledSLDD_D2_CK5(array, fill, lb, ub, lbc, failed, errmsg)
1912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1913 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_CK5
1914#endif
1915 use pm_kind, only: CKG => CK5
1916 complex(CKG) , intent(in) :: fill
1917 complex(CKG) , intent(inout) , allocatable :: array(:,:)
1918 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1919 character(*, SK) , intent(out) , optional :: errmsg
1920 logical(LK) , intent(out) , optional :: failed
1921 end subroutine
1922#endif
1923
1924#if CK4_ENABLED
1925 PURE module subroutine setRebilledSLDD_D2_CK4(array, fill, lb, ub, lbc, failed, errmsg)
1926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1927 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_CK4
1928#endif
1929 use pm_kind, only: CKG => CK4
1930 complex(CKG) , intent(in) :: fill
1931 complex(CKG) , intent(inout) , allocatable :: array(:,:)
1932 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1933 character(*, SK) , intent(out) , optional :: errmsg
1934 logical(LK) , intent(out) , optional :: failed
1935 end subroutine
1936#endif
1937
1938#if CK3_ENABLED
1939 PURE module subroutine setRebilledSLDD_D2_CK3(array, fill, lb, ub, lbc, failed, errmsg)
1940#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1941 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_CK3
1942#endif
1943 use pm_kind, only: CKG => CK3
1944 complex(CKG) , intent(in) :: fill
1945 complex(CKG) , intent(inout) , allocatable :: array(:,:)
1946 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1947 character(*, SK) , intent(out) , optional :: errmsg
1948 logical(LK) , intent(out) , optional :: failed
1949 end subroutine
1950#endif
1951
1952#if CK2_ENABLED
1953 PURE module subroutine setRebilledSLDD_D2_CK2(array, fill, lb, ub, lbc, failed, errmsg)
1954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1955 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_CK2
1956#endif
1957 use pm_kind, only: CKG => CK2
1958 complex(CKG) , intent(in) :: fill
1959 complex(CKG) , intent(inout) , allocatable :: array(:,:)
1960 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1961 character(*, SK) , intent(out) , optional :: errmsg
1962 logical(LK) , intent(out) , optional :: failed
1963 end subroutine
1964#endif
1965
1966#if CK1_ENABLED
1967 PURE module subroutine setRebilledSLDD_D2_CK1(array, fill, lb, ub, lbc, failed, errmsg)
1968#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1969 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_CK1
1970#endif
1971 use pm_kind, only: CKG => CK1
1972 complex(CKG) , intent(in) :: fill
1973 complex(CKG) , intent(inout) , allocatable :: array(:,:)
1974 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1975 character(*, SK) , intent(out) , optional :: errmsg
1976 logical(LK) , intent(out) , optional :: failed
1977 end subroutine
1978#endif
1979
1980 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1981
1982#if RK5_ENABLED
1983 PURE module subroutine setRebilledSLDD_D2_RK5(array, fill, lb, ub, lbc, failed, errmsg)
1984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1985 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_RK5
1986#endif
1987 use pm_kind, only: RKG => RK5
1988 real(RKG) , intent(in) :: fill
1989 real(RKG) , intent(inout) , allocatable :: array(:,:)
1990 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
1991 character(*, SK) , intent(out) , optional :: errmsg
1992 logical(LK) , intent(out) , optional :: failed
1993 end subroutine
1994#endif
1995
1996#if RK4_ENABLED
1997 PURE module subroutine setRebilledSLDD_D2_RK4(array, fill, lb, ub, lbc, failed, errmsg)
1998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1999 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_RK4
2000#endif
2001 use pm_kind, only: RKG => RK4
2002 real(RKG) , intent(in) :: fill
2003 real(RKG) , intent(inout) , allocatable :: array(:,:)
2004 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
2005 character(*, SK) , intent(out) , optional :: errmsg
2006 logical(LK) , intent(out) , optional :: failed
2007 end subroutine
2008#endif
2009
2010#if RK3_ENABLED
2011 PURE module subroutine setRebilledSLDD_D2_RK3(array, fill, lb, ub, lbc, failed, errmsg)
2012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2013 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_RK3
2014#endif
2015 use pm_kind, only: RKG => RK3
2016 real(RKG) , intent(in) :: fill
2017 real(RKG) , intent(inout) , allocatable :: array(:,:)
2018 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
2019 character(*, SK) , intent(out) , optional :: errmsg
2020 logical(LK) , intent(out) , optional :: failed
2021 end subroutine
2022#endif
2023
2024#if RK2_ENABLED
2025 PURE module subroutine setRebilledSLDD_D2_RK2(array, fill, lb, ub, lbc, failed, errmsg)
2026#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2027 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_RK2
2028#endif
2029 use pm_kind, only: RKG => RK2
2030 real(RKG) , intent(in) :: fill
2031 real(RKG) , intent(inout) , allocatable :: array(:,:)
2032 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
2033 character(*, SK) , intent(out) , optional :: errmsg
2034 logical(LK) , intent(out) , optional :: failed
2035 end subroutine
2036#endif
2037
2038#if RK1_ENABLED
2039 PURE module subroutine setRebilledSLDD_D2_RK1(array, fill, lb, ub, lbc, failed, errmsg)
2040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2041 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D2_RK1
2042#endif
2043 use pm_kind, only: RKG => RK1
2044 real(RKG) , intent(in) :: fill
2045 real(RKG) , intent(inout) , allocatable :: array(:,:)
2046 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc
2047 character(*, SK) , intent(out) , optional :: errmsg
2048 logical(LK) , intent(out) , optional :: failed
2049 end subroutine
2050#endif
2051
2052 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2053
2054 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2055 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2056 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2057
2058 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2059
2060#if SK5_ENABLED
2061 PURE module subroutine setRebilledSLDD_D3_SK5(array, fill, lb, ub, lbc, failed, errmsg)
2062#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2063 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_SK5
2064#endif
2065 use pm_kind, only: SKG => SK5
2066 character(*,SKG) , intent(in) :: fill
2067 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2068 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2069 character(*, SK) , intent(out) , optional :: errmsg
2070 logical(LK) , intent(out) , optional :: failed
2071 end subroutine
2072#endif
2073
2074#if SK4_ENABLED
2075 PURE module subroutine setRebilledSLDD_D3_SK4(array, fill, lb, ub, lbc, failed, errmsg)
2076#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2077 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_SK4
2078#endif
2079 use pm_kind, only: SKG => SK4
2080 character(*,SKG) , intent(in) :: fill
2081 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2082 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2083 character(*, SK) , intent(out) , optional :: errmsg
2084 logical(LK) , intent(out) , optional :: failed
2085 end subroutine
2086#endif
2087
2088#if SK3_ENABLED
2089 PURE module subroutine setRebilledSLDD_D3_SK3(array, fill, lb, ub, lbc, failed, errmsg)
2090#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2091 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_SK3
2092#endif
2093 use pm_kind, only: SKG => SK3
2094 character(*,SKG) , intent(in) :: fill
2095 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2096 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2097 character(*, SK) , intent(out) , optional :: errmsg
2098 logical(LK) , intent(out) , optional :: failed
2099 end subroutine
2100#endif
2101
2102#if SK2_ENABLED
2103 PURE module subroutine setRebilledSLDD_D3_SK2(array, fill, lb, ub, lbc, failed, errmsg)
2104#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2105 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_SK2
2106#endif
2107 use pm_kind, only: SKG => SK2
2108 character(*,SKG) , intent(in) :: fill
2109 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2110 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2111 character(*, SK) , intent(out) , optional :: errmsg
2112 logical(LK) , intent(out) , optional :: failed
2113 end subroutine
2114#endif
2115
2116#if SK1_ENABLED
2117 PURE module subroutine setRebilledSLDD_D3_SK1(array, fill, lb, ub, lbc, failed, errmsg)
2118#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2119 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_SK1
2120#endif
2121 use pm_kind, only: SKG => SK1
2122 character(*,SKG) , intent(in) :: fill
2123 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2124 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2125 character(*, SK) , intent(out) , optional :: errmsg
2126 logical(LK) , intent(out) , optional :: failed
2127 end subroutine
2128#endif
2129
2130 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2131
2132#if IK5_ENABLED
2133 PURE module subroutine setRebilledSLDD_D3_IK5(array, fill, lb, ub, lbc, failed, errmsg)
2134#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2135 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_IK5
2136#endif
2137 use pm_kind, only: IKG => IK5
2138 integer(IKG) , intent(in) :: fill
2139 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2140 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2141 character(*, SK) , intent(out) , optional :: errmsg
2142 logical(LK) , intent(out) , optional :: failed
2143 end subroutine
2144#endif
2145
2146#if IK4_ENABLED
2147 PURE module subroutine setRebilledSLDD_D3_IK4(array, fill, lb, ub, lbc, failed, errmsg)
2148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2149 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_IK4
2150#endif
2151 use pm_kind, only: IKG => IK4
2152 integer(IKG) , intent(in) :: fill
2153 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2154 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2155 character(*, SK) , intent(out) , optional :: errmsg
2156 logical(LK) , intent(out) , optional :: failed
2157 end subroutine
2158#endif
2159
2160#if IK3_ENABLED
2161 PURE module subroutine setRebilledSLDD_D3_IK3(array, fill, lb, ub, lbc, failed, errmsg)
2162#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2163 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_IK3
2164#endif
2165 use pm_kind, only: IKG => IK3
2166 integer(IKG) , intent(in) :: fill
2167 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2168 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2169 character(*, SK) , intent(out) , optional :: errmsg
2170 logical(LK) , intent(out) , optional :: failed
2171 end subroutine
2172#endif
2173
2174#if IK2_ENABLED
2175 PURE module subroutine setRebilledSLDD_D3_IK2(array, fill, lb, ub, lbc, failed, errmsg)
2176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2177 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_IK2
2178#endif
2179 use pm_kind, only: IKG => IK2
2180 integer(IKG) , intent(in) :: fill
2181 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2182 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2183 character(*, SK) , intent(out) , optional :: errmsg
2184 logical(LK) , intent(out) , optional :: failed
2185 end subroutine
2186#endif
2187
2188#if IK1_ENABLED
2189 PURE module subroutine setRebilledSLDD_D3_IK1(array, fill, lb, ub, lbc, failed, errmsg)
2190#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2191 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_IK1
2192#endif
2193 use pm_kind, only: IKG => IK1
2194 integer(IKG) , intent(in) :: fill
2195 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2196 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2197 character(*, SK) , intent(out) , optional :: errmsg
2198 logical(LK) , intent(out) , optional :: failed
2199 end subroutine
2200#endif
2201
2202 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2203
2204#if LK5_ENABLED
2205 PURE module subroutine setRebilledSLDD_D3_LK5(array, fill, lb, ub, lbc, failed, errmsg)
2206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2207 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_LK5
2208#endif
2209 use pm_kind, only: LKG => LK5
2210 logical(LKG) , intent(in) :: fill
2211 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2212 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2213 character(*, SK) , intent(out) , optional :: errmsg
2214 logical(LK) , intent(out) , optional :: failed
2215 end subroutine
2216#endif
2217
2218#if LK4_ENABLED
2219 PURE module subroutine setRebilledSLDD_D3_LK4(array, fill, lb, ub, lbc, failed, errmsg)
2220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2221 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_LK4
2222#endif
2223 use pm_kind, only: LKG => LK4
2224 logical(LKG) , intent(in) :: fill
2225 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2226 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2227 character(*, SK) , intent(out) , optional :: errmsg
2228 logical(LK) , intent(out) , optional :: failed
2229 end subroutine
2230#endif
2231
2232#if LK3_ENABLED
2233 PURE module subroutine setRebilledSLDD_D3_LK3(array, fill, lb, ub, lbc, failed, errmsg)
2234#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2235 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_LK3
2236#endif
2237 use pm_kind, only: LKG => LK3
2238 logical(LKG) , intent(in) :: fill
2239 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2240 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2241 character(*, SK) , intent(out) , optional :: errmsg
2242 logical(LK) , intent(out) , optional :: failed
2243 end subroutine
2244#endif
2245
2246#if LK2_ENABLED
2247 PURE module subroutine setRebilledSLDD_D3_LK2(array, fill, lb, ub, lbc, failed, errmsg)
2248#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2249 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_LK2
2250#endif
2251 use pm_kind, only: LKG => LK2
2252 logical(LKG) , intent(in) :: fill
2253 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2254 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2255 character(*, SK) , intent(out) , optional :: errmsg
2256 logical(LK) , intent(out) , optional :: failed
2257 end subroutine
2258#endif
2259
2260#if LK1_ENABLED
2261 PURE module subroutine setRebilledSLDD_D3_LK1(array, fill, lb, ub, lbc, failed, errmsg)
2262#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2263 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_LK1
2264#endif
2265 use pm_kind, only: LKG => LK1
2266 logical(LKG) , intent(in) :: fill
2267 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2268 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2269 character(*, SK) , intent(out) , optional :: errmsg
2270 logical(LK) , intent(out) , optional :: failed
2271 end subroutine
2272#endif
2273
2274 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2275
2276#if CK5_ENABLED
2277 PURE module subroutine setRebilledSLDD_D3_CK5(array, fill, lb, ub, lbc, failed, errmsg)
2278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2279 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_CK5
2280#endif
2281 use pm_kind, only: CKG => CK5
2282 complex(CKG) , intent(in) :: fill
2283 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2284 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2285 character(*, SK) , intent(out) , optional :: errmsg
2286 logical(LK) , intent(out) , optional :: failed
2287 end subroutine
2288#endif
2289
2290#if CK4_ENABLED
2291 PURE module subroutine setRebilledSLDD_D3_CK4(array, fill, lb, ub, lbc, failed, errmsg)
2292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2293 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_CK4
2294#endif
2295 use pm_kind, only: CKG => CK4
2296 complex(CKG) , intent(in) :: fill
2297 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2298 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2299 character(*, SK) , intent(out) , optional :: errmsg
2300 logical(LK) , intent(out) , optional :: failed
2301 end subroutine
2302#endif
2303
2304#if CK3_ENABLED
2305 PURE module subroutine setRebilledSLDD_D3_CK3(array, fill, lb, ub, lbc, failed, errmsg)
2306#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2307 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_CK3
2308#endif
2309 use pm_kind, only: CKG => CK3
2310 complex(CKG) , intent(in) :: fill
2311 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2312 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2313 character(*, SK) , intent(out) , optional :: errmsg
2314 logical(LK) , intent(out) , optional :: failed
2315 end subroutine
2316#endif
2317
2318#if CK2_ENABLED
2319 PURE module subroutine setRebilledSLDD_D3_CK2(array, fill, lb, ub, lbc, failed, errmsg)
2320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2321 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_CK2
2322#endif
2323 use pm_kind, only: CKG => CK2
2324 complex(CKG) , intent(in) :: fill
2325 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2326 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2327 character(*, SK) , intent(out) , optional :: errmsg
2328 logical(LK) , intent(out) , optional :: failed
2329 end subroutine
2330#endif
2331
2332#if CK1_ENABLED
2333 PURE module subroutine setRebilledSLDD_D3_CK1(array, fill, lb, ub, lbc, failed, errmsg)
2334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2335 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_CK1
2336#endif
2337 use pm_kind, only: CKG => CK1
2338 complex(CKG) , intent(in) :: fill
2339 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2340 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2341 character(*, SK) , intent(out) , optional :: errmsg
2342 logical(LK) , intent(out) , optional :: failed
2343 end subroutine
2344#endif
2345
2346 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2347
2348#if RK5_ENABLED
2349 PURE module subroutine setRebilledSLDD_D3_RK5(array, fill, lb, ub, lbc, failed, errmsg)
2350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2351 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_RK5
2352#endif
2353 use pm_kind, only: RKG => RK5
2354 real(RKG) , intent(in) :: fill
2355 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2356 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2357 character(*, SK) , intent(out) , optional :: errmsg
2358 logical(LK) , intent(out) , optional :: failed
2359 end subroutine
2360#endif
2361
2362#if RK4_ENABLED
2363 PURE module subroutine setRebilledSLDD_D3_RK4(array, fill, lb, ub, lbc, failed, errmsg)
2364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2365 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_RK4
2366#endif
2367 use pm_kind, only: RKG => RK4
2368 real(RKG) , intent(in) :: fill
2369 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2370 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2371 character(*, SK) , intent(out) , optional :: errmsg
2372 logical(LK) , intent(out) , optional :: failed
2373 end subroutine
2374#endif
2375
2376#if RK3_ENABLED
2377 PURE module subroutine setRebilledSLDD_D3_RK3(array, fill, lb, ub, lbc, failed, errmsg)
2378#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2379 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_RK3
2380#endif
2381 use pm_kind, only: RKG => RK3
2382 real(RKG) , intent(in) :: fill
2383 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2384 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2385 character(*, SK) , intent(out) , optional :: errmsg
2386 logical(LK) , intent(out) , optional :: failed
2387 end subroutine
2388#endif
2389
2390#if RK2_ENABLED
2391 PURE module subroutine setRebilledSLDD_D3_RK2(array, fill, lb, ub, lbc, failed, errmsg)
2392#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2393 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_RK2
2394#endif
2395 use pm_kind, only: RKG => RK2
2396 real(RKG) , intent(in) :: fill
2397 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2398 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2399 character(*, SK) , intent(out) , optional :: errmsg
2400 logical(LK) , intent(out) , optional :: failed
2401 end subroutine
2402#endif
2403
2404#if RK1_ENABLED
2405 PURE module subroutine setRebilledSLDD_D3_RK1(array, fill, lb, ub, lbc, failed, errmsg)
2406#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2407 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLDD_D3_RK1
2408#endif
2409 use pm_kind, only: RKG => RK1
2410 real(RKG) , intent(in) :: fill
2411 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2412 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc
2413 character(*, SK) , intent(out) , optional :: errmsg
2414 logical(LK) , intent(out) , optional :: failed
2415 end subroutine
2416#endif
2417
2418 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2419
2420 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2421 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2422 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2423
2424 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2425 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2426 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2427
2428 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2429
2430#if SK5_ENABLED
2431 PURE module subroutine setRebilledSLLU_D1_SK5(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2432#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2433 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_SK5
2434#endif
2435 use pm_kind, only: SKG => SK5
2436 character(*,SKG) , intent(in) :: fill
2437 character(*,SKG) , intent(inout) , allocatable :: array(:)
2438 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2439 character(*, SK) , intent(out) , optional :: errmsg
2440 logical(LK) , intent(out) , optional :: failed
2441 end subroutine
2442#endif
2443
2444#if SK4_ENABLED
2445 PURE module subroutine setRebilledSLLU_D1_SK4(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2446#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2447 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_SK4
2448#endif
2449 use pm_kind, only: SKG => SK4
2450 character(*,SKG) , intent(in) :: fill
2451 character(*,SKG) , intent(inout) , allocatable :: array(:)
2452 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2453 character(*, SK) , intent(out) , optional :: errmsg
2454 logical(LK) , intent(out) , optional :: failed
2455 end subroutine
2456#endif
2457
2458#if SK3_ENABLED
2459 PURE module subroutine setRebilledSLLU_D1_SK3(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2460#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2461 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_SK3
2462#endif
2463 use pm_kind, only: SKG => SK3
2464 character(*,SKG) , intent(in) :: fill
2465 character(*,SKG) , intent(inout) , allocatable :: array(:)
2466 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2467 character(*, SK) , intent(out) , optional :: errmsg
2468 logical(LK) , intent(out) , optional :: failed
2469 end subroutine
2470#endif
2471
2472#if SK2_ENABLED
2473 PURE module subroutine setRebilledSLLU_D1_SK2(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2474#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2475 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_SK2
2476#endif
2477 use pm_kind, only: SKG => SK2
2478 character(*,SKG) , intent(in) :: fill
2479 character(*,SKG) , intent(inout) , allocatable :: array(:)
2480 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2481 character(*, SK) , intent(out) , optional :: errmsg
2482 logical(LK) , intent(out) , optional :: failed
2483 end subroutine
2484#endif
2485
2486#if SK1_ENABLED
2487 PURE module subroutine setRebilledSLLU_D1_SK1(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2489 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_SK1
2490#endif
2491 use pm_kind, only: SKG => SK1
2492 character(*,SKG) , intent(in) :: fill
2493 character(*,SKG) , intent(inout) , allocatable :: array(:)
2494 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2495 character(*, SK) , intent(out) , optional :: errmsg
2496 logical(LK) , intent(out) , optional :: failed
2497 end subroutine
2498#endif
2499
2500 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2501
2502#if IK5_ENABLED
2503 PURE module subroutine setRebilledSLLU_D1_IK5(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2505 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_IK5
2506#endif
2507 use pm_kind, only: IKG => IK5
2508 integer(IKG) , intent(in) :: fill
2509 integer(IKG) , intent(inout) , allocatable :: array(:)
2510 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2511 character(*, SK) , intent(out) , optional :: errmsg
2512 logical(LK) , intent(out) , optional :: failed
2513 end subroutine
2514#endif
2515
2516#if IK4_ENABLED
2517 PURE module subroutine setRebilledSLLU_D1_IK4(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2519 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_IK4
2520#endif
2521 use pm_kind, only: IKG => IK4
2522 integer(IKG) , intent(in) :: fill
2523 integer(IKG) , intent(inout) , allocatable :: array(:)
2524 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2525 character(*, SK) , intent(out) , optional :: errmsg
2526 logical(LK) , intent(out) , optional :: failed
2527 end subroutine
2528#endif
2529
2530#if IK3_ENABLED
2531 PURE module subroutine setRebilledSLLU_D1_IK3(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2532#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2533 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_IK3
2534#endif
2535 use pm_kind, only: IKG => IK3
2536 integer(IKG) , intent(in) :: fill
2537 integer(IKG) , intent(inout) , allocatable :: array(:)
2538 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2539 character(*, SK) , intent(out) , optional :: errmsg
2540 logical(LK) , intent(out) , optional :: failed
2541 end subroutine
2542#endif
2543
2544#if IK2_ENABLED
2545 PURE module subroutine setRebilledSLLU_D1_IK2(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2547 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_IK2
2548#endif
2549 use pm_kind, only: IKG => IK2
2550 integer(IKG) , intent(in) :: fill
2551 integer(IKG) , intent(inout) , allocatable :: array(:)
2552 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2553 character(*, SK) , intent(out) , optional :: errmsg
2554 logical(LK) , intent(out) , optional :: failed
2555 end subroutine
2556#endif
2557
2558#if IK1_ENABLED
2559 PURE module subroutine setRebilledSLLU_D1_IK1(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2560#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2561 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_IK1
2562#endif
2563 use pm_kind, only: IKG => IK1
2564 integer(IKG) , intent(in) :: fill
2565 integer(IKG) , intent(inout) , allocatable :: array(:)
2566 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2567 character(*, SK) , intent(out) , optional :: errmsg
2568 logical(LK) , intent(out) , optional :: failed
2569 end subroutine
2570#endif
2571
2572 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2573
2574#if LK5_ENABLED
2575 PURE module subroutine setRebilledSLLU_D1_LK5(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2576#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2577 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_LK5
2578#endif
2579 use pm_kind, only: LKG => LK5
2580 logical(LKG) , intent(in) :: fill
2581 logical(LKG) , intent(inout) , allocatable :: array(:)
2582 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2583 character(*, SK) , intent(out) , optional :: errmsg
2584 logical(LK) , intent(out) , optional :: failed
2585 end subroutine
2586#endif
2587
2588#if LK4_ENABLED
2589 PURE module subroutine setRebilledSLLU_D1_LK4(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2590#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2591 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_LK4
2592#endif
2593 use pm_kind, only: LKG => LK4
2594 logical(LKG) , intent(in) :: fill
2595 logical(LKG) , intent(inout) , allocatable :: array(:)
2596 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2597 character(*, SK) , intent(out) , optional :: errmsg
2598 logical(LK) , intent(out) , optional :: failed
2599 end subroutine
2600#endif
2601
2602#if LK3_ENABLED
2603 PURE module subroutine setRebilledSLLU_D1_LK3(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2604#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2605 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_LK3
2606#endif
2607 use pm_kind, only: LKG => LK3
2608 logical(LKG) , intent(in) :: fill
2609 logical(LKG) , intent(inout) , allocatable :: array(:)
2610 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2611 character(*, SK) , intent(out) , optional :: errmsg
2612 logical(LK) , intent(out) , optional :: failed
2613 end subroutine
2614#endif
2615
2616#if LK2_ENABLED
2617 PURE module subroutine setRebilledSLLU_D1_LK2(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2618#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2619 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_LK2
2620#endif
2621 use pm_kind, only: LKG => LK2
2622 logical(LKG) , intent(in) :: fill
2623 logical(LKG) , intent(inout) , allocatable :: array(:)
2624 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2625 character(*, SK) , intent(out) , optional :: errmsg
2626 logical(LK) , intent(out) , optional :: failed
2627 end subroutine
2628#endif
2629
2630#if LK1_ENABLED
2631 PURE module subroutine setRebilledSLLU_D1_LK1(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2632#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2633 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_LK1
2634#endif
2635 use pm_kind, only: LKG => LK1
2636 logical(LKG) , intent(in) :: fill
2637 logical(LKG) , intent(inout) , allocatable :: array(:)
2638 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2639 character(*, SK) , intent(out) , optional :: errmsg
2640 logical(LK) , intent(out) , optional :: failed
2641 end subroutine
2642#endif
2643
2644 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2645
2646#if CK5_ENABLED
2647 PURE module subroutine setRebilledSLLU_D1_CK5(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2649 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_CK5
2650#endif
2651 use pm_kind, only: CKG => CK5
2652 complex(CKG) , intent(in) :: fill
2653 complex(CKG) , intent(inout) , allocatable :: array(:)
2654 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2655 character(*, SK) , intent(out) , optional :: errmsg
2656 logical(LK) , intent(out) , optional :: failed
2657 end subroutine
2658#endif
2659
2660#if CK4_ENABLED
2661 PURE module subroutine setRebilledSLLU_D1_CK4(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2662#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2663 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_CK4
2664#endif
2665 use pm_kind, only: CKG => CK4
2666 complex(CKG) , intent(in) :: fill
2667 complex(CKG) , intent(inout) , allocatable :: array(:)
2668 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2669 character(*, SK) , intent(out) , optional :: errmsg
2670 logical(LK) , intent(out) , optional :: failed
2671 end subroutine
2672#endif
2673
2674#if CK3_ENABLED
2675 PURE module subroutine setRebilledSLLU_D1_CK3(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2677 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_CK3
2678#endif
2679 use pm_kind, only: CKG => CK3
2680 complex(CKG) , intent(in) :: fill
2681 complex(CKG) , intent(inout) , allocatable :: array(:)
2682 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2683 character(*, SK) , intent(out) , optional :: errmsg
2684 logical(LK) , intent(out) , optional :: failed
2685 end subroutine
2686#endif
2687
2688#if CK2_ENABLED
2689 PURE module subroutine setRebilledSLLU_D1_CK2(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2690#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2691 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_CK2
2692#endif
2693 use pm_kind, only: CKG => CK2
2694 complex(CKG) , intent(in) :: fill
2695 complex(CKG) , intent(inout) , allocatable :: array(:)
2696 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2697 character(*, SK) , intent(out) , optional :: errmsg
2698 logical(LK) , intent(out) , optional :: failed
2699 end subroutine
2700#endif
2701
2702#if CK1_ENABLED
2703 PURE module subroutine setRebilledSLLU_D1_CK1(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2705 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_CK1
2706#endif
2707 use pm_kind, only: CKG => CK1
2708 complex(CKG) , intent(in) :: fill
2709 complex(CKG) , intent(inout) , allocatable :: array(:)
2710 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2711 character(*, SK) , intent(out) , optional :: errmsg
2712 logical(LK) , intent(out) , optional :: failed
2713 end subroutine
2714#endif
2715
2716 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2717
2718#if RK5_ENABLED
2719 PURE module subroutine setRebilledSLLU_D1_RK5(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2721 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_RK5
2722#endif
2723 use pm_kind, only: RKG => RK5
2724 real(RKG) , intent(in) :: fill
2725 real(RKG) , intent(inout) , allocatable :: array(:)
2726 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2727 character(*, SK) , intent(out) , optional :: errmsg
2728 logical(LK) , intent(out) , optional :: failed
2729 end subroutine
2730#endif
2731
2732#if RK4_ENABLED
2733 PURE module subroutine setRebilledSLLU_D1_RK4(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2735 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_RK4
2736#endif
2737 use pm_kind, only: RKG => RK4
2738 real(RKG) , intent(in) :: fill
2739 real(RKG) , intent(inout) , allocatable :: array(:)
2740 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2741 character(*, SK) , intent(out) , optional :: errmsg
2742 logical(LK) , intent(out) , optional :: failed
2743 end subroutine
2744#endif
2745
2746#if RK3_ENABLED
2747 PURE module subroutine setRebilledSLLU_D1_RK3(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2749 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_RK3
2750#endif
2751 use pm_kind, only: RKG => RK3
2752 real(RKG) , intent(in) :: fill
2753 real(RKG) , intent(inout) , allocatable :: array(:)
2754 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2755 character(*, SK) , intent(out) , optional :: errmsg
2756 logical(LK) , intent(out) , optional :: failed
2757 end subroutine
2758#endif
2759
2760#if RK2_ENABLED
2761 PURE module subroutine setRebilledSLLU_D1_RK2(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2763 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_RK2
2764#endif
2765 use pm_kind, only: RKG => RK2
2766 real(RKG) , intent(in) :: fill
2767 real(RKG) , intent(inout) , allocatable :: array(:)
2768 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2769 character(*, SK) , intent(out) , optional :: errmsg
2770 logical(LK) , intent(out) , optional :: failed
2771 end subroutine
2772#endif
2773
2774#if RK1_ENABLED
2775 PURE module subroutine setRebilledSLLU_D1_RK1(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2777 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D1_RK1
2778#endif
2779 use pm_kind, only: RKG => RK1
2780 real(RKG) , intent(in) :: fill
2781 real(RKG) , intent(inout) , allocatable :: array(:)
2782 integer(IK) , intent(in) :: lb, ub, lbc, lbcold, ubcold
2783 character(*, SK) , intent(out) , optional :: errmsg
2784 logical(LK) , intent(out) , optional :: failed
2785 end subroutine
2786#endif
2787
2788 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2789
2790 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2791 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2792 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2793
2794 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2795
2796#if SK5_ENABLED
2797 PURE module subroutine setRebilledSLLU_D2_SK5(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2798#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2799 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_SK5
2800#endif
2801 use pm_kind, only: SKG => SK5
2802 character(*,SKG) , intent(in) :: fill
2803 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
2804 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2805 character(*, SK) , intent(out) , optional :: errmsg
2806 logical(LK) , intent(out) , optional :: failed
2807 end subroutine
2808#endif
2809
2810#if SK4_ENABLED
2811 PURE module subroutine setRebilledSLLU_D2_SK4(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2813 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_SK4
2814#endif
2815 use pm_kind, only: SKG => SK4
2816 character(*,SKG) , intent(in) :: fill
2817 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
2818 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2819 character(*, SK) , intent(out) , optional :: errmsg
2820 logical(LK) , intent(out) , optional :: failed
2821 end subroutine
2822#endif
2823
2824#if SK3_ENABLED
2825 PURE module subroutine setRebilledSLLU_D2_SK3(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2827 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_SK3
2828#endif
2829 use pm_kind, only: SKG => SK3
2830 character(*,SKG) , intent(in) :: fill
2831 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
2832 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2833 character(*, SK) , intent(out) , optional :: errmsg
2834 logical(LK) , intent(out) , optional :: failed
2835 end subroutine
2836#endif
2837
2838#if SK2_ENABLED
2839 PURE module subroutine setRebilledSLLU_D2_SK2(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2840#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2841 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_SK2
2842#endif
2843 use pm_kind, only: SKG => SK2
2844 character(*,SKG) , intent(in) :: fill
2845 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
2846 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2847 character(*, SK) , intent(out) , optional :: errmsg
2848 logical(LK) , intent(out) , optional :: failed
2849 end subroutine
2850#endif
2851
2852#if SK1_ENABLED
2853 PURE module subroutine setRebilledSLLU_D2_SK1(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2854#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2855 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_SK1
2856#endif
2857 use pm_kind, only: SKG => SK1
2858 character(*,SKG) , intent(in) :: fill
2859 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
2860 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2861 character(*, SK) , intent(out) , optional :: errmsg
2862 logical(LK) , intent(out) , optional :: failed
2863 end subroutine
2864#endif
2865
2866 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2867
2868#if IK5_ENABLED
2869 PURE module subroutine setRebilledSLLU_D2_IK5(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2870#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2871 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_IK5
2872#endif
2873 use pm_kind, only: IKG => IK5
2874 integer(IKG) , intent(in) :: fill
2875 integer(IKG) , intent(inout) , allocatable :: array(:,:)
2876 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2877 character(*, SK) , intent(out) , optional :: errmsg
2878 logical(LK) , intent(out) , optional :: failed
2879 end subroutine
2880#endif
2881
2882#if IK4_ENABLED
2883 PURE module subroutine setRebilledSLLU_D2_IK4(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2885 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_IK4
2886#endif
2887 use pm_kind, only: IKG => IK4
2888 integer(IKG) , intent(in) :: fill
2889 integer(IKG) , intent(inout) , allocatable :: array(:,:)
2890 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2891 character(*, SK) , intent(out) , optional :: errmsg
2892 logical(LK) , intent(out) , optional :: failed
2893 end subroutine
2894#endif
2895
2896#if IK3_ENABLED
2897 PURE module subroutine setRebilledSLLU_D2_IK3(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2898#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2899 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_IK3
2900#endif
2901 use pm_kind, only: IKG => IK3
2902 integer(IKG) , intent(in) :: fill
2903 integer(IKG) , intent(inout) , allocatable :: array(:,:)
2904 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2905 character(*, SK) , intent(out) , optional :: errmsg
2906 logical(LK) , intent(out) , optional :: failed
2907 end subroutine
2908#endif
2909
2910#if IK2_ENABLED
2911 PURE module subroutine setRebilledSLLU_D2_IK2(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2912#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2913 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_IK2
2914#endif
2915 use pm_kind, only: IKG => IK2
2916 integer(IKG) , intent(in) :: fill
2917 integer(IKG) , intent(inout) , allocatable :: array(:,:)
2918 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2919 character(*, SK) , intent(out) , optional :: errmsg
2920 logical(LK) , intent(out) , optional :: failed
2921 end subroutine
2922#endif
2923
2924#if IK1_ENABLED
2925 PURE module subroutine setRebilledSLLU_D2_IK1(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2927 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_IK1
2928#endif
2929 use pm_kind, only: IKG => IK1
2930 integer(IKG) , intent(in) :: fill
2931 integer(IKG) , intent(inout) , allocatable :: array(:,:)
2932 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2933 character(*, SK) , intent(out) , optional :: errmsg
2934 logical(LK) , intent(out) , optional :: failed
2935 end subroutine
2936#endif
2937
2938 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2939
2940#if LK5_ENABLED
2941 PURE module subroutine setRebilledSLLU_D2_LK5(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2942#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2943 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_LK5
2944#endif
2945 use pm_kind, only: LKG => LK5
2946 logical(LKG) , intent(in) :: fill
2947 logical(LKG) , intent(inout) , allocatable :: array(:,:)
2948 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2949 character(*, SK) , intent(out) , optional :: errmsg
2950 logical(LK) , intent(out) , optional :: failed
2951 end subroutine
2952#endif
2953
2954#if LK4_ENABLED
2955 PURE module subroutine setRebilledSLLU_D2_LK4(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2956#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2957 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_LK4
2958#endif
2959 use pm_kind, only: LKG => LK4
2960 logical(LKG) , intent(in) :: fill
2961 logical(LKG) , intent(inout) , allocatable :: array(:,:)
2962 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2963 character(*, SK) , intent(out) , optional :: errmsg
2964 logical(LK) , intent(out) , optional :: failed
2965 end subroutine
2966#endif
2967
2968#if LK3_ENABLED
2969 PURE module subroutine setRebilledSLLU_D2_LK3(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2970#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2971 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_LK3
2972#endif
2973 use pm_kind, only: LKG => LK3
2974 logical(LKG) , intent(in) :: fill
2975 logical(LKG) , intent(inout) , allocatable :: array(:,:)
2976 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2977 character(*, SK) , intent(out) , optional :: errmsg
2978 logical(LK) , intent(out) , optional :: failed
2979 end subroutine
2980#endif
2981
2982#if LK2_ENABLED
2983 PURE module subroutine setRebilledSLLU_D2_LK2(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2984#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2985 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_LK2
2986#endif
2987 use pm_kind, only: LKG => LK2
2988 logical(LKG) , intent(in) :: fill
2989 logical(LKG) , intent(inout) , allocatable :: array(:,:)
2990 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
2991 character(*, SK) , intent(out) , optional :: errmsg
2992 logical(LK) , intent(out) , optional :: failed
2993 end subroutine
2994#endif
2995
2996#if LK1_ENABLED
2997 PURE module subroutine setRebilledSLLU_D2_LK1(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
2998#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2999 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_LK1
3000#endif
3001 use pm_kind, only: LKG => LK1
3002 logical(LKG) , intent(in) :: fill
3003 logical(LKG) , intent(inout) , allocatable :: array(:,:)
3004 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
3005 character(*, SK) , intent(out) , optional :: errmsg
3006 logical(LK) , intent(out) , optional :: failed
3007 end subroutine
3008#endif
3009
3010 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3011
3012#if CK5_ENABLED
3013 PURE module subroutine setRebilledSLLU_D2_CK5(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3015 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_CK5
3016#endif
3017 use pm_kind, only: CKG => CK5
3018 complex(CKG) , intent(in) :: fill
3019 complex(CKG) , intent(inout) , allocatable :: array(:,:)
3020 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
3021 character(*, SK) , intent(out) , optional :: errmsg
3022 logical(LK) , intent(out) , optional :: failed
3023 end subroutine
3024#endif
3025
3026#if CK4_ENABLED
3027 PURE module subroutine setRebilledSLLU_D2_CK4(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3028#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3029 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_CK4
3030#endif
3031 use pm_kind, only: CKG => CK4
3032 complex(CKG) , intent(in) :: fill
3033 complex(CKG) , intent(inout) , allocatable :: array(:,:)
3034 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
3035 character(*, SK) , intent(out) , optional :: errmsg
3036 logical(LK) , intent(out) , optional :: failed
3037 end subroutine
3038#endif
3039
3040#if CK3_ENABLED
3041 PURE module subroutine setRebilledSLLU_D2_CK3(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3043 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_CK3
3044#endif
3045 use pm_kind, only: CKG => CK3
3046 complex(CKG) , intent(in) :: fill
3047 complex(CKG) , intent(inout) , allocatable :: array(:,:)
3048 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
3049 character(*, SK) , intent(out) , optional :: errmsg
3050 logical(LK) , intent(out) , optional :: failed
3051 end subroutine
3052#endif
3053
3054#if CK2_ENABLED
3055 PURE module subroutine setRebilledSLLU_D2_CK2(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3056#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3057 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_CK2
3058#endif
3059 use pm_kind, only: CKG => CK2
3060 complex(CKG) , intent(in) :: fill
3061 complex(CKG) , intent(inout) , allocatable :: array(:,:)
3062 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
3063 character(*, SK) , intent(out) , optional :: errmsg
3064 logical(LK) , intent(out) , optional :: failed
3065 end subroutine
3066#endif
3067
3068#if CK1_ENABLED
3069 PURE module subroutine setRebilledSLLU_D2_CK1(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3071 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_CK1
3072#endif
3073 use pm_kind, only: CKG => CK1
3074 complex(CKG) , intent(in) :: fill
3075 complex(CKG) , intent(inout) , allocatable :: array(:,:)
3076 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
3077 character(*, SK) , intent(out) , optional :: errmsg
3078 logical(LK) , intent(out) , optional :: failed
3079 end subroutine
3080#endif
3081
3082 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3083
3084#if RK5_ENABLED
3085 PURE module subroutine setRebilledSLLU_D2_RK5(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3086#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3087 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_RK5
3088#endif
3089 use pm_kind, only: RKG => RK5
3090 real(RKG) , intent(in) :: fill
3091 real(RKG) , intent(inout) , allocatable :: array(:,:)
3092 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
3093 character(*, SK) , intent(out) , optional :: errmsg
3094 logical(LK) , intent(out) , optional :: failed
3095 end subroutine
3096#endif
3097
3098#if RK4_ENABLED
3099 PURE module subroutine setRebilledSLLU_D2_RK4(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3100#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3101 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_RK4
3102#endif
3103 use pm_kind, only: RKG => RK4
3104 real(RKG) , intent(in) :: fill
3105 real(RKG) , intent(inout) , allocatable :: array(:,:)
3106 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
3107 character(*, SK) , intent(out) , optional :: errmsg
3108 logical(LK) , intent(out) , optional :: failed
3109 end subroutine
3110#endif
3111
3112#if RK3_ENABLED
3113 PURE module subroutine setRebilledSLLU_D2_RK3(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3114#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3115 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_RK3
3116#endif
3117 use pm_kind, only: RKG => RK3
3118 real(RKG) , intent(in) :: fill
3119 real(RKG) , intent(inout) , allocatable :: array(:,:)
3120 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
3121 character(*, SK) , intent(out) , optional :: errmsg
3122 logical(LK) , intent(out) , optional :: failed
3123 end subroutine
3124#endif
3125
3126#if RK2_ENABLED
3127 PURE module subroutine setRebilledSLLU_D2_RK2(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3128#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3129 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_RK2
3130#endif
3131 use pm_kind, only: RKG => RK2
3132 real(RKG) , intent(in) :: fill
3133 real(RKG) , intent(inout) , allocatable :: array(:,:)
3134 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
3135 character(*, SK) , intent(out) , optional :: errmsg
3136 logical(LK) , intent(out) , optional :: failed
3137 end subroutine
3138#endif
3139
3140#if RK1_ENABLED
3141 PURE module subroutine setRebilledSLLU_D2_RK1(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3142#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3143 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D2_RK1
3144#endif
3145 use pm_kind, only: RKG => RK1
3146 real(RKG) , intent(in) :: fill
3147 real(RKG) , intent(inout) , allocatable :: array(:,:)
3148 integer(IK) , intent(in) , dimension(2) :: lb, ub, lbc, lbcold, ubcold
3149 character(*, SK) , intent(out) , optional :: errmsg
3150 logical(LK) , intent(out) , optional :: failed
3151 end subroutine
3152#endif
3153
3154 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3155
3156 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3157 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3158 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3159
3160 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3161
3162#if SK5_ENABLED
3163 PURE module subroutine setRebilledSLLU_D3_SK5(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3165 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_SK5
3166#endif
3167 use pm_kind, only: SKG => SK5
3168 character(*,SKG) , intent(in) :: fill
3169 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
3170 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3171 character(*, SK) , intent(out) , optional :: errmsg
3172 logical(LK) , intent(out) , optional :: failed
3173 end subroutine
3174#endif
3175
3176#if SK4_ENABLED
3177 PURE module subroutine setRebilledSLLU_D3_SK4(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3179 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_SK4
3180#endif
3181 use pm_kind, only: SKG => SK4
3182 character(*,SKG) , intent(in) :: fill
3183 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
3184 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3185 character(*, SK) , intent(out) , optional :: errmsg
3186 logical(LK) , intent(out) , optional :: failed
3187 end subroutine
3188#endif
3189
3190#if SK3_ENABLED
3191 PURE module subroutine setRebilledSLLU_D3_SK3(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3193 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_SK3
3194#endif
3195 use pm_kind, only: SKG => SK3
3196 character(*,SKG) , intent(in) :: fill
3197 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
3198 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3199 character(*, SK) , intent(out) , optional :: errmsg
3200 logical(LK) , intent(out) , optional :: failed
3201 end subroutine
3202#endif
3203
3204#if SK2_ENABLED
3205 PURE module subroutine setRebilledSLLU_D3_SK2(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3206#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3207 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_SK2
3208#endif
3209 use pm_kind, only: SKG => SK2
3210 character(*,SKG) , intent(in) :: fill
3211 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
3212 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3213 character(*, SK) , intent(out) , optional :: errmsg
3214 logical(LK) , intent(out) , optional :: failed
3215 end subroutine
3216#endif
3217
3218#if SK1_ENABLED
3219 PURE module subroutine setRebilledSLLU_D3_SK1(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3220#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3221 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_SK1
3222#endif
3223 use pm_kind, only: SKG => SK1
3224 character(*,SKG) , intent(in) :: fill
3225 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
3226 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3227 character(*, SK) , intent(out) , optional :: errmsg
3228 logical(LK) , intent(out) , optional :: failed
3229 end subroutine
3230#endif
3231
3232 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3233
3234#if IK5_ENABLED
3235 PURE module subroutine setRebilledSLLU_D3_IK5(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3236#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3237 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_IK5
3238#endif
3239 use pm_kind, only: IKG => IK5
3240 integer(IKG) , intent(in) :: fill
3241 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3242 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3243 character(*, SK) , intent(out) , optional :: errmsg
3244 logical(LK) , intent(out) , optional :: failed
3245 end subroutine
3246#endif
3247
3248#if IK4_ENABLED
3249 PURE module subroutine setRebilledSLLU_D3_IK4(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3251 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_IK4
3252#endif
3253 use pm_kind, only: IKG => IK4
3254 integer(IKG) , intent(in) :: fill
3255 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3256 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3257 character(*, SK) , intent(out) , optional :: errmsg
3258 logical(LK) , intent(out) , optional :: failed
3259 end subroutine
3260#endif
3261
3262#if IK3_ENABLED
3263 PURE module subroutine setRebilledSLLU_D3_IK3(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3264#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3265 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_IK3
3266#endif
3267 use pm_kind, only: IKG => IK3
3268 integer(IKG) , intent(in) :: fill
3269 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3270 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3271 character(*, SK) , intent(out) , optional :: errmsg
3272 logical(LK) , intent(out) , optional :: failed
3273 end subroutine
3274#endif
3275
3276#if IK2_ENABLED
3277 PURE module subroutine setRebilledSLLU_D3_IK2(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3278#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3279 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_IK2
3280#endif
3281 use pm_kind, only: IKG => IK2
3282 integer(IKG) , intent(in) :: fill
3283 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3284 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3285 character(*, SK) , intent(out) , optional :: errmsg
3286 logical(LK) , intent(out) , optional :: failed
3287 end subroutine
3288#endif
3289
3290#if IK1_ENABLED
3291 PURE module subroutine setRebilledSLLU_D3_IK1(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3292#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3293 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_IK1
3294#endif
3295 use pm_kind, only: IKG => IK1
3296 integer(IKG) , intent(in) :: fill
3297 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3298 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3299 character(*, SK) , intent(out) , optional :: errmsg
3300 logical(LK) , intent(out) , optional :: failed
3301 end subroutine
3302#endif
3303
3304 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3305
3306#if LK5_ENABLED
3307 PURE module subroutine setRebilledSLLU_D3_LK5(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3309 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_LK5
3310#endif
3311 use pm_kind, only: LKG => LK5
3312 logical(LKG) , intent(in) :: fill
3313 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
3314 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3315 character(*, SK) , intent(out) , optional :: errmsg
3316 logical(LK) , intent(out) , optional :: failed
3317 end subroutine
3318#endif
3319
3320#if LK4_ENABLED
3321 PURE module subroutine setRebilledSLLU_D3_LK4(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3322#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3323 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_LK4
3324#endif
3325 use pm_kind, only: LKG => LK4
3326 logical(LKG) , intent(in) :: fill
3327 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
3328 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3329 character(*, SK) , intent(out) , optional :: errmsg
3330 logical(LK) , intent(out) , optional :: failed
3331 end subroutine
3332#endif
3333
3334#if LK3_ENABLED
3335 PURE module subroutine setRebilledSLLU_D3_LK3(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3336#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3337 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_LK3
3338#endif
3339 use pm_kind, only: LKG => LK3
3340 logical(LKG) , intent(in) :: fill
3341 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
3342 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3343 character(*, SK) , intent(out) , optional :: errmsg
3344 logical(LK) , intent(out) , optional :: failed
3345 end subroutine
3346#endif
3347
3348#if LK2_ENABLED
3349 PURE module subroutine setRebilledSLLU_D3_LK2(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3350#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3351 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_LK2
3352#endif
3353 use pm_kind, only: LKG => LK2
3354 logical(LKG) , intent(in) :: fill
3355 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
3356 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3357 character(*, SK) , intent(out) , optional :: errmsg
3358 logical(LK) , intent(out) , optional :: failed
3359 end subroutine
3360#endif
3361
3362#if LK1_ENABLED
3363 PURE module subroutine setRebilledSLLU_D3_LK1(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3364#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3365 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_LK1
3366#endif
3367 use pm_kind, only: LKG => LK1
3368 logical(LKG) , intent(in) :: fill
3369 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
3370 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3371 character(*, SK) , intent(out) , optional :: errmsg
3372 logical(LK) , intent(out) , optional :: failed
3373 end subroutine
3374#endif
3375
3376 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3377
3378#if CK5_ENABLED
3379 PURE module subroutine setRebilledSLLU_D3_CK5(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3380#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3381 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_CK5
3382#endif
3383 use pm_kind, only: CKG => CK5
3384 complex(CKG) , intent(in) :: fill
3385 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
3386 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3387 character(*, SK) , intent(out) , optional :: errmsg
3388 logical(LK) , intent(out) , optional :: failed
3389 end subroutine
3390#endif
3391
3392#if CK4_ENABLED
3393 PURE module subroutine setRebilledSLLU_D3_CK4(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3394#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3395 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_CK4
3396#endif
3397 use pm_kind, only: CKG => CK4
3398 complex(CKG) , intent(in) :: fill
3399 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
3400 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3401 character(*, SK) , intent(out) , optional :: errmsg
3402 logical(LK) , intent(out) , optional :: failed
3403 end subroutine
3404#endif
3405
3406#if CK3_ENABLED
3407 PURE module subroutine setRebilledSLLU_D3_CK3(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3409 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_CK3
3410#endif
3411 use pm_kind, only: CKG => CK3
3412 complex(CKG) , intent(in) :: fill
3413 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
3414 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3415 character(*, SK) , intent(out) , optional :: errmsg
3416 logical(LK) , intent(out) , optional :: failed
3417 end subroutine
3418#endif
3419
3420#if CK2_ENABLED
3421 PURE module subroutine setRebilledSLLU_D3_CK2(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3422#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3423 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_CK2
3424#endif
3425 use pm_kind, only: CKG => CK2
3426 complex(CKG) , intent(in) :: fill
3427 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
3428 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3429 character(*, SK) , intent(out) , optional :: errmsg
3430 logical(LK) , intent(out) , optional :: failed
3431 end subroutine
3432#endif
3433
3434#if CK1_ENABLED
3435 PURE module subroutine setRebilledSLLU_D3_CK1(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3437 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_CK1
3438#endif
3439 use pm_kind, only: CKG => CK1
3440 complex(CKG) , intent(in) :: fill
3441 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
3442 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3443 character(*, SK) , intent(out) , optional :: errmsg
3444 logical(LK) , intent(out) , optional :: failed
3445 end subroutine
3446#endif
3447
3448 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3449
3450#if RK5_ENABLED
3451 PURE module subroutine setRebilledSLLU_D3_RK5(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3452#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3453 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_RK5
3454#endif
3455 use pm_kind, only: RKG => RK5
3456 real(RKG) , intent(in) :: fill
3457 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
3458 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3459 character(*, SK) , intent(out) , optional :: errmsg
3460 logical(LK) , intent(out) , optional :: failed
3461 end subroutine
3462#endif
3463
3464#if RK4_ENABLED
3465 PURE module subroutine setRebilledSLLU_D3_RK4(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3467 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_RK4
3468#endif
3469 use pm_kind, only: RKG => RK4
3470 real(RKG) , intent(in) :: fill
3471 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
3472 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3473 character(*, SK) , intent(out) , optional :: errmsg
3474 logical(LK) , intent(out) , optional :: failed
3475 end subroutine
3476#endif
3477
3478#if RK3_ENABLED
3479 PURE module subroutine setRebilledSLLU_D3_RK3(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3480#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3481 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_RK3
3482#endif
3483 use pm_kind, only: RKG => RK3
3484 real(RKG) , intent(in) :: fill
3485 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
3486 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3487 character(*, SK) , intent(out) , optional :: errmsg
3488 logical(LK) , intent(out) , optional :: failed
3489 end subroutine
3490#endif
3491
3492#if RK2_ENABLED
3493 PURE module subroutine setRebilledSLLU_D3_RK2(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3494#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3495 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_RK2
3496#endif
3497 use pm_kind, only: RKG => RK2
3498 real(RKG) , intent(in) :: fill
3499 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
3500 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3501 character(*, SK) , intent(out) , optional :: errmsg
3502 logical(LK) , intent(out) , optional :: failed
3503 end subroutine
3504#endif
3505
3506#if RK1_ENABLED
3507 PURE module subroutine setRebilledSLLU_D3_RK1(array, fill, lb, ub, lbc, lbcold, ubcold, failed, errmsg)
3508#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3509 !DEC$ ATTRIBUTES DLLEXPORT :: setRebilledSLLU_D3_RK1
3510#endif
3511 use pm_kind, only: RKG => RK1
3512 real(RKG) , intent(in) :: fill
3513 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
3514 integer(IK) , intent(in) , dimension(3) :: lb, ub, lbc, lbcold, ubcold
3515 character(*, SK) , intent(out) , optional :: errmsg
3516 logical(LK) , intent(out) , optional :: failed
3517 end subroutine
3518#endif
3519
3520 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3521
3522 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3523 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3524 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3525
3526 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3527 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3528 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3529
3530 end interface
3531
3532!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3533
3534end module pm_arrayRebill ! LCOV_EXCL_LINE
pm_arrayRebill::setRebilled
Allocate or resize (shrink or expand) and refill an input allocatable scalar string or array of rank ...
Definition: pm_arrayRebill.F90:214
pm_arrayRebill
This module contains procedures and generic interfaces for resizing allocatable arrays of various typ...
Definition: pm_arrayRebill.F90:64
pm_arrayRebill::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayRebill.F90:70
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::SK5
integer, parameter SK5
Definition: pm_kind.F90:326
pm_kind::LK1
integer, parameter LK1
Definition: pm_kind.F90:412
pm_kind::IK3
integer, parameter IK3
Definition: pm_kind.F90:368
pm_kind::RK5
integer, parameter RK5
Definition: pm_kind.F90:478
pm_kind::RK4
integer, parameter RK4
Definition: pm_kind.F90:489
pm_kind::SK1
integer, parameter SK1
Definition: pm_kind.F90:346
pm_kind::IK1
integer, parameter IK1
Definition: pm_kind.F90:382
pm_kind::LK5
integer, parameter LK5
Definition: pm_kind.F90:392
pm_kind::RK2
integer, parameter RK2
Definition: pm_kind.F90:511
pm_kind::CK1
integer, parameter CK1
Definition: pm_kind.F90:464
pm_kind::RK3
integer, parameter RK3
Definition: pm_kind.F90:500
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::LK2
integer, parameter LK2
Definition: pm_kind.F90:407
pm_kind::LK4
integer, parameter LK4
Definition: pm_kind.F90:397
pm_kind::CK5
integer, parameter CK5
Definition: pm_kind.F90:420
pm_kind::CK4
integer, parameter CK4
Definition: pm_kind.F90:431
pm_kind::SK4
integer, parameter SK4
Definition: pm_kind.F90:331
pm_kind::LK3
integer, parameter LK3
Definition: pm_kind.F90:402
pm_kind::IK2
integer, parameter IK2
Definition: pm_kind.F90:375
pm_kind::CK2
integer, parameter CK2
Definition: pm_kind.F90:453
pm_kind::SK2
integer, parameter SK2
Definition: pm_kind.F90:341
pm_kind::CK3
integer, parameter CK3
Definition: pm_kind.F90:442
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::IK4
integer, parameter IK4
Definition: pm_kind.F90:361
pm_kind::IK5
integer, parameter IK5
Definition: pm_kind.F90:354
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::RK1
integer, parameter RK1
Definition: pm_kind.F90:522
pm_kind::SK3
integer, parameter SK3
Definition: pm_kind.F90:336