ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_arrayRefill.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
76
77!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
78
79module pm_arrayRefill
80
81 use pm_kind, only: SK, IK, LK
82
83 implicit none
84
85 character(*,SK), parameter :: MODULE_NAME = "@pm_arrayRefill"
86
87!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
88
245 interface setRefilled
246
247 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
248 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
249 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
250
251 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
252 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
253 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
254
255 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
256
257#if SK5_ENABLED
258 PURE module subroutine setRefilledDDDD_D0_SK5(array, fill, failed, errmsg)
259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
260 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D0_SK5
261#endif
262 use pm_kind, only: SKG => SK5
263 character(1,SKG) , intent(in) :: fill
264 character(:,SKG) , intent(inout) , allocatable :: array
265 character(*, SK) , intent(out) , optional :: errmsg
266 logical(LK) , intent(out) , optional :: failed
267 end subroutine
268#endif
269
270#if SK4_ENABLED
271 PURE module subroutine setRefilledDDDD_D0_SK4(array, fill, failed, errmsg)
272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
273 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D0_SK4
274#endif
275 use pm_kind, only: SKG => SK4
276 character(1,SKG) , intent(in) :: fill
277 character(:,SKG) , intent(inout) , allocatable :: array
278 character(*, SK) , intent(out) , optional :: errmsg
279 logical(LK) , intent(out) , optional :: failed
280 end subroutine
281#endif
282
283#if SK3_ENABLED
284 PURE module subroutine setRefilledDDDD_D0_SK3(array, fill, failed, errmsg)
285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
286 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D0_SK3
287#endif
288 use pm_kind, only: SKG => SK3
289 character(1,SKG) , intent(in) :: fill
290 character(:,SKG) , intent(inout) , allocatable :: array
291 character(*, SK) , intent(out) , optional :: errmsg
292 logical(LK) , intent(out) , optional :: failed
293 end subroutine
294#endif
295
296#if SK2_ENABLED
297 PURE module subroutine setRefilledDDDD_D0_SK2(array, fill, failed, errmsg)
298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
299 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D0_SK2
300#endif
301 use pm_kind, only: SKG => SK2
302 character(1,SKG) , intent(in) :: fill
303 character(:,SKG) , intent(inout) , allocatable :: array
304 character(*, SK) , intent(out) , optional :: errmsg
305 logical(LK) , intent(out) , optional :: failed
306 end subroutine
307#endif
308
309#if SK1_ENABLED
310 PURE module subroutine setRefilledDDDD_D0_SK1(array, fill, failed, errmsg)
311#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
312 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D0_SK1
313#endif
314 use pm_kind, only: SKG => SK1
315 character(1,SKG) , intent(in) :: fill
316 character(:,SKG) , intent(inout) , allocatable :: array
317 character(*, SK) , intent(out) , optional :: errmsg
318 logical(LK) , intent(out) , optional :: failed
319 end subroutine
320#endif
321
322 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
323
324 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
325 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
326 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
327
328 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
329
330#if SK5_ENABLED
331 PURE module subroutine setRefilledDDDD_D1_SK5(array, fill, failed, errmsg)
332#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
333 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_SK5
334#endif
335 use pm_kind, only: SKG => SK5
336 character(*,SKG) , intent(in) :: fill
337 character(*,SKG) , intent(inout) , allocatable :: array(:)
338 character(*, SK) , intent(out) , optional :: errmsg
339 logical(LK) , intent(out) , optional :: failed
340 end subroutine
341#endif
342
343#if SK4_ENABLED
344 PURE module subroutine setRefilledDDDD_D1_SK4(array, fill, failed, errmsg)
345#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
346 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_SK4
347#endif
348 use pm_kind, only: SKG => SK4
349 character(*,SKG) , intent(in) :: fill
350 character(*,SKG) , intent(inout) , allocatable :: array(:)
351 character(*, SK) , intent(out) , optional :: errmsg
352 logical(LK) , intent(out) , optional :: failed
353 end subroutine
354#endif
355
356#if SK3_ENABLED
357 PURE module subroutine setRefilledDDDD_D1_SK3(array, fill, failed, errmsg)
358#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
359 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_SK3
360#endif
361 use pm_kind, only: SKG => SK3
362 character(*,SKG) , intent(in) :: fill
363 character(*,SKG) , intent(inout) , allocatable :: array(:)
364 character(*, SK) , intent(out) , optional :: errmsg
365 logical(LK) , intent(out) , optional :: failed
366 end subroutine
367#endif
368
369#if SK2_ENABLED
370 PURE module subroutine setRefilledDDDD_D1_SK2(array, fill, failed, errmsg)
371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
372 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_SK2
373#endif
374 use pm_kind, only: SKG => SK2
375 character(*,SKG) , intent(in) :: fill
376 character(*,SKG) , intent(inout) , allocatable :: array(:)
377 character(*, SK) , intent(out) , optional :: errmsg
378 logical(LK) , intent(out) , optional :: failed
379 end subroutine
380#endif
381
382#if SK1_ENABLED
383 PURE module subroutine setRefilledDDDD_D1_SK1(array, fill, failed, errmsg)
384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
385 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_SK1
386#endif
387 use pm_kind, only: SKG => SK1
388 character(*,SKG) , intent(in) :: fill
389 character(*,SKG) , intent(inout) , allocatable :: array(:)
390 character(*, SK) , intent(out) , optional :: errmsg
391 logical(LK) , intent(out) , optional :: failed
392 end subroutine
393#endif
394
395 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
396
397#if IK5_ENABLED
398 PURE module subroutine setRefilledDDDD_D1_IK5(array, fill, failed, errmsg)
399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
400 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_IK5
401#endif
402 use pm_kind, only: IKG => IK5
403 integer(IKG) , intent(in) :: fill
404 integer(IKG) , intent(inout) , allocatable :: array(:)
405 character(*, SK) , intent(out) , optional :: errmsg
406 logical(LK) , intent(out) , optional :: failed
407 end subroutine
408#endif
409
410#if IK4_ENABLED
411 PURE module subroutine setRefilledDDDD_D1_IK4(array, fill, failed, errmsg)
412#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
413 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_IK4
414#endif
415 use pm_kind, only: IKG => IK4
416 integer(IKG) , intent(in) :: fill
417 integer(IKG) , intent(inout) , allocatable :: array(:)
418 character(*, SK) , intent(out) , optional :: errmsg
419 logical(LK) , intent(out) , optional :: failed
420 end subroutine
421#endif
422
423#if IK3_ENABLED
424 PURE module subroutine setRefilledDDDD_D1_IK3(array, fill, failed, errmsg)
425#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
426 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_IK3
427#endif
428 use pm_kind, only: IKG => IK3
429 integer(IKG) , intent(in) :: fill
430 integer(IKG) , intent(inout) , allocatable :: array(:)
431 character(*, SK) , intent(out) , optional :: errmsg
432 logical(LK) , intent(out) , optional :: failed
433 end subroutine
434#endif
435
436#if IK2_ENABLED
437 PURE module subroutine setRefilledDDDD_D1_IK2(array, fill, failed, errmsg)
438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
439 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_IK2
440#endif
441 use pm_kind, only: IKG => IK2
442 integer(IKG) , intent(in) :: fill
443 integer(IKG) , intent(inout) , allocatable :: array(:)
444 character(*, SK) , intent(out) , optional :: errmsg
445 logical(LK) , intent(out) , optional :: failed
446 end subroutine
447#endif
448
449#if IK1_ENABLED
450 PURE module subroutine setRefilledDDDD_D1_IK1(array, fill, failed, errmsg)
451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
452 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_IK1
453#endif
454 use pm_kind, only: IKG => IK1
455 integer(IKG) , intent(in) :: fill
456 integer(IKG) , intent(inout) , allocatable :: array(:)
457 character(*, SK) , intent(out) , optional :: errmsg
458 logical(LK) , intent(out) , optional :: failed
459 end subroutine
460#endif
461
462 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
463
464#if LK5_ENABLED
465 PURE module subroutine setRefilledDDDD_D1_LK5(array, fill, failed, errmsg)
466#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
467 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_LK5
468#endif
469 use pm_kind, only: LKG => LK5
470 logical(LKG) , intent(in) :: fill
471 logical(LKG) , intent(inout) , allocatable :: array(:)
472 character(*, SK) , intent(out) , optional :: errmsg
473 logical(LK) , intent(out) , optional :: failed
474 end subroutine
475#endif
476
477#if LK4_ENABLED
478 PURE module subroutine setRefilledDDDD_D1_LK4(array, fill, failed, errmsg)
479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
480 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_LK4
481#endif
482 use pm_kind, only: LKG => LK4
483 logical(LKG) , intent(in) :: fill
484 logical(LKG) , intent(inout) , allocatable :: array(:)
485 character(*, SK) , intent(out) , optional :: errmsg
486 logical(LK) , intent(out) , optional :: failed
487 end subroutine
488#endif
489
490#if LK3_ENABLED
491 PURE module subroutine setRefilledDDDD_D1_LK3(array, fill, failed, errmsg)
492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
493 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_LK3
494#endif
495 use pm_kind, only: LKG => LK3
496 logical(LKG) , intent(in) :: fill
497 logical(LKG) , intent(inout) , allocatable :: array(:)
498 character(*, SK) , intent(out) , optional :: errmsg
499 logical(LK) , intent(out) , optional :: failed
500 end subroutine
501#endif
502
503#if LK2_ENABLED
504 PURE module subroutine setRefilledDDDD_D1_LK2(array, fill, failed, errmsg)
505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
506 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_LK2
507#endif
508 use pm_kind, only: LKG => LK2
509 logical(LKG) , intent(in) :: fill
510 logical(LKG) , intent(inout) , allocatable :: array(:)
511 character(*, SK) , intent(out) , optional :: errmsg
512 logical(LK) , intent(out) , optional :: failed
513 end subroutine
514#endif
515
516#if LK1_ENABLED
517 PURE module subroutine setRefilledDDDD_D1_LK1(array, fill, failed, errmsg)
518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
519 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_LK1
520#endif
521 use pm_kind, only: LKG => LK1
522 logical(LKG) , intent(in) :: fill
523 logical(LKG) , intent(inout) , allocatable :: array(:)
524 character(*, SK) , intent(out) , optional :: errmsg
525 logical(LK) , intent(out) , optional :: failed
526 end subroutine
527#endif
528
529 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
530
531#if CK5_ENABLED
532 PURE module subroutine setRefilledDDDD_D1_CK5(array, fill, failed, errmsg)
533#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
534 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_CK5
535#endif
536 use pm_kind, only: CKG => CK5
537 complex(CKG) , intent(in) :: fill
538 complex(CKG) , intent(inout) , allocatable :: array(:)
539 character(*, SK) , intent(out) , optional :: errmsg
540 logical(LK) , intent(out) , optional :: failed
541 end subroutine
542#endif
543
544#if CK4_ENABLED
545 PURE module subroutine setRefilledDDDD_D1_CK4(array, fill, failed, errmsg)
546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
547 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_CK4
548#endif
549 use pm_kind, only: CKG => CK4
550 complex(CKG) , intent(in) :: fill
551 complex(CKG) , intent(inout) , allocatable :: array(:)
552 character(*, SK) , intent(out) , optional :: errmsg
553 logical(LK) , intent(out) , optional :: failed
554 end subroutine
555#endif
556
557#if CK3_ENABLED
558 PURE module subroutine setRefilledDDDD_D1_CK3(array, fill, failed, errmsg)
559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
560 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_CK3
561#endif
562 use pm_kind, only: CKG => CK3
563 complex(CKG) , intent(in) :: fill
564 complex(CKG) , intent(inout) , allocatable :: array(:)
565 character(*, SK) , intent(out) , optional :: errmsg
566 logical(LK) , intent(out) , optional :: failed
567 end subroutine
568#endif
569
570#if CK2_ENABLED
571 PURE module subroutine setRefilledDDDD_D1_CK2(array, fill, failed, errmsg)
572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
573 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_CK2
574#endif
575 use pm_kind, only: CKG => CK2
576 complex(CKG) , intent(in) :: fill
577 complex(CKG) , intent(inout) , allocatable :: array(:)
578 character(*, SK) , intent(out) , optional :: errmsg
579 logical(LK) , intent(out) , optional :: failed
580 end subroutine
581#endif
582
583#if CK1_ENABLED
584 PURE module subroutine setRefilledDDDD_D1_CK1(array, fill, failed, errmsg)
585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
586 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_CK1
587#endif
588 use pm_kind, only: CKG => CK1
589 complex(CKG) , intent(in) :: fill
590 complex(CKG) , intent(inout) , allocatable :: array(:)
591 character(*, SK) , intent(out) , optional :: errmsg
592 logical(LK) , intent(out) , optional :: failed
593 end subroutine
594#endif
595
596 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
597
598#if RK5_ENABLED
599 PURE module subroutine setRefilledDDDD_D1_RK5(array, fill, failed, errmsg)
600#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
601 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_RK5
602#endif
603 use pm_kind, only: RKG => RK5
604 real(RKG) , intent(in) :: fill
605 real(RKG) , intent(inout) , allocatable :: array(:)
606 character(*, SK) , intent(out) , optional :: errmsg
607 logical(LK) , intent(out) , optional :: failed
608 end subroutine
609#endif
610
611#if RK4_ENABLED
612 PURE module subroutine setRefilledDDDD_D1_RK4(array, fill, failed, errmsg)
613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
614 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_RK4
615#endif
616 use pm_kind, only: RKG => RK4
617 real(RKG) , intent(in) :: fill
618 real(RKG) , intent(inout) , allocatable :: array(:)
619 character(*, SK) , intent(out) , optional :: errmsg
620 logical(LK) , intent(out) , optional :: failed
621 end subroutine
622#endif
623
624#if RK3_ENABLED
625 PURE module subroutine setRefilledDDDD_D1_RK3(array, fill, failed, errmsg)
626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
627 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_RK3
628#endif
629 use pm_kind, only: RKG => RK3
630 real(RKG) , intent(in) :: fill
631 real(RKG) , intent(inout) , allocatable :: array(:)
632 character(*, SK) , intent(out) , optional :: errmsg
633 logical(LK) , intent(out) , optional :: failed
634 end subroutine
635#endif
636
637#if RK2_ENABLED
638 PURE module subroutine setRefilledDDDD_D1_RK2(array, fill, failed, errmsg)
639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
640 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_RK2
641#endif
642 use pm_kind, only: RKG => RK2
643 real(RKG) , intent(in) :: fill
644 real(RKG) , intent(inout) , allocatable :: array(:)
645 character(*, SK) , intent(out) , optional :: errmsg
646 logical(LK) , intent(out) , optional :: failed
647 end subroutine
648#endif
649
650#if RK1_ENABLED
651 PURE module subroutine setRefilledDDDD_D1_RK1(array, fill, failed, errmsg)
652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
653 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D1_RK1
654#endif
655 use pm_kind, only: RKG => RK1
656 real(RKG) , intent(in) :: fill
657 real(RKG) , intent(inout) , allocatable :: array(:)
658 character(*, SK) , intent(out) , optional :: errmsg
659 logical(LK) , intent(out) , optional :: failed
660 end subroutine
661#endif
662
663 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
664
665 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
666 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
667 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
668
669 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
670
671#if SK5_ENABLED
672 PURE module subroutine setRefilledDDDD_D2_SK5(array, fill, failed, errmsg)
673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
674 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_SK5
675#endif
676 use pm_kind, only: SKG => SK5
677 character(*,SKG) , intent(in) :: fill
678 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
679 character(*, SK) , intent(out) , optional :: errmsg
680 logical(LK) , intent(out) , optional :: failed
681 end subroutine
682#endif
683
684#if SK4_ENABLED
685 PURE module subroutine setRefilledDDDD_D2_SK4(array, fill, failed, errmsg)
686#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
687 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_SK4
688#endif
689 use pm_kind, only: SKG => SK4
690 character(*,SKG) , intent(in) :: fill
691 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
692 character(*, SK) , intent(out) , optional :: errmsg
693 logical(LK) , intent(out) , optional :: failed
694 end subroutine
695#endif
696
697#if SK3_ENABLED
698 PURE module subroutine setRefilledDDDD_D2_SK3(array, fill, failed, errmsg)
699#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
700 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_SK3
701#endif
702 use pm_kind, only: SKG => SK3
703 character(*,SKG) , intent(in) :: fill
704 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
705 character(*, SK) , intent(out) , optional :: errmsg
706 logical(LK) , intent(out) , optional :: failed
707 end subroutine
708#endif
709
710#if SK2_ENABLED
711 PURE module subroutine setRefilledDDDD_D2_SK2(array, fill, failed, errmsg)
712#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
713 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_SK2
714#endif
715 use pm_kind, only: SKG => SK2
716 character(*,SKG) , intent(in) :: fill
717 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
718 character(*, SK) , intent(out) , optional :: errmsg
719 logical(LK) , intent(out) , optional :: failed
720 end subroutine
721#endif
722
723#if SK1_ENABLED
724 PURE module subroutine setRefilledDDDD_D2_SK1(array, fill, failed, errmsg)
725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
726 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_SK1
727#endif
728 use pm_kind, only: SKG => SK1
729 character(*,SKG) , intent(in) :: fill
730 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
731 character(*, SK) , intent(out) , optional :: errmsg
732 logical(LK) , intent(out) , optional :: failed
733 end subroutine
734#endif
735
736 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
737
738#if IK5_ENABLED
739 PURE module subroutine setRefilledDDDD_D2_IK5(array, fill, failed, errmsg)
740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
741 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_IK5
742#endif
743 use pm_kind, only: IKG => IK5
744 integer(IKG) , intent(in) :: fill
745 integer(IKG) , intent(inout) , allocatable :: array(:,:)
746 character(*, SK) , intent(out) , optional :: errmsg
747 logical(LK) , intent(out) , optional :: failed
748 end subroutine
749#endif
750
751#if IK4_ENABLED
752 PURE module subroutine setRefilledDDDD_D2_IK4(array, fill, failed, errmsg)
753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
754 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_IK4
755#endif
756 use pm_kind, only: IKG => IK4
757 integer(IKG) , intent(in) :: fill
758 integer(IKG) , intent(inout) , allocatable :: array(:,:)
759 character(*, SK) , intent(out) , optional :: errmsg
760 logical(LK) , intent(out) , optional :: failed
761 end subroutine
762#endif
763
764#if IK3_ENABLED
765 PURE module subroutine setRefilledDDDD_D2_IK3(array, fill, failed, errmsg)
766#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
767 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_IK3
768#endif
769 use pm_kind, only: IKG => IK3
770 integer(IKG) , intent(in) :: fill
771 integer(IKG) , intent(inout) , allocatable :: array(:,:)
772 character(*, SK) , intent(out) , optional :: errmsg
773 logical(LK) , intent(out) , optional :: failed
774 end subroutine
775#endif
776
777#if IK2_ENABLED
778 PURE module subroutine setRefilledDDDD_D2_IK2(array, fill, failed, errmsg)
779#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
780 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_IK2
781#endif
782 use pm_kind, only: IKG => IK2
783 integer(IKG) , intent(in) :: fill
784 integer(IKG) , intent(inout) , allocatable :: array(:,:)
785 character(*, SK) , intent(out) , optional :: errmsg
786 logical(LK) , intent(out) , optional :: failed
787 end subroutine
788#endif
789
790#if IK1_ENABLED
791 PURE module subroutine setRefilledDDDD_D2_IK1(array, fill, failed, errmsg)
792#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
793 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_IK1
794#endif
795 use pm_kind, only: IKG => IK1
796 integer(IKG) , intent(in) :: fill
797 integer(IKG) , intent(inout) , allocatable :: array(:,:)
798 character(*, SK) , intent(out) , optional :: errmsg
799 logical(LK) , intent(out) , optional :: failed
800 end subroutine
801#endif
802
803 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
804
805#if LK5_ENABLED
806 PURE module subroutine setRefilledDDDD_D2_LK5(array, fill, failed, errmsg)
807#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
808 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_LK5
809#endif
810 use pm_kind, only: LKG => LK5
811 logical(LKG) , intent(in) :: fill
812 logical(LKG) , intent(inout) , allocatable :: array(:,:)
813 character(*, SK) , intent(out) , optional :: errmsg
814 logical(LK) , intent(out) , optional :: failed
815 end subroutine
816#endif
817
818#if LK4_ENABLED
819 PURE module subroutine setRefilledDDDD_D2_LK4(array, fill, failed, errmsg)
820#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
821 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_LK4
822#endif
823 use pm_kind, only: LKG => LK4
824 logical(LKG) , intent(in) :: fill
825 logical(LKG) , intent(inout) , allocatable :: array(:,:)
826 character(*, SK) , intent(out) , optional :: errmsg
827 logical(LK) , intent(out) , optional :: failed
828 end subroutine
829#endif
830
831#if LK3_ENABLED
832 PURE module subroutine setRefilledDDDD_D2_LK3(array, fill, failed, errmsg)
833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
834 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_LK3
835#endif
836 use pm_kind, only: LKG => LK3
837 logical(LKG) , intent(in) :: fill
838 logical(LKG) , intent(inout) , allocatable :: array(:,:)
839 character(*, SK) , intent(out) , optional :: errmsg
840 logical(LK) , intent(out) , optional :: failed
841 end subroutine
842#endif
843
844#if LK2_ENABLED
845 PURE module subroutine setRefilledDDDD_D2_LK2(array, fill, failed, errmsg)
846#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
847 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_LK2
848#endif
849 use pm_kind, only: LKG => LK2
850 logical(LKG) , intent(in) :: fill
851 logical(LKG) , intent(inout) , allocatable :: array(:,:)
852 character(*, SK) , intent(out) , optional :: errmsg
853 logical(LK) , intent(out) , optional :: failed
854 end subroutine
855#endif
856
857#if LK1_ENABLED
858 PURE module subroutine setRefilledDDDD_D2_LK1(array, fill, failed, errmsg)
859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
860 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_LK1
861#endif
862 use pm_kind, only: LKG => LK1
863 logical(LKG) , intent(in) :: fill
864 logical(LKG) , intent(inout) , allocatable :: array(:,:)
865 character(*, SK) , intent(out) , optional :: errmsg
866 logical(LK) , intent(out) , optional :: failed
867 end subroutine
868#endif
869
870 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
871
872#if CK5_ENABLED
873 PURE module subroutine setRefilledDDDD_D2_CK5(array, fill, failed, errmsg)
874#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
875 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_CK5
876#endif
877 use pm_kind, only: CKG => CK5
878 complex(CKG) , intent(in) :: fill
879 complex(CKG) , intent(inout) , allocatable :: array(:,:)
880 character(*, SK) , intent(out) , optional :: errmsg
881 logical(LK) , intent(out) , optional :: failed
882 end subroutine
883#endif
884
885#if CK4_ENABLED
886 PURE module subroutine setRefilledDDDD_D2_CK4(array, fill, failed, errmsg)
887#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
888 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_CK4
889#endif
890 use pm_kind, only: CKG => CK4
891 complex(CKG) , intent(in) :: fill
892 complex(CKG) , intent(inout) , allocatable :: array(:,:)
893 character(*, SK) , intent(out) , optional :: errmsg
894 logical(LK) , intent(out) , optional :: failed
895 end subroutine
896#endif
897
898#if CK3_ENABLED
899 PURE module subroutine setRefilledDDDD_D2_CK3(array, fill, failed, errmsg)
900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
901 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_CK3
902#endif
903 use pm_kind, only: CKG => CK3
904 complex(CKG) , intent(in) :: fill
905 complex(CKG) , intent(inout) , allocatable :: array(:,:)
906 character(*, SK) , intent(out) , optional :: errmsg
907 logical(LK) , intent(out) , optional :: failed
908 end subroutine
909#endif
910
911#if CK2_ENABLED
912 PURE module subroutine setRefilledDDDD_D2_CK2(array, fill, failed, errmsg)
913#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
914 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_CK2
915#endif
916 use pm_kind, only: CKG => CK2
917 complex(CKG) , intent(in) :: fill
918 complex(CKG) , intent(inout) , allocatable :: array(:,:)
919 character(*, SK) , intent(out) , optional :: errmsg
920 logical(LK) , intent(out) , optional :: failed
921 end subroutine
922#endif
923
924#if CK1_ENABLED
925 PURE module subroutine setRefilledDDDD_D2_CK1(array, fill, failed, errmsg)
926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
927 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_CK1
928#endif
929 use pm_kind, only: CKG => CK1
930 complex(CKG) , intent(in) :: fill
931 complex(CKG) , intent(inout) , allocatable :: array(:,:)
932 character(*, SK) , intent(out) , optional :: errmsg
933 logical(LK) , intent(out) , optional :: failed
934 end subroutine
935#endif
936
937 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
938
939#if RK5_ENABLED
940 PURE module subroutine setRefilledDDDD_D2_RK5(array, fill, failed, errmsg)
941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
942 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_RK5
943#endif
944 use pm_kind, only: RKG => RK5
945 real(RKG) , intent(in) :: fill
946 real(RKG) , intent(inout) , allocatable :: array(:,:)
947 character(*, SK) , intent(out) , optional :: errmsg
948 logical(LK) , intent(out) , optional :: failed
949 end subroutine
950#endif
951
952#if RK4_ENABLED
953 PURE module subroutine setRefilledDDDD_D2_RK4(array, fill, failed, errmsg)
954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
955 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_RK4
956#endif
957 use pm_kind, only: RKG => RK4
958 real(RKG) , intent(in) :: fill
959 real(RKG) , intent(inout) , allocatable :: array(:,:)
960 character(*, SK) , intent(out) , optional :: errmsg
961 logical(LK) , intent(out) , optional :: failed
962 end subroutine
963#endif
964
965#if RK3_ENABLED
966 PURE module subroutine setRefilledDDDD_D2_RK3(array, fill, failed, errmsg)
967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
968 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_RK3
969#endif
970 use pm_kind, only: RKG => RK3
971 real(RKG) , intent(in) :: fill
972 real(RKG) , intent(inout) , allocatable :: array(:,:)
973 character(*, SK) , intent(out) , optional :: errmsg
974 logical(LK) , intent(out) , optional :: failed
975 end subroutine
976#endif
977
978#if RK2_ENABLED
979 PURE module subroutine setRefilledDDDD_D2_RK2(array, fill, failed, errmsg)
980#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
981 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_RK2
982#endif
983 use pm_kind, only: RKG => RK2
984 real(RKG) , intent(in) :: fill
985 real(RKG) , intent(inout) , allocatable :: array(:,:)
986 character(*, SK) , intent(out) , optional :: errmsg
987 logical(LK) , intent(out) , optional :: failed
988 end subroutine
989#endif
990
991#if RK1_ENABLED
992 PURE module subroutine setRefilledDDDD_D2_RK1(array, fill, failed, errmsg)
993#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
994 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D2_RK1
995#endif
996 use pm_kind, only: RKG => RK1
997 real(RKG) , intent(in) :: fill
998 real(RKG) , intent(inout) , allocatable :: array(:,:)
999 character(*, SK) , intent(out) , optional :: errmsg
1000 logical(LK) , intent(out) , optional :: failed
1001 end subroutine
1002#endif
1003
1004 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1005
1006 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1007 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1008 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1009
1010 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1011
1012#if SK5_ENABLED
1013 PURE module subroutine setRefilledDDDD_D3_SK5(array, fill, failed, errmsg)
1014#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1015 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_SK5
1016#endif
1017 use pm_kind, only: SKG => SK5
1018 character(*,SKG) , intent(in) :: fill
1019 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
1020 character(*, SK) , intent(out) , optional :: errmsg
1021 logical(LK) , intent(out) , optional :: failed
1022 end subroutine
1023#endif
1024
1025#if SK4_ENABLED
1026 PURE module subroutine setRefilledDDDD_D3_SK4(array, fill, failed, errmsg)
1027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1028 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_SK4
1029#endif
1030 use pm_kind, only: SKG => SK4
1031 character(*,SKG) , intent(in) :: fill
1032 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
1033 character(*, SK) , intent(out) , optional :: errmsg
1034 logical(LK) , intent(out) , optional :: failed
1035 end subroutine
1036#endif
1037
1038#if SK3_ENABLED
1039 PURE module subroutine setRefilledDDDD_D3_SK3(array, fill, failed, errmsg)
1040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1041 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_SK3
1042#endif
1043 use pm_kind, only: SKG => SK3
1044 character(*,SKG) , intent(in) :: fill
1045 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
1046 character(*, SK) , intent(out) , optional :: errmsg
1047 logical(LK) , intent(out) , optional :: failed
1048 end subroutine
1049#endif
1050
1051#if SK2_ENABLED
1052 PURE module subroutine setRefilledDDDD_D3_SK2(array, fill, failed, errmsg)
1053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1054 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_SK2
1055#endif
1056 use pm_kind, only: SKG => SK2
1057 character(*,SKG) , intent(in) :: fill
1058 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
1059 character(*, SK) , intent(out) , optional :: errmsg
1060 logical(LK) , intent(out) , optional :: failed
1061 end subroutine
1062#endif
1063
1064#if SK1_ENABLED
1065 PURE module subroutine setRefilledDDDD_D3_SK1(array, fill, failed, errmsg)
1066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1067 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_SK1
1068#endif
1069 use pm_kind, only: SKG => SK1
1070 character(*,SKG) , intent(in) :: fill
1071 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
1072 character(*, SK) , intent(out) , optional :: errmsg
1073 logical(LK) , intent(out) , optional :: failed
1074 end subroutine
1075#endif
1076
1077 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1078
1079#if IK5_ENABLED
1080 PURE module subroutine setRefilledDDDD_D3_IK5(array, fill, failed, errmsg)
1081#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1082 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_IK5
1083#endif
1084 use pm_kind, only: IKG => IK5
1085 integer(IKG) , intent(in) :: fill
1086 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
1087 character(*, SK) , intent(out) , optional :: errmsg
1088 logical(LK) , intent(out) , optional :: failed
1089 end subroutine
1090#endif
1091
1092#if IK4_ENABLED
1093 PURE module subroutine setRefilledDDDD_D3_IK4(array, fill, failed, errmsg)
1094#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1095 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_IK4
1096#endif
1097 use pm_kind, only: IKG => IK4
1098 integer(IKG) , intent(in) :: fill
1099 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
1100 character(*, SK) , intent(out) , optional :: errmsg
1101 logical(LK) , intent(out) , optional :: failed
1102 end subroutine
1103#endif
1104
1105#if IK3_ENABLED
1106 PURE module subroutine setRefilledDDDD_D3_IK3(array, fill, failed, errmsg)
1107#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1108 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_IK3
1109#endif
1110 use pm_kind, only: IKG => IK3
1111 integer(IKG) , intent(in) :: fill
1112 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
1113 character(*, SK) , intent(out) , optional :: errmsg
1114 logical(LK) , intent(out) , optional :: failed
1115 end subroutine
1116#endif
1117
1118#if IK2_ENABLED
1119 PURE module subroutine setRefilledDDDD_D3_IK2(array, fill, failed, errmsg)
1120#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1121 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_IK2
1122#endif
1123 use pm_kind, only: IKG => IK2
1124 integer(IKG) , intent(in) :: fill
1125 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
1126 character(*, SK) , intent(out) , optional :: errmsg
1127 logical(LK) , intent(out) , optional :: failed
1128 end subroutine
1129#endif
1130
1131#if IK1_ENABLED
1132 PURE module subroutine setRefilledDDDD_D3_IK1(array, fill, failed, errmsg)
1133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1134 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_IK1
1135#endif
1136 use pm_kind, only: IKG => IK1
1137 integer(IKG) , intent(in) :: fill
1138 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
1139 character(*, SK) , intent(out) , optional :: errmsg
1140 logical(LK) , intent(out) , optional :: failed
1141 end subroutine
1142#endif
1143
1144 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1145
1146#if LK5_ENABLED
1147 PURE module subroutine setRefilledDDDD_D3_LK5(array, fill, failed, errmsg)
1148#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1149 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_LK5
1150#endif
1151 use pm_kind, only: LKG => LK5
1152 logical(LKG) , intent(in) :: fill
1153 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1154 character(*, SK) , intent(out) , optional :: errmsg
1155 logical(LK) , intent(out) , optional :: failed
1156 end subroutine
1157#endif
1158
1159#if LK4_ENABLED
1160 PURE module subroutine setRefilledDDDD_D3_LK4(array, fill, failed, errmsg)
1161#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1162 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_LK4
1163#endif
1164 use pm_kind, only: LKG => LK4
1165 logical(LKG) , intent(in) :: fill
1166 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1167 character(*, SK) , intent(out) , optional :: errmsg
1168 logical(LK) , intent(out) , optional :: failed
1169 end subroutine
1170#endif
1171
1172#if LK3_ENABLED
1173 PURE module subroutine setRefilledDDDD_D3_LK3(array, fill, failed, errmsg)
1174#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1175 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_LK3
1176#endif
1177 use pm_kind, only: LKG => LK3
1178 logical(LKG) , intent(in) :: fill
1179 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1180 character(*, SK) , intent(out) , optional :: errmsg
1181 logical(LK) , intent(out) , optional :: failed
1182 end subroutine
1183#endif
1184
1185#if LK2_ENABLED
1186 PURE module subroutine setRefilledDDDD_D3_LK2(array, fill, failed, errmsg)
1187#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1188 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_LK2
1189#endif
1190 use pm_kind, only: LKG => LK2
1191 logical(LKG) , intent(in) :: fill
1192 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1193 character(*, SK) , intent(out) , optional :: errmsg
1194 logical(LK) , intent(out) , optional :: failed
1195 end subroutine
1196#endif
1197
1198#if LK1_ENABLED
1199 PURE module subroutine setRefilledDDDD_D3_LK1(array, fill, failed, errmsg)
1200#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1201 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_LK1
1202#endif
1203 use pm_kind, only: LKG => LK1
1204 logical(LKG) , intent(in) :: fill
1205 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1206 character(*, SK) , intent(out) , optional :: errmsg
1207 logical(LK) , intent(out) , optional :: failed
1208 end subroutine
1209#endif
1210
1211 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1212
1213#if CK5_ENABLED
1214 PURE module subroutine setRefilledDDDD_D3_CK5(array, fill, failed, errmsg)
1215#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1216 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_CK5
1217#endif
1218 use pm_kind, only: CKG => CK5
1219 complex(CKG) , intent(in) :: fill
1220 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1221 character(*, SK) , intent(out) , optional :: errmsg
1222 logical(LK) , intent(out) , optional :: failed
1223 end subroutine
1224#endif
1225
1226#if CK4_ENABLED
1227 PURE module subroutine setRefilledDDDD_D3_CK4(array, fill, failed, errmsg)
1228#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1229 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_CK4
1230#endif
1231 use pm_kind, only: CKG => CK4
1232 complex(CKG) , intent(in) :: fill
1233 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1234 character(*, SK) , intent(out) , optional :: errmsg
1235 logical(LK) , intent(out) , optional :: failed
1236 end subroutine
1237#endif
1238
1239#if CK3_ENABLED
1240 PURE module subroutine setRefilledDDDD_D3_CK3(array, fill, failed, errmsg)
1241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1242 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_CK3
1243#endif
1244 use pm_kind, only: CKG => CK3
1245 complex(CKG) , intent(in) :: fill
1246 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1247 character(*, SK) , intent(out) , optional :: errmsg
1248 logical(LK) , intent(out) , optional :: failed
1249 end subroutine
1250#endif
1251
1252#if CK2_ENABLED
1253 PURE module subroutine setRefilledDDDD_D3_CK2(array, fill, failed, errmsg)
1254#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1255 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_CK2
1256#endif
1257 use pm_kind, only: CKG => CK2
1258 complex(CKG) , intent(in) :: fill
1259 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1260 character(*, SK) , intent(out) , optional :: errmsg
1261 logical(LK) , intent(out) , optional :: failed
1262 end subroutine
1263#endif
1264
1265#if CK1_ENABLED
1266 PURE module subroutine setRefilledDDDD_D3_CK1(array, fill, failed, errmsg)
1267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1268 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_CK1
1269#endif
1270 use pm_kind, only: CKG => CK1
1271 complex(CKG) , intent(in) :: fill
1272 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1273 character(*, SK) , intent(out) , optional :: errmsg
1274 logical(LK) , intent(out) , optional :: failed
1275 end subroutine
1276#endif
1277
1278 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1279
1280#if RK5_ENABLED
1281 PURE module subroutine setRefilledDDDD_D3_RK5(array, fill, failed, errmsg)
1282#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1283 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_RK5
1284#endif
1285 use pm_kind, only: RKG => RK5
1286 real(RKG) , intent(in) :: fill
1287 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1288 character(*, SK) , intent(out) , optional :: errmsg
1289 logical(LK) , intent(out) , optional :: failed
1290 end subroutine
1291#endif
1292
1293#if RK4_ENABLED
1294 PURE module subroutine setRefilledDDDD_D3_RK4(array, fill, failed, errmsg)
1295#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1296 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_RK4
1297#endif
1298 use pm_kind, only: RKG => RK4
1299 real(RKG) , intent(in) :: fill
1300 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1301 character(*, SK) , intent(out) , optional :: errmsg
1302 logical(LK) , intent(out) , optional :: failed
1303 end subroutine
1304#endif
1305
1306#if RK3_ENABLED
1307 PURE module subroutine setRefilledDDDD_D3_RK3(array, fill, failed, errmsg)
1308#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1309 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_RK3
1310#endif
1311 use pm_kind, only: RKG => RK3
1312 real(RKG) , intent(in) :: fill
1313 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1314 character(*, SK) , intent(out) , optional :: errmsg
1315 logical(LK) , intent(out) , optional :: failed
1316 end subroutine
1317#endif
1318
1319#if RK2_ENABLED
1320 PURE module subroutine setRefilledDDDD_D3_RK2(array, fill, failed, errmsg)
1321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1322 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_RK2
1323#endif
1324 use pm_kind, only: RKG => RK2
1325 real(RKG) , intent(in) :: fill
1326 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1327 character(*, SK) , intent(out) , optional :: errmsg
1328 logical(LK) , intent(out) , optional :: failed
1329 end subroutine
1330#endif
1331
1332#if RK1_ENABLED
1333 PURE module subroutine setRefilledDDDD_D3_RK1(array, fill, failed, errmsg)
1334#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1335 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledDDDD_D3_RK1
1336#endif
1337 use pm_kind, only: RKG => RK1
1338 real(RKG) , intent(in) :: fill
1339 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1340 character(*, SK) , intent(out) , optional :: errmsg
1341 logical(LK) , intent(out) , optional :: failed
1342 end subroutine
1343#endif
1344
1345 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1346
1347 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1348 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1349 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1350
1351 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1352 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1353 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1354
1355 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1356
1357#if SK5_ENABLED
1358 PURE module subroutine setRefilledSDDD_D0_SK5(array, fill, size, failed, errmsg)
1359#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1360 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D0_SK5
1361#endif
1362 use pm_kind, only: SKG => SK5
1363 character(1,SKG) , intent(in) :: fill
1364 character(:,SKG) , intent(inout) , allocatable :: array
1365 integer(IK) , intent(in) :: size
1366 character(*, SK) , intent(out) , optional :: errmsg
1367 logical(LK) , intent(out) , optional :: failed
1368 end subroutine
1369#endif
1370
1371#if SK4_ENABLED
1372 PURE module subroutine setRefilledSDDD_D0_SK4(array, fill, size, failed, errmsg)
1373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1374 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D0_SK4
1375#endif
1376 use pm_kind, only: SKG => SK4
1377 character(1,SKG) , intent(in) :: fill
1378 character(:,SKG) , intent(inout) , allocatable :: array
1379 integer(IK) , intent(in) :: size
1380 character(*, SK) , intent(out) , optional :: errmsg
1381 logical(LK) , intent(out) , optional :: failed
1382 end subroutine
1383#endif
1384
1385#if SK3_ENABLED
1386 PURE module subroutine setRefilledSDDD_D0_SK3(array, fill, size, failed, errmsg)
1387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1388 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D0_SK3
1389#endif
1390 use pm_kind, only: SKG => SK3
1391 character(1,SKG) , intent(in) :: fill
1392 character(:,SKG) , intent(inout) , allocatable :: array
1393 integer(IK) , intent(in) :: size
1394 character(*, SK) , intent(out) , optional :: errmsg
1395 logical(LK) , intent(out) , optional :: failed
1396 end subroutine
1397#endif
1398
1399#if SK2_ENABLED
1400 PURE module subroutine setRefilledSDDD_D0_SK2(array, fill, size, failed, errmsg)
1401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1402 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D0_SK2
1403#endif
1404 use pm_kind, only: SKG => SK2
1405 character(1,SKG) , intent(in) :: fill
1406 character(:,SKG) , intent(inout) , allocatable :: array
1407 integer(IK) , intent(in) :: size
1408 character(*, SK) , intent(out) , optional :: errmsg
1409 logical(LK) , intent(out) , optional :: failed
1410 end subroutine
1411#endif
1412
1413#if SK1_ENABLED
1414 PURE module subroutine setRefilledSDDD_D0_SK1(array, fill, size, failed, errmsg)
1415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1416 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D0_SK1
1417#endif
1418 use pm_kind, only: SKG => SK1
1419 character(1,SKG) , intent(in) :: fill
1420 character(:,SKG) , intent(inout) , allocatable :: array
1421 integer(IK) , intent(in) :: size
1422 character(*, SK) , intent(out) , optional :: errmsg
1423 logical(LK) , intent(out) , optional :: failed
1424 end subroutine
1425#endif
1426
1427 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1428
1429 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1430 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1431 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1432
1433 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1434
1435#if SK5_ENABLED
1436 PURE module subroutine setRefilledSDDD_D1_SK5(array, fill, size, failed, errmsg)
1437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1438 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_SK5
1439#endif
1440 use pm_kind, only: SKG => SK5
1441 character(*,SKG) , intent(in) :: fill
1442 character(*,SKG) , intent(inout) , allocatable :: array(:)
1443 integer(IK) , intent(in) :: size
1444 character(*, SK) , intent(out) , optional :: errmsg
1445 logical(LK) , intent(out) , optional :: failed
1446 end subroutine
1447#endif
1448
1449#if SK4_ENABLED
1450 PURE module subroutine setRefilledSDDD_D1_SK4(array, fill, size, failed, errmsg)
1451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1452 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_SK4
1453#endif
1454 use pm_kind, only: SKG => SK4
1455 character(*,SKG) , intent(in) :: fill
1456 character(*,SKG) , intent(inout) , allocatable :: array(:)
1457 integer(IK) , intent(in) :: size
1458 character(*, SK) , intent(out) , optional :: errmsg
1459 logical(LK) , intent(out) , optional :: failed
1460 end subroutine
1461#endif
1462
1463#if SK3_ENABLED
1464 PURE module subroutine setRefilledSDDD_D1_SK3(array, fill, size, failed, errmsg)
1465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1466 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_SK3
1467#endif
1468 use pm_kind, only: SKG => SK3
1469 character(*,SKG) , intent(in) :: fill
1470 character(*,SKG) , intent(inout) , allocatable :: array(:)
1471 integer(IK) , intent(in) :: size
1472 character(*, SK) , intent(out) , optional :: errmsg
1473 logical(LK) , intent(out) , optional :: failed
1474 end subroutine
1475#endif
1476
1477#if SK2_ENABLED
1478 PURE module subroutine setRefilledSDDD_D1_SK2(array, fill, size, failed, errmsg)
1479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1480 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_SK2
1481#endif
1482 use pm_kind, only: SKG => SK2
1483 character(*,SKG) , intent(in) :: fill
1484 character(*,SKG) , intent(inout) , allocatable :: array(:)
1485 integer(IK) , intent(in) :: size
1486 character(*, SK) , intent(out) , optional :: errmsg
1487 logical(LK) , intent(out) , optional :: failed
1488 end subroutine
1489#endif
1490
1491#if SK1_ENABLED
1492 PURE module subroutine setRefilledSDDD_D1_SK1(array, fill, size, failed, errmsg)
1493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1494 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_SK1
1495#endif
1496 use pm_kind, only: SKG => SK1
1497 character(*,SKG) , intent(in) :: fill
1498 character(*,SKG) , intent(inout) , allocatable :: array(:)
1499 integer(IK) , intent(in) :: size
1500 character(*, SK) , intent(out) , optional :: errmsg
1501 logical(LK) , intent(out) , optional :: failed
1502 end subroutine
1503#endif
1504
1505 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1506
1507#if IK5_ENABLED
1508 PURE module subroutine setRefilledSDDD_D1_IK5(array, fill, size, failed, errmsg)
1509#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1510 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_IK5
1511#endif
1512 use pm_kind, only: IKG => IK5
1513 integer(IKG) , intent(in) :: fill
1514 integer(IKG) , intent(inout) , allocatable :: array(:)
1515 integer(IK) , intent(in) :: size
1516 character(*, SK) , intent(out) , optional :: errmsg
1517 logical(LK) , intent(out) , optional :: failed
1518 end subroutine
1519#endif
1520
1521#if IK4_ENABLED
1522 PURE module subroutine setRefilledSDDD_D1_IK4(array, fill, size, failed, errmsg)
1523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1524 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_IK4
1525#endif
1526 use pm_kind, only: IKG => IK4
1527 integer(IKG) , intent(in) :: fill
1528 integer(IKG) , intent(inout) , allocatable :: array(:)
1529 integer(IK) , intent(in) :: size
1530 character(*, SK) , intent(out) , optional :: errmsg
1531 logical(LK) , intent(out) , optional :: failed
1532 end subroutine
1533#endif
1534
1535#if IK3_ENABLED
1536 PURE module subroutine setRefilledSDDD_D1_IK3(array, fill, size, failed, errmsg)
1537#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1538 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_IK3
1539#endif
1540 use pm_kind, only: IKG => IK3
1541 integer(IKG) , intent(in) :: fill
1542 integer(IKG) , intent(inout) , allocatable :: array(:)
1543 integer(IK) , intent(in) :: size
1544 character(*, SK) , intent(out) , optional :: errmsg
1545 logical(LK) , intent(out) , optional :: failed
1546 end subroutine
1547#endif
1548
1549#if IK2_ENABLED
1550 PURE module subroutine setRefilledSDDD_D1_IK2(array, fill, size, failed, errmsg)
1551#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1552 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_IK2
1553#endif
1554 use pm_kind, only: IKG => IK2
1555 integer(IKG) , intent(in) :: fill
1556 integer(IKG) , intent(inout) , allocatable :: array(:)
1557 integer(IK) , intent(in) :: size
1558 character(*, SK) , intent(out) , optional :: errmsg
1559 logical(LK) , intent(out) , optional :: failed
1560 end subroutine
1561#endif
1562
1563#if IK1_ENABLED
1564 PURE module subroutine setRefilledSDDD_D1_IK1(array, fill, size, failed, errmsg)
1565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1566 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_IK1
1567#endif
1568 use pm_kind, only: IKG => IK1
1569 integer(IKG) , intent(in) :: fill
1570 integer(IKG) , intent(inout) , allocatable :: array(:)
1571 integer(IK) , intent(in) :: size
1572 character(*, SK) , intent(out) , optional :: errmsg
1573 logical(LK) , intent(out) , optional :: failed
1574 end subroutine
1575#endif
1576
1577 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1578
1579#if LK5_ENABLED
1580 PURE module subroutine setRefilledSDDD_D1_LK5(array, fill, size, failed, errmsg)
1581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1582 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_LK5
1583#endif
1584 use pm_kind, only: LKG => LK5
1585 logical(LKG) , intent(in) :: fill
1586 logical(LKG) , intent(inout) , allocatable :: array(:)
1587 integer(IK) , intent(in) :: size
1588 character(*, SK) , intent(out) , optional :: errmsg
1589 logical(LK) , intent(out) , optional :: failed
1590 end subroutine
1591#endif
1592
1593#if LK4_ENABLED
1594 PURE module subroutine setRefilledSDDD_D1_LK4(array, fill, size, failed, errmsg)
1595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1596 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_LK4
1597#endif
1598 use pm_kind, only: LKG => LK4
1599 logical(LKG) , intent(in) :: fill
1600 logical(LKG) , intent(inout) , allocatable :: array(:)
1601 integer(IK) , intent(in) :: size
1602 character(*, SK) , intent(out) , optional :: errmsg
1603 logical(LK) , intent(out) , optional :: failed
1604 end subroutine
1605#endif
1606
1607#if LK3_ENABLED
1608 PURE module subroutine setRefilledSDDD_D1_LK3(array, fill, size, failed, errmsg)
1609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1610 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_LK3
1611#endif
1612 use pm_kind, only: LKG => LK3
1613 logical(LKG) , intent(in) :: fill
1614 logical(LKG) , intent(inout) , allocatable :: array(:)
1615 integer(IK) , intent(in) :: size
1616 character(*, SK) , intent(out) , optional :: errmsg
1617 logical(LK) , intent(out) , optional :: failed
1618 end subroutine
1619#endif
1620
1621#if LK2_ENABLED
1622 PURE module subroutine setRefilledSDDD_D1_LK2(array, fill, size, failed, errmsg)
1623#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1624 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_LK2
1625#endif
1626 use pm_kind, only: LKG => LK2
1627 logical(LKG) , intent(in) :: fill
1628 logical(LKG) , intent(inout) , allocatable :: array(:)
1629 integer(IK) , intent(in) :: size
1630 character(*, SK) , intent(out) , optional :: errmsg
1631 logical(LK) , intent(out) , optional :: failed
1632 end subroutine
1633#endif
1634
1635#if LK1_ENABLED
1636 PURE module subroutine setRefilledSDDD_D1_LK1(array, fill, size, failed, errmsg)
1637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1638 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_LK1
1639#endif
1640 use pm_kind, only: LKG => LK1
1641 logical(LKG) , intent(in) :: fill
1642 logical(LKG) , intent(inout) , allocatable :: array(:)
1643 integer(IK) , intent(in) :: size
1644 character(*, SK) , intent(out) , optional :: errmsg
1645 logical(LK) , intent(out) , optional :: failed
1646 end subroutine
1647#endif
1648
1649 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1650
1651#if CK5_ENABLED
1652 PURE module subroutine setRefilledSDDD_D1_CK5(array, fill, size, failed, errmsg)
1653#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1654 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_CK5
1655#endif
1656 use pm_kind, only: CKG => CK5
1657 complex(CKG) , intent(in) :: fill
1658 complex(CKG) , intent(inout) , allocatable :: array(:)
1659 integer(IK) , intent(in) :: size
1660 character(*, SK) , intent(out) , optional :: errmsg
1661 logical(LK) , intent(out) , optional :: failed
1662 end subroutine
1663#endif
1664
1665#if CK4_ENABLED
1666 PURE module subroutine setRefilledSDDD_D1_CK4(array, fill, size, failed, errmsg)
1667#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1668 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_CK4
1669#endif
1670 use pm_kind, only: CKG => CK4
1671 complex(CKG) , intent(in) :: fill
1672 complex(CKG) , intent(inout) , allocatable :: array(:)
1673 integer(IK) , intent(in) :: size
1674 character(*, SK) , intent(out) , optional :: errmsg
1675 logical(LK) , intent(out) , optional :: failed
1676 end subroutine
1677#endif
1678
1679#if CK3_ENABLED
1680 PURE module subroutine setRefilledSDDD_D1_CK3(array, fill, size, failed, errmsg)
1681#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1682 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_CK3
1683#endif
1684 use pm_kind, only: CKG => CK3
1685 complex(CKG) , intent(in) :: fill
1686 complex(CKG) , intent(inout) , allocatable :: array(:)
1687 integer(IK) , intent(in) :: size
1688 character(*, SK) , intent(out) , optional :: errmsg
1689 logical(LK) , intent(out) , optional :: failed
1690 end subroutine
1691#endif
1692
1693#if CK2_ENABLED
1694 PURE module subroutine setRefilledSDDD_D1_CK2(array, fill, size, failed, errmsg)
1695#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1696 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_CK2
1697#endif
1698 use pm_kind, only: CKG => CK2
1699 complex(CKG) , intent(in) :: fill
1700 complex(CKG) , intent(inout) , allocatable :: array(:)
1701 integer(IK) , intent(in) :: size
1702 character(*, SK) , intent(out) , optional :: errmsg
1703 logical(LK) , intent(out) , optional :: failed
1704 end subroutine
1705#endif
1706
1707#if CK1_ENABLED
1708 PURE module subroutine setRefilledSDDD_D1_CK1(array, fill, size, failed, errmsg)
1709#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1710 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_CK1
1711#endif
1712 use pm_kind, only: CKG => CK1
1713 complex(CKG) , intent(in) :: fill
1714 complex(CKG) , intent(inout) , allocatable :: array(:)
1715 integer(IK) , intent(in) :: size
1716 character(*, SK) , intent(out) , optional :: errmsg
1717 logical(LK) , intent(out) , optional :: failed
1718 end subroutine
1719#endif
1720
1721 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1722
1723#if RK5_ENABLED
1724 PURE module subroutine setRefilledSDDD_D1_RK5(array, fill, size, failed, errmsg)
1725#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1726 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_RK5
1727#endif
1728 use pm_kind, only: RKG => RK5
1729 real(RKG) , intent(in) :: fill
1730 real(RKG) , intent(inout) , allocatable :: array(:)
1731 integer(IK) , intent(in) :: size
1732 character(*, SK) , intent(out) , optional :: errmsg
1733 logical(LK) , intent(out) , optional :: failed
1734 end subroutine
1735#endif
1736
1737#if RK4_ENABLED
1738 PURE module subroutine setRefilledSDDD_D1_RK4(array, fill, size, failed, errmsg)
1739#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1740 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_RK4
1741#endif
1742 use pm_kind, only: RKG => RK4
1743 real(RKG) , intent(in) :: fill
1744 real(RKG) , intent(inout) , allocatable :: array(:)
1745 integer(IK) , intent(in) :: size
1746 character(*, SK) , intent(out) , optional :: errmsg
1747 logical(LK) , intent(out) , optional :: failed
1748 end subroutine
1749#endif
1750
1751#if RK3_ENABLED
1752 PURE module subroutine setRefilledSDDD_D1_RK3(array, fill, size, failed, errmsg)
1753#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1754 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_RK3
1755#endif
1756 use pm_kind, only: RKG => RK3
1757 real(RKG) , intent(in) :: fill
1758 real(RKG) , intent(inout) , allocatable :: array(:)
1759 integer(IK) , intent(in) :: size
1760 character(*, SK) , intent(out) , optional :: errmsg
1761 logical(LK) , intent(out) , optional :: failed
1762 end subroutine
1763#endif
1764
1765#if RK2_ENABLED
1766 PURE module subroutine setRefilledSDDD_D1_RK2(array, fill, size, failed, errmsg)
1767#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1768 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_RK2
1769#endif
1770 use pm_kind, only: RKG => RK2
1771 real(RKG) , intent(in) :: fill
1772 real(RKG) , intent(inout) , allocatable :: array(:)
1773 integer(IK) , intent(in) :: size
1774 character(*, SK) , intent(out) , optional :: errmsg
1775 logical(LK) , intent(out) , optional :: failed
1776 end subroutine
1777#endif
1778
1779#if RK1_ENABLED
1780 PURE module subroutine setRefilledSDDD_D1_RK1(array, fill, size, failed, errmsg)
1781#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1782 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D1_RK1
1783#endif
1784 use pm_kind, only: RKG => RK1
1785 real(RKG) , intent(in) :: fill
1786 real(RKG) , intent(inout) , allocatable :: array(:)
1787 integer(IK) , intent(in) :: size
1788 character(*, SK) , intent(out) , optional :: errmsg
1789 logical(LK) , intent(out) , optional :: failed
1790 end subroutine
1791#endif
1792
1793 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1794
1795 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1796 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1797 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1798
1799 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1800
1801#if SK5_ENABLED
1802 PURE module subroutine setRefilledSDDD_D2_SK5(array, fill, size, failed, errmsg)
1803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1804 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_SK5
1805#endif
1806 use pm_kind, only: SKG => SK5
1807 character(*,SKG) , intent(in) :: fill
1808 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
1809 integer(IK) , intent(in) , dimension(2) :: size
1810 character(*, SK) , intent(out) , optional :: errmsg
1811 logical(LK) , intent(out) , optional :: failed
1812 end subroutine
1813#endif
1814
1815#if SK4_ENABLED
1816 PURE module subroutine setRefilledSDDD_D2_SK4(array, fill, size, failed, errmsg)
1817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1818 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_SK4
1819#endif
1820 use pm_kind, only: SKG => SK4
1821 character(*,SKG) , intent(in) :: fill
1822 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
1823 integer(IK) , intent(in) , dimension(2) :: size
1824 character(*, SK) , intent(out) , optional :: errmsg
1825 logical(LK) , intent(out) , optional :: failed
1826 end subroutine
1827#endif
1828
1829#if SK3_ENABLED
1830 PURE module subroutine setRefilledSDDD_D2_SK3(array, fill, size, failed, errmsg)
1831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1832 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_SK3
1833#endif
1834 use pm_kind, only: SKG => SK3
1835 character(*,SKG) , intent(in) :: fill
1836 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
1837 integer(IK) , intent(in) , dimension(2) :: size
1838 character(*, SK) , intent(out) , optional :: errmsg
1839 logical(LK) , intent(out) , optional :: failed
1840 end subroutine
1841#endif
1842
1843#if SK2_ENABLED
1844 PURE module subroutine setRefilledSDDD_D2_SK2(array, fill, size, failed, errmsg)
1845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1846 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_SK2
1847#endif
1848 use pm_kind, only: SKG => SK2
1849 character(*,SKG) , intent(in) :: fill
1850 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
1851 integer(IK) , intent(in) , dimension(2) :: size
1852 character(*, SK) , intent(out) , optional :: errmsg
1853 logical(LK) , intent(out) , optional :: failed
1854 end subroutine
1855#endif
1856
1857#if SK1_ENABLED
1858 PURE module subroutine setRefilledSDDD_D2_SK1(array, fill, size, failed, errmsg)
1859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1860 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_SK1
1861#endif
1862 use pm_kind, only: SKG => SK1
1863 character(*,SKG) , intent(in) :: fill
1864 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
1865 integer(IK) , intent(in) , dimension(2) :: size
1866 character(*, SK) , intent(out) , optional :: errmsg
1867 logical(LK) , intent(out) , optional :: failed
1868 end subroutine
1869#endif
1870
1871 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1872
1873#if IK5_ENABLED
1874 PURE module subroutine setRefilledSDDD_D2_IK5(array, fill, size, failed, errmsg)
1875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1876 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_IK5
1877#endif
1878 use pm_kind, only: IKG => IK5
1879 integer(IKG) , intent(in) :: fill
1880 integer(IKG) , intent(inout) , allocatable :: array(:,:)
1881 integer(IK) , intent(in) , dimension(2) :: size
1882 character(*, SK) , intent(out) , optional :: errmsg
1883 logical(LK) , intent(out) , optional :: failed
1884 end subroutine
1885#endif
1886
1887#if IK4_ENABLED
1888 PURE module subroutine setRefilledSDDD_D2_IK4(array, fill, size, failed, errmsg)
1889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1890 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_IK4
1891#endif
1892 use pm_kind, only: IKG => IK4
1893 integer(IKG) , intent(in) :: fill
1894 integer(IKG) , intent(inout) , allocatable :: array(:,:)
1895 integer(IK) , intent(in) , dimension(2) :: size
1896 character(*, SK) , intent(out) , optional :: errmsg
1897 logical(LK) , intent(out) , optional :: failed
1898 end subroutine
1899#endif
1900
1901#if IK3_ENABLED
1902 PURE module subroutine setRefilledSDDD_D2_IK3(array, fill, size, failed, errmsg)
1903#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1904 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_IK3
1905#endif
1906 use pm_kind, only: IKG => IK3
1907 integer(IKG) , intent(in) :: fill
1908 integer(IKG) , intent(inout) , allocatable :: array(:,:)
1909 integer(IK) , intent(in) , dimension(2) :: size
1910 character(*, SK) , intent(out) , optional :: errmsg
1911 logical(LK) , intent(out) , optional :: failed
1912 end subroutine
1913#endif
1914
1915#if IK2_ENABLED
1916 PURE module subroutine setRefilledSDDD_D2_IK2(array, fill, size, failed, errmsg)
1917#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1918 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_IK2
1919#endif
1920 use pm_kind, only: IKG => IK2
1921 integer(IKG) , intent(in) :: fill
1922 integer(IKG) , intent(inout) , allocatable :: array(:,:)
1923 integer(IK) , intent(in) , dimension(2) :: size
1924 character(*, SK) , intent(out) , optional :: errmsg
1925 logical(LK) , intent(out) , optional :: failed
1926 end subroutine
1927#endif
1928
1929#if IK1_ENABLED
1930 PURE module subroutine setRefilledSDDD_D2_IK1(array, fill, size, failed, errmsg)
1931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1932 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_IK1
1933#endif
1934 use pm_kind, only: IKG => IK1
1935 integer(IKG) , intent(in) :: fill
1936 integer(IKG) , intent(inout) , allocatable :: array(:,:)
1937 integer(IK) , intent(in) , dimension(2) :: size
1938 character(*, SK) , intent(out) , optional :: errmsg
1939 logical(LK) , intent(out) , optional :: failed
1940 end subroutine
1941#endif
1942
1943 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1944
1945#if LK5_ENABLED
1946 PURE module subroutine setRefilledSDDD_D2_LK5(array, fill, size, failed, errmsg)
1947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1948 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_LK5
1949#endif
1950 use pm_kind, only: LKG => LK5
1951 logical(LKG) , intent(in) :: fill
1952 logical(LKG) , intent(inout) , allocatable :: array(:,:)
1953 integer(IK) , intent(in) , dimension(2) :: size
1954 character(*, SK) , intent(out) , optional :: errmsg
1955 logical(LK) , intent(out) , optional :: failed
1956 end subroutine
1957#endif
1958
1959#if LK4_ENABLED
1960 PURE module subroutine setRefilledSDDD_D2_LK4(array, fill, size, failed, errmsg)
1961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1962 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_LK4
1963#endif
1964 use pm_kind, only: LKG => LK4
1965 logical(LKG) , intent(in) :: fill
1966 logical(LKG) , intent(inout) , allocatable :: array(:,:)
1967 integer(IK) , intent(in) , dimension(2) :: size
1968 character(*, SK) , intent(out) , optional :: errmsg
1969 logical(LK) , intent(out) , optional :: failed
1970 end subroutine
1971#endif
1972
1973#if LK3_ENABLED
1974 PURE module subroutine setRefilledSDDD_D2_LK3(array, fill, size, failed, errmsg)
1975#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1976 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_LK3
1977#endif
1978 use pm_kind, only: LKG => LK3
1979 logical(LKG) , intent(in) :: fill
1980 logical(LKG) , intent(inout) , allocatable :: array(:,:)
1981 integer(IK) , intent(in) , dimension(2) :: size
1982 character(*, SK) , intent(out) , optional :: errmsg
1983 logical(LK) , intent(out) , optional :: failed
1984 end subroutine
1985#endif
1986
1987#if LK2_ENABLED
1988 PURE module subroutine setRefilledSDDD_D2_LK2(array, fill, size, failed, errmsg)
1989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1990 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_LK2
1991#endif
1992 use pm_kind, only: LKG => LK2
1993 logical(LKG) , intent(in) :: fill
1994 logical(LKG) , intent(inout) , allocatable :: array(:,:)
1995 integer(IK) , intent(in) , dimension(2) :: size
1996 character(*, SK) , intent(out) , optional :: errmsg
1997 logical(LK) , intent(out) , optional :: failed
1998 end subroutine
1999#endif
2000
2001#if LK1_ENABLED
2002 PURE module subroutine setRefilledSDDD_D2_LK1(array, fill, size, failed, errmsg)
2003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2004 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_LK1
2005#endif
2006 use pm_kind, only: LKG => LK1
2007 logical(LKG) , intent(in) :: fill
2008 logical(LKG) , intent(inout) , allocatable :: array(:,:)
2009 integer(IK) , intent(in) , dimension(2) :: size
2010 character(*, SK) , intent(out) , optional :: errmsg
2011 logical(LK) , intent(out) , optional :: failed
2012 end subroutine
2013#endif
2014
2015 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2016
2017#if CK5_ENABLED
2018 PURE module subroutine setRefilledSDDD_D2_CK5(array, fill, size, failed, errmsg)
2019#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2020 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_CK5
2021#endif
2022 use pm_kind, only: CKG => CK5
2023 complex(CKG) , intent(in) :: fill
2024 complex(CKG) , intent(inout) , allocatable :: array(:,:)
2025 integer(IK) , intent(in) , dimension(2) :: size
2026 character(*, SK) , intent(out) , optional :: errmsg
2027 logical(LK) , intent(out) , optional :: failed
2028 end subroutine
2029#endif
2030
2031#if CK4_ENABLED
2032 PURE module subroutine setRefilledSDDD_D2_CK4(array, fill, size, failed, errmsg)
2033#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2034 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_CK4
2035#endif
2036 use pm_kind, only: CKG => CK4
2037 complex(CKG) , intent(in) :: fill
2038 complex(CKG) , intent(inout) , allocatable :: array(:,:)
2039 integer(IK) , intent(in) , dimension(2) :: size
2040 character(*, SK) , intent(out) , optional :: errmsg
2041 logical(LK) , intent(out) , optional :: failed
2042 end subroutine
2043#endif
2044
2045#if CK3_ENABLED
2046 PURE module subroutine setRefilledSDDD_D2_CK3(array, fill, size, failed, errmsg)
2047#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2048 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_CK3
2049#endif
2050 use pm_kind, only: CKG => CK3
2051 complex(CKG) , intent(in) :: fill
2052 complex(CKG) , intent(inout) , allocatable :: array(:,:)
2053 integer(IK) , intent(in) , dimension(2) :: size
2054 character(*, SK) , intent(out) , optional :: errmsg
2055 logical(LK) , intent(out) , optional :: failed
2056 end subroutine
2057#endif
2058
2059#if CK2_ENABLED
2060 PURE module subroutine setRefilledSDDD_D2_CK2(array, fill, size, failed, errmsg)
2061#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2062 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_CK2
2063#endif
2064 use pm_kind, only: CKG => CK2
2065 complex(CKG) , intent(in) :: fill
2066 complex(CKG) , intent(inout) , allocatable :: array(:,:)
2067 integer(IK) , intent(in) , dimension(2) :: size
2068 character(*, SK) , intent(out) , optional :: errmsg
2069 logical(LK) , intent(out) , optional :: failed
2070 end subroutine
2071#endif
2072
2073#if CK1_ENABLED
2074 PURE module subroutine setRefilledSDDD_D2_CK1(array, fill, size, failed, errmsg)
2075#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2076 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_CK1
2077#endif
2078 use pm_kind, only: CKG => CK1
2079 complex(CKG) , intent(in) :: fill
2080 complex(CKG) , intent(inout) , allocatable :: array(:,:)
2081 integer(IK) , intent(in) , dimension(2) :: size
2082 character(*, SK) , intent(out) , optional :: errmsg
2083 logical(LK) , intent(out) , optional :: failed
2084 end subroutine
2085#endif
2086
2087 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2088
2089#if RK5_ENABLED
2090 PURE module subroutine setRefilledSDDD_D2_RK5(array, fill, size, failed, errmsg)
2091#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2092 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_RK5
2093#endif
2094 use pm_kind, only: RKG => RK5
2095 real(RKG) , intent(in) :: fill
2096 real(RKG) , intent(inout) , allocatable :: array(:,:)
2097 integer(IK) , intent(in) , dimension(2) :: size
2098 character(*, SK) , intent(out) , optional :: errmsg
2099 logical(LK) , intent(out) , optional :: failed
2100 end subroutine
2101#endif
2102
2103#if RK4_ENABLED
2104 PURE module subroutine setRefilledSDDD_D2_RK4(array, fill, size, failed, errmsg)
2105#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2106 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_RK4
2107#endif
2108 use pm_kind, only: RKG => RK4
2109 real(RKG) , intent(in) :: fill
2110 real(RKG) , intent(inout) , allocatable :: array(:,:)
2111 integer(IK) , intent(in) , dimension(2) :: size
2112 character(*, SK) , intent(out) , optional :: errmsg
2113 logical(LK) , intent(out) , optional :: failed
2114 end subroutine
2115#endif
2116
2117#if RK3_ENABLED
2118 PURE module subroutine setRefilledSDDD_D2_RK3(array, fill, size, failed, errmsg)
2119#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2120 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_RK3
2121#endif
2122 use pm_kind, only: RKG => RK3
2123 real(RKG) , intent(in) :: fill
2124 real(RKG) , intent(inout) , allocatable :: array(:,:)
2125 integer(IK) , intent(in) , dimension(2) :: size
2126 character(*, SK) , intent(out) , optional :: errmsg
2127 logical(LK) , intent(out) , optional :: failed
2128 end subroutine
2129#endif
2130
2131#if RK2_ENABLED
2132 PURE module subroutine setRefilledSDDD_D2_RK2(array, fill, size, failed, errmsg)
2133#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2134 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_RK2
2135#endif
2136 use pm_kind, only: RKG => RK2
2137 real(RKG) , intent(in) :: fill
2138 real(RKG) , intent(inout) , allocatable :: array(:,:)
2139 integer(IK) , intent(in) , dimension(2) :: size
2140 character(*, SK) , intent(out) , optional :: errmsg
2141 logical(LK) , intent(out) , optional :: failed
2142 end subroutine
2143#endif
2144
2145#if RK1_ENABLED
2146 PURE module subroutine setRefilledSDDD_D2_RK1(array, fill, size, failed, errmsg)
2147#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2148 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D2_RK1
2149#endif
2150 use pm_kind, only: RKG => RK1
2151 real(RKG) , intent(in) :: fill
2152 real(RKG) , intent(inout) , allocatable :: array(:,:)
2153 integer(IK) , intent(in) , dimension(2) :: size
2154 character(*, SK) , intent(out) , optional :: errmsg
2155 logical(LK) , intent(out) , optional :: failed
2156 end subroutine
2157#endif
2158
2159 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2160
2161 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2162 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2163 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2164
2165 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2166
2167#if SK5_ENABLED
2168 PURE module subroutine setRefilledSDDD_D3_SK5(array, fill, size, failed, errmsg)
2169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2170 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_SK5
2171#endif
2172 use pm_kind, only: SKG => SK5
2173 character(*,SKG) , intent(in) :: fill
2174 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2175 integer(IK) , intent(in) , dimension(3) :: size
2176 character(*, SK) , intent(out) , optional :: errmsg
2177 logical(LK) , intent(out) , optional :: failed
2178 end subroutine
2179#endif
2180
2181#if SK4_ENABLED
2182 PURE module subroutine setRefilledSDDD_D3_SK4(array, fill, size, failed, errmsg)
2183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2184 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_SK4
2185#endif
2186 use pm_kind, only: SKG => SK4
2187 character(*,SKG) , intent(in) :: fill
2188 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2189 integer(IK) , intent(in) , dimension(3) :: size
2190 character(*, SK) , intent(out) , optional :: errmsg
2191 logical(LK) , intent(out) , optional :: failed
2192 end subroutine
2193#endif
2194
2195#if SK3_ENABLED
2196 PURE module subroutine setRefilledSDDD_D3_SK3(array, fill, size, failed, errmsg)
2197#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2198 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_SK3
2199#endif
2200 use pm_kind, only: SKG => SK3
2201 character(*,SKG) , intent(in) :: fill
2202 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2203 integer(IK) , intent(in) , dimension(3) :: size
2204 character(*, SK) , intent(out) , optional :: errmsg
2205 logical(LK) , intent(out) , optional :: failed
2206 end subroutine
2207#endif
2208
2209#if SK2_ENABLED
2210 PURE module subroutine setRefilledSDDD_D3_SK2(array, fill, size, failed, errmsg)
2211#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2212 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_SK2
2213#endif
2214 use pm_kind, only: SKG => SK2
2215 character(*,SKG) , intent(in) :: fill
2216 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2217 integer(IK) , intent(in) , dimension(3) :: size
2218 character(*, SK) , intent(out) , optional :: errmsg
2219 logical(LK) , intent(out) , optional :: failed
2220 end subroutine
2221#endif
2222
2223#if SK1_ENABLED
2224 PURE module subroutine setRefilledSDDD_D3_SK1(array, fill, size, failed, errmsg)
2225#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2226 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_SK1
2227#endif
2228 use pm_kind, only: SKG => SK1
2229 character(*,SKG) , intent(in) :: fill
2230 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2231 integer(IK) , intent(in) , dimension(3) :: size
2232 character(*, SK) , intent(out) , optional :: errmsg
2233 logical(LK) , intent(out) , optional :: failed
2234 end subroutine
2235#endif
2236
2237 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2238
2239#if IK5_ENABLED
2240 PURE module subroutine setRefilledSDDD_D3_IK5(array, fill, size, failed, errmsg)
2241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2242 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_IK5
2243#endif
2244 use pm_kind, only: IKG => IK5
2245 integer(IKG) , intent(in) :: fill
2246 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2247 integer(IK) , intent(in) , dimension(3) :: size
2248 character(*, SK) , intent(out) , optional :: errmsg
2249 logical(LK) , intent(out) , optional :: failed
2250 end subroutine
2251#endif
2252
2253#if IK4_ENABLED
2254 PURE module subroutine setRefilledSDDD_D3_IK4(array, fill, size, failed, errmsg)
2255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2256 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_IK4
2257#endif
2258 use pm_kind, only: IKG => IK4
2259 integer(IKG) , intent(in) :: fill
2260 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2261 integer(IK) , intent(in) , dimension(3) :: size
2262 character(*, SK) , intent(out) , optional :: errmsg
2263 logical(LK) , intent(out) , optional :: failed
2264 end subroutine
2265#endif
2266
2267#if IK3_ENABLED
2268 PURE module subroutine setRefilledSDDD_D3_IK3(array, fill, size, failed, errmsg)
2269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2270 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_IK3
2271#endif
2272 use pm_kind, only: IKG => IK3
2273 integer(IKG) , intent(in) :: fill
2274 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2275 integer(IK) , intent(in) , dimension(3) :: size
2276 character(*, SK) , intent(out) , optional :: errmsg
2277 logical(LK) , intent(out) , optional :: failed
2278 end subroutine
2279#endif
2280
2281#if IK2_ENABLED
2282 PURE module subroutine setRefilledSDDD_D3_IK2(array, fill, size, failed, errmsg)
2283#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2284 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_IK2
2285#endif
2286 use pm_kind, only: IKG => IK2
2287 integer(IKG) , intent(in) :: fill
2288 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2289 integer(IK) , intent(in) , dimension(3) :: size
2290 character(*, SK) , intent(out) , optional :: errmsg
2291 logical(LK) , intent(out) , optional :: failed
2292 end subroutine
2293#endif
2294
2295#if IK1_ENABLED
2296 PURE module subroutine setRefilledSDDD_D3_IK1(array, fill, size, failed, errmsg)
2297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2298 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_IK1
2299#endif
2300 use pm_kind, only: IKG => IK1
2301 integer(IKG) , intent(in) :: fill
2302 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2303 integer(IK) , intent(in) , dimension(3) :: size
2304 character(*, SK) , intent(out) , optional :: errmsg
2305 logical(LK) , intent(out) , optional :: failed
2306 end subroutine
2307#endif
2308
2309 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2310
2311#if LK5_ENABLED
2312 PURE module subroutine setRefilledSDDD_D3_LK5(array, fill, size, failed, errmsg)
2313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2314 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_LK5
2315#endif
2316 use pm_kind, only: LKG => LK5
2317 logical(LKG) , intent(in) :: fill
2318 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2319 integer(IK) , intent(in) , dimension(3) :: size
2320 character(*, SK) , intent(out) , optional :: errmsg
2321 logical(LK) , intent(out) , optional :: failed
2322 end subroutine
2323#endif
2324
2325#if LK4_ENABLED
2326 PURE module subroutine setRefilledSDDD_D3_LK4(array, fill, size, failed, errmsg)
2327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2328 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_LK4
2329#endif
2330 use pm_kind, only: LKG => LK4
2331 logical(LKG) , intent(in) :: fill
2332 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2333 integer(IK) , intent(in) , dimension(3) :: size
2334 character(*, SK) , intent(out) , optional :: errmsg
2335 logical(LK) , intent(out) , optional :: failed
2336 end subroutine
2337#endif
2338
2339#if LK3_ENABLED
2340 PURE module subroutine setRefilledSDDD_D3_LK3(array, fill, size, failed, errmsg)
2341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2342 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_LK3
2343#endif
2344 use pm_kind, only: LKG => LK3
2345 logical(LKG) , intent(in) :: fill
2346 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2347 integer(IK) , intent(in) , dimension(3) :: size
2348 character(*, SK) , intent(out) , optional :: errmsg
2349 logical(LK) , intent(out) , optional :: failed
2350 end subroutine
2351#endif
2352
2353#if LK2_ENABLED
2354 PURE module subroutine setRefilledSDDD_D3_LK2(array, fill, size, failed, errmsg)
2355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2356 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_LK2
2357#endif
2358 use pm_kind, only: LKG => LK2
2359 logical(LKG) , intent(in) :: fill
2360 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2361 integer(IK) , intent(in) , dimension(3) :: size
2362 character(*, SK) , intent(out) , optional :: errmsg
2363 logical(LK) , intent(out) , optional :: failed
2364 end subroutine
2365#endif
2366
2367#if LK1_ENABLED
2368 PURE module subroutine setRefilledSDDD_D3_LK1(array, fill, size, failed, errmsg)
2369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2370 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_LK1
2371#endif
2372 use pm_kind, only: LKG => LK1
2373 logical(LKG) , intent(in) :: fill
2374 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2375 integer(IK) , intent(in) , dimension(3) :: size
2376 character(*, SK) , intent(out) , optional :: errmsg
2377 logical(LK) , intent(out) , optional :: failed
2378 end subroutine
2379#endif
2380
2381 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2382
2383#if CK5_ENABLED
2384 PURE module subroutine setRefilledSDDD_D3_CK5(array, fill, size, failed, errmsg)
2385#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2386 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_CK5
2387#endif
2388 use pm_kind, only: CKG => CK5
2389 complex(CKG) , intent(in) :: fill
2390 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2391 integer(IK) , intent(in) , dimension(3) :: size
2392 character(*, SK) , intent(out) , optional :: errmsg
2393 logical(LK) , intent(out) , optional :: failed
2394 end subroutine
2395#endif
2396
2397#if CK4_ENABLED
2398 PURE module subroutine setRefilledSDDD_D3_CK4(array, fill, size, failed, errmsg)
2399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2400 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_CK4
2401#endif
2402 use pm_kind, only: CKG => CK4
2403 complex(CKG) , intent(in) :: fill
2404 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2405 integer(IK) , intent(in) , dimension(3) :: size
2406 character(*, SK) , intent(out) , optional :: errmsg
2407 logical(LK) , intent(out) , optional :: failed
2408 end subroutine
2409#endif
2410
2411#if CK3_ENABLED
2412 PURE module subroutine setRefilledSDDD_D3_CK3(array, fill, size, failed, errmsg)
2413#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2414 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_CK3
2415#endif
2416 use pm_kind, only: CKG => CK3
2417 complex(CKG) , intent(in) :: fill
2418 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2419 integer(IK) , intent(in) , dimension(3) :: size
2420 character(*, SK) , intent(out) , optional :: errmsg
2421 logical(LK) , intent(out) , optional :: failed
2422 end subroutine
2423#endif
2424
2425#if CK2_ENABLED
2426 PURE module subroutine setRefilledSDDD_D3_CK2(array, fill, size, failed, errmsg)
2427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2428 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_CK2
2429#endif
2430 use pm_kind, only: CKG => CK2
2431 complex(CKG) , intent(in) :: fill
2432 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2433 integer(IK) , intent(in) , dimension(3) :: size
2434 character(*, SK) , intent(out) , optional :: errmsg
2435 logical(LK) , intent(out) , optional :: failed
2436 end subroutine
2437#endif
2438
2439#if CK1_ENABLED
2440 PURE module subroutine setRefilledSDDD_D3_CK1(array, fill, size, failed, errmsg)
2441#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2442 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_CK1
2443#endif
2444 use pm_kind, only: CKG => CK1
2445 complex(CKG) , intent(in) :: fill
2446 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2447 integer(IK) , intent(in) , dimension(3) :: size
2448 character(*, SK) , intent(out) , optional :: errmsg
2449 logical(LK) , intent(out) , optional :: failed
2450 end subroutine
2451#endif
2452
2453 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2454
2455#if RK5_ENABLED
2456 PURE module subroutine setRefilledSDDD_D3_RK5(array, fill, size, failed, errmsg)
2457#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2458 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_RK5
2459#endif
2460 use pm_kind, only: RKG => RK5
2461 real(RKG) , intent(in) :: fill
2462 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2463 integer(IK) , intent(in) , dimension(3) :: size
2464 character(*, SK) , intent(out) , optional :: errmsg
2465 logical(LK) , intent(out) , optional :: failed
2466 end subroutine
2467#endif
2468
2469#if RK4_ENABLED
2470 PURE module subroutine setRefilledSDDD_D3_RK4(array, fill, size, failed, errmsg)
2471#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2472 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_RK4
2473#endif
2474 use pm_kind, only: RKG => RK4
2475 real(RKG) , intent(in) :: fill
2476 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2477 integer(IK) , intent(in) , dimension(3) :: size
2478 character(*, SK) , intent(out) , optional :: errmsg
2479 logical(LK) , intent(out) , optional :: failed
2480 end subroutine
2481#endif
2482
2483#if RK3_ENABLED
2484 PURE module subroutine setRefilledSDDD_D3_RK3(array, fill, size, failed, errmsg)
2485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2486 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_RK3
2487#endif
2488 use pm_kind, only: RKG => RK3
2489 real(RKG) , intent(in) :: fill
2490 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2491 integer(IK) , intent(in) , dimension(3) :: size
2492 character(*, SK) , intent(out) , optional :: errmsg
2493 logical(LK) , intent(out) , optional :: failed
2494 end subroutine
2495#endif
2496
2497#if RK2_ENABLED
2498 PURE module subroutine setRefilledSDDD_D3_RK2(array, fill, size, failed, errmsg)
2499#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2500 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_RK2
2501#endif
2502 use pm_kind, only: RKG => RK2
2503 real(RKG) , intent(in) :: fill
2504 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2505 integer(IK) , intent(in) , dimension(3) :: size
2506 character(*, SK) , intent(out) , optional :: errmsg
2507 logical(LK) , intent(out) , optional :: failed
2508 end subroutine
2509#endif
2510
2511#if RK1_ENABLED
2512 PURE module subroutine setRefilledSDDD_D3_RK1(array, fill, size, failed, errmsg)
2513#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2514 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSDDD_D3_RK1
2515#endif
2516 use pm_kind, only: RKG => RK1
2517 real(RKG) , intent(in) :: fill
2518 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2519 integer(IK) , intent(in) , dimension(3) :: size
2520 character(*, SK) , intent(out) , optional :: errmsg
2521 logical(LK) , intent(out) , optional :: failed
2522 end subroutine
2523#endif
2524
2525 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2526
2527 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2528 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2529 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2530
2531 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2532 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2533 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2534
2535 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2536
2537#if SK5_ENABLED
2538 PURE module subroutine setRefilledSLDD_D0_SK5(array, fill, size, lbc, failed, errmsg)
2539#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2540 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D0_SK5
2541#endif
2542 use pm_kind, only: SKG => SK5
2543 character(1,SKG) , intent(in) :: fill
2544 character(:,SKG) , intent(inout) , allocatable :: array
2545 integer(IK) , intent(in) :: size, lbc
2546 character(*, SK) , intent(out) , optional :: errmsg
2547 logical(LK) , intent(out) , optional :: failed
2548 end subroutine
2549#endif
2550
2551#if SK4_ENABLED
2552 PURE module subroutine setRefilledSLDD_D0_SK4(array, fill, size, lbc, failed, errmsg)
2553#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2554 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D0_SK4
2555#endif
2556 use pm_kind, only: SKG => SK4
2557 character(1,SKG) , intent(in) :: fill
2558 character(:,SKG) , intent(inout) , allocatable :: array
2559 integer(IK) , intent(in) :: size, lbc
2560 character(*, SK) , intent(out) , optional :: errmsg
2561 logical(LK) , intent(out) , optional :: failed
2562 end subroutine
2563#endif
2564
2565#if SK3_ENABLED
2566 PURE module subroutine setRefilledSLDD_D0_SK3(array, fill, size, lbc, failed, errmsg)
2567#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2568 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D0_SK3
2569#endif
2570 use pm_kind, only: SKG => SK3
2571 character(1,SKG) , intent(in) :: fill
2572 character(:,SKG) , intent(inout) , allocatable :: array
2573 integer(IK) , intent(in) :: size, lbc
2574 character(*, SK) , intent(out) , optional :: errmsg
2575 logical(LK) , intent(out) , optional :: failed
2576 end subroutine
2577#endif
2578
2579#if SK2_ENABLED
2580 PURE module subroutine setRefilledSLDD_D0_SK2(array, fill, size, lbc, failed, errmsg)
2581#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2582 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D0_SK2
2583#endif
2584 use pm_kind, only: SKG => SK2
2585 character(1,SKG) , intent(in) :: fill
2586 character(:,SKG) , intent(inout) , allocatable :: array
2587 integer(IK) , intent(in) :: size, lbc
2588 character(*, SK) , intent(out) , optional :: errmsg
2589 logical(LK) , intent(out) , optional :: failed
2590 end subroutine
2591#endif
2592
2593#if SK1_ENABLED
2594 PURE module subroutine setRefilledSLDD_D0_SK1(array, fill, size, lbc, failed, errmsg)
2595#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2596 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D0_SK1
2597#endif
2598 use pm_kind, only: SKG => SK1
2599 character(1,SKG) , intent(in) :: fill
2600 character(:,SKG) , intent(inout) , allocatable :: array
2601 integer(IK) , intent(in) :: size, lbc
2602 character(*, SK) , intent(out) , optional :: errmsg
2603 logical(LK) , intent(out) , optional :: failed
2604 end subroutine
2605#endif
2606
2607 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2608
2609 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2610 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2611 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2612
2613 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2614
2615#if SK5_ENABLED
2616 PURE module subroutine setRefilledSLDD_D1_SK5(array, fill, size, lbc, failed, errmsg)
2617#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2618 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_SK5
2619#endif
2620 use pm_kind, only: SKG => SK5
2621 character(*,SKG) , intent(in) :: fill
2622 character(*,SKG) , intent(inout) , allocatable :: array(:)
2623 integer(IK) , intent(in) :: size, lbc
2624 character(*, SK) , intent(out) , optional :: errmsg
2625 logical(LK) , intent(out) , optional :: failed
2626 end subroutine
2627#endif
2628
2629#if SK4_ENABLED
2630 PURE module subroutine setRefilledSLDD_D1_SK4(array, fill, size, lbc, failed, errmsg)
2631#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2632 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_SK4
2633#endif
2634 use pm_kind, only: SKG => SK4
2635 character(*,SKG) , intent(in) :: fill
2636 character(*,SKG) , intent(inout) , allocatable :: array(:)
2637 integer(IK) , intent(in) :: size, lbc
2638 character(*, SK) , intent(out) , optional :: errmsg
2639 logical(LK) , intent(out) , optional :: failed
2640 end subroutine
2641#endif
2642
2643#if SK3_ENABLED
2644 PURE module subroutine setRefilledSLDD_D1_SK3(array, fill, size, lbc, failed, errmsg)
2645#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2646 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_SK3
2647#endif
2648 use pm_kind, only: SKG => SK3
2649 character(*,SKG) , intent(in) :: fill
2650 character(*,SKG) , intent(inout) , allocatable :: array(:)
2651 integer(IK) , intent(in) :: size, lbc
2652 character(*, SK) , intent(out) , optional :: errmsg
2653 logical(LK) , intent(out) , optional :: failed
2654 end subroutine
2655#endif
2656
2657#if SK2_ENABLED
2658 PURE module subroutine setRefilledSLDD_D1_SK2(array, fill, size, lbc, failed, errmsg)
2659#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2660 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_SK2
2661#endif
2662 use pm_kind, only: SKG => SK2
2663 character(*,SKG) , intent(in) :: fill
2664 character(*,SKG) , intent(inout) , allocatable :: array(:)
2665 integer(IK) , intent(in) :: size, lbc
2666 character(*, SK) , intent(out) , optional :: errmsg
2667 logical(LK) , intent(out) , optional :: failed
2668 end subroutine
2669#endif
2670
2671#if SK1_ENABLED
2672 PURE module subroutine setRefilledSLDD_D1_SK1(array, fill, size, lbc, failed, errmsg)
2673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2674 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_SK1
2675#endif
2676 use pm_kind, only: SKG => SK1
2677 character(*,SKG) , intent(in) :: fill
2678 character(*,SKG) , intent(inout) , allocatable :: array(:)
2679 integer(IK) , intent(in) :: size, lbc
2680 character(*, SK) , intent(out) , optional :: errmsg
2681 logical(LK) , intent(out) , optional :: failed
2682 end subroutine
2683#endif
2684
2685 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2686
2687#if IK5_ENABLED
2688 PURE module subroutine setRefilledSLDD_D1_IK5(array, fill, size, lbc, failed, errmsg)
2689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2690 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_IK5
2691#endif
2692 use pm_kind, only: IKG => IK5
2693 integer(IKG) , intent(in) :: fill
2694 integer(IKG) , intent(inout) , allocatable :: array(:)
2695 integer(IK) , intent(in) :: size, lbc
2696 character(*, SK) , intent(out) , optional :: errmsg
2697 logical(LK) , intent(out) , optional :: failed
2698 end subroutine
2699#endif
2700
2701#if IK4_ENABLED
2702 PURE module subroutine setRefilledSLDD_D1_IK4(array, fill, size, lbc, failed, errmsg)
2703#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2704 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_IK4
2705#endif
2706 use pm_kind, only: IKG => IK4
2707 integer(IKG) , intent(in) :: fill
2708 integer(IKG) , intent(inout) , allocatable :: array(:)
2709 integer(IK) , intent(in) :: size, lbc
2710 character(*, SK) , intent(out) , optional :: errmsg
2711 logical(LK) , intent(out) , optional :: failed
2712 end subroutine
2713#endif
2714
2715#if IK3_ENABLED
2716 PURE module subroutine setRefilledSLDD_D1_IK3(array, fill, size, lbc, failed, errmsg)
2717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2718 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_IK3
2719#endif
2720 use pm_kind, only: IKG => IK3
2721 integer(IKG) , intent(in) :: fill
2722 integer(IKG) , intent(inout) , allocatable :: array(:)
2723 integer(IK) , intent(in) :: size, lbc
2724 character(*, SK) , intent(out) , optional :: errmsg
2725 logical(LK) , intent(out) , optional :: failed
2726 end subroutine
2727#endif
2728
2729#if IK2_ENABLED
2730 PURE module subroutine setRefilledSLDD_D1_IK2(array, fill, size, lbc, failed, errmsg)
2731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2732 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_IK2
2733#endif
2734 use pm_kind, only: IKG => IK2
2735 integer(IKG) , intent(in) :: fill
2736 integer(IKG) , intent(inout) , allocatable :: array(:)
2737 integer(IK) , intent(in) :: size, lbc
2738 character(*, SK) , intent(out) , optional :: errmsg
2739 logical(LK) , intent(out) , optional :: failed
2740 end subroutine
2741#endif
2742
2743#if IK1_ENABLED
2744 PURE module subroutine setRefilledSLDD_D1_IK1(array, fill, size, lbc, failed, errmsg)
2745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2746 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_IK1
2747#endif
2748 use pm_kind, only: IKG => IK1
2749 integer(IKG) , intent(in) :: fill
2750 integer(IKG) , intent(inout) , allocatable :: array(:)
2751 integer(IK) , intent(in) :: size, lbc
2752 character(*, SK) , intent(out) , optional :: errmsg
2753 logical(LK) , intent(out) , optional :: failed
2754 end subroutine
2755#endif
2756
2757 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2758
2759#if LK5_ENABLED
2760 PURE module subroutine setRefilledSLDD_D1_LK5(array, fill, size, lbc, failed, errmsg)
2761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2762 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_LK5
2763#endif
2764 use pm_kind, only: LKG => LK5
2765 logical(LKG) , intent(in) :: fill
2766 logical(LKG) , intent(inout) , allocatable :: array(:)
2767 integer(IK) , intent(in) :: size, lbc
2768 character(*, SK) , intent(out) , optional :: errmsg
2769 logical(LK) , intent(out) , optional :: failed
2770 end subroutine
2771#endif
2772
2773#if LK4_ENABLED
2774 PURE module subroutine setRefilledSLDD_D1_LK4(array, fill, size, lbc, failed, errmsg)
2775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2776 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_LK4
2777#endif
2778 use pm_kind, only: LKG => LK4
2779 logical(LKG) , intent(in) :: fill
2780 logical(LKG) , intent(inout) , allocatable :: array(:)
2781 integer(IK) , intent(in) :: size, lbc
2782 character(*, SK) , intent(out) , optional :: errmsg
2783 logical(LK) , intent(out) , optional :: failed
2784 end subroutine
2785#endif
2786
2787#if LK3_ENABLED
2788 PURE module subroutine setRefilledSLDD_D1_LK3(array, fill, size, lbc, failed, errmsg)
2789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2790 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_LK3
2791#endif
2792 use pm_kind, only: LKG => LK3
2793 logical(LKG) , intent(in) :: fill
2794 logical(LKG) , intent(inout) , allocatable :: array(:)
2795 integer(IK) , intent(in) :: size, lbc
2796 character(*, SK) , intent(out) , optional :: errmsg
2797 logical(LK) , intent(out) , optional :: failed
2798 end subroutine
2799#endif
2800
2801#if LK2_ENABLED
2802 PURE module subroutine setRefilledSLDD_D1_LK2(array, fill, size, lbc, failed, errmsg)
2803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2804 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_LK2
2805#endif
2806 use pm_kind, only: LKG => LK2
2807 logical(LKG) , intent(in) :: fill
2808 logical(LKG) , intent(inout) , allocatable :: array(:)
2809 integer(IK) , intent(in) :: size, lbc
2810 character(*, SK) , intent(out) , optional :: errmsg
2811 logical(LK) , intent(out) , optional :: failed
2812 end subroutine
2813#endif
2814
2815#if LK1_ENABLED
2816 PURE module subroutine setRefilledSLDD_D1_LK1(array, fill, size, lbc, failed, errmsg)
2817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2818 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_LK1
2819#endif
2820 use pm_kind, only: LKG => LK1
2821 logical(LKG) , intent(in) :: fill
2822 logical(LKG) , intent(inout) , allocatable :: array(:)
2823 integer(IK) , intent(in) :: size, lbc
2824 character(*, SK) , intent(out) , optional :: errmsg
2825 logical(LK) , intent(out) , optional :: failed
2826 end subroutine
2827#endif
2828
2829 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2830
2831#if CK5_ENABLED
2832 PURE module subroutine setRefilledSLDD_D1_CK5(array, fill, size, lbc, failed, errmsg)
2833#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2834 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_CK5
2835#endif
2836 use pm_kind, only: CKG => CK5
2837 complex(CKG) , intent(in) :: fill
2838 complex(CKG) , intent(inout) , allocatable :: array(:)
2839 integer(IK) , intent(in) :: size, lbc
2840 character(*, SK) , intent(out) , optional :: errmsg
2841 logical(LK) , intent(out) , optional :: failed
2842 end subroutine
2843#endif
2844
2845#if CK4_ENABLED
2846 PURE module subroutine setRefilledSLDD_D1_CK4(array, fill, size, lbc, failed, errmsg)
2847#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2848 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_CK4
2849#endif
2850 use pm_kind, only: CKG => CK4
2851 complex(CKG) , intent(in) :: fill
2852 complex(CKG) , intent(inout) , allocatable :: array(:)
2853 integer(IK) , intent(in) :: size, lbc
2854 character(*, SK) , intent(out) , optional :: errmsg
2855 logical(LK) , intent(out) , optional :: failed
2856 end subroutine
2857#endif
2858
2859#if CK3_ENABLED
2860 PURE module subroutine setRefilledSLDD_D1_CK3(array, fill, size, lbc, failed, errmsg)
2861#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2862 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_CK3
2863#endif
2864 use pm_kind, only: CKG => CK3
2865 complex(CKG) , intent(in) :: fill
2866 complex(CKG) , intent(inout) , allocatable :: array(:)
2867 integer(IK) , intent(in) :: size, lbc
2868 character(*, SK) , intent(out) , optional :: errmsg
2869 logical(LK) , intent(out) , optional :: failed
2870 end subroutine
2871#endif
2872
2873#if CK2_ENABLED
2874 PURE module subroutine setRefilledSLDD_D1_CK2(array, fill, size, lbc, failed, errmsg)
2875#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2876 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_CK2
2877#endif
2878 use pm_kind, only: CKG => CK2
2879 complex(CKG) , intent(in) :: fill
2880 complex(CKG) , intent(inout) , allocatable :: array(:)
2881 integer(IK) , intent(in) :: size, lbc
2882 character(*, SK) , intent(out) , optional :: errmsg
2883 logical(LK) , intent(out) , optional :: failed
2884 end subroutine
2885#endif
2886
2887#if CK1_ENABLED
2888 PURE module subroutine setRefilledSLDD_D1_CK1(array, fill, size, lbc, failed, errmsg)
2889#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2890 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_CK1
2891#endif
2892 use pm_kind, only: CKG => CK1
2893 complex(CKG) , intent(in) :: fill
2894 complex(CKG) , intent(inout) , allocatable :: array(:)
2895 integer(IK) , intent(in) :: size, lbc
2896 character(*, SK) , intent(out) , optional :: errmsg
2897 logical(LK) , intent(out) , optional :: failed
2898 end subroutine
2899#endif
2900
2901 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2902
2903#if RK5_ENABLED
2904 PURE module subroutine setRefilledSLDD_D1_RK5(array, fill, size, lbc, failed, errmsg)
2905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2906 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_RK5
2907#endif
2908 use pm_kind, only: RKG => RK5
2909 real(RKG) , intent(in) :: fill
2910 real(RKG) , intent(inout) , allocatable :: array(:)
2911 integer(IK) , intent(in) :: size, lbc
2912 character(*, SK) , intent(out) , optional :: errmsg
2913 logical(LK) , intent(out) , optional :: failed
2914 end subroutine
2915#endif
2916
2917#if RK4_ENABLED
2918 PURE module subroutine setRefilledSLDD_D1_RK4(array, fill, size, lbc, failed, errmsg)
2919#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2920 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_RK4
2921#endif
2922 use pm_kind, only: RKG => RK4
2923 real(RKG) , intent(in) :: fill
2924 real(RKG) , intent(inout) , allocatable :: array(:)
2925 integer(IK) , intent(in) :: size, lbc
2926 character(*, SK) , intent(out) , optional :: errmsg
2927 logical(LK) , intent(out) , optional :: failed
2928 end subroutine
2929#endif
2930
2931#if RK3_ENABLED
2932 PURE module subroutine setRefilledSLDD_D1_RK3(array, fill, size, lbc, failed, errmsg)
2933#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2934 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_RK3
2935#endif
2936 use pm_kind, only: RKG => RK3
2937 real(RKG) , intent(in) :: fill
2938 real(RKG) , intent(inout) , allocatable :: array(:)
2939 integer(IK) , intent(in) :: size, lbc
2940 character(*, SK) , intent(out) , optional :: errmsg
2941 logical(LK) , intent(out) , optional :: failed
2942 end subroutine
2943#endif
2944
2945#if RK2_ENABLED
2946 PURE module subroutine setRefilledSLDD_D1_RK2(array, fill, size, lbc, failed, errmsg)
2947#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2948 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_RK2
2949#endif
2950 use pm_kind, only: RKG => RK2
2951 real(RKG) , intent(in) :: fill
2952 real(RKG) , intent(inout) , allocatable :: array(:)
2953 integer(IK) , intent(in) :: size, lbc
2954 character(*, SK) , intent(out) , optional :: errmsg
2955 logical(LK) , intent(out) , optional :: failed
2956 end subroutine
2957#endif
2958
2959#if RK1_ENABLED
2960 PURE module subroutine setRefilledSLDD_D1_RK1(array, fill, size, lbc, failed, errmsg)
2961#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2962 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D1_RK1
2963#endif
2964 use pm_kind, only: RKG => RK1
2965 real(RKG) , intent(in) :: fill
2966 real(RKG) , intent(inout) , allocatable :: array(:)
2967 integer(IK) , intent(in) :: size, lbc
2968 character(*, SK) , intent(out) , optional :: errmsg
2969 logical(LK) , intent(out) , optional :: failed
2970 end subroutine
2971#endif
2972
2973 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2974
2975 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2976 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2977 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2978
2979 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2980
2981#if SK5_ENABLED
2982 PURE module subroutine setRefilledSLDD_D2_SK5(array, fill, size, lbc, failed, errmsg)
2983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2984 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_SK5
2985#endif
2986 use pm_kind, only: SKG => SK5
2987 character(*,SKG) , intent(in) :: fill
2988 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
2989 integer(IK) , intent(in) , dimension(2) :: size, lbc
2990 character(*, SK) , intent(out) , optional :: errmsg
2991 logical(LK) , intent(out) , optional :: failed
2992 end subroutine
2993#endif
2994
2995#if SK4_ENABLED
2996 PURE module subroutine setRefilledSLDD_D2_SK4(array, fill, size, lbc, failed, errmsg)
2997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2998 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_SK4
2999#endif
3000 use pm_kind, only: SKG => SK4
3001 character(*,SKG) , intent(in) :: fill
3002 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
3003 integer(IK) , intent(in) , dimension(2) :: size, lbc
3004 character(*, SK) , intent(out) , optional :: errmsg
3005 logical(LK) , intent(out) , optional :: failed
3006 end subroutine
3007#endif
3008
3009#if SK3_ENABLED
3010 PURE module subroutine setRefilledSLDD_D2_SK3(array, fill, size, lbc, failed, errmsg)
3011#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3012 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_SK3
3013#endif
3014 use pm_kind, only: SKG => SK3
3015 character(*,SKG) , intent(in) :: fill
3016 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
3017 integer(IK) , intent(in) , dimension(2) :: size, lbc
3018 character(*, SK) , intent(out) , optional :: errmsg
3019 logical(LK) , intent(out) , optional :: failed
3020 end subroutine
3021#endif
3022
3023#if SK2_ENABLED
3024 PURE module subroutine setRefilledSLDD_D2_SK2(array, fill, size, lbc, failed, errmsg)
3025#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3026 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_SK2
3027#endif
3028 use pm_kind, only: SKG => SK2
3029 character(*,SKG) , intent(in) :: fill
3030 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
3031 integer(IK) , intent(in) , dimension(2) :: size, lbc
3032 character(*, SK) , intent(out) , optional :: errmsg
3033 logical(LK) , intent(out) , optional :: failed
3034 end subroutine
3035#endif
3036
3037#if SK1_ENABLED
3038 PURE module subroutine setRefilledSLDD_D2_SK1(array, fill, size, lbc, failed, errmsg)
3039#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3040 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_SK1
3041#endif
3042 use pm_kind, only: SKG => SK1
3043 character(*,SKG) , intent(in) :: fill
3044 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
3045 integer(IK) , intent(in) , dimension(2) :: size, lbc
3046 character(*, SK) , intent(out) , optional :: errmsg
3047 logical(LK) , intent(out) , optional :: failed
3048 end subroutine
3049#endif
3050
3051 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3052
3053#if IK5_ENABLED
3054 PURE module subroutine setRefilledSLDD_D2_IK5(array, fill, size, lbc, failed, errmsg)
3055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3056 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_IK5
3057#endif
3058 use pm_kind, only: IKG => IK5
3059 integer(IKG) , intent(in) :: fill
3060 integer(IKG) , intent(inout) , allocatable :: array(:,:)
3061 integer(IK) , intent(in) , dimension(2) :: size, lbc
3062 character(*, SK) , intent(out) , optional :: errmsg
3063 logical(LK) , intent(out) , optional :: failed
3064 end subroutine
3065#endif
3066
3067#if IK4_ENABLED
3068 PURE module subroutine setRefilledSLDD_D2_IK4(array, fill, size, lbc, failed, errmsg)
3069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3070 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_IK4
3071#endif
3072 use pm_kind, only: IKG => IK4
3073 integer(IKG) , intent(in) :: fill
3074 integer(IKG) , intent(inout) , allocatable :: array(:,:)
3075 integer(IK) , intent(in) , dimension(2) :: size, lbc
3076 character(*, SK) , intent(out) , optional :: errmsg
3077 logical(LK) , intent(out) , optional :: failed
3078 end subroutine
3079#endif
3080
3081#if IK3_ENABLED
3082 PURE module subroutine setRefilledSLDD_D2_IK3(array, fill, size, lbc, failed, errmsg)
3083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3084 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_IK3
3085#endif
3086 use pm_kind, only: IKG => IK3
3087 integer(IKG) , intent(in) :: fill
3088 integer(IKG) , intent(inout) , allocatable :: array(:,:)
3089 integer(IK) , intent(in) , dimension(2) :: size, lbc
3090 character(*, SK) , intent(out) , optional :: errmsg
3091 logical(LK) , intent(out) , optional :: failed
3092 end subroutine
3093#endif
3094
3095#if IK2_ENABLED
3096 PURE module subroutine setRefilledSLDD_D2_IK2(array, fill, size, lbc, failed, errmsg)
3097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3098 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_IK2
3099#endif
3100 use pm_kind, only: IKG => IK2
3101 integer(IKG) , intent(in) :: fill
3102 integer(IKG) , intent(inout) , allocatable :: array(:,:)
3103 integer(IK) , intent(in) , dimension(2) :: size, lbc
3104 character(*, SK) , intent(out) , optional :: errmsg
3105 logical(LK) , intent(out) , optional :: failed
3106 end subroutine
3107#endif
3108
3109#if IK1_ENABLED
3110 PURE module subroutine setRefilledSLDD_D2_IK1(array, fill, size, lbc, failed, errmsg)
3111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3112 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_IK1
3113#endif
3114 use pm_kind, only: IKG => IK1
3115 integer(IKG) , intent(in) :: fill
3116 integer(IKG) , intent(inout) , allocatable :: array(:,:)
3117 integer(IK) , intent(in) , dimension(2) :: size, lbc
3118 character(*, SK) , intent(out) , optional :: errmsg
3119 logical(LK) , intent(out) , optional :: failed
3120 end subroutine
3121#endif
3122
3123 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3124
3125#if LK5_ENABLED
3126 PURE module subroutine setRefilledSLDD_D2_LK5(array, fill, size, lbc, failed, errmsg)
3127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3128 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_LK5
3129#endif
3130 use pm_kind, only: LKG => LK5
3131 logical(LKG) , intent(in) :: fill
3132 logical(LKG) , intent(inout) , allocatable :: array(:,:)
3133 integer(IK) , intent(in) , dimension(2) :: size, lbc
3134 character(*, SK) , intent(out) , optional :: errmsg
3135 logical(LK) , intent(out) , optional :: failed
3136 end subroutine
3137#endif
3138
3139#if LK4_ENABLED
3140 PURE module subroutine setRefilledSLDD_D2_LK4(array, fill, size, lbc, failed, errmsg)
3141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3142 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_LK4
3143#endif
3144 use pm_kind, only: LKG => LK4
3145 logical(LKG) , intent(in) :: fill
3146 logical(LKG) , intent(inout) , allocatable :: array(:,:)
3147 integer(IK) , intent(in) , dimension(2) :: size, lbc
3148 character(*, SK) , intent(out) , optional :: errmsg
3149 logical(LK) , intent(out) , optional :: failed
3150 end subroutine
3151#endif
3152
3153#if LK3_ENABLED
3154 PURE module subroutine setRefilledSLDD_D2_LK3(array, fill, size, lbc, failed, errmsg)
3155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3156 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_LK3
3157#endif
3158 use pm_kind, only: LKG => LK3
3159 logical(LKG) , intent(in) :: fill
3160 logical(LKG) , intent(inout) , allocatable :: array(:,:)
3161 integer(IK) , intent(in) , dimension(2) :: size, lbc
3162 character(*, SK) , intent(out) , optional :: errmsg
3163 logical(LK) , intent(out) , optional :: failed
3164 end subroutine
3165#endif
3166
3167#if LK2_ENABLED
3168 PURE module subroutine setRefilledSLDD_D2_LK2(array, fill, size, lbc, failed, errmsg)
3169#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3170 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_LK2
3171#endif
3172 use pm_kind, only: LKG => LK2
3173 logical(LKG) , intent(in) :: fill
3174 logical(LKG) , intent(inout) , allocatable :: array(:,:)
3175 integer(IK) , intent(in) , dimension(2) :: size, lbc
3176 character(*, SK) , intent(out) , optional :: errmsg
3177 logical(LK) , intent(out) , optional :: failed
3178 end subroutine
3179#endif
3180
3181#if LK1_ENABLED
3182 PURE module subroutine setRefilledSLDD_D2_LK1(array, fill, size, lbc, failed, errmsg)
3183#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3184 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_LK1
3185#endif
3186 use pm_kind, only: LKG => LK1
3187 logical(LKG) , intent(in) :: fill
3188 logical(LKG) , intent(inout) , allocatable :: array(:,:)
3189 integer(IK) , intent(in) , dimension(2) :: size, lbc
3190 character(*, SK) , intent(out) , optional :: errmsg
3191 logical(LK) , intent(out) , optional :: failed
3192 end subroutine
3193#endif
3194
3195 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3196
3197#if CK5_ENABLED
3198 PURE module subroutine setRefilledSLDD_D2_CK5(array, fill, size, lbc, failed, errmsg)
3199#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3200 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_CK5
3201#endif
3202 use pm_kind, only: CKG => CK5
3203 complex(CKG) , intent(in) :: fill
3204 complex(CKG) , intent(inout) , allocatable :: array(:,:)
3205 integer(IK) , intent(in) , dimension(2) :: size, lbc
3206 character(*, SK) , intent(out) , optional :: errmsg
3207 logical(LK) , intent(out) , optional :: failed
3208 end subroutine
3209#endif
3210
3211#if CK4_ENABLED
3212 PURE module subroutine setRefilledSLDD_D2_CK4(array, fill, size, lbc, failed, errmsg)
3213#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3214 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_CK4
3215#endif
3216 use pm_kind, only: CKG => CK4
3217 complex(CKG) , intent(in) :: fill
3218 complex(CKG) , intent(inout) , allocatable :: array(:,:)
3219 integer(IK) , intent(in) , dimension(2) :: size, lbc
3220 character(*, SK) , intent(out) , optional :: errmsg
3221 logical(LK) , intent(out) , optional :: failed
3222 end subroutine
3223#endif
3224
3225#if CK3_ENABLED
3226 PURE module subroutine setRefilledSLDD_D2_CK3(array, fill, size, lbc, failed, errmsg)
3227#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3228 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_CK3
3229#endif
3230 use pm_kind, only: CKG => CK3
3231 complex(CKG) , intent(in) :: fill
3232 complex(CKG) , intent(inout) , allocatable :: array(:,:)
3233 integer(IK) , intent(in) , dimension(2) :: size, lbc
3234 character(*, SK) , intent(out) , optional :: errmsg
3235 logical(LK) , intent(out) , optional :: failed
3236 end subroutine
3237#endif
3238
3239#if CK2_ENABLED
3240 PURE module subroutine setRefilledSLDD_D2_CK2(array, fill, size, lbc, failed, errmsg)
3241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3242 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_CK2
3243#endif
3244 use pm_kind, only: CKG => CK2
3245 complex(CKG) , intent(in) :: fill
3246 complex(CKG) , intent(inout) , allocatable :: array(:,:)
3247 integer(IK) , intent(in) , dimension(2) :: size, lbc
3248 character(*, SK) , intent(out) , optional :: errmsg
3249 logical(LK) , intent(out) , optional :: failed
3250 end subroutine
3251#endif
3252
3253#if CK1_ENABLED
3254 PURE module subroutine setRefilledSLDD_D2_CK1(array, fill, size, lbc, failed, errmsg)
3255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3256 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_CK1
3257#endif
3258 use pm_kind, only: CKG => CK1
3259 complex(CKG) , intent(in) :: fill
3260 complex(CKG) , intent(inout) , allocatable :: array(:,:)
3261 integer(IK) , intent(in) , dimension(2) :: size, lbc
3262 character(*, SK) , intent(out) , optional :: errmsg
3263 logical(LK) , intent(out) , optional :: failed
3264 end subroutine
3265#endif
3266
3267 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3268
3269#if RK5_ENABLED
3270 PURE module subroutine setRefilledSLDD_D2_RK5(array, fill, size, lbc, failed, errmsg)
3271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3272 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_RK5
3273#endif
3274 use pm_kind, only: RKG => RK5
3275 real(RKG) , intent(in) :: fill
3276 real(RKG) , intent(inout) , allocatable :: array(:,:)
3277 integer(IK) , intent(in) , dimension(2) :: size, lbc
3278 character(*, SK) , intent(out) , optional :: errmsg
3279 logical(LK) , intent(out) , optional :: failed
3280 end subroutine
3281#endif
3282
3283#if RK4_ENABLED
3284 PURE module subroutine setRefilledSLDD_D2_RK4(array, fill, size, lbc, failed, errmsg)
3285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3286 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_RK4
3287#endif
3288 use pm_kind, only: RKG => RK4
3289 real(RKG) , intent(in) :: fill
3290 real(RKG) , intent(inout) , allocatable :: array(:,:)
3291 integer(IK) , intent(in) , dimension(2) :: size, lbc
3292 character(*, SK) , intent(out) , optional :: errmsg
3293 logical(LK) , intent(out) , optional :: failed
3294 end subroutine
3295#endif
3296
3297#if RK3_ENABLED
3298 PURE module subroutine setRefilledSLDD_D2_RK3(array, fill, size, lbc, failed, errmsg)
3299#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3300 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_RK3
3301#endif
3302 use pm_kind, only: RKG => RK3
3303 real(RKG) , intent(in) :: fill
3304 real(RKG) , intent(inout) , allocatable :: array(:,:)
3305 integer(IK) , intent(in) , dimension(2) :: size, lbc
3306 character(*, SK) , intent(out) , optional :: errmsg
3307 logical(LK) , intent(out) , optional :: failed
3308 end subroutine
3309#endif
3310
3311#if RK2_ENABLED
3312 PURE module subroutine setRefilledSLDD_D2_RK2(array, fill, size, lbc, failed, errmsg)
3313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3314 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_RK2
3315#endif
3316 use pm_kind, only: RKG => RK2
3317 real(RKG) , intent(in) :: fill
3318 real(RKG) , intent(inout) , allocatable :: array(:,:)
3319 integer(IK) , intent(in) , dimension(2) :: size, lbc
3320 character(*, SK) , intent(out) , optional :: errmsg
3321 logical(LK) , intent(out) , optional :: failed
3322 end subroutine
3323#endif
3324
3325#if RK1_ENABLED
3326 PURE module subroutine setRefilledSLDD_D2_RK1(array, fill, size, lbc, failed, errmsg)
3327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3328 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D2_RK1
3329#endif
3330 use pm_kind, only: RKG => RK1
3331 real(RKG) , intent(in) :: fill
3332 real(RKG) , intent(inout) , allocatable :: array(:,:)
3333 integer(IK) , intent(in) , dimension(2) :: size, lbc
3334 character(*, SK) , intent(out) , optional :: errmsg
3335 logical(LK) , intent(out) , optional :: failed
3336 end subroutine
3337#endif
3338
3339 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3340
3341 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3342 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3343 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3344
3345 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3346
3347#if SK5_ENABLED
3348 PURE module subroutine setRefilledSLDD_D3_SK5(array, fill, size, lbc, failed, errmsg)
3349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3350 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_SK5
3351#endif
3352 use pm_kind, only: SKG => SK5
3353 character(*,SKG) , intent(in) :: fill
3354 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
3355 integer(IK) , intent(in) , dimension(3) :: size, lbc
3356 character(*, SK) , intent(out) , optional :: errmsg
3357 logical(LK) , intent(out) , optional :: failed
3358 end subroutine
3359#endif
3360
3361#if SK4_ENABLED
3362 PURE module subroutine setRefilledSLDD_D3_SK4(array, fill, size, lbc, failed, errmsg)
3363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3364 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_SK4
3365#endif
3366 use pm_kind, only: SKG => SK4
3367 character(*,SKG) , intent(in) :: fill
3368 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
3369 integer(IK) , intent(in) , dimension(3) :: size, lbc
3370 character(*, SK) , intent(out) , optional :: errmsg
3371 logical(LK) , intent(out) , optional :: failed
3372 end subroutine
3373#endif
3374
3375#if SK3_ENABLED
3376 PURE module subroutine setRefilledSLDD_D3_SK3(array, fill, size, lbc, failed, errmsg)
3377#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3378 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_SK3
3379#endif
3380 use pm_kind, only: SKG => SK3
3381 character(*,SKG) , intent(in) :: fill
3382 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
3383 integer(IK) , intent(in) , dimension(3) :: size, lbc
3384 character(*, SK) , intent(out) , optional :: errmsg
3385 logical(LK) , intent(out) , optional :: failed
3386 end subroutine
3387#endif
3388
3389#if SK2_ENABLED
3390 PURE module subroutine setRefilledSLDD_D3_SK2(array, fill, size, lbc, failed, errmsg)
3391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3392 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_SK2
3393#endif
3394 use pm_kind, only: SKG => SK2
3395 character(*,SKG) , intent(in) :: fill
3396 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
3397 integer(IK) , intent(in) , dimension(3) :: size, lbc
3398 character(*, SK) , intent(out) , optional :: errmsg
3399 logical(LK) , intent(out) , optional :: failed
3400 end subroutine
3401#endif
3402
3403#if SK1_ENABLED
3404 PURE module subroutine setRefilledSLDD_D3_SK1(array, fill, size, lbc, failed, errmsg)
3405#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3406 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_SK1
3407#endif
3408 use pm_kind, only: SKG => SK1
3409 character(*,SKG) , intent(in) :: fill
3410 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
3411 integer(IK) , intent(in) , dimension(3) :: size, lbc
3412 character(*, SK) , intent(out) , optional :: errmsg
3413 logical(LK) , intent(out) , optional :: failed
3414 end subroutine
3415#endif
3416
3417 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3418
3419#if IK5_ENABLED
3420 PURE module subroutine setRefilledSLDD_D3_IK5(array, fill, size, lbc, failed, errmsg)
3421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3422 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_IK5
3423#endif
3424 use pm_kind, only: IKG => IK5
3425 integer(IKG) , intent(in) :: fill
3426 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3427 integer(IK) , intent(in) , dimension(3) :: size, lbc
3428 character(*, SK) , intent(out) , optional :: errmsg
3429 logical(LK) , intent(out) , optional :: failed
3430 end subroutine
3431#endif
3432
3433#if IK4_ENABLED
3434 PURE module subroutine setRefilledSLDD_D3_IK4(array, fill, size, lbc, failed, errmsg)
3435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3436 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_IK4
3437#endif
3438 use pm_kind, only: IKG => IK4
3439 integer(IKG) , intent(in) :: fill
3440 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3441 integer(IK) , intent(in) , dimension(3) :: size, lbc
3442 character(*, SK) , intent(out) , optional :: errmsg
3443 logical(LK) , intent(out) , optional :: failed
3444 end subroutine
3445#endif
3446
3447#if IK3_ENABLED
3448 PURE module subroutine setRefilledSLDD_D3_IK3(array, fill, size, lbc, failed, errmsg)
3449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3450 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_IK3
3451#endif
3452 use pm_kind, only: IKG => IK3
3453 integer(IKG) , intent(in) :: fill
3454 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3455 integer(IK) , intent(in) , dimension(3) :: size, lbc
3456 character(*, SK) , intent(out) , optional :: errmsg
3457 logical(LK) , intent(out) , optional :: failed
3458 end subroutine
3459#endif
3460
3461#if IK2_ENABLED
3462 PURE module subroutine setRefilledSLDD_D3_IK2(array, fill, size, lbc, failed, errmsg)
3463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3464 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_IK2
3465#endif
3466 use pm_kind, only: IKG => IK2
3467 integer(IKG) , intent(in) :: fill
3468 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3469 integer(IK) , intent(in) , dimension(3) :: size, lbc
3470 character(*, SK) , intent(out) , optional :: errmsg
3471 logical(LK) , intent(out) , optional :: failed
3472 end subroutine
3473#endif
3474
3475#if IK1_ENABLED
3476 PURE module subroutine setRefilledSLDD_D3_IK1(array, fill, size, lbc, failed, errmsg)
3477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3478 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_IK1
3479#endif
3480 use pm_kind, only: IKG => IK1
3481 integer(IKG) , intent(in) :: fill
3482 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3483 integer(IK) , intent(in) , dimension(3) :: size, lbc
3484 character(*, SK) , intent(out) , optional :: errmsg
3485 logical(LK) , intent(out) , optional :: failed
3486 end subroutine
3487#endif
3488
3489 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3490
3491#if LK5_ENABLED
3492 PURE module subroutine setRefilledSLDD_D3_LK5(array, fill, size, lbc, failed, errmsg)
3493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3494 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_LK5
3495#endif
3496 use pm_kind, only: LKG => LK5
3497 logical(LKG) , intent(in) :: fill
3498 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
3499 integer(IK) , intent(in) , dimension(3) :: size, lbc
3500 character(*, SK) , intent(out) , optional :: errmsg
3501 logical(LK) , intent(out) , optional :: failed
3502 end subroutine
3503#endif
3504
3505#if LK4_ENABLED
3506 PURE module subroutine setRefilledSLDD_D3_LK4(array, fill, size, lbc, failed, errmsg)
3507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3508 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_LK4
3509#endif
3510 use pm_kind, only: LKG => LK4
3511 logical(LKG) , intent(in) :: fill
3512 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
3513 integer(IK) , intent(in) , dimension(3) :: size, lbc
3514 character(*, SK) , intent(out) , optional :: errmsg
3515 logical(LK) , intent(out) , optional :: failed
3516 end subroutine
3517#endif
3518
3519#if LK3_ENABLED
3520 PURE module subroutine setRefilledSLDD_D3_LK3(array, fill, size, lbc, failed, errmsg)
3521#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3522 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_LK3
3523#endif
3524 use pm_kind, only: LKG => LK3
3525 logical(LKG) , intent(in) :: fill
3526 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
3527 integer(IK) , intent(in) , dimension(3) :: size, lbc
3528 character(*, SK) , intent(out) , optional :: errmsg
3529 logical(LK) , intent(out) , optional :: failed
3530 end subroutine
3531#endif
3532
3533#if LK2_ENABLED
3534 PURE module subroutine setRefilledSLDD_D3_LK2(array, fill, size, lbc, failed, errmsg)
3535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3536 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_LK2
3537#endif
3538 use pm_kind, only: LKG => LK2
3539 logical(LKG) , intent(in) :: fill
3540 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
3541 integer(IK) , intent(in) , dimension(3) :: size, lbc
3542 character(*, SK) , intent(out) , optional :: errmsg
3543 logical(LK) , intent(out) , optional :: failed
3544 end subroutine
3545#endif
3546
3547#if LK1_ENABLED
3548 PURE module subroutine setRefilledSLDD_D3_LK1(array, fill, size, lbc, failed, errmsg)
3549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3550 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_LK1
3551#endif
3552 use pm_kind, only: LKG => LK1
3553 logical(LKG) , intent(in) :: fill
3554 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
3555 integer(IK) , intent(in) , dimension(3) :: size, lbc
3556 character(*, SK) , intent(out) , optional :: errmsg
3557 logical(LK) , intent(out) , optional :: failed
3558 end subroutine
3559#endif
3560
3561 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3562
3563#if CK5_ENABLED
3564 PURE module subroutine setRefilledSLDD_D3_CK5(array, fill, size, lbc, failed, errmsg)
3565#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3566 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_CK5
3567#endif
3568 use pm_kind, only: CKG => CK5
3569 complex(CKG) , intent(in) :: fill
3570 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
3571 integer(IK) , intent(in) , dimension(3) :: size, lbc
3572 character(*, SK) , intent(out) , optional :: errmsg
3573 logical(LK) , intent(out) , optional :: failed
3574 end subroutine
3575#endif
3576
3577#if CK4_ENABLED
3578 PURE module subroutine setRefilledSLDD_D3_CK4(array, fill, size, lbc, failed, errmsg)
3579#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3580 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_CK4
3581#endif
3582 use pm_kind, only: CKG => CK4
3583 complex(CKG) , intent(in) :: fill
3584 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
3585 integer(IK) , intent(in) , dimension(3) :: size, lbc
3586 character(*, SK) , intent(out) , optional :: errmsg
3587 logical(LK) , intent(out) , optional :: failed
3588 end subroutine
3589#endif
3590
3591#if CK3_ENABLED
3592 PURE module subroutine setRefilledSLDD_D3_CK3(array, fill, size, lbc, failed, errmsg)
3593#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3594 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_CK3
3595#endif
3596 use pm_kind, only: CKG => CK3
3597 complex(CKG) , intent(in) :: fill
3598 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
3599 integer(IK) , intent(in) , dimension(3) :: size, lbc
3600 character(*, SK) , intent(out) , optional :: errmsg
3601 logical(LK) , intent(out) , optional :: failed
3602 end subroutine
3603#endif
3604
3605#if CK2_ENABLED
3606 PURE module subroutine setRefilledSLDD_D3_CK2(array, fill, size, lbc, failed, errmsg)
3607#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3608 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_CK2
3609#endif
3610 use pm_kind, only: CKG => CK2
3611 complex(CKG) , intent(in) :: fill
3612 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
3613 integer(IK) , intent(in) , dimension(3) :: size, lbc
3614 character(*, SK) , intent(out) , optional :: errmsg
3615 logical(LK) , intent(out) , optional :: failed
3616 end subroutine
3617#endif
3618
3619#if CK1_ENABLED
3620 PURE module subroutine setRefilledSLDD_D3_CK1(array, fill, size, lbc, failed, errmsg)
3621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3622 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_CK1
3623#endif
3624 use pm_kind, only: CKG => CK1
3625 complex(CKG) , intent(in) :: fill
3626 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
3627 integer(IK) , intent(in) , dimension(3) :: size, lbc
3628 character(*, SK) , intent(out) , optional :: errmsg
3629 logical(LK) , intent(out) , optional :: failed
3630 end subroutine
3631#endif
3632
3633 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3634
3635#if RK5_ENABLED
3636 PURE module subroutine setRefilledSLDD_D3_RK5(array, fill, size, lbc, failed, errmsg)
3637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3638 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_RK5
3639#endif
3640 use pm_kind, only: RKG => RK5
3641 real(RKG) , intent(in) :: fill
3642 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
3643 integer(IK) , intent(in) , dimension(3) :: size, lbc
3644 character(*, SK) , intent(out) , optional :: errmsg
3645 logical(LK) , intent(out) , optional :: failed
3646 end subroutine
3647#endif
3648
3649#if RK4_ENABLED
3650 PURE module subroutine setRefilledSLDD_D3_RK4(array, fill, size, lbc, failed, errmsg)
3651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3652 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_RK4
3653#endif
3654 use pm_kind, only: RKG => RK4
3655 real(RKG) , intent(in) :: fill
3656 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
3657 integer(IK) , intent(in) , dimension(3) :: size, lbc
3658 character(*, SK) , intent(out) , optional :: errmsg
3659 logical(LK) , intent(out) , optional :: failed
3660 end subroutine
3661#endif
3662
3663#if RK3_ENABLED
3664 PURE module subroutine setRefilledSLDD_D3_RK3(array, fill, size, lbc, failed, errmsg)
3665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3666 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_RK3
3667#endif
3668 use pm_kind, only: RKG => RK3
3669 real(RKG) , intent(in) :: fill
3670 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
3671 integer(IK) , intent(in) , dimension(3) :: size, lbc
3672 character(*, SK) , intent(out) , optional :: errmsg
3673 logical(LK) , intent(out) , optional :: failed
3674 end subroutine
3675#endif
3676
3677#if RK2_ENABLED
3678 PURE module subroutine setRefilledSLDD_D3_RK2(array, fill, size, lbc, failed, errmsg)
3679#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3680 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_RK2
3681#endif
3682 use pm_kind, only: RKG => RK2
3683 real(RKG) , intent(in) :: fill
3684 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
3685 integer(IK) , intent(in) , dimension(3) :: size, lbc
3686 character(*, SK) , intent(out) , optional :: errmsg
3687 logical(LK) , intent(out) , optional :: failed
3688 end subroutine
3689#endif
3690
3691#if RK1_ENABLED
3692 PURE module subroutine setRefilledSLDD_D3_RK1(array, fill, size, lbc, failed, errmsg)
3693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3694 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLDD_D3_RK1
3695#endif
3696 use pm_kind, only: RKG => RK1
3697 real(RKG) , intent(in) :: fill
3698 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
3699 integer(IK) , intent(in) , dimension(3) :: size, lbc
3700 character(*, SK) , intent(out) , optional :: errmsg
3701 logical(LK) , intent(out) , optional :: failed
3702 end subroutine
3703#endif
3704
3705 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3706
3707 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3708 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3709 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3710
3711 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3712 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3713 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3714
3715 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3716
3717#if SK5_ENABLED
3718 PURE module subroutine setRefilledSLLU_D0_SK5(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3720 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D0_SK5
3721#endif
3722 use pm_kind, only: SKG => SK5
3723 character(1,SKG) , intent(in) :: fill
3724 character(:,SKG) , intent(inout) , allocatable :: array
3725 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3726 character(*, SK) , intent(out) , optional :: errmsg
3727 logical(LK) , intent(out) , optional :: failed
3728 end subroutine
3729#endif
3730
3731#if SK4_ENABLED
3732 PURE module subroutine setRefilledSLLU_D0_SK4(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3733#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3734 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D0_SK4
3735#endif
3736 use pm_kind, only: SKG => SK4
3737 character(1,SKG) , intent(in) :: fill
3738 character(:,SKG) , intent(inout) , allocatable :: array
3739 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3740 character(*, SK) , intent(out) , optional :: errmsg
3741 logical(LK) , intent(out) , optional :: failed
3742 end subroutine
3743#endif
3744
3745#if SK3_ENABLED
3746 PURE module subroutine setRefilledSLLU_D0_SK3(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3748 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D0_SK3
3749#endif
3750 use pm_kind, only: SKG => SK3
3751 character(1,SKG) , intent(in) :: fill
3752 character(:,SKG) , intent(inout) , allocatable :: array
3753 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3754 character(*, SK) , intent(out) , optional :: errmsg
3755 logical(LK) , intent(out) , optional :: failed
3756 end subroutine
3757#endif
3758
3759#if SK2_ENABLED
3760 PURE module subroutine setRefilledSLLU_D0_SK2(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3762 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D0_SK2
3763#endif
3764 use pm_kind, only: SKG => SK2
3765 character(1,SKG) , intent(in) :: fill
3766 character(:,SKG) , intent(inout) , allocatable :: array
3767 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3768 character(*, SK) , intent(out) , optional :: errmsg
3769 logical(LK) , intent(out) , optional :: failed
3770 end subroutine
3771#endif
3772
3773#if SK1_ENABLED
3774 PURE module subroutine setRefilledSLLU_D0_SK1(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3776 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D0_SK1
3777#endif
3778 use pm_kind, only: SKG => SK1
3779 character(1,SKG) , intent(in) :: fill
3780 character(:,SKG) , intent(inout) , allocatable :: array
3781 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3782 character(*, SK) , intent(out) , optional :: errmsg
3783 logical(LK) , intent(out) , optional :: failed
3784 end subroutine
3785#endif
3786
3787 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3788
3789 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3790 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3791 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3792
3793 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3794
3795#if SK5_ENABLED
3796 PURE module subroutine setRefilledSLLU_D1_SK5(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3798 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_SK5
3799#endif
3800 use pm_kind, only: SKG => SK5
3801 character(*,SKG) , intent(in) :: fill
3802 character(*,SKG) , intent(inout) , allocatable :: array(:)
3803 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3804 character(*, SK) , intent(out) , optional :: errmsg
3805 logical(LK) , intent(out) , optional :: failed
3806 end subroutine
3807#endif
3808
3809#if SK4_ENABLED
3810 PURE module subroutine setRefilledSLLU_D1_SK4(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3811#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3812 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_SK4
3813#endif
3814 use pm_kind, only: SKG => SK4
3815 character(*,SKG) , intent(in) :: fill
3816 character(*,SKG) , intent(inout) , allocatable :: array(:)
3817 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3818 character(*, SK) , intent(out) , optional :: errmsg
3819 logical(LK) , intent(out) , optional :: failed
3820 end subroutine
3821#endif
3822
3823#if SK3_ENABLED
3824 PURE module subroutine setRefilledSLLU_D1_SK3(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3826 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_SK3
3827#endif
3828 use pm_kind, only: SKG => SK3
3829 character(*,SKG) , intent(in) :: fill
3830 character(*,SKG) , intent(inout) , allocatable :: array(:)
3831 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3832 character(*, SK) , intent(out) , optional :: errmsg
3833 logical(LK) , intent(out) , optional :: failed
3834 end subroutine
3835#endif
3836
3837#if SK2_ENABLED
3838 PURE module subroutine setRefilledSLLU_D1_SK2(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3839#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3840 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_SK2
3841#endif
3842 use pm_kind, only: SKG => SK2
3843 character(*,SKG) , intent(in) :: fill
3844 character(*,SKG) , intent(inout) , allocatable :: array(:)
3845 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3846 character(*, SK) , intent(out) , optional :: errmsg
3847 logical(LK) , intent(out) , optional :: failed
3848 end subroutine
3849#endif
3850
3851#if SK1_ENABLED
3852 PURE module subroutine setRefilledSLLU_D1_SK1(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3853#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3854 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_SK1
3855#endif
3856 use pm_kind, only: SKG => SK1
3857 character(*,SKG) , intent(in) :: fill
3858 character(*,SKG) , intent(inout) , allocatable :: array(:)
3859 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3860 character(*, SK) , intent(out) , optional :: errmsg
3861 logical(LK) , intent(out) , optional :: failed
3862 end subroutine
3863#endif
3864
3865 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3866
3867#if IK5_ENABLED
3868 PURE module subroutine setRefilledSLLU_D1_IK5(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3869#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3870 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_IK5
3871#endif
3872 use pm_kind, only: IKG => IK5
3873 integer(IKG) , intent(in) :: fill
3874 integer(IKG) , intent(inout) , allocatable :: array(:)
3875 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3876 character(*, SK) , intent(out) , optional :: errmsg
3877 logical(LK) , intent(out) , optional :: failed
3878 end subroutine
3879#endif
3880
3881#if IK4_ENABLED
3882 PURE module subroutine setRefilledSLLU_D1_IK4(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3884 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_IK4
3885#endif
3886 use pm_kind, only: IKG => IK4
3887 integer(IKG) , intent(in) :: fill
3888 integer(IKG) , intent(inout) , allocatable :: array(:)
3889 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3890 character(*, SK) , intent(out) , optional :: errmsg
3891 logical(LK) , intent(out) , optional :: failed
3892 end subroutine
3893#endif
3894
3895#if IK3_ENABLED
3896 PURE module subroutine setRefilledSLLU_D1_IK3(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3898 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_IK3
3899#endif
3900 use pm_kind, only: IKG => IK3
3901 integer(IKG) , intent(in) :: fill
3902 integer(IKG) , intent(inout) , allocatable :: array(:)
3903 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3904 character(*, SK) , intent(out) , optional :: errmsg
3905 logical(LK) , intent(out) , optional :: failed
3906 end subroutine
3907#endif
3908
3909#if IK2_ENABLED
3910 PURE module subroutine setRefilledSLLU_D1_IK2(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3911#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3912 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_IK2
3913#endif
3914 use pm_kind, only: IKG => IK2
3915 integer(IKG) , intent(in) :: fill
3916 integer(IKG) , intent(inout) , allocatable :: array(:)
3917 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3918 character(*, SK) , intent(out) , optional :: errmsg
3919 logical(LK) , intent(out) , optional :: failed
3920 end subroutine
3921#endif
3922
3923#if IK1_ENABLED
3924 PURE module subroutine setRefilledSLLU_D1_IK1(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3926 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_IK1
3927#endif
3928 use pm_kind, only: IKG => IK1
3929 integer(IKG) , intent(in) :: fill
3930 integer(IKG) , intent(inout) , allocatable :: array(:)
3931 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3932 character(*, SK) , intent(out) , optional :: errmsg
3933 logical(LK) , intent(out) , optional :: failed
3934 end subroutine
3935#endif
3936
3937 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3938
3939#if LK5_ENABLED
3940 PURE module subroutine setRefilledSLLU_D1_LK5(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3942 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_LK5
3943#endif
3944 use pm_kind, only: LKG => LK5
3945 logical(LKG) , intent(in) :: fill
3946 logical(LKG) , intent(inout) , allocatable :: array(:)
3947 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3948 character(*, SK) , intent(out) , optional :: errmsg
3949 logical(LK) , intent(out) , optional :: failed
3950 end subroutine
3951#endif
3952
3953#if LK4_ENABLED
3954 PURE module subroutine setRefilledSLLU_D1_LK4(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3955#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3956 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_LK4
3957#endif
3958 use pm_kind, only: LKG => LK4
3959 logical(LKG) , intent(in) :: fill
3960 logical(LKG) , intent(inout) , allocatable :: array(:)
3961 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3962 character(*, SK) , intent(out) , optional :: errmsg
3963 logical(LK) , intent(out) , optional :: failed
3964 end subroutine
3965#endif
3966
3967#if LK3_ENABLED
3968 PURE module subroutine setRefilledSLLU_D1_LK3(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3969#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3970 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_LK3
3971#endif
3972 use pm_kind, only: LKG => LK3
3973 logical(LKG) , intent(in) :: fill
3974 logical(LKG) , intent(inout) , allocatable :: array(:)
3975 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3976 character(*, SK) , intent(out) , optional :: errmsg
3977 logical(LK) , intent(out) , optional :: failed
3978 end subroutine
3979#endif
3980
3981#if LK2_ENABLED
3982 PURE module subroutine setRefilledSLLU_D1_LK2(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3983#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3984 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_LK2
3985#endif
3986 use pm_kind, only: LKG => LK2
3987 logical(LKG) , intent(in) :: fill
3988 logical(LKG) , intent(inout) , allocatable :: array(:)
3989 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
3990 character(*, SK) , intent(out) , optional :: errmsg
3991 logical(LK) , intent(out) , optional :: failed
3992 end subroutine
3993#endif
3994
3995#if LK1_ENABLED
3996 PURE module subroutine setRefilledSLLU_D1_LK1(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
3997#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3998 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_LK1
3999#endif
4000 use pm_kind, only: LKG => LK1
4001 logical(LKG) , intent(in) :: fill
4002 logical(LKG) , intent(inout) , allocatable :: array(:)
4003 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4004 character(*, SK) , intent(out) , optional :: errmsg
4005 logical(LK) , intent(out) , optional :: failed
4006 end subroutine
4007#endif
4008
4009 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4010
4011#if CK5_ENABLED
4012 PURE module subroutine setRefilledSLLU_D1_CK5(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4013#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4014 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_CK5
4015#endif
4016 use pm_kind, only: CKG => CK5
4017 complex(CKG) , intent(in) :: fill
4018 complex(CKG) , intent(inout) , allocatable :: array(:)
4019 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4020 character(*, SK) , intent(out) , optional :: errmsg
4021 logical(LK) , intent(out) , optional :: failed
4022 end subroutine
4023#endif
4024
4025#if CK4_ENABLED
4026 PURE module subroutine setRefilledSLLU_D1_CK4(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4027#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4028 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_CK4
4029#endif
4030 use pm_kind, only: CKG => CK4
4031 complex(CKG) , intent(in) :: fill
4032 complex(CKG) , intent(inout) , allocatable :: array(:)
4033 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4034 character(*, SK) , intent(out) , optional :: errmsg
4035 logical(LK) , intent(out) , optional :: failed
4036 end subroutine
4037#endif
4038
4039#if CK3_ENABLED
4040 PURE module subroutine setRefilledSLLU_D1_CK3(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4041#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4042 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_CK3
4043#endif
4044 use pm_kind, only: CKG => CK3
4045 complex(CKG) , intent(in) :: fill
4046 complex(CKG) , intent(inout) , allocatable :: array(:)
4047 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4048 character(*, SK) , intent(out) , optional :: errmsg
4049 logical(LK) , intent(out) , optional :: failed
4050 end subroutine
4051#endif
4052
4053#if CK2_ENABLED
4054 PURE module subroutine setRefilledSLLU_D1_CK2(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4055#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4056 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_CK2
4057#endif
4058 use pm_kind, only: CKG => CK2
4059 complex(CKG) , intent(in) :: fill
4060 complex(CKG) , intent(inout) , allocatable :: array(:)
4061 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4062 character(*, SK) , intent(out) , optional :: errmsg
4063 logical(LK) , intent(out) , optional :: failed
4064 end subroutine
4065#endif
4066
4067#if CK1_ENABLED
4068 PURE module subroutine setRefilledSLLU_D1_CK1(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4069#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4070 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_CK1
4071#endif
4072 use pm_kind, only: CKG => CK1
4073 complex(CKG) , intent(in) :: fill
4074 complex(CKG) , intent(inout) , allocatable :: array(:)
4075 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4076 character(*, SK) , intent(out) , optional :: errmsg
4077 logical(LK) , intent(out) , optional :: failed
4078 end subroutine
4079#endif
4080
4081 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4082
4083#if RK5_ENABLED
4084 PURE module subroutine setRefilledSLLU_D1_RK5(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4086 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_RK5
4087#endif
4088 use pm_kind, only: RKG => RK5
4089 real(RKG) , intent(in) :: fill
4090 real(RKG) , intent(inout) , allocatable :: array(:)
4091 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4092 character(*, SK) , intent(out) , optional :: errmsg
4093 logical(LK) , intent(out) , optional :: failed
4094 end subroutine
4095#endif
4096
4097#if RK4_ENABLED
4098 PURE module subroutine setRefilledSLLU_D1_RK4(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4099#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4100 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_RK4
4101#endif
4102 use pm_kind, only: RKG => RK4
4103 real(RKG) , intent(in) :: fill
4104 real(RKG) , intent(inout) , allocatable :: array(:)
4105 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4106 character(*, SK) , intent(out) , optional :: errmsg
4107 logical(LK) , intent(out) , optional :: failed
4108 end subroutine
4109#endif
4110
4111#if RK3_ENABLED
4112 PURE module subroutine setRefilledSLLU_D1_RK3(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4113#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4114 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_RK3
4115#endif
4116 use pm_kind, only: RKG => RK3
4117 real(RKG) , intent(in) :: fill
4118 real(RKG) , intent(inout) , allocatable :: array(:)
4119 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4120 character(*, SK) , intent(out) , optional :: errmsg
4121 logical(LK) , intent(out) , optional :: failed
4122 end subroutine
4123#endif
4124
4125#if RK2_ENABLED
4126 PURE module subroutine setRefilledSLLU_D1_RK2(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4127#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4128 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_RK2
4129#endif
4130 use pm_kind, only: RKG => RK2
4131 real(RKG) , intent(in) :: fill
4132 real(RKG) , intent(inout) , allocatable :: array(:)
4133 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4134 character(*, SK) , intent(out) , optional :: errmsg
4135 logical(LK) , intent(out) , optional :: failed
4136 end subroutine
4137#endif
4138
4139#if RK1_ENABLED
4140 PURE module subroutine setRefilledSLLU_D1_RK1(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4141#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4142 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D1_RK1
4143#endif
4144 use pm_kind, only: RKG => RK1
4145 real(RKG) , intent(in) :: fill
4146 real(RKG) , intent(inout) , allocatable :: array(:)
4147 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4148 character(*, SK) , intent(out) , optional :: errmsg
4149 logical(LK) , intent(out) , optional :: failed
4150 end subroutine
4151#endif
4152
4153 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4154
4155 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4156 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4157 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4158
4159 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4160
4161#if SK5_ENABLED
4162 PURE module subroutine setRefilledSLLU_D2_SK5(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4164 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_SK5
4165#endif
4166 use pm_kind, only: SKG => SK5
4167 character(*,SKG) , intent(in) :: fill
4168 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
4169 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4170 character(*, SK) , intent(out) , optional :: errmsg
4171 logical(LK) , intent(out) , optional :: failed
4172 end subroutine
4173#endif
4174
4175#if SK4_ENABLED
4176 PURE module subroutine setRefilledSLLU_D2_SK4(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4177#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4178 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_SK4
4179#endif
4180 use pm_kind, only: SKG => SK4
4181 character(*,SKG) , intent(in) :: fill
4182 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
4183 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4184 character(*, SK) , intent(out) , optional :: errmsg
4185 logical(LK) , intent(out) , optional :: failed
4186 end subroutine
4187#endif
4188
4189#if SK3_ENABLED
4190 PURE module subroutine setRefilledSLLU_D2_SK3(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4192 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_SK3
4193#endif
4194 use pm_kind, only: SKG => SK3
4195 character(*,SKG) , intent(in) :: fill
4196 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
4197 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4198 character(*, SK) , intent(out) , optional :: errmsg
4199 logical(LK) , intent(out) , optional :: failed
4200 end subroutine
4201#endif
4202
4203#if SK2_ENABLED
4204 PURE module subroutine setRefilledSLLU_D2_SK2(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4206 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_SK2
4207#endif
4208 use pm_kind, only: SKG => SK2
4209 character(*,SKG) , intent(in) :: fill
4210 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
4211 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4212 character(*, SK) , intent(out) , optional :: errmsg
4213 logical(LK) , intent(out) , optional :: failed
4214 end subroutine
4215#endif
4216
4217#if SK1_ENABLED
4218 PURE module subroutine setRefilledSLLU_D2_SK1(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4219#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4220 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_SK1
4221#endif
4222 use pm_kind, only: SKG => SK1
4223 character(*,SKG) , intent(in) :: fill
4224 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
4225 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4226 character(*, SK) , intent(out) , optional :: errmsg
4227 logical(LK) , intent(out) , optional :: failed
4228 end subroutine
4229#endif
4230
4231 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4232
4233#if IK5_ENABLED
4234 PURE module subroutine setRefilledSLLU_D2_IK5(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4235#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4236 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_IK5
4237#endif
4238 use pm_kind, only: IKG => IK5
4239 integer(IKG) , intent(in) :: fill
4240 integer(IKG) , intent(inout) , allocatable :: array(:,:)
4241 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4242 character(*, SK) , intent(out) , optional :: errmsg
4243 logical(LK) , intent(out) , optional :: failed
4244 end subroutine
4245#endif
4246
4247#if IK4_ENABLED
4248 PURE module subroutine setRefilledSLLU_D2_IK4(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4249#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4250 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_IK4
4251#endif
4252 use pm_kind, only: IKG => IK4
4253 integer(IKG) , intent(in) :: fill
4254 integer(IKG) , intent(inout) , allocatable :: array(:,:)
4255 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4256 character(*, SK) , intent(out) , optional :: errmsg
4257 logical(LK) , intent(out) , optional :: failed
4258 end subroutine
4259#endif
4260
4261#if IK3_ENABLED
4262 PURE module subroutine setRefilledSLLU_D2_IK3(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4264 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_IK3
4265#endif
4266 use pm_kind, only: IKG => IK3
4267 integer(IKG) , intent(in) :: fill
4268 integer(IKG) , intent(inout) , allocatable :: array(:,:)
4269 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4270 character(*, SK) , intent(out) , optional :: errmsg
4271 logical(LK) , intent(out) , optional :: failed
4272 end subroutine
4273#endif
4274
4275#if IK2_ENABLED
4276 PURE module subroutine setRefilledSLLU_D2_IK2(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4277#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4278 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_IK2
4279#endif
4280 use pm_kind, only: IKG => IK2
4281 integer(IKG) , intent(in) :: fill
4282 integer(IKG) , intent(inout) , allocatable :: array(:,:)
4283 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4284 character(*, SK) , intent(out) , optional :: errmsg
4285 logical(LK) , intent(out) , optional :: failed
4286 end subroutine
4287#endif
4288
4289#if IK1_ENABLED
4290 PURE module subroutine setRefilledSLLU_D2_IK1(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4292 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_IK1
4293#endif
4294 use pm_kind, only: IKG => IK1
4295 integer(IKG) , intent(in) :: fill
4296 integer(IKG) , intent(inout) , allocatable :: array(:,:)
4297 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4298 character(*, SK) , intent(out) , optional :: errmsg
4299 logical(LK) , intent(out) , optional :: failed
4300 end subroutine
4301#endif
4302
4303 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4304
4305#if LK5_ENABLED
4306 PURE module subroutine setRefilledSLLU_D2_LK5(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4308 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_LK5
4309#endif
4310 use pm_kind, only: LKG => LK5
4311 logical(LKG) , intent(in) :: fill
4312 logical(LKG) , intent(inout) , allocatable :: array(:,:)
4313 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4314 character(*, SK) , intent(out) , optional :: errmsg
4315 logical(LK) , intent(out) , optional :: failed
4316 end subroutine
4317#endif
4318
4319#if LK4_ENABLED
4320 PURE module subroutine setRefilledSLLU_D2_LK4(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4321#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4322 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_LK4
4323#endif
4324 use pm_kind, only: LKG => LK4
4325 logical(LKG) , intent(in) :: fill
4326 logical(LKG) , intent(inout) , allocatable :: array(:,:)
4327 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4328 character(*, SK) , intent(out) , optional :: errmsg
4329 logical(LK) , intent(out) , optional :: failed
4330 end subroutine
4331#endif
4332
4333#if LK3_ENABLED
4334 PURE module subroutine setRefilledSLLU_D2_LK3(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4335#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4336 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_LK3
4337#endif
4338 use pm_kind, only: LKG => LK3
4339 logical(LKG) , intent(in) :: fill
4340 logical(LKG) , intent(inout) , allocatable :: array(:,:)
4341 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4342 character(*, SK) , intent(out) , optional :: errmsg
4343 logical(LK) , intent(out) , optional :: failed
4344 end subroutine
4345#endif
4346
4347#if LK2_ENABLED
4348 PURE module subroutine setRefilledSLLU_D2_LK2(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4350 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_LK2
4351#endif
4352 use pm_kind, only: LKG => LK2
4353 logical(LKG) , intent(in) :: fill
4354 logical(LKG) , intent(inout) , allocatable :: array(:,:)
4355 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4356 character(*, SK) , intent(out) , optional :: errmsg
4357 logical(LK) , intent(out) , optional :: failed
4358 end subroutine
4359#endif
4360
4361#if LK1_ENABLED
4362 PURE module subroutine setRefilledSLLU_D2_LK1(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4363#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4364 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_LK1
4365#endif
4366 use pm_kind, only: LKG => LK1
4367 logical(LKG) , intent(in) :: fill
4368 logical(LKG) , intent(inout) , allocatable :: array(:,:)
4369 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4370 character(*, SK) , intent(out) , optional :: errmsg
4371 logical(LK) , intent(out) , optional :: failed
4372 end subroutine
4373#endif
4374
4375 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4376
4377#if CK5_ENABLED
4378 PURE module subroutine setRefilledSLLU_D2_CK5(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4380 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_CK5
4381#endif
4382 use pm_kind, only: CKG => CK5
4383 complex(CKG) , intent(in) :: fill
4384 complex(CKG) , intent(inout) , allocatable :: array(:,:)
4385 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4386 character(*, SK) , intent(out) , optional :: errmsg
4387 logical(LK) , intent(out) , optional :: failed
4388 end subroutine
4389#endif
4390
4391#if CK4_ENABLED
4392 PURE module subroutine setRefilledSLLU_D2_CK4(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4393#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4394 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_CK4
4395#endif
4396 use pm_kind, only: CKG => CK4
4397 complex(CKG) , intent(in) :: fill
4398 complex(CKG) , intent(inout) , allocatable :: array(:,:)
4399 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4400 character(*, SK) , intent(out) , optional :: errmsg
4401 logical(LK) , intent(out) , optional :: failed
4402 end subroutine
4403#endif
4404
4405#if CK3_ENABLED
4406 PURE module subroutine setRefilledSLLU_D2_CK3(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4407#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4408 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_CK3
4409#endif
4410 use pm_kind, only: CKG => CK3
4411 complex(CKG) , intent(in) :: fill
4412 complex(CKG) , intent(inout) , allocatable :: array(:,:)
4413 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4414 character(*, SK) , intent(out) , optional :: errmsg
4415 logical(LK) , intent(out) , optional :: failed
4416 end subroutine
4417#endif
4418
4419#if CK2_ENABLED
4420 PURE module subroutine setRefilledSLLU_D2_CK2(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4422 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_CK2
4423#endif
4424 use pm_kind, only: CKG => CK2
4425 complex(CKG) , intent(in) :: fill
4426 complex(CKG) , intent(inout) , allocatable :: array(:,:)
4427 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4428 character(*, SK) , intent(out) , optional :: errmsg
4429 logical(LK) , intent(out) , optional :: failed
4430 end subroutine
4431#endif
4432
4433#if CK1_ENABLED
4434 PURE module subroutine setRefilledSLLU_D2_CK1(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4436 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_CK1
4437#endif
4438 use pm_kind, only: CKG => CK1
4439 complex(CKG) , intent(in) :: fill
4440 complex(CKG) , intent(inout) , allocatable :: array(:,:)
4441 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4442 character(*, SK) , intent(out) , optional :: errmsg
4443 logical(LK) , intent(out) , optional :: failed
4444 end subroutine
4445#endif
4446
4447 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4448
4449#if RK5_ENABLED
4450 PURE module subroutine setRefilledSLLU_D2_RK5(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4452 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_RK5
4453#endif
4454 use pm_kind, only: RKG => RK5
4455 real(RKG) , intent(in) :: fill
4456 real(RKG) , intent(inout) , allocatable :: array(:,:)
4457 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4458 character(*, SK) , intent(out) , optional :: errmsg
4459 logical(LK) , intent(out) , optional :: failed
4460 end subroutine
4461#endif
4462
4463#if RK4_ENABLED
4464 PURE module subroutine setRefilledSLLU_D2_RK4(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4465#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4466 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_RK4
4467#endif
4468 use pm_kind, only: RKG => RK4
4469 real(RKG) , intent(in) :: fill
4470 real(RKG) , intent(inout) , allocatable :: array(:,:)
4471 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4472 character(*, SK) , intent(out) , optional :: errmsg
4473 logical(LK) , intent(out) , optional :: failed
4474 end subroutine
4475#endif
4476
4477#if RK3_ENABLED
4478 PURE module subroutine setRefilledSLLU_D2_RK3(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4480 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_RK3
4481#endif
4482 use pm_kind, only: RKG => RK3
4483 real(RKG) , intent(in) :: fill
4484 real(RKG) , intent(inout) , allocatable :: array(:,:)
4485 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4486 character(*, SK) , intent(out) , optional :: errmsg
4487 logical(LK) , intent(out) , optional :: failed
4488 end subroutine
4489#endif
4490
4491#if RK2_ENABLED
4492 PURE module subroutine setRefilledSLLU_D2_RK2(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4493#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4494 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_RK2
4495#endif
4496 use pm_kind, only: RKG => RK2
4497 real(RKG) , intent(in) :: fill
4498 real(RKG) , intent(inout) , allocatable :: array(:,:)
4499 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4500 character(*, SK) , intent(out) , optional :: errmsg
4501 logical(LK) , intent(out) , optional :: failed
4502 end subroutine
4503#endif
4504
4505#if RK1_ENABLED
4506 PURE module subroutine setRefilledSLLU_D2_RK1(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4507#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4508 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D2_RK1
4509#endif
4510 use pm_kind, only: RKG => RK1
4511 real(RKG) , intent(in) :: fill
4512 real(RKG) , intent(inout) , allocatable :: array(:,:)
4513 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4514 character(*, SK) , intent(out) , optional :: errmsg
4515 logical(LK) , intent(out) , optional :: failed
4516 end subroutine
4517#endif
4518
4519 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4520
4521 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4522 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4523 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4524
4525 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4526
4527#if SK5_ENABLED
4528 PURE module subroutine setRefilledSLLU_D3_SK5(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4530 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_SK5
4531#endif
4532 use pm_kind, only: SKG => SK5
4533 character(*,SKG) , intent(in) :: fill
4534 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
4535 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4536 character(*, SK) , intent(out) , optional :: errmsg
4537 logical(LK) , intent(out) , optional :: failed
4538 end subroutine
4539#endif
4540
4541#if SK4_ENABLED
4542 PURE module subroutine setRefilledSLLU_D3_SK4(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4544 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_SK4
4545#endif
4546 use pm_kind, only: SKG => SK4
4547 character(*,SKG) , intent(in) :: fill
4548 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
4549 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4550 character(*, SK) , intent(out) , optional :: errmsg
4551 logical(LK) , intent(out) , optional :: failed
4552 end subroutine
4553#endif
4554
4555#if SK3_ENABLED
4556 PURE module subroutine setRefilledSLLU_D3_SK3(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4558 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_SK3
4559#endif
4560 use pm_kind, only: SKG => SK3
4561 character(*,SKG) , intent(in) :: fill
4562 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
4563 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4564 character(*, SK) , intent(out) , optional :: errmsg
4565 logical(LK) , intent(out) , optional :: failed
4566 end subroutine
4567#endif
4568
4569#if SK2_ENABLED
4570 PURE module subroutine setRefilledSLLU_D3_SK2(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4572 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_SK2
4573#endif
4574 use pm_kind, only: SKG => SK2
4575 character(*,SKG) , intent(in) :: fill
4576 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
4577 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4578 character(*, SK) , intent(out) , optional :: errmsg
4579 logical(LK) , intent(out) , optional :: failed
4580 end subroutine
4581#endif
4582
4583#if SK1_ENABLED
4584 PURE module subroutine setRefilledSLLU_D3_SK1(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4586 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_SK1
4587#endif
4588 use pm_kind, only: SKG => SK1
4589 character(*,SKG) , intent(in) :: fill
4590 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
4591 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4592 character(*, SK) , intent(out) , optional :: errmsg
4593 logical(LK) , intent(out) , optional :: failed
4594 end subroutine
4595#endif
4596
4597 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4598
4599#if IK5_ENABLED
4600 PURE module subroutine setRefilledSLLU_D3_IK5(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4601#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4602 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_IK5
4603#endif
4604 use pm_kind, only: IKG => IK5
4605 integer(IKG) , intent(in) :: fill
4606 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
4607 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4608 character(*, SK) , intent(out) , optional :: errmsg
4609 logical(LK) , intent(out) , optional :: failed
4610 end subroutine
4611#endif
4612
4613#if IK4_ENABLED
4614 PURE module subroutine setRefilledSLLU_D3_IK4(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4615#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4616 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_IK4
4617#endif
4618 use pm_kind, only: IKG => IK4
4619 integer(IKG) , intent(in) :: fill
4620 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
4621 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4622 character(*, SK) , intent(out) , optional :: errmsg
4623 logical(LK) , intent(out) , optional :: failed
4624 end subroutine
4625#endif
4626
4627#if IK3_ENABLED
4628 PURE module subroutine setRefilledSLLU_D3_IK3(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4629#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4630 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_IK3
4631#endif
4632 use pm_kind, only: IKG => IK3
4633 integer(IKG) , intent(in) :: fill
4634 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
4635 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4636 character(*, SK) , intent(out) , optional :: errmsg
4637 logical(LK) , intent(out) , optional :: failed
4638 end subroutine
4639#endif
4640
4641#if IK2_ENABLED
4642 PURE module subroutine setRefilledSLLU_D3_IK2(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4643#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4644 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_IK2
4645#endif
4646 use pm_kind, only: IKG => IK2
4647 integer(IKG) , intent(in) :: fill
4648 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
4649 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4650 character(*, SK) , intent(out) , optional :: errmsg
4651 logical(LK) , intent(out) , optional :: failed
4652 end subroutine
4653#endif
4654
4655#if IK1_ENABLED
4656 PURE module subroutine setRefilledSLLU_D3_IK1(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4657#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4658 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_IK1
4659#endif
4660 use pm_kind, only: IKG => IK1
4661 integer(IKG) , intent(in) :: fill
4662 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
4663 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4664 character(*, SK) , intent(out) , optional :: errmsg
4665 logical(LK) , intent(out) , optional :: failed
4666 end subroutine
4667#endif
4668
4669 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4670
4671#if LK5_ENABLED
4672 PURE module subroutine setRefilledSLLU_D3_LK5(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4673#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4674 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_LK5
4675#endif
4676 use pm_kind, only: LKG => LK5
4677 logical(LKG) , intent(in) :: fill
4678 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
4679 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4680 character(*, SK) , intent(out) , optional :: errmsg
4681 logical(LK) , intent(out) , optional :: failed
4682 end subroutine
4683#endif
4684
4685#if LK4_ENABLED
4686 PURE module subroutine setRefilledSLLU_D3_LK4(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4687#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4688 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_LK4
4689#endif
4690 use pm_kind, only: LKG => LK4
4691 logical(LKG) , intent(in) :: fill
4692 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
4693 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4694 character(*, SK) , intent(out) , optional :: errmsg
4695 logical(LK) , intent(out) , optional :: failed
4696 end subroutine
4697#endif
4698
4699#if LK3_ENABLED
4700 PURE module subroutine setRefilledSLLU_D3_LK3(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4701#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4702 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_LK3
4703#endif
4704 use pm_kind, only: LKG => LK3
4705 logical(LKG) , intent(in) :: fill
4706 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
4707 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4708 character(*, SK) , intent(out) , optional :: errmsg
4709 logical(LK) , intent(out) , optional :: failed
4710 end subroutine
4711#endif
4712
4713#if LK2_ENABLED
4714 PURE module subroutine setRefilledSLLU_D3_LK2(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4715#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4716 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_LK2
4717#endif
4718 use pm_kind, only: LKG => LK2
4719 logical(LKG) , intent(in) :: fill
4720 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
4721 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4722 character(*, SK) , intent(out) , optional :: errmsg
4723 logical(LK) , intent(out) , optional :: failed
4724 end subroutine
4725#endif
4726
4727#if LK1_ENABLED
4728 PURE module subroutine setRefilledSLLU_D3_LK1(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4729#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4730 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_LK1
4731#endif
4732 use pm_kind, only: LKG => LK1
4733 logical(LKG) , intent(in) :: fill
4734 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
4735 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4736 character(*, SK) , intent(out) , optional :: errmsg
4737 logical(LK) , intent(out) , optional :: failed
4738 end subroutine
4739#endif
4740
4741 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4742
4743#if CK5_ENABLED
4744 PURE module subroutine setRefilledSLLU_D3_CK5(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4746 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_CK5
4747#endif
4748 use pm_kind, only: CKG => CK5
4749 complex(CKG) , intent(in) :: fill
4750 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
4751 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4752 character(*, SK) , intent(out) , optional :: errmsg
4753 logical(LK) , intent(out) , optional :: failed
4754 end subroutine
4755#endif
4756
4757#if CK4_ENABLED
4758 PURE module subroutine setRefilledSLLU_D3_CK4(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4759#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4760 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_CK4
4761#endif
4762 use pm_kind, only: CKG => CK4
4763 complex(CKG) , intent(in) :: fill
4764 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
4765 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4766 character(*, SK) , intent(out) , optional :: errmsg
4767 logical(LK) , intent(out) , optional :: failed
4768 end subroutine
4769#endif
4770
4771#if CK3_ENABLED
4772 PURE module subroutine setRefilledSLLU_D3_CK3(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4774 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_CK3
4775#endif
4776 use pm_kind, only: CKG => CK3
4777 complex(CKG) , intent(in) :: fill
4778 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
4779 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4780 character(*, SK) , intent(out) , optional :: errmsg
4781 logical(LK) , intent(out) , optional :: failed
4782 end subroutine
4783#endif
4784
4785#if CK2_ENABLED
4786 PURE module subroutine setRefilledSLLU_D3_CK2(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4787#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4788 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_CK2
4789#endif
4790 use pm_kind, only: CKG => CK2
4791 complex(CKG) , intent(in) :: fill
4792 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
4793 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4794 character(*, SK) , intent(out) , optional :: errmsg
4795 logical(LK) , intent(out) , optional :: failed
4796 end subroutine
4797#endif
4798
4799#if CK1_ENABLED
4800 PURE module subroutine setRefilledSLLU_D3_CK1(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4801#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4802 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_CK1
4803#endif
4804 use pm_kind, only: CKG => CK1
4805 complex(CKG) , intent(in) :: fill
4806 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
4807 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4808 character(*, SK) , intent(out) , optional :: errmsg
4809 logical(LK) , intent(out) , optional :: failed
4810 end subroutine
4811#endif
4812
4813 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4814
4815#if RK5_ENABLED
4816 PURE module subroutine setRefilledSLLU_D3_RK5(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4818 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_RK5
4819#endif
4820 use pm_kind, only: RKG => RK5
4821 real(RKG) , intent(in) :: fill
4822 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
4823 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4824 character(*, SK) , intent(out) , optional :: errmsg
4825 logical(LK) , intent(out) , optional :: failed
4826 end subroutine
4827#endif
4828
4829#if RK4_ENABLED
4830 PURE module subroutine setRefilledSLLU_D3_RK4(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4831#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4832 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_RK4
4833#endif
4834 use pm_kind, only: RKG => RK4
4835 real(RKG) , intent(in) :: fill
4836 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
4837 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4838 character(*, SK) , intent(out) , optional :: errmsg
4839 logical(LK) , intent(out) , optional :: failed
4840 end subroutine
4841#endif
4842
4843#if RK3_ENABLED
4844 PURE module subroutine setRefilledSLLU_D3_RK3(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4845#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4846 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_RK3
4847#endif
4848 use pm_kind, only: RKG => RK3
4849 real(RKG) , intent(in) :: fill
4850 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
4851 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4852 character(*, SK) , intent(out) , optional :: errmsg
4853 logical(LK) , intent(out) , optional :: failed
4854 end subroutine
4855#endif
4856
4857#if RK2_ENABLED
4858 PURE module subroutine setRefilledSLLU_D3_RK2(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4859#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4860 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_RK2
4861#endif
4862 use pm_kind, only: RKG => RK2
4863 real(RKG) , intent(in) :: fill
4864 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
4865 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4866 character(*, SK) , intent(out) , optional :: errmsg
4867 logical(LK) , intent(out) , optional :: failed
4868 end subroutine
4869#endif
4870
4871#if RK1_ENABLED
4872 PURE module subroutine setRefilledSLLU_D3_RK1(array, fill, size, lbc, lbcold, ubcold, failed, errmsg)
4873#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4874 !DEC$ ATTRIBUTES DLLEXPORT :: setRefilledSLLU_D3_RK1
4875#endif
4876 use pm_kind, only: RKG => RK1
4877 real(RKG) , intent(in) :: fill
4878 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
4879 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
4880 character(*, SK) , intent(out) , optional :: errmsg
4881 logical(LK) , intent(out) , optional :: failed
4882 end subroutine
4883#endif
4884
4885 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4886
4887 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4888 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4889 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4890
4891 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4892 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4893 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4894
4895 end interface
4896
4897!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4898
4899end module pm_arrayRefill ! LCOV_EXCL_LINE
pm_arrayRefill::setRefilled
Allocate or resize (shrink or expand) and refill an input allocatable scalar string or array of rank ...
Definition: pm_arrayRefill.F90:245
pm_arrayRefill
This module contains procedures and generic interfaces for resizing allocatable arrays of various typ...
Definition: pm_arrayRefill.F90:79
pm_arrayRefill::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_arrayRefill.F90:85
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