ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_arrayResize.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
78
79!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
80
82
83 use pm_kind, only: SK, IK, LK
84
85 implicit none
86
87 character(*,SK), parameter :: MODULE_NAME = "@pm_arrayResize"
88
89!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
90
246
247 ! DDDD_D0
248
249 interface setResized
250
251 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
252
253#if SK5_ENABLED
254 PURE module subroutine setResizedDDDD_D0_SK5(array, failed, errmsg)
255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
256 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D0_SK5
257#endif
258 use pm_kind, only: SKG => SK5
259 character(:,SKG) , intent(inout) , allocatable :: array
260 character(*, SK) , intent(out) , optional :: errmsg
261 logical(LK) , intent(out) , optional :: failed
262 end subroutine
263#endif
264
265#if SK4_ENABLED
266 PURE module subroutine setResizedDDDD_D0_SK4(array, failed, errmsg)
267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
268 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D0_SK4
269#endif
270 use pm_kind, only: SKG => SK4
271 character(:,SKG) , intent(inout) , allocatable :: array
272 character(*, SK) , intent(out) , optional :: errmsg
273 logical(LK) , intent(out) , optional :: failed
274 end subroutine
275#endif
276
277#if SK3_ENABLED
278 PURE module subroutine setResizedDDDD_D0_SK3(array, failed, errmsg)
279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
280 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D0_SK3
281#endif
282 use pm_kind, only: SKG => SK3
283 character(:,SKG) , intent(inout) , allocatable :: array
284 character(*, SK) , intent(out) , optional :: errmsg
285 logical(LK) , intent(out) , optional :: failed
286 end subroutine
287#endif
288
289#if SK2_ENABLED
290 PURE module subroutine setResizedDDDD_D0_SK2(array, failed, errmsg)
291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
292 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D0_SK2
293#endif
294 use pm_kind, only: SKG => SK2
295 character(:,SKG) , intent(inout) , allocatable :: array
296 character(*, SK) , intent(out) , optional :: errmsg
297 logical(LK) , intent(out) , optional :: failed
298 end subroutine
299#endif
300
301#if SK1_ENABLED
302 PURE module subroutine setResizedDDDD_D0_SK1(array, failed, errmsg)
303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
304 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D0_SK1
305#endif
306 use pm_kind, only: SKG => SK1
307 character(:,SKG) , intent(inout) , allocatable :: array
308 character(*, SK) , intent(out) , optional :: errmsg
309 logical(LK) , intent(out) , optional :: failed
310 end subroutine
311#endif
312
313 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
314
315 end interface
316
317 ! DDDD_D1
318
319 interface setResized
320
321 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
322
323#if SK5_ENABLED
324 PURE module subroutine setResizedDDDD_D1_SK5(array, failed, errmsg)
325#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
326 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_SK5
327#endif
328 use pm_kind, only: SKG => SK5
329 character(*,SKG) , intent(inout) , allocatable :: array(:)
330 character(*, SK) , intent(out) , optional :: errmsg
331 logical(LK) , intent(out) , optional :: failed
332 end subroutine
333#endif
334
335#if SK4_ENABLED
336 PURE module subroutine setResizedDDDD_D1_SK4(array, failed, errmsg)
337#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
338 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_SK4
339#endif
340 use pm_kind, only: SKG => SK4
341 character(*,SKG) , intent(inout) , allocatable :: array(:)
342 character(*, SK) , intent(out) , optional :: errmsg
343 logical(LK) , intent(out) , optional :: failed
344 end subroutine
345#endif
346
347#if SK3_ENABLED
348 PURE module subroutine setResizedDDDD_D1_SK3(array, failed, errmsg)
349#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
350 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_SK3
351#endif
352 use pm_kind, only: SKG => SK3
353 character(*,SKG) , intent(inout) , allocatable :: array(:)
354 character(*, SK) , intent(out) , optional :: errmsg
355 logical(LK) , intent(out) , optional :: failed
356 end subroutine
357#endif
358
359#if SK2_ENABLED
360 PURE module subroutine setResizedDDDD_D1_SK2(array, failed, errmsg)
361#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
362 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_SK2
363#endif
364 use pm_kind, only: SKG => SK2
365 character(*,SKG) , intent(inout) , allocatable :: array(:)
366 character(*, SK) , intent(out) , optional :: errmsg
367 logical(LK) , intent(out) , optional :: failed
368 end subroutine
369#endif
370
371#if SK1_ENABLED
372 PURE module subroutine setResizedDDDD_D1_SK1(array, failed, errmsg)
373#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
374 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_SK1
375#endif
376 use pm_kind, only: SKG => SK1
377 character(*,SKG) , intent(inout) , allocatable :: array(:)
378 character(*, SK) , intent(out) , optional :: errmsg
379 logical(LK) , intent(out) , optional :: failed
380 end subroutine
381#endif
382
383 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
384
385#if IK5_ENABLED
386 PURE module subroutine setResizedDDDD_D1_IK5(array, failed, errmsg)
387#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
388 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_IK5
389#endif
390 use pm_kind, only: IKG => IK5
391 integer(IKG) , intent(inout) , allocatable :: array(:)
392 character(*, SK) , intent(out) , optional :: errmsg
393 logical(LK) , intent(out) , optional :: failed
394 end subroutine
395#endif
396
397#if IK4_ENABLED
398 PURE module subroutine setResizedDDDD_D1_IK4(array, failed, errmsg)
399#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
400 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_IK4
401#endif
402 use pm_kind, only: IKG => IK4
403 integer(IKG) , intent(inout) , allocatable :: array(:)
404 character(*, SK) , intent(out) , optional :: errmsg
405 logical(LK) , intent(out) , optional :: failed
406 end subroutine
407#endif
408
409#if IK3_ENABLED
410 PURE module subroutine setResizedDDDD_D1_IK3(array, failed, errmsg)
411#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
412 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_IK3
413#endif
414 use pm_kind, only: IKG => IK3
415 integer(IKG) , intent(inout) , allocatable :: array(:)
416 character(*, SK) , intent(out) , optional :: errmsg
417 logical(LK) , intent(out) , optional :: failed
418 end subroutine
419#endif
420
421#if IK2_ENABLED
422 PURE module subroutine setResizedDDDD_D1_IK2(array, failed, errmsg)
423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
424 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_IK2
425#endif
426 use pm_kind, only: IKG => IK2
427 integer(IKG) , intent(inout) , allocatable :: array(:)
428 character(*, SK) , intent(out) , optional :: errmsg
429 logical(LK) , intent(out) , optional :: failed
430 end subroutine
431#endif
432
433#if IK1_ENABLED
434 PURE module subroutine setResizedDDDD_D1_IK1(array, failed, errmsg)
435#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
436 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_IK1
437#endif
438 use pm_kind, only: IKG => IK1
439 integer(IKG) , intent(inout) , allocatable :: array(:)
440 character(*, SK) , intent(out) , optional :: errmsg
441 logical(LK) , intent(out) , optional :: failed
442 end subroutine
443#endif
444
445 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
446
447#if LK5_ENABLED
448 PURE module subroutine setResizedDDDD_D1_LK5(array, failed, errmsg)
449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
450 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_LK5
451#endif
452 use pm_kind, only: LKG => LK5
453 logical(LKG) , intent(inout) , allocatable :: array(:)
454 character(*, SK) , intent(out) , optional :: errmsg
455 logical(LK) , intent(out) , optional :: failed
456 end subroutine
457#endif
458
459#if LK4_ENABLED
460 PURE module subroutine setResizedDDDD_D1_LK4(array, failed, errmsg)
461#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
462 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_LK4
463#endif
464 use pm_kind, only: LKG => LK4
465 logical(LKG) , intent(inout) , allocatable :: array(:)
466 character(*, SK) , intent(out) , optional :: errmsg
467 logical(LK) , intent(out) , optional :: failed
468 end subroutine
469#endif
470
471#if LK3_ENABLED
472 PURE module subroutine setResizedDDDD_D1_LK3(array, failed, errmsg)
473#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
474 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_LK3
475#endif
476 use pm_kind, only: LKG => LK3
477 logical(LKG) , intent(inout) , allocatable :: array(:)
478 character(*, SK) , intent(out) , optional :: errmsg
479 logical(LK) , intent(out) , optional :: failed
480 end subroutine
481#endif
482
483#if LK2_ENABLED
484 PURE module subroutine setResizedDDDD_D1_LK2(array, failed, errmsg)
485#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
486 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_LK2
487#endif
488 use pm_kind, only: LKG => LK2
489 logical(LKG) , intent(inout) , allocatable :: array(:)
490 character(*, SK) , intent(out) , optional :: errmsg
491 logical(LK) , intent(out) , optional :: failed
492 end subroutine
493#endif
494
495#if LK1_ENABLED
496 PURE module subroutine setResizedDDDD_D1_LK1(array, failed, errmsg)
497#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
498 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_LK1
499#endif
500 use pm_kind, only: LKG => LK1
501 logical(LKG) , intent(inout) , allocatable :: array(:)
502 character(*, SK) , intent(out) , optional :: errmsg
503 logical(LK) , intent(out) , optional :: failed
504 end subroutine
505#endif
506
507 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
508
509#if CK5_ENABLED
510 PURE module subroutine setResizedDDDD_D1_CK5(array, failed, errmsg)
511#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
512 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_CK5
513#endif
514 use pm_kind, only: CKG => CK5
515 complex(CKG) , intent(inout) , allocatable :: array(:)
516 character(*, SK) , intent(out) , optional :: errmsg
517 logical(LK) , intent(out) , optional :: failed
518 end subroutine
519#endif
520
521#if CK4_ENABLED
522 PURE module subroutine setResizedDDDD_D1_CK4(array, failed, errmsg)
523#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
524 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_CK4
525#endif
526 use pm_kind, only: CKG => CK4
527 complex(CKG) , intent(inout) , allocatable :: array(:)
528 character(*, SK) , intent(out) , optional :: errmsg
529 logical(LK) , intent(out) , optional :: failed
530 end subroutine
531#endif
532
533#if CK3_ENABLED
534 PURE module subroutine setResizedDDDD_D1_CK3(array, failed, errmsg)
535#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
536 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_CK3
537#endif
538 use pm_kind, only: CKG => CK3
539 complex(CKG) , intent(inout) , allocatable :: array(:)
540 character(*, SK) , intent(out) , optional :: errmsg
541 logical(LK) , intent(out) , optional :: failed
542 end subroutine
543#endif
544
545#if CK2_ENABLED
546 PURE module subroutine setResizedDDDD_D1_CK2(array, failed, errmsg)
547#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
548 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_CK2
549#endif
550 use pm_kind, only: CKG => CK2
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 CK1_ENABLED
558 PURE module subroutine setResizedDDDD_D1_CK1(array, failed, errmsg)
559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
560 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_CK1
561#endif
562 use pm_kind, only: CKG => CK1
563 complex(CKG) , intent(inout) , allocatable :: array(:)
564 character(*, SK) , intent(out) , optional :: errmsg
565 logical(LK) , intent(out) , optional :: failed
566 end subroutine
567#endif
568
569 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
570
571#if RK5_ENABLED
572 PURE module subroutine setResizedDDDD_D1_RK5(array, failed, errmsg)
573#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
574 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_RK5
575#endif
576 use pm_kind, only: RKG => RK5
577 real(RKG) , 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 RK4_ENABLED
584 PURE module subroutine setResizedDDDD_D1_RK4(array, failed, errmsg)
585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
586 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_RK4
587#endif
588 use pm_kind, only: RKG => RK4
589 real(RKG) , intent(inout) , allocatable :: array(:)
590 character(*, SK) , intent(out) , optional :: errmsg
591 logical(LK) , intent(out) , optional :: failed
592 end subroutine
593#endif
594
595#if RK3_ENABLED
596 PURE module subroutine setResizedDDDD_D1_RK3(array, failed, errmsg)
597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
598 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_RK3
599#endif
600 use pm_kind, only: RKG => RK3
601 real(RKG) , intent(inout) , allocatable :: array(:)
602 character(*, SK) , intent(out) , optional :: errmsg
603 logical(LK) , intent(out) , optional :: failed
604 end subroutine
605#endif
606
607#if RK2_ENABLED
608 PURE module subroutine setResizedDDDD_D1_RK2(array, failed, errmsg)
609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
610 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_RK2
611#endif
612 use pm_kind, only: RKG => RK2
613 real(RKG) , intent(inout) , allocatable :: array(:)
614 character(*, SK) , intent(out) , optional :: errmsg
615 logical(LK) , intent(out) , optional :: failed
616 end subroutine
617#endif
618
619#if RK1_ENABLED
620 PURE module subroutine setResizedDDDD_D1_RK1(array, failed, errmsg)
621#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
622 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_RK1
623#endif
624 use pm_kind, only: RKG => RK1
625 real(RKG) , intent(inout) , allocatable :: array(:)
626 character(*, SK) , intent(out) , optional :: errmsg
627 logical(LK) , intent(out) , optional :: failed
628 end subroutine
629#endif
630
631 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
632
633#if PDT_ENABLED
634
635#if SK5_ENABLED
636 module subroutine setResizedDDDD_D1_PSSK5(array, failed, errmsg)
637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
638 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_PSSK5
639#endif
640 use pm_kind, only: SKG => SK5
641 use pm_container, only: css_pdt
642 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
643 character(*, SK) , intent(out) , optional :: errmsg
644 logical(LK) , intent(out) , optional :: failed
645 end subroutine
646#endif
647
648#if SK4_ENABLED
649 module subroutine setResizedDDDD_D1_PSSK4(array, failed, errmsg)
650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
651 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_PSSK4
652#endif
653 use pm_kind, only: SKG => SK4
654 use pm_container, only: css_pdt
655 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
656 character(*, SK) , intent(out) , optional :: errmsg
657 logical(LK) , intent(out) , optional :: failed
658 end subroutine
659#endif
660
661#if SK3_ENABLED
662 module subroutine setResizedDDDD_D1_PSSK3(array, failed, errmsg)
663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
664 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_PSSK3
665#endif
666 use pm_kind, only: SKG => SK3
667 use pm_container, only: css_pdt
668 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
669 character(*, SK) , intent(out) , optional :: errmsg
670 logical(LK) , intent(out) , optional :: failed
671 end subroutine
672#endif
673
674#if SK2_ENABLED
675 module subroutine setResizedDDDD_D1_PSSK2(array, failed, errmsg)
676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
677 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_PSSK2
678#endif
679 use pm_kind, only: SKG => SK2
680 use pm_container, only: css_pdt
681 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
682 character(*, SK) , intent(out) , optional :: errmsg
683 logical(LK) , intent(out) , optional :: failed
684 end subroutine
685#endif
686
687#if SK1_ENABLED
688 module subroutine setResizedDDDD_D1_PSSK1(array, failed, errmsg)
689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
690 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_PSSK1
691#endif
692 use pm_kind, only: SKG => SK1
693 use pm_container, only: css_pdt
694 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
695 character(*, SK) , intent(out) , optional :: errmsg
696 logical(LK) , intent(out) , optional :: failed
697 end subroutine
698#endif
699
700#endif
701!PDT_ENABLED
702
703 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
704
705 module subroutine setResizedDDDD_D1_BSSK(array, failed, errmsg)
706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
707 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D1_BSSK
708#endif
709 use pm_kind, only: SKG => SK
710 use pm_container, only: css_type
711 type(css_type) , intent(inout) , allocatable :: array(:)
712 character(*, SK) , intent(out) , optional :: errmsg
713 logical(LK) , intent(out) , optional :: failed
714 end subroutine
715
716 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
717
718 end interface
719
720 ! DDDD_D2
721
722 interface setResized
723
724 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
725
726#if SK5_ENABLED
727 PURE module subroutine setResizedDDDD_D2_SK5(array, failed, errmsg)
728#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
729 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_SK5
730#endif
731 use pm_kind, only: SKG => SK5
732 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
733 character(*, SK) , intent(out) , optional :: errmsg
734 logical(LK) , intent(out) , optional :: failed
735 end subroutine
736#endif
737
738#if SK4_ENABLED
739 PURE module subroutine setResizedDDDD_D2_SK4(array, failed, errmsg)
740#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
741 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_SK4
742#endif
743 use pm_kind, only: SKG => SK4
744 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
745 character(*, SK) , intent(out) , optional :: errmsg
746 logical(LK) , intent(out) , optional :: failed
747 end subroutine
748#endif
749
750#if SK3_ENABLED
751 PURE module subroutine setResizedDDDD_D2_SK3(array, failed, errmsg)
752#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
753 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_SK3
754#endif
755 use pm_kind, only: SKG => SK3
756 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
757 character(*, SK) , intent(out) , optional :: errmsg
758 logical(LK) , intent(out) , optional :: failed
759 end subroutine
760#endif
761
762#if SK2_ENABLED
763 PURE module subroutine setResizedDDDD_D2_SK2(array, failed, errmsg)
764#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
765 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_SK2
766#endif
767 use pm_kind, only: SKG => SK2
768 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
769 character(*, SK) , intent(out) , optional :: errmsg
770 logical(LK) , intent(out) , optional :: failed
771 end subroutine
772#endif
773
774#if SK1_ENABLED
775 PURE module subroutine setResizedDDDD_D2_SK1(array, failed, errmsg)
776#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
777 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_SK1
778#endif
779 use pm_kind, only: SKG => SK1
780 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
781 character(*, SK) , intent(out) , optional :: errmsg
782 logical(LK) , intent(out) , optional :: failed
783 end subroutine
784#endif
785
786 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
787
788#if IK5_ENABLED
789 PURE module subroutine setResizedDDDD_D2_IK5(array, failed, errmsg)
790#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
791 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_IK5
792#endif
793 use pm_kind, only: IKG => IK5
794 integer(IKG) , intent(inout) , allocatable :: array(:,:)
795 character(*, SK) , intent(out) , optional :: errmsg
796 logical(LK) , intent(out) , optional :: failed
797 end subroutine
798#endif
799
800#if IK4_ENABLED
801 PURE module subroutine setResizedDDDD_D2_IK4(array, failed, errmsg)
802#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
803 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_IK4
804#endif
805 use pm_kind, only: IKG => IK4
806 integer(IKG) , intent(inout) , allocatable :: array(:,:)
807 character(*, SK) , intent(out) , optional :: errmsg
808 logical(LK) , intent(out) , optional :: failed
809 end subroutine
810#endif
811
812#if IK3_ENABLED
813 PURE module subroutine setResizedDDDD_D2_IK3(array, failed, errmsg)
814#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
815 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_IK3
816#endif
817 use pm_kind, only: IKG => IK3
818 integer(IKG) , intent(inout) , allocatable :: array(:,:)
819 character(*, SK) , intent(out) , optional :: errmsg
820 logical(LK) , intent(out) , optional :: failed
821 end subroutine
822#endif
823
824#if IK2_ENABLED
825 PURE module subroutine setResizedDDDD_D2_IK2(array, failed, errmsg)
826#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
827 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_IK2
828#endif
829 use pm_kind, only: IKG => IK2
830 integer(IKG) , intent(inout) , allocatable :: array(:,:)
831 character(*, SK) , intent(out) , optional :: errmsg
832 logical(LK) , intent(out) , optional :: failed
833 end subroutine
834#endif
835
836#if IK1_ENABLED
837 PURE module subroutine setResizedDDDD_D2_IK1(array, failed, errmsg)
838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
839 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_IK1
840#endif
841 use pm_kind, only: IKG => IK1
842 integer(IKG) , intent(inout) , allocatable :: array(:,:)
843 character(*, SK) , intent(out) , optional :: errmsg
844 logical(LK) , intent(out) , optional :: failed
845 end subroutine
846#endif
847
848 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
849
850#if LK5_ENABLED
851 PURE module subroutine setResizedDDDD_D2_LK5(array, failed, errmsg)
852#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
853 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_LK5
854#endif
855 use pm_kind, only: LKG => LK5
856 logical(LKG) , intent(inout) , allocatable :: array(:,:)
857 character(*, SK) , intent(out) , optional :: errmsg
858 logical(LK) , intent(out) , optional :: failed
859 end subroutine
860#endif
861
862#if LK4_ENABLED
863 PURE module subroutine setResizedDDDD_D2_LK4(array, failed, errmsg)
864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
865 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_LK4
866#endif
867 use pm_kind, only: LKG => LK4
868 logical(LKG) , intent(inout) , allocatable :: array(:,:)
869 character(*, SK) , intent(out) , optional :: errmsg
870 logical(LK) , intent(out) , optional :: failed
871 end subroutine
872#endif
873
874#if LK3_ENABLED
875 PURE module subroutine setResizedDDDD_D2_LK3(array, failed, errmsg)
876#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
877 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_LK3
878#endif
879 use pm_kind, only: LKG => LK3
880 logical(LKG) , intent(inout) , allocatable :: array(:,:)
881 character(*, SK) , intent(out) , optional :: errmsg
882 logical(LK) , intent(out) , optional :: failed
883 end subroutine
884#endif
885
886#if LK2_ENABLED
887 PURE module subroutine setResizedDDDD_D2_LK2(array, failed, errmsg)
888#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
889 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_LK2
890#endif
891 use pm_kind, only: LKG => LK2
892 logical(LKG) , 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 LK1_ENABLED
899 PURE module subroutine setResizedDDDD_D2_LK1(array, failed, errmsg)
900#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
901 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_LK1
902#endif
903 use pm_kind, only: LKG => LK1
904 logical(LKG) , intent(inout) , allocatable :: array(:,:)
905 character(*, SK) , intent(out) , optional :: errmsg
906 logical(LK) , intent(out) , optional :: failed
907 end subroutine
908#endif
909
910 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
911
912#if CK5_ENABLED
913 PURE module subroutine setResizedDDDD_D2_CK5(array, failed, errmsg)
914#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
915 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_CK5
916#endif
917 use pm_kind, only: CKG => CK5
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 CK4_ENABLED
925 PURE module subroutine setResizedDDDD_D2_CK4(array, failed, errmsg)
926#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
927 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_CK4
928#endif
929 use pm_kind, only: CKG => CK4
930 complex(CKG) , intent(inout) , allocatable :: array(:,:)
931 character(*, SK) , intent(out) , optional :: errmsg
932 logical(LK) , intent(out) , optional :: failed
933 end subroutine
934#endif
935
936#if CK3_ENABLED
937 PURE module subroutine setResizedDDDD_D2_CK3(array, failed, errmsg)
938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
939 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_CK3
940#endif
941 use pm_kind, only: CKG => CK3
942 complex(CKG) , intent(inout) , allocatable :: array(:,:)
943 character(*, SK) , intent(out) , optional :: errmsg
944 logical(LK) , intent(out) , optional :: failed
945 end subroutine
946#endif
947
948#if CK2_ENABLED
949 PURE module subroutine setResizedDDDD_D2_CK2(array, failed, errmsg)
950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
951 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_CK2
952#endif
953 use pm_kind, only: CKG => CK2
954 complex(CKG) , intent(inout) , allocatable :: array(:,:)
955 character(*, SK) , intent(out) , optional :: errmsg
956 logical(LK) , intent(out) , optional :: failed
957 end subroutine
958#endif
959
960#if CK1_ENABLED
961 PURE module subroutine setResizedDDDD_D2_CK1(array, failed, errmsg)
962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
963 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_CK1
964#endif
965 use pm_kind, only: CKG => CK1
966 complex(CKG) , intent(inout) , allocatable :: array(:,:)
967 character(*, SK) , intent(out) , optional :: errmsg
968 logical(LK) , intent(out) , optional :: failed
969 end subroutine
970#endif
971
972 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
973
974#if RK5_ENABLED
975 PURE module subroutine setResizedDDDD_D2_RK5(array, failed, errmsg)
976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
977 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_RK5
978#endif
979 use pm_kind, only: RKG => RK5
980 real(RKG) , intent(inout) , allocatable :: array(:,:)
981 character(*, SK) , intent(out) , optional :: errmsg
982 logical(LK) , intent(out) , optional :: failed
983 end subroutine
984#endif
985
986#if RK4_ENABLED
987 PURE module subroutine setResizedDDDD_D2_RK4(array, failed, errmsg)
988#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
989 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_RK4
990#endif
991 use pm_kind, only: RKG => RK4
992 real(RKG) , intent(inout) , allocatable :: array(:,:)
993 character(*, SK) , intent(out) , optional :: errmsg
994 logical(LK) , intent(out) , optional :: failed
995 end subroutine
996#endif
997
998#if RK3_ENABLED
999 PURE module subroutine setResizedDDDD_D2_RK3(array, failed, errmsg)
1000#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1001 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_RK3
1002#endif
1003 use pm_kind, only: RKG => RK3
1004 real(RKG) , intent(inout) , allocatable :: array(:,:)
1005 character(*, SK) , intent(out) , optional :: errmsg
1006 logical(LK) , intent(out) , optional :: failed
1007 end subroutine
1008#endif
1009
1010#if RK2_ENABLED
1011 PURE module subroutine setResizedDDDD_D2_RK2(array, failed, errmsg)
1012#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1013 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_RK2
1014#endif
1015 use pm_kind, only: RKG => RK2
1016 real(RKG) , intent(inout) , allocatable :: array(:,:)
1017 character(*, SK) , intent(out) , optional :: errmsg
1018 logical(LK) , intent(out) , optional :: failed
1019 end subroutine
1020#endif
1021
1022#if RK1_ENABLED
1023 PURE module subroutine setResizedDDDD_D2_RK1(array, failed, errmsg)
1024#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1025 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_RK1
1026#endif
1027 use pm_kind, only: RKG => RK1
1028 real(RKG) , intent(inout) , allocatable :: array(:,:)
1029 character(*, SK) , intent(out) , optional :: errmsg
1030 logical(LK) , intent(out) , optional :: failed
1031 end subroutine
1032#endif
1033
1034 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1035
1036#if PDT_ENABLED
1037
1038#if SK5_ENABLED
1039 module subroutine setResizedDDDD_D2_PSSK5(array, failed, errmsg)
1040#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1041 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_PSSK5
1042#endif
1043 use pm_kind, only: SKG => SK5
1044 use pm_container, only: css_pdt
1045 type(css_pdt(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 SK4_ENABLED
1052 module subroutine setResizedDDDD_D2_PSSK4(array, failed, errmsg)
1053#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1054 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_PSSK4
1055#endif
1056 use pm_kind, only: SKG => SK4
1057 use pm_container, only: css_pdt
1058 type(css_pdt(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 SK3_ENABLED
1065 module subroutine setResizedDDDD_D2_PSSK3(array, failed, errmsg)
1066#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1067 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_PSSK3
1068#endif
1069 use pm_kind, only: SKG => SK3
1070 use pm_container, only: css_pdt
1071 type(css_pdt(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#if SK2_ENABLED
1078 module subroutine setResizedDDDD_D2_PSSK2(array, failed, errmsg)
1079#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1080 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_PSSK2
1081#endif
1082 use pm_kind, only: SKG => SK2
1083 use pm_container, only: css_pdt
1084 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:)
1085 character(*, SK) , intent(out) , optional :: errmsg
1086 logical(LK) , intent(out) , optional :: failed
1087 end subroutine
1088#endif
1089
1090#if SK1_ENABLED
1091 module subroutine setResizedDDDD_D2_PSSK1(array, failed, errmsg)
1092#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1093 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_PSSK1
1094#endif
1095 use pm_kind, only: SKG => SK1
1096 use pm_container, only: css_pdt
1097 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:)
1098 character(*, SK) , intent(out) , optional :: errmsg
1099 logical(LK) , intent(out) , optional :: failed
1100 end subroutine
1101#endif
1102
1103#endif
1104!PDT_ENABLED
1105
1106 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1107
1108 module subroutine setResizedDDDD_D2_BSSK(array, failed, errmsg)
1109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1110 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D2_BSSK
1111#endif
1112 use pm_kind, only: SKG => SK
1113 use pm_container, only: css_type
1114 type(css_type) , intent(inout) , allocatable :: array(:,:)
1115 character(*, SK) , intent(out) , optional :: errmsg
1116 logical(LK) , intent(out) , optional :: failed
1117 end subroutine
1118
1119 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1120
1121 end interface
1122
1123 ! DDDD_D3
1124
1125 interface setResized
1126
1127 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1128
1129#if SK5_ENABLED
1130 PURE module subroutine setResizedDDDD_D3_SK5(array, failed, errmsg)
1131#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1132 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_SK5
1133#endif
1134 use pm_kind, only: SKG => SK5
1135 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
1136 character(*, SK) , intent(out) , optional :: errmsg
1137 logical(LK) , intent(out) , optional :: failed
1138 end subroutine
1139#endif
1140
1141#if SK4_ENABLED
1142 PURE module subroutine setResizedDDDD_D3_SK4(array, failed, errmsg)
1143#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1144 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_SK4
1145#endif
1146 use pm_kind, only: SKG => SK4
1147 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
1148 character(*, SK) , intent(out) , optional :: errmsg
1149 logical(LK) , intent(out) , optional :: failed
1150 end subroutine
1151#endif
1152
1153#if SK3_ENABLED
1154 PURE module subroutine setResizedDDDD_D3_SK3(array, failed, errmsg)
1155#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1156 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_SK3
1157#endif
1158 use pm_kind, only: SKG => SK3
1159 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
1160 character(*, SK) , intent(out) , optional :: errmsg
1161 logical(LK) , intent(out) , optional :: failed
1162 end subroutine
1163#endif
1164
1165#if SK2_ENABLED
1166 PURE module subroutine setResizedDDDD_D3_SK2(array, failed, errmsg)
1167#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1168 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_SK2
1169#endif
1170 use pm_kind, only: SKG => SK2
1171 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
1172 character(*, SK) , intent(out) , optional :: errmsg
1173 logical(LK) , intent(out) , optional :: failed
1174 end subroutine
1175#endif
1176
1177#if SK1_ENABLED
1178 PURE module subroutine setResizedDDDD_D3_SK1(array, failed, errmsg)
1179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1180 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_SK1
1181#endif
1182 use pm_kind, only: SKG => SK1
1183 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
1184 character(*, SK) , intent(out) , optional :: errmsg
1185 logical(LK) , intent(out) , optional :: failed
1186 end subroutine
1187#endif
1188
1189 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1190
1191#if IK5_ENABLED
1192 PURE module subroutine setResizedDDDD_D3_IK5(array, failed, errmsg)
1193#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1194 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_IK5
1195#endif
1196 use pm_kind, only: IKG => IK5
1197 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
1198 character(*, SK) , intent(out) , optional :: errmsg
1199 logical(LK) , intent(out) , optional :: failed
1200 end subroutine
1201#endif
1202
1203#if IK4_ENABLED
1204 PURE module subroutine setResizedDDDD_D3_IK4(array, failed, errmsg)
1205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1206 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_IK4
1207#endif
1208 use pm_kind, only: IKG => IK4
1209 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
1210 character(*, SK) , intent(out) , optional :: errmsg
1211 logical(LK) , intent(out) , optional :: failed
1212 end subroutine
1213#endif
1214
1215#if IK3_ENABLED
1216 PURE module subroutine setResizedDDDD_D3_IK3(array, failed, errmsg)
1217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1218 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_IK3
1219#endif
1220 use pm_kind, only: IKG => IK3
1221 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
1222 character(*, SK) , intent(out) , optional :: errmsg
1223 logical(LK) , intent(out) , optional :: failed
1224 end subroutine
1225#endif
1226
1227#if IK2_ENABLED
1228 PURE module subroutine setResizedDDDD_D3_IK2(array, failed, errmsg)
1229#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1230 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_IK2
1231#endif
1232 use pm_kind, only: IKG => IK2
1233 integer(IKG) , 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 IK1_ENABLED
1240 PURE module subroutine setResizedDDDD_D3_IK1(array, failed, errmsg)
1241#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1242 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_IK1
1243#endif
1244 use pm_kind, only: IKG => IK1
1245 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
1246 character(*, SK) , intent(out) , optional :: errmsg
1247 logical(LK) , intent(out) , optional :: failed
1248 end subroutine
1249#endif
1250
1251 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1252
1253#if LK5_ENABLED
1254 PURE module subroutine setResizedDDDD_D3_LK5(array, failed, errmsg)
1255#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1256 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_LK5
1257#endif
1258 use pm_kind, only: LKG => LK5
1259 logical(LKG) , 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 LK4_ENABLED
1266 PURE module subroutine setResizedDDDD_D3_LK4(array, failed, errmsg)
1267#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1268 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_LK4
1269#endif
1270 use pm_kind, only: LKG => LK4
1271 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1272 character(*, SK) , intent(out) , optional :: errmsg
1273 logical(LK) , intent(out) , optional :: failed
1274 end subroutine
1275#endif
1276
1277#if LK3_ENABLED
1278 PURE module subroutine setResizedDDDD_D3_LK3(array, failed, errmsg)
1279#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1280 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_LK3
1281#endif
1282 use pm_kind, only: LKG => LK3
1283 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1284 character(*, SK) , intent(out) , optional :: errmsg
1285 logical(LK) , intent(out) , optional :: failed
1286 end subroutine
1287#endif
1288
1289#if LK2_ENABLED
1290 PURE module subroutine setResizedDDDD_D3_LK2(array, failed, errmsg)
1291#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1292 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_LK2
1293#endif
1294 use pm_kind, only: LKG => LK2
1295 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1296 character(*, SK) , intent(out) , optional :: errmsg
1297 logical(LK) , intent(out) , optional :: failed
1298 end subroutine
1299#endif
1300
1301#if LK1_ENABLED
1302 PURE module subroutine setResizedDDDD_D3_LK1(array, failed, errmsg)
1303#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1304 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_LK1
1305#endif
1306 use pm_kind, only: LKG => LK1
1307 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
1308 character(*, SK) , intent(out) , optional :: errmsg
1309 logical(LK) , intent(out) , optional :: failed
1310 end subroutine
1311#endif
1312
1313 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1314
1315#if CK5_ENABLED
1316 PURE module subroutine setResizedDDDD_D3_CK5(array, failed, errmsg)
1317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1318 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_CK5
1319#endif
1320 use pm_kind, only: CKG => CK5
1321 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1322 character(*, SK) , intent(out) , optional :: errmsg
1323 logical(LK) , intent(out) , optional :: failed
1324 end subroutine
1325#endif
1326
1327#if CK4_ENABLED
1328 PURE module subroutine setResizedDDDD_D3_CK4(array, failed, errmsg)
1329#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1330 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_CK4
1331#endif
1332 use pm_kind, only: CKG => CK4
1333 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1334 character(*, SK) , intent(out) , optional :: errmsg
1335 logical(LK) , intent(out) , optional :: failed
1336 end subroutine
1337#endif
1338
1339#if CK3_ENABLED
1340 PURE module subroutine setResizedDDDD_D3_CK3(array, failed, errmsg)
1341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1342 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_CK3
1343#endif
1344 use pm_kind, only: CKG => CK3
1345 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1346 character(*, SK) , intent(out) , optional :: errmsg
1347 logical(LK) , intent(out) , optional :: failed
1348 end subroutine
1349#endif
1350
1351#if CK2_ENABLED
1352 PURE module subroutine setResizedDDDD_D3_CK2(array, failed, errmsg)
1353#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1354 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_CK2
1355#endif
1356 use pm_kind, only: CKG => CK2
1357 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1358 character(*, SK) , intent(out) , optional :: errmsg
1359 logical(LK) , intent(out) , optional :: failed
1360 end subroutine
1361#endif
1362
1363#if CK1_ENABLED
1364 PURE module subroutine setResizedDDDD_D3_CK1(array, failed, errmsg)
1365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1366 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_CK1
1367#endif
1368 use pm_kind, only: CKG => CK1
1369 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
1370 character(*, SK) , intent(out) , optional :: errmsg
1371 logical(LK) , intent(out) , optional :: failed
1372 end subroutine
1373#endif
1374
1375 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1376
1377#if RK5_ENABLED
1378 PURE module subroutine setResizedDDDD_D3_RK5(array, failed, errmsg)
1379#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1380 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_RK5
1381#endif
1382 use pm_kind, only: RKG => RK5
1383 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1384 character(*, SK) , intent(out) , optional :: errmsg
1385 logical(LK) , intent(out) , optional :: failed
1386 end subroutine
1387#endif
1388
1389#if RK4_ENABLED
1390 PURE module subroutine setResizedDDDD_D3_RK4(array, failed, errmsg)
1391#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1392 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_RK4
1393#endif
1394 use pm_kind, only: RKG => RK4
1395 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1396 character(*, SK) , intent(out) , optional :: errmsg
1397 logical(LK) , intent(out) , optional :: failed
1398 end subroutine
1399#endif
1400
1401#if RK3_ENABLED
1402 PURE module subroutine setResizedDDDD_D3_RK3(array, failed, errmsg)
1403#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1404 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_RK3
1405#endif
1406 use pm_kind, only: RKG => RK3
1407 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1408 character(*, SK) , intent(out) , optional :: errmsg
1409 logical(LK) , intent(out) , optional :: failed
1410 end subroutine
1411#endif
1412
1413#if RK2_ENABLED
1414 PURE module subroutine setResizedDDDD_D3_RK2(array, failed, errmsg)
1415#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1416 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_RK2
1417#endif
1418 use pm_kind, only: RKG => RK2
1419 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1420 character(*, SK) , intent(out) , optional :: errmsg
1421 logical(LK) , intent(out) , optional :: failed
1422 end subroutine
1423#endif
1424
1425#if RK1_ENABLED
1426 PURE module subroutine setResizedDDDD_D3_RK1(array, failed, errmsg)
1427#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1428 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_RK1
1429#endif
1430 use pm_kind, only: RKG => RK1
1431 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
1432 character(*, SK) , intent(out) , optional :: errmsg
1433 logical(LK) , intent(out) , optional :: failed
1434 end subroutine
1435#endif
1436
1437 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1438
1439#if PDT_ENABLED
1440
1441#if SK5_ENABLED
1442 module subroutine setResizedDDDD_D3_PSSK5(array, failed, errmsg)
1443#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1444 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_PSSK5
1445#endif
1446 use pm_kind, only: SKG => SK5
1447 use pm_container, only: css_pdt
1448 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
1449 character(*, SK) , intent(out) , optional :: errmsg
1450 logical(LK) , intent(out) , optional :: failed
1451 end subroutine
1452#endif
1453
1454#if SK4_ENABLED
1455 module subroutine setResizedDDDD_D3_PSSK4(array, failed, errmsg)
1456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1457 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_PSSK4
1458#endif
1459 use pm_kind, only: SKG => SK4
1460 use pm_container, only: css_pdt
1461 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
1462 character(*, SK) , intent(out) , optional :: errmsg
1463 logical(LK) , intent(out) , optional :: failed
1464 end subroutine
1465#endif
1466
1467#if SK3_ENABLED
1468 module subroutine setResizedDDDD_D3_PSSK3(array, failed, errmsg)
1469#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1470 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_PSSK3
1471#endif
1472 use pm_kind, only: SKG => SK3
1473 use pm_container, only: css_pdt
1474 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
1475 character(*, SK) , intent(out) , optional :: errmsg
1476 logical(LK) , intent(out) , optional :: failed
1477 end subroutine
1478#endif
1479
1480#if SK2_ENABLED
1481 module subroutine setResizedDDDD_D3_PSSK2(array, failed, errmsg)
1482#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1483 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_PSSK2
1484#endif
1485 use pm_kind, only: SKG => SK2
1486 use pm_container, only: css_pdt
1487 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
1488 character(*, SK) , intent(out) , optional :: errmsg
1489 logical(LK) , intent(out) , optional :: failed
1490 end subroutine
1491#endif
1492
1493#if SK1_ENABLED
1494 module subroutine setResizedDDDD_D3_PSSK1(array, failed, errmsg)
1495#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1496 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_PSSK1
1497#endif
1498 use pm_kind, only: SKG => SK1
1499 use pm_container, only: css_pdt
1500 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
1501 character(*, SK) , intent(out) , optional :: errmsg
1502 logical(LK) , intent(out) , optional :: failed
1503 end subroutine
1504#endif
1505
1506#endif
1507!PDT_ENABLED
1508
1509 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1510
1511 module subroutine setResizedDDDD_D3_BSSK(array, failed, errmsg)
1512#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1513 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedDDDD_D3_BSSK
1514#endif
1515 use pm_kind, only: SKG => SK
1516 use pm_container, only: css_type
1517 type(css_type) , intent(inout) , allocatable :: array(:,:,:)
1518 character(*, SK) , intent(out) , optional :: errmsg
1519 logical(LK) , intent(out) , optional :: failed
1520 end subroutine
1521
1522 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1523
1524 end interface
1525
1526 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1527
1528 ! SDDD_D0
1529
1530 interface setResized
1531
1532 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1533
1534#if SK5_ENABLED
1535 PURE module subroutine setResizedSDDD_D0_SK5(array, size, failed, errmsg)
1536#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1537 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D0_SK5
1538#endif
1539 use pm_kind, only: SKG => SK5
1540 character(:,SKG) , intent(inout) , allocatable :: array
1541 integer(IK) , intent(in) :: size
1542 character(*, SK) , intent(out) , optional :: errmsg
1543 logical(LK) , intent(out) , optional :: failed
1544 end subroutine
1545#endif
1546
1547#if SK4_ENABLED
1548 PURE module subroutine setResizedSDDD_D0_SK4(array, size, failed, errmsg)
1549#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1550 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D0_SK4
1551#endif
1552 use pm_kind, only: SKG => SK4
1553 character(:,SKG) , intent(inout) , allocatable :: array
1554 integer(IK) , intent(in) :: size
1555 character(*, SK) , intent(out) , optional :: errmsg
1556 logical(LK) , intent(out) , optional :: failed
1557 end subroutine
1558#endif
1559
1560#if SK3_ENABLED
1561 PURE module subroutine setResizedSDDD_D0_SK3(array, size, failed, errmsg)
1562#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1563 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D0_SK3
1564#endif
1565 use pm_kind, only: SKG => SK3
1566 character(:,SKG) , intent(inout) , allocatable :: array
1567 integer(IK) , intent(in) :: size
1568 character(*, SK) , intent(out) , optional :: errmsg
1569 logical(LK) , intent(out) , optional :: failed
1570 end subroutine
1571#endif
1572
1573#if SK2_ENABLED
1574 PURE module subroutine setResizedSDDD_D0_SK2(array, size, failed, errmsg)
1575#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1576 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D0_SK2
1577#endif
1578 use pm_kind, only: SKG => SK2
1579 character(:,SKG) , intent(inout) , allocatable :: array
1580 integer(IK) , intent(in) :: size
1581 character(*, SK) , intent(out) , optional :: errmsg
1582 logical(LK) , intent(out) , optional :: failed
1583 end subroutine
1584#endif
1585
1586#if SK1_ENABLED
1587 PURE module subroutine setResizedSDDD_D0_SK1(array, size, failed, errmsg)
1588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1589 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D0_SK1
1590#endif
1591 use pm_kind, only: SKG => SK1
1592 character(:,SKG) , intent(inout) , allocatable :: array
1593 integer(IK) , intent(in) :: size
1594 character(*, SK) , intent(out) , optional :: errmsg
1595 logical(LK) , intent(out) , optional :: failed
1596 end subroutine
1597#endif
1598
1599 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1600
1601 end interface
1602
1603 ! SDDD_D1
1604
1605 interface setResized
1606
1607 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1608
1609#if SK5_ENABLED
1610 PURE module subroutine setResizedSDDD_D1_SK5(array, size, failed, errmsg)
1611#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1612 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_SK5
1613#endif
1614 use pm_kind, only: SKG => SK5
1615 character(*,SKG) , intent(inout) , allocatable :: array(:)
1616 integer(IK) , intent(in) :: size
1617 character(*, SK) , intent(out) , optional :: errmsg
1618 logical(LK) , intent(out) , optional :: failed
1619 end subroutine
1620#endif
1621
1622#if SK4_ENABLED
1623 PURE module subroutine setResizedSDDD_D1_SK4(array, size, failed, errmsg)
1624#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1625 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_SK4
1626#endif
1627 use pm_kind, only: SKG => SK4
1628 character(*,SKG) , 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 SK3_ENABLED
1636 PURE module subroutine setResizedSDDD_D1_SK3(array, size, failed, errmsg)
1637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1638 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_SK3
1639#endif
1640 use pm_kind, only: SKG => SK3
1641 character(*,SKG) , intent(inout) , allocatable :: array(:)
1642 integer(IK) , intent(in) :: size
1643 character(*, SK) , intent(out) , optional :: errmsg
1644 logical(LK) , intent(out) , optional :: failed
1645 end subroutine
1646#endif
1647
1648#if SK2_ENABLED
1649 PURE module subroutine setResizedSDDD_D1_SK2(array, size, failed, errmsg)
1650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1651 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_SK2
1652#endif
1653 use pm_kind, only: SKG => SK2
1654 character(*,SKG) , intent(inout) , allocatable :: array(:)
1655 integer(IK) , intent(in) :: size
1656 character(*, SK) , intent(out) , optional :: errmsg
1657 logical(LK) , intent(out) , optional :: failed
1658 end subroutine
1659#endif
1660
1661#if SK1_ENABLED
1662 PURE module subroutine setResizedSDDD_D1_SK1(array, size, failed, errmsg)
1663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1664 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_SK1
1665#endif
1666 use pm_kind, only: SKG => SK1
1667 character(*,SKG) , intent(inout) , allocatable :: array(:)
1668 integer(IK) , intent(in) :: size
1669 character(*, SK) , intent(out) , optional :: errmsg
1670 logical(LK) , intent(out) , optional :: failed
1671 end subroutine
1672#endif
1673
1674 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1675
1676#if IK5_ENABLED
1677 PURE module subroutine setResizedSDDD_D1_IK5(array, size, failed, errmsg)
1678#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1679 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_IK5
1680#endif
1681 use pm_kind, only: IKG => IK5
1682 integer(IKG) , intent(inout) , allocatable :: array(:)
1683 integer(IK) , intent(in) :: size
1684 character(*, SK) , intent(out) , optional :: errmsg
1685 logical(LK) , intent(out) , optional :: failed
1686 end subroutine
1687#endif
1688
1689#if IK4_ENABLED
1690 PURE module subroutine setResizedSDDD_D1_IK4(array, size, failed, errmsg)
1691#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1692 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_IK4
1693#endif
1694 use pm_kind, only: IKG => IK4
1695 integer(IKG) , intent(inout) , allocatable :: array(:)
1696 integer(IK) , intent(in) :: size
1697 character(*, SK) , intent(out) , optional :: errmsg
1698 logical(LK) , intent(out) , optional :: failed
1699 end subroutine
1700#endif
1701
1702#if IK3_ENABLED
1703 PURE module subroutine setResizedSDDD_D1_IK3(array, size, failed, errmsg)
1704#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1705 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_IK3
1706#endif
1707 use pm_kind, only: IKG => IK3
1708 integer(IKG) , intent(inout) , allocatable :: array(:)
1709 integer(IK) , intent(in) :: size
1710 character(*, SK) , intent(out) , optional :: errmsg
1711 logical(LK) , intent(out) , optional :: failed
1712 end subroutine
1713#endif
1714
1715#if IK2_ENABLED
1716 PURE module subroutine setResizedSDDD_D1_IK2(array, size, failed, errmsg)
1717#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1718 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_IK2
1719#endif
1720 use pm_kind, only: IKG => IK2
1721 integer(IKG) , intent(inout) , allocatable :: array(:)
1722 integer(IK) , intent(in) :: size
1723 character(*, SK) , intent(out) , optional :: errmsg
1724 logical(LK) , intent(out) , optional :: failed
1725 end subroutine
1726#endif
1727
1728#if IK1_ENABLED
1729 PURE module subroutine setResizedSDDD_D1_IK1(array, size, failed, errmsg)
1730#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1731 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_IK1
1732#endif
1733 use pm_kind, only: IKG => IK1
1734 integer(IKG) , intent(inout) , allocatable :: array(:)
1735 integer(IK) , intent(in) :: size
1736 character(*, SK) , intent(out) , optional :: errmsg
1737 logical(LK) , intent(out) , optional :: failed
1738 end subroutine
1739#endif
1740
1741 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1742
1743#if LK5_ENABLED
1744 PURE module subroutine setResizedSDDD_D1_LK5(array, size, failed, errmsg)
1745#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1746 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_LK5
1747#endif
1748 use pm_kind, only: LKG => LK5
1749 logical(LKG) , intent(inout) , allocatable :: array(:)
1750 integer(IK) , intent(in) :: size
1751 character(*, SK) , intent(out) , optional :: errmsg
1752 logical(LK) , intent(out) , optional :: failed
1753 end subroutine
1754#endif
1755
1756#if LK4_ENABLED
1757 PURE module subroutine setResizedSDDD_D1_LK4(array, size, failed, errmsg)
1758#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1759 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_LK4
1760#endif
1761 use pm_kind, only: LKG => LK4
1762 logical(LKG) , intent(inout) , allocatable :: array(:)
1763 integer(IK) , intent(in) :: size
1764 character(*, SK) , intent(out) , optional :: errmsg
1765 logical(LK) , intent(out) , optional :: failed
1766 end subroutine
1767#endif
1768
1769#if LK3_ENABLED
1770 PURE module subroutine setResizedSDDD_D1_LK3(array, size, failed, errmsg)
1771#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1772 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_LK3
1773#endif
1774 use pm_kind, only: LKG => LK3
1775 logical(LKG) , intent(inout) , allocatable :: array(:)
1776 integer(IK) , intent(in) :: size
1777 character(*, SK) , intent(out) , optional :: errmsg
1778 logical(LK) , intent(out) , optional :: failed
1779 end subroutine
1780#endif
1781
1782#if LK2_ENABLED
1783 PURE module subroutine setResizedSDDD_D1_LK2(array, size, failed, errmsg)
1784#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1785 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_LK2
1786#endif
1787 use pm_kind, only: LKG => LK2
1788 logical(LKG) , intent(inout) , allocatable :: array(:)
1789 integer(IK) , intent(in) :: size
1790 character(*, SK) , intent(out) , optional :: errmsg
1791 logical(LK) , intent(out) , optional :: failed
1792 end subroutine
1793#endif
1794
1795#if LK1_ENABLED
1796 PURE module subroutine setResizedSDDD_D1_LK1(array, size, failed, errmsg)
1797#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1798 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_LK1
1799#endif
1800 use pm_kind, only: LKG => LK1
1801 logical(LKG) , intent(inout) , allocatable :: array(:)
1802 integer(IK) , intent(in) :: size
1803 character(*, SK) , intent(out) , optional :: errmsg
1804 logical(LK) , intent(out) , optional :: failed
1805 end subroutine
1806#endif
1807
1808 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1809
1810#if CK5_ENABLED
1811 PURE module subroutine setResizedSDDD_D1_CK5(array, size, failed, errmsg)
1812#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1813 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_CK5
1814#endif
1815 use pm_kind, only: CKG => CK5
1816 complex(CKG) , intent(inout) , allocatable :: array(:)
1817 integer(IK) , intent(in) :: size
1818 character(*, SK) , intent(out) , optional :: errmsg
1819 logical(LK) , intent(out) , optional :: failed
1820 end subroutine
1821#endif
1822
1823#if CK4_ENABLED
1824 PURE module subroutine setResizedSDDD_D1_CK4(array, size, failed, errmsg)
1825#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1826 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_CK4
1827#endif
1828 use pm_kind, only: CKG => CK4
1829 complex(CKG) , intent(inout) , allocatable :: array(:)
1830 integer(IK) , intent(in) :: size
1831 character(*, SK) , intent(out) , optional :: errmsg
1832 logical(LK) , intent(out) , optional :: failed
1833 end subroutine
1834#endif
1835
1836#if CK3_ENABLED
1837 PURE module subroutine setResizedSDDD_D1_CK3(array, size, failed, errmsg)
1838#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1839 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_CK3
1840#endif
1841 use pm_kind, only: CKG => CK3
1842 complex(CKG) , intent(inout) , allocatable :: array(:)
1843 integer(IK) , intent(in) :: size
1844 character(*, SK) , intent(out) , optional :: errmsg
1845 logical(LK) , intent(out) , optional :: failed
1846 end subroutine
1847#endif
1848
1849#if CK2_ENABLED
1850 PURE module subroutine setResizedSDDD_D1_CK2(array, size, failed, errmsg)
1851#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1852 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_CK2
1853#endif
1854 use pm_kind, only: CKG => CK2
1855 complex(CKG) , intent(inout) , allocatable :: array(:)
1856 integer(IK) , intent(in) :: size
1857 character(*, SK) , intent(out) , optional :: errmsg
1858 logical(LK) , intent(out) , optional :: failed
1859 end subroutine
1860#endif
1861
1862#if CK1_ENABLED
1863 PURE module subroutine setResizedSDDD_D1_CK1(array, size, failed, errmsg)
1864#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1865 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_CK1
1866#endif
1867 use pm_kind, only: CKG => CK1
1868 complex(CKG) , intent(inout) , allocatable :: array(:)
1869 integer(IK) , intent(in) :: size
1870 character(*, SK) , intent(out) , optional :: errmsg
1871 logical(LK) , intent(out) , optional :: failed
1872 end subroutine
1873#endif
1874
1875 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1876
1877#if RK5_ENABLED
1878 PURE module subroutine setResizedSDDD_D1_RK5(array, size, failed, errmsg)
1879#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1880 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_RK5
1881#endif
1882 use pm_kind, only: RKG => RK5
1883 real(RKG) , intent(inout) , allocatable :: array(:)
1884 integer(IK) , intent(in) :: size
1885 character(*, SK) , intent(out) , optional :: errmsg
1886 logical(LK) , intent(out) , optional :: failed
1887 end subroutine
1888#endif
1889
1890#if RK4_ENABLED
1891 PURE module subroutine setResizedSDDD_D1_RK4(array, size, failed, errmsg)
1892#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1893 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_RK4
1894#endif
1895 use pm_kind, only: RKG => RK4
1896 real(RKG) , intent(inout) , allocatable :: array(:)
1897 integer(IK) , intent(in) :: size
1898 character(*, SK) , intent(out) , optional :: errmsg
1899 logical(LK) , intent(out) , optional :: failed
1900 end subroutine
1901#endif
1902
1903#if RK3_ENABLED
1904 PURE module subroutine setResizedSDDD_D1_RK3(array, size, failed, errmsg)
1905#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1906 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_RK3
1907#endif
1908 use pm_kind, only: RKG => RK3
1909 real(RKG) , intent(inout) , allocatable :: array(:)
1910 integer(IK) , intent(in) :: size
1911 character(*, SK) , intent(out) , optional :: errmsg
1912 logical(LK) , intent(out) , optional :: failed
1913 end subroutine
1914#endif
1915
1916#if RK2_ENABLED
1917 PURE module subroutine setResizedSDDD_D1_RK2(array, size, failed, errmsg)
1918#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1919 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_RK2
1920#endif
1921 use pm_kind, only: RKG => RK2
1922 real(RKG) , intent(inout) , allocatable :: array(:)
1923 integer(IK) , intent(in) :: size
1924 character(*, SK) , intent(out) , optional :: errmsg
1925 logical(LK) , intent(out) , optional :: failed
1926 end subroutine
1927#endif
1928
1929#if RK1_ENABLED
1930 PURE module subroutine setResizedSDDD_D1_RK1(array, size, failed, errmsg)
1931#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1932 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_RK1
1933#endif
1934 use pm_kind, only: RKG => RK1
1935 real(RKG) , intent(inout) , allocatable :: array(:)
1936 integer(IK) , intent(in) :: size
1937 character(*, SK) , intent(out) , optional :: errmsg
1938 logical(LK) , intent(out) , optional :: failed
1939 end subroutine
1940#endif
1941
1942 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1943
1944#if PDT_ENABLED
1945
1946#if SK5_ENABLED
1947 module subroutine setResizedSDDD_D1_PSSK5(array, size, failed, errmsg)
1948#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1949 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_PSSK5
1950#endif
1951 use pm_kind, only: SKG => SK5
1952 use pm_container, only: css_pdt
1953 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
1954 integer(IK) , intent(in) :: size
1955 character(*, SK) , intent(out) , optional :: errmsg
1956 logical(LK) , intent(out) , optional :: failed
1957 end subroutine
1958#endif
1959
1960#if SK4_ENABLED
1961 module subroutine setResizedSDDD_D1_PSSK4(array, size, failed, errmsg)
1962#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1963 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_PSSK4
1964#endif
1965 use pm_kind, only: SKG => SK4
1966 use pm_container, only: css_pdt
1967 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
1968 integer(IK) , intent(in) :: size
1969 character(*, SK) , intent(out) , optional :: errmsg
1970 logical(LK) , intent(out) , optional :: failed
1971 end subroutine
1972#endif
1973
1974#if SK3_ENABLED
1975 module subroutine setResizedSDDD_D1_PSSK3(array, size, failed, errmsg)
1976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1977 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_PSSK3
1978#endif
1979 use pm_kind, only: SKG => SK3
1980 use pm_container, only: css_pdt
1981 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
1982 integer(IK) , intent(in) :: size
1983 character(*, SK) , intent(out) , optional :: errmsg
1984 logical(LK) , intent(out) , optional :: failed
1985 end subroutine
1986#endif
1987
1988#if SK2_ENABLED
1989 module subroutine setResizedSDDD_D1_PSSK2(array, size, failed, errmsg)
1990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
1991 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_PSSK2
1992#endif
1993 use pm_kind, only: SKG => SK2
1994 use pm_container, only: css_pdt
1995 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
1996 integer(IK) , intent(in) :: size
1997 character(*, SK) , intent(out) , optional :: errmsg
1998 logical(LK) , intent(out) , optional :: failed
1999 end subroutine
2000#endif
2001
2002#if SK1_ENABLED
2003 module subroutine setResizedSDDD_D1_PSSK1(array, size, failed, errmsg)
2004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2005 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_PSSK1
2006#endif
2007 use pm_kind, only: SKG => SK1
2008 use pm_container, only: css_pdt
2009 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
2010 integer(IK) , intent(in) :: size
2011 character(*, SK) , intent(out) , optional :: errmsg
2012 logical(LK) , intent(out) , optional :: failed
2013 end subroutine
2014#endif
2015
2016#endif
2017!PDT_ENABLED
2018
2019 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2020
2021 module subroutine setResizedSDDD_D1_BSSK(array, size, failed, errmsg)
2022#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2023 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D1_BSSK
2024#endif
2025 use pm_kind, only: SKG => SK
2026 use pm_container, only: css_type
2027 type(css_type) , intent(inout) , allocatable :: array(:)
2028 integer(IK) , intent(in) :: size
2029 character(*, SK) , intent(out) , optional :: errmsg
2030 logical(LK) , intent(out) , optional :: failed
2031 end subroutine
2032
2033 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2034
2035 end interface
2036
2037 ! SDDD_D2
2038
2039 interface setResized
2040
2041 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2042
2043#if SK5_ENABLED
2044 PURE module subroutine setResizedSDDD_D2_SK5(array, size, failed, errmsg)
2045#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2046 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_SK5
2047#endif
2048 use pm_kind, only: SKG => SK5
2049 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
2050 integer(IK) , intent(in) , dimension(2) :: size
2051 character(*, SK) , intent(out) , optional :: errmsg
2052 logical(LK) , intent(out) , optional :: failed
2053 end subroutine
2054#endif
2055
2056#if SK4_ENABLED
2057 PURE module subroutine setResizedSDDD_D2_SK4(array, size, failed, errmsg)
2058#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2059 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_SK4
2060#endif
2061 use pm_kind, only: SKG => SK4
2062 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
2063 integer(IK) , intent(in) , dimension(2) :: size
2064 character(*, SK) , intent(out) , optional :: errmsg
2065 logical(LK) , intent(out) , optional :: failed
2066 end subroutine
2067#endif
2068
2069#if SK3_ENABLED
2070 PURE module subroutine setResizedSDDD_D2_SK3(array, size, failed, errmsg)
2071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2072 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_SK3
2073#endif
2074 use pm_kind, only: SKG => SK3
2075 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
2076 integer(IK) , intent(in) , dimension(2) :: size
2077 character(*, SK) , intent(out) , optional :: errmsg
2078 logical(LK) , intent(out) , optional :: failed
2079 end subroutine
2080#endif
2081
2082#if SK2_ENABLED
2083 PURE module subroutine setResizedSDDD_D2_SK2(array, size, failed, errmsg)
2084#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2085 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_SK2
2086#endif
2087 use pm_kind, only: SKG => SK2
2088 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
2089 integer(IK) , intent(in) , dimension(2) :: size
2090 character(*, SK) , intent(out) , optional :: errmsg
2091 logical(LK) , intent(out) , optional :: failed
2092 end subroutine
2093#endif
2094
2095#if SK1_ENABLED
2096 PURE module subroutine setResizedSDDD_D2_SK1(array, size, failed, errmsg)
2097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2098 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_SK1
2099#endif
2100 use pm_kind, only: SKG => SK1
2101 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
2102 integer(IK) , intent(in) , dimension(2) :: size
2103 character(*, SK) , intent(out) , optional :: errmsg
2104 logical(LK) , intent(out) , optional :: failed
2105 end subroutine
2106#endif
2107
2108 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2109
2110#if IK5_ENABLED
2111 PURE module subroutine setResizedSDDD_D2_IK5(array, size, failed, errmsg)
2112#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2113 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_IK5
2114#endif
2115 use pm_kind, only: IKG => IK5
2116 integer(IKG) , intent(inout) , allocatable :: array(:,:)
2117 integer(IK) , intent(in) , dimension(2) :: size
2118 character(*, SK) , intent(out) , optional :: errmsg
2119 logical(LK) , intent(out) , optional :: failed
2120 end subroutine
2121#endif
2122
2123#if IK4_ENABLED
2124 PURE module subroutine setResizedSDDD_D2_IK4(array, size, failed, errmsg)
2125#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2126 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_IK4
2127#endif
2128 use pm_kind, only: IKG => IK4
2129 integer(IKG) , intent(inout) , allocatable :: array(:,:)
2130 integer(IK) , intent(in) , dimension(2) :: size
2131 character(*, SK) , intent(out) , optional :: errmsg
2132 logical(LK) , intent(out) , optional :: failed
2133 end subroutine
2134#endif
2135
2136#if IK3_ENABLED
2137 PURE module subroutine setResizedSDDD_D2_IK3(array, size, failed, errmsg)
2138#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2139 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_IK3
2140#endif
2141 use pm_kind, only: IKG => IK3
2142 integer(IKG) , intent(inout) , allocatable :: array(:,:)
2143 integer(IK) , intent(in) , dimension(2) :: size
2144 character(*, SK) , intent(out) , optional :: errmsg
2145 logical(LK) , intent(out) , optional :: failed
2146 end subroutine
2147#endif
2148
2149#if IK2_ENABLED
2150 PURE module subroutine setResizedSDDD_D2_IK2(array, size, failed, errmsg)
2151#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2152 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_IK2
2153#endif
2154 use pm_kind, only: IKG => IK2
2155 integer(IKG) , intent(inout) , allocatable :: array(:,:)
2156 integer(IK) , intent(in) , dimension(2) :: size
2157 character(*, SK) , intent(out) , optional :: errmsg
2158 logical(LK) , intent(out) , optional :: failed
2159 end subroutine
2160#endif
2161
2162#if IK1_ENABLED
2163 PURE module subroutine setResizedSDDD_D2_IK1(array, size, failed, errmsg)
2164#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2165 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_IK1
2166#endif
2167 use pm_kind, only: IKG => IK1
2168 integer(IKG) , intent(inout) , allocatable :: array(:,:)
2169 integer(IK) , intent(in) , dimension(2) :: size
2170 character(*, SK) , intent(out) , optional :: errmsg
2171 logical(LK) , intent(out) , optional :: failed
2172 end subroutine
2173#endif
2174
2175 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2176
2177#if LK5_ENABLED
2178 PURE module subroutine setResizedSDDD_D2_LK5(array, size, failed, errmsg)
2179#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2180 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_LK5
2181#endif
2182 use pm_kind, only: LKG => LK5
2183 logical(LKG) , intent(inout) , allocatable :: array(:,:)
2184 integer(IK) , intent(in) , dimension(2) :: size
2185 character(*, SK) , intent(out) , optional :: errmsg
2186 logical(LK) , intent(out) , optional :: failed
2187 end subroutine
2188#endif
2189
2190#if LK4_ENABLED
2191 PURE module subroutine setResizedSDDD_D2_LK4(array, size, failed, errmsg)
2192#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2193 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_LK4
2194#endif
2195 use pm_kind, only: LKG => LK4
2196 logical(LKG) , intent(inout) , allocatable :: array(:,:)
2197 integer(IK) , intent(in) , dimension(2) :: size
2198 character(*, SK) , intent(out) , optional :: errmsg
2199 logical(LK) , intent(out) , optional :: failed
2200 end subroutine
2201#endif
2202
2203#if LK3_ENABLED
2204 PURE module subroutine setResizedSDDD_D2_LK3(array, size, failed, errmsg)
2205#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2206 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_LK3
2207#endif
2208 use pm_kind, only: LKG => LK3
2209 logical(LKG) , intent(inout) , allocatable :: array(:,:)
2210 integer(IK) , intent(in) , dimension(2) :: size
2211 character(*, SK) , intent(out) , optional :: errmsg
2212 logical(LK) , intent(out) , optional :: failed
2213 end subroutine
2214#endif
2215
2216#if LK2_ENABLED
2217 PURE module subroutine setResizedSDDD_D2_LK2(array, size, failed, errmsg)
2218#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2219 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_LK2
2220#endif
2221 use pm_kind, only: LKG => LK2
2222 logical(LKG) , intent(inout) , allocatable :: array(:,:)
2223 integer(IK) , intent(in) , dimension(2) :: size
2224 character(*, SK) , intent(out) , optional :: errmsg
2225 logical(LK) , intent(out) , optional :: failed
2226 end subroutine
2227#endif
2228
2229#if LK1_ENABLED
2230 PURE module subroutine setResizedSDDD_D2_LK1(array, size, failed, errmsg)
2231#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2232 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_LK1
2233#endif
2234 use pm_kind, only: LKG => LK1
2235 logical(LKG) , intent(inout) , allocatable :: array(:,:)
2236 integer(IK) , intent(in) , dimension(2) :: size
2237 character(*, SK) , intent(out) , optional :: errmsg
2238 logical(LK) , intent(out) , optional :: failed
2239 end subroutine
2240#endif
2241
2242 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2243
2244#if CK5_ENABLED
2245 PURE module subroutine setResizedSDDD_D2_CK5(array, size, failed, errmsg)
2246#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2247 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_CK5
2248#endif
2249 use pm_kind, only: CKG => CK5
2250 complex(CKG) , intent(inout) , allocatable :: array(:,:)
2251 integer(IK) , intent(in) , dimension(2) :: size
2252 character(*, SK) , intent(out) , optional :: errmsg
2253 logical(LK) , intent(out) , optional :: failed
2254 end subroutine
2255#endif
2256
2257#if CK4_ENABLED
2258 PURE module subroutine setResizedSDDD_D2_CK4(array, size, failed, errmsg)
2259#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2260 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_CK4
2261#endif
2262 use pm_kind, only: CKG => CK4
2263 complex(CKG) , intent(inout) , allocatable :: array(:,:)
2264 integer(IK) , intent(in) , dimension(2) :: size
2265 character(*, SK) , intent(out) , optional :: errmsg
2266 logical(LK) , intent(out) , optional :: failed
2267 end subroutine
2268#endif
2269
2270#if CK3_ENABLED
2271 PURE module subroutine setResizedSDDD_D2_CK3(array, size, failed, errmsg)
2272#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2273 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_CK3
2274#endif
2275 use pm_kind, only: CKG => CK3
2276 complex(CKG) , intent(inout) , allocatable :: array(:,:)
2277 integer(IK) , intent(in) , dimension(2) :: size
2278 character(*, SK) , intent(out) , optional :: errmsg
2279 logical(LK) , intent(out) , optional :: failed
2280 end subroutine
2281#endif
2282
2283#if CK2_ENABLED
2284 PURE module subroutine setResizedSDDD_D2_CK2(array, size, failed, errmsg)
2285#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2286 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_CK2
2287#endif
2288 use pm_kind, only: CKG => CK2
2289 complex(CKG) , intent(inout) , allocatable :: array(:,:)
2290 integer(IK) , intent(in) , dimension(2) :: size
2291 character(*, SK) , intent(out) , optional :: errmsg
2292 logical(LK) , intent(out) , optional :: failed
2293 end subroutine
2294#endif
2295
2296#if CK1_ENABLED
2297 PURE module subroutine setResizedSDDD_D2_CK1(array, size, failed, errmsg)
2298#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2299 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_CK1
2300#endif
2301 use pm_kind, only: CKG => CK1
2302 complex(CKG) , intent(inout) , allocatable :: array(:,:)
2303 integer(IK) , intent(in) , dimension(2) :: 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 RK5_ENABLED
2312 PURE module subroutine setResizedSDDD_D2_RK5(array, size, failed, errmsg)
2313#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2314 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_RK5
2315#endif
2316 use pm_kind, only: RKG => RK5
2317 real(RKG) , intent(inout) , allocatable :: array(:,:)
2318 integer(IK) , intent(in) , dimension(2) :: size
2319 character(*, SK) , intent(out) , optional :: errmsg
2320 logical(LK) , intent(out) , optional :: failed
2321 end subroutine
2322#endif
2323
2324#if RK4_ENABLED
2325 PURE module subroutine setResizedSDDD_D2_RK4(array, size, failed, errmsg)
2326#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2327 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_RK4
2328#endif
2329 use pm_kind, only: RKG => RK4
2330 real(RKG) , intent(inout) , allocatable :: array(:,:)
2331 integer(IK) , intent(in) , dimension(2) :: size
2332 character(*, SK) , intent(out) , optional :: errmsg
2333 logical(LK) , intent(out) , optional :: failed
2334 end subroutine
2335#endif
2336
2337#if RK3_ENABLED
2338 PURE module subroutine setResizedSDDD_D2_RK3(array, size, failed, errmsg)
2339#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2340 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_RK3
2341#endif
2342 use pm_kind, only: RKG => RK3
2343 real(RKG) , intent(inout) , allocatable :: array(:,:)
2344 integer(IK) , intent(in) , dimension(2) :: size
2345 character(*, SK) , intent(out) , optional :: errmsg
2346 logical(LK) , intent(out) , optional :: failed
2347 end subroutine
2348#endif
2349
2350#if RK2_ENABLED
2351 PURE module subroutine setResizedSDDD_D2_RK2(array, size, failed, errmsg)
2352#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2353 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_RK2
2354#endif
2355 use pm_kind, only: RKG => RK2
2356 real(RKG) , intent(inout) , allocatable :: array(:,:)
2357 integer(IK) , intent(in) , dimension(2) :: size
2358 character(*, SK) , intent(out) , optional :: errmsg
2359 logical(LK) , intent(out) , optional :: failed
2360 end subroutine
2361#endif
2362
2363#if RK1_ENABLED
2364 PURE module subroutine setResizedSDDD_D2_RK1(array, size, failed, errmsg)
2365#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2366 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_RK1
2367#endif
2368 use pm_kind, only: RKG => RK1
2369 real(RKG) , intent(inout) , allocatable :: array(:,:)
2370 integer(IK) , intent(in) , dimension(2) :: size
2371 character(*, SK) , intent(out) , optional :: errmsg
2372 logical(LK) , intent(out) , optional :: failed
2373 end subroutine
2374#endif
2375
2376 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2377
2378#if PDT_ENABLED
2379
2380#if SK5_ENABLED
2381 module subroutine setResizedSDDD_D2_PSSK5(array, size, failed, errmsg)
2382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2383 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_PSSK5
2384#endif
2385 use pm_kind, only: SKG => SK5
2386 use pm_container, only: css_pdt
2387 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:)
2388 integer(IK) , intent(in) :: size
2389 character(*, SK) , intent(out) , optional :: errmsg
2390 logical(LK) , intent(out) , optional :: failed
2391 end subroutine
2392#endif
2393
2394#if SK4_ENABLED
2395 module subroutine setResizedSDDD_D2_PSSK4(array, size, failed, errmsg)
2396#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2397 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_PSSK4
2398#endif
2399 use pm_kind, only: SKG => SK4
2400 use pm_container, only: css_pdt
2401 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:)
2402 integer(IK) , intent(in) :: size
2403 character(*, SK) , intent(out) , optional :: errmsg
2404 logical(LK) , intent(out) , optional :: failed
2405 end subroutine
2406#endif
2407
2408#if SK3_ENABLED
2409 module subroutine setResizedSDDD_D2_PSSK3(array, size, failed, errmsg)
2410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2411 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_PSSK3
2412#endif
2413 use pm_kind, only: SKG => SK3
2414 use pm_container, only: css_pdt
2415 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:)
2416 integer(IK) , intent(in) :: size
2417 character(*, SK) , intent(out) , optional :: errmsg
2418 logical(LK) , intent(out) , optional :: failed
2419 end subroutine
2420#endif
2421
2422#if SK2_ENABLED
2423 module subroutine setResizedSDDD_D2_PSSK2(array, size, failed, errmsg)
2424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2425 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_PSSK2
2426#endif
2427 use pm_kind, only: SKG => SK2
2428 use pm_container, only: css_pdt
2429 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:)
2430 integer(IK) , intent(in) :: size
2431 character(*, SK) , intent(out) , optional :: errmsg
2432 logical(LK) , intent(out) , optional :: failed
2433 end subroutine
2434#endif
2435
2436#if SK1_ENABLED
2437 module subroutine setResizedSDDD_D2_PSSK1(array, size, failed, errmsg)
2438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2439 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_PSSK1
2440#endif
2441 use pm_kind, only: SKG => SK1
2442 use pm_container, only: css_pdt
2443 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:)
2444 integer(IK) , intent(in) :: size
2445 character(*, SK) , intent(out) , optional :: errmsg
2446 logical(LK) , intent(out) , optional :: failed
2447 end subroutine
2448#endif
2449
2450#endif
2451!PDT_ENABLED
2452
2453 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2454
2455 module subroutine setResizedSDDD_D2_BSSK(array, size, failed, errmsg)
2456#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2457 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D2_BSSK
2458#endif
2459 use pm_kind, only: SKG => SK
2460 use pm_container, only: css_type
2461 type(css_type) , intent(inout) , allocatable :: array(:,:)
2462 integer(IK) , intent(in) :: size
2463 character(*, SK) , intent(out) , optional :: errmsg
2464 logical(LK) , intent(out) , optional :: failed
2465 end subroutine
2466
2467 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2468
2469 end interface
2470
2471 ! SDDD_D3
2472
2473 interface setResized
2474
2475 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2476
2477#if SK5_ENABLED
2478 PURE module subroutine setResizedSDDD_D3_SK5(array, size, failed, errmsg)
2479#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2480 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_SK5
2481#endif
2482 use pm_kind, only: SKG => SK5
2483 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2484 integer(IK) , intent(in) , dimension(3) :: size
2485 character(*, SK) , intent(out) , optional :: errmsg
2486 logical(LK) , intent(out) , optional :: failed
2487 end subroutine
2488#endif
2489
2490#if SK4_ENABLED
2491 PURE module subroutine setResizedSDDD_D3_SK4(array, size, failed, errmsg)
2492#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2493 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_SK4
2494#endif
2495 use pm_kind, only: SKG => SK4
2496 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2497 integer(IK) , intent(in) , dimension(3) :: size
2498 character(*, SK) , intent(out) , optional :: errmsg
2499 logical(LK) , intent(out) , optional :: failed
2500 end subroutine
2501#endif
2502
2503#if SK3_ENABLED
2504 PURE module subroutine setResizedSDDD_D3_SK3(array, size, failed, errmsg)
2505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2506 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_SK3
2507#endif
2508 use pm_kind, only: SKG => SK3
2509 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2510 integer(IK) , intent(in) , dimension(3) :: size
2511 character(*, SK) , intent(out) , optional :: errmsg
2512 logical(LK) , intent(out) , optional :: failed
2513 end subroutine
2514#endif
2515
2516#if SK2_ENABLED
2517 PURE module subroutine setResizedSDDD_D3_SK2(array, size, failed, errmsg)
2518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2519 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_SK2
2520#endif
2521 use pm_kind, only: SKG => SK2
2522 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2523 integer(IK) , intent(in) , dimension(3) :: size
2524 character(*, SK) , intent(out) , optional :: errmsg
2525 logical(LK) , intent(out) , optional :: failed
2526 end subroutine
2527#endif
2528
2529#if SK1_ENABLED
2530 PURE module subroutine setResizedSDDD_D3_SK1(array, size, failed, errmsg)
2531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2532 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_SK1
2533#endif
2534 use pm_kind, only: SKG => SK1
2535 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
2536 integer(IK) , intent(in) , dimension(3) :: size
2537 character(*, SK) , intent(out) , optional :: errmsg
2538 logical(LK) , intent(out) , optional :: failed
2539 end subroutine
2540#endif
2541
2542 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2543
2544#if IK5_ENABLED
2545 PURE module subroutine setResizedSDDD_D3_IK5(array, size, failed, errmsg)
2546#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2547 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_IK5
2548#endif
2549 use pm_kind, only: IKG => IK5
2550 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2551 integer(IK) , intent(in) , dimension(3) :: size
2552 character(*, SK) , intent(out) , optional :: errmsg
2553 logical(LK) , intent(out) , optional :: failed
2554 end subroutine
2555#endif
2556
2557#if IK4_ENABLED
2558 PURE module subroutine setResizedSDDD_D3_IK4(array, size, failed, errmsg)
2559#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2560 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_IK4
2561#endif
2562 use pm_kind, only: IKG => IK4
2563 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2564 integer(IK) , intent(in) , dimension(3) :: size
2565 character(*, SK) , intent(out) , optional :: errmsg
2566 logical(LK) , intent(out) , optional :: failed
2567 end subroutine
2568#endif
2569
2570#if IK3_ENABLED
2571 PURE module subroutine setResizedSDDD_D3_IK3(array, size, failed, errmsg)
2572#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2573 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_IK3
2574#endif
2575 use pm_kind, only: IKG => IK3
2576 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2577 integer(IK) , intent(in) , dimension(3) :: size
2578 character(*, SK) , intent(out) , optional :: errmsg
2579 logical(LK) , intent(out) , optional :: failed
2580 end subroutine
2581#endif
2582
2583#if IK2_ENABLED
2584 PURE module subroutine setResizedSDDD_D3_IK2(array, size, failed, errmsg)
2585#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2586 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_IK2
2587#endif
2588 use pm_kind, only: IKG => IK2
2589 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2590 integer(IK) , intent(in) , dimension(3) :: size
2591 character(*, SK) , intent(out) , optional :: errmsg
2592 logical(LK) , intent(out) , optional :: failed
2593 end subroutine
2594#endif
2595
2596#if IK1_ENABLED
2597 PURE module subroutine setResizedSDDD_D3_IK1(array, size, failed, errmsg)
2598#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2599 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_IK1
2600#endif
2601 use pm_kind, only: IKG => IK1
2602 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
2603 integer(IK) , intent(in) , dimension(3) :: size
2604 character(*, SK) , intent(out) , optional :: errmsg
2605 logical(LK) , intent(out) , optional :: failed
2606 end subroutine
2607#endif
2608
2609 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2610
2611#if LK5_ENABLED
2612 PURE module subroutine setResizedSDDD_D3_LK5(array, size, failed, errmsg)
2613#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2614 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_LK5
2615#endif
2616 use pm_kind, only: LKG => LK5
2617 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2618 integer(IK) , intent(in) , dimension(3) :: size
2619 character(*, SK) , intent(out) , optional :: errmsg
2620 logical(LK) , intent(out) , optional :: failed
2621 end subroutine
2622#endif
2623
2624#if LK4_ENABLED
2625 PURE module subroutine setResizedSDDD_D3_LK4(array, size, failed, errmsg)
2626#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2627 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_LK4
2628#endif
2629 use pm_kind, only: LKG => LK4
2630 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2631 integer(IK) , intent(in) , dimension(3) :: size
2632 character(*, SK) , intent(out) , optional :: errmsg
2633 logical(LK) , intent(out) , optional :: failed
2634 end subroutine
2635#endif
2636
2637#if LK3_ENABLED
2638 PURE module subroutine setResizedSDDD_D3_LK3(array, size, failed, errmsg)
2639#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2640 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_LK3
2641#endif
2642 use pm_kind, only: LKG => LK3
2643 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2644 integer(IK) , intent(in) , dimension(3) :: size
2645 character(*, SK) , intent(out) , optional :: errmsg
2646 logical(LK) , intent(out) , optional :: failed
2647 end subroutine
2648#endif
2649
2650#if LK2_ENABLED
2651 PURE module subroutine setResizedSDDD_D3_LK2(array, size, failed, errmsg)
2652#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2653 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_LK2
2654#endif
2655 use pm_kind, only: LKG => LK2
2656 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2657 integer(IK) , intent(in) , dimension(3) :: size
2658 character(*, SK) , intent(out) , optional :: errmsg
2659 logical(LK) , intent(out) , optional :: failed
2660 end subroutine
2661#endif
2662
2663#if LK1_ENABLED
2664 PURE module subroutine setResizedSDDD_D3_LK1(array, size, failed, errmsg)
2665#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2666 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_LK1
2667#endif
2668 use pm_kind, only: LKG => LK1
2669 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
2670 integer(IK) , intent(in) , dimension(3) :: size
2671 character(*, SK) , intent(out) , optional :: errmsg
2672 logical(LK) , intent(out) , optional :: failed
2673 end subroutine
2674#endif
2675
2676 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2677
2678#if CK5_ENABLED
2679 PURE module subroutine setResizedSDDD_D3_CK5(array, size, failed, errmsg)
2680#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2681 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_CK5
2682#endif
2683 use pm_kind, only: CKG => CK5
2684 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2685 integer(IK) , intent(in) , dimension(3) :: size
2686 character(*, SK) , intent(out) , optional :: errmsg
2687 logical(LK) , intent(out) , optional :: failed
2688 end subroutine
2689#endif
2690
2691#if CK4_ENABLED
2692 PURE module subroutine setResizedSDDD_D3_CK4(array, size, failed, errmsg)
2693#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2694 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_CK4
2695#endif
2696 use pm_kind, only: CKG => CK4
2697 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2698 integer(IK) , intent(in) , dimension(3) :: size
2699 character(*, SK) , intent(out) , optional :: errmsg
2700 logical(LK) , intent(out) , optional :: failed
2701 end subroutine
2702#endif
2703
2704#if CK3_ENABLED
2705 PURE module subroutine setResizedSDDD_D3_CK3(array, size, failed, errmsg)
2706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2707 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_CK3
2708#endif
2709 use pm_kind, only: CKG => CK3
2710 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2711 integer(IK) , intent(in) , dimension(3) :: size
2712 character(*, SK) , intent(out) , optional :: errmsg
2713 logical(LK) , intent(out) , optional :: failed
2714 end subroutine
2715#endif
2716
2717#if CK2_ENABLED
2718 PURE module subroutine setResizedSDDD_D3_CK2(array, size, failed, errmsg)
2719#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2720 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_CK2
2721#endif
2722 use pm_kind, only: CKG => CK2
2723 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2724 integer(IK) , intent(in) , dimension(3) :: size
2725 character(*, SK) , intent(out) , optional :: errmsg
2726 logical(LK) , intent(out) , optional :: failed
2727 end subroutine
2728#endif
2729
2730#if CK1_ENABLED
2731 PURE module subroutine setResizedSDDD_D3_CK1(array, size, failed, errmsg)
2732#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2733 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_CK1
2734#endif
2735 use pm_kind, only: CKG => CK1
2736 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
2737 integer(IK) , intent(in) , dimension(3) :: size
2738 character(*, SK) , intent(out) , optional :: errmsg
2739 logical(LK) , intent(out) , optional :: failed
2740 end subroutine
2741#endif
2742
2743 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2744
2745#if RK5_ENABLED
2746 PURE module subroutine setResizedSDDD_D3_RK5(array, size, failed, errmsg)
2747#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2748 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_RK5
2749#endif
2750 use pm_kind, only: RKG => RK5
2751 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2752 integer(IK) , intent(in) , dimension(3) :: size
2753 character(*, SK) , intent(out) , optional :: errmsg
2754 logical(LK) , intent(out) , optional :: failed
2755 end subroutine
2756#endif
2757
2758#if RK4_ENABLED
2759 PURE module subroutine setResizedSDDD_D3_RK4(array, size, failed, errmsg)
2760#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2761 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_RK4
2762#endif
2763 use pm_kind, only: RKG => RK4
2764 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2765 integer(IK) , intent(in) , dimension(3) :: size
2766 character(*, SK) , intent(out) , optional :: errmsg
2767 logical(LK) , intent(out) , optional :: failed
2768 end subroutine
2769#endif
2770
2771#if RK3_ENABLED
2772 PURE module subroutine setResizedSDDD_D3_RK3(array, size, failed, errmsg)
2773#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2774 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_RK3
2775#endif
2776 use pm_kind, only: RKG => RK3
2777 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2778 integer(IK) , intent(in) , dimension(3) :: size
2779 character(*, SK) , intent(out) , optional :: errmsg
2780 logical(LK) , intent(out) , optional :: failed
2781 end subroutine
2782#endif
2783
2784#if RK2_ENABLED
2785 PURE module subroutine setResizedSDDD_D3_RK2(array, size, failed, errmsg)
2786#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2787 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_RK2
2788#endif
2789 use pm_kind, only: RKG => RK2
2790 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2791 integer(IK) , intent(in) , dimension(3) :: size
2792 character(*, SK) , intent(out) , optional :: errmsg
2793 logical(LK) , intent(out) , optional :: failed
2794 end subroutine
2795#endif
2796
2797#if RK1_ENABLED
2798 PURE module subroutine setResizedSDDD_D3_RK1(array, size, failed, errmsg)
2799#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2800 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_RK1
2801#endif
2802 use pm_kind, only: RKG => RK1
2803 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
2804 integer(IK) , intent(in) , dimension(3) :: size
2805 character(*, SK) , intent(out) , optional :: errmsg
2806 logical(LK) , intent(out) , optional :: failed
2807 end subroutine
2808#endif
2809
2810 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2811
2812#if PDT_ENABLED
2813
2814#if SK5_ENABLED
2815 module subroutine setResizedSDDD_D3_PSSK5(array, size, failed, errmsg)
2816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2817 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_PSSK5
2818#endif
2819 use pm_kind, only: SKG => SK5
2820 use pm_container, only: css_pdt
2821 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
2822 integer(IK) , intent(in) :: size
2823 character(*, SK) , intent(out) , optional :: errmsg
2824 logical(LK) , intent(out) , optional :: failed
2825 end subroutine
2826#endif
2827
2828#if SK4_ENABLED
2829 module subroutine setResizedSDDD_D3_PSSK4(array, size, failed, errmsg)
2830#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2831 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_PSSK4
2832#endif
2833 use pm_kind, only: SKG => SK4
2834 use pm_container, only: css_pdt
2835 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
2836 integer(IK) , intent(in) :: size
2837 character(*, SK) , intent(out) , optional :: errmsg
2838 logical(LK) , intent(out) , optional :: failed
2839 end subroutine
2840#endif
2841
2842#if SK3_ENABLED
2843 module subroutine setResizedSDDD_D3_PSSK3(array, size, failed, errmsg)
2844#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2845 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_PSSK3
2846#endif
2847 use pm_kind, only: SKG => SK3
2848 use pm_container, only: css_pdt
2849 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
2850 integer(IK) , intent(in) :: size
2851 character(*, SK) , intent(out) , optional :: errmsg
2852 logical(LK) , intent(out) , optional :: failed
2853 end subroutine
2854#endif
2855
2856#if SK2_ENABLED
2857 module subroutine setResizedSDDD_D3_PSSK2(array, size, failed, errmsg)
2858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2859 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_PSSK2
2860#endif
2861 use pm_kind, only: SKG => SK2
2862 use pm_container, only: css_pdt
2863 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
2864 integer(IK) , intent(in) :: size
2865 character(*, SK) , intent(out) , optional :: errmsg
2866 logical(LK) , intent(out) , optional :: failed
2867 end subroutine
2868#endif
2869
2870#if SK1_ENABLED
2871 module subroutine setResizedSDDD_D3_PSSK1(array, size, failed, errmsg)
2872#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2873 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_PSSK1
2874#endif
2875 use pm_kind, only: SKG => SK1
2876 use pm_container, only: css_pdt
2877 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
2878 integer(IK) , intent(in) :: size
2879 character(*, SK) , intent(out) , optional :: errmsg
2880 logical(LK) , intent(out) , optional :: failed
2881 end subroutine
2882#endif
2883
2884#endif
2885!PDT_ENABLED
2886
2887 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2888
2889 module subroutine setResizedSDDD_D3_BSSK(array, size, failed, errmsg)
2890#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2891 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSDDD_D3_BSSK
2892#endif
2893 use pm_kind, only: SKG => SK
2894 use pm_container, only: css_type
2895 type(css_type) , intent(inout) , allocatable :: array(:,:,:)
2896 integer(IK) , intent(in) :: size
2897 character(*, SK) , intent(out) , optional :: errmsg
2898 logical(LK) , intent(out) , optional :: failed
2899 end subroutine
2900
2901 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2902
2903 end interface
2904
2905 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2906
2907 ! SLDD_D0
2908
2909 interface setResized
2910
2911 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2912
2913#if SK5_ENABLED
2914 PURE module subroutine setResizedSLDD_D0_SK5(array, size, lbc, failed, errmsg)
2915#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2916 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D0_SK5
2917#endif
2918 use pm_kind, only: SKG => SK5
2919 character(:,SKG) , intent(inout) , allocatable :: array
2920 integer(IK) , intent(in) :: size, lbc
2921 character(*, SK) , intent(out) , optional :: errmsg
2922 logical(LK) , intent(out) , optional :: failed
2923 end subroutine
2924#endif
2925
2926#if SK4_ENABLED
2927 PURE module subroutine setResizedSLDD_D0_SK4(array, size, lbc, failed, errmsg)
2928#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2929 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D0_SK4
2930#endif
2931 use pm_kind, only: SKG => SK4
2932 character(:,SKG) , intent(inout) , allocatable :: array
2933 integer(IK) , intent(in) :: size, lbc
2934 character(*, SK) , intent(out) , optional :: errmsg
2935 logical(LK) , intent(out) , optional :: failed
2936 end subroutine
2937#endif
2938
2939#if SK3_ENABLED
2940 PURE module subroutine setResizedSLDD_D0_SK3(array, size, lbc, failed, errmsg)
2941#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2942 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D0_SK3
2943#endif
2944 use pm_kind, only: SKG => SK3
2945 character(:,SKG) , intent(inout) , allocatable :: array
2946 integer(IK) , intent(in) :: size, lbc
2947 character(*, SK) , intent(out) , optional :: errmsg
2948 logical(LK) , intent(out) , optional :: failed
2949 end subroutine
2950#endif
2951
2952#if SK2_ENABLED
2953 PURE module subroutine setResizedSLDD_D0_SK2(array, size, lbc, failed, errmsg)
2954#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2955 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D0_SK2
2956#endif
2957 use pm_kind, only: SKG => SK2
2958 character(:,SKG) , intent(inout) , allocatable :: array
2959 integer(IK) , intent(in) :: size, lbc
2960 character(*, SK) , intent(out) , optional :: errmsg
2961 logical(LK) , intent(out) , optional :: failed
2962 end subroutine
2963#endif
2964
2965#if SK1_ENABLED
2966 PURE module subroutine setResizedSLDD_D0_SK1(array, size, lbc, failed, errmsg)
2967#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2968 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D0_SK1
2969#endif
2970 use pm_kind, only: SKG => SK1
2971 character(:,SKG) , intent(inout) , allocatable :: array
2972 integer(IK) , intent(in) :: size, lbc
2973 character(*, SK) , intent(out) , optional :: errmsg
2974 logical(LK) , intent(out) , optional :: failed
2975 end subroutine
2976#endif
2977
2978 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2979
2980 end interface
2981
2982 ! SLDD_D1
2983
2984 interface setResized
2985
2986 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2987
2988#if SK5_ENABLED
2989 PURE module subroutine setResizedSLDD_D1_SK5(array, size, lbc, failed, errmsg)
2990#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
2991 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_SK5
2992#endif
2993 use pm_kind, only: SKG => SK5
2994 character(*,SKG) , intent(inout) , allocatable :: array(:)
2995 integer(IK) , intent(in) :: size, lbc
2996 character(*, SK) , intent(out) , optional :: errmsg
2997 logical(LK) , intent(out) , optional :: failed
2998 end subroutine
2999#endif
3000
3001#if SK4_ENABLED
3002 PURE module subroutine setResizedSLDD_D1_SK4(array, size, lbc, failed, errmsg)
3003#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3004 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_SK4
3005#endif
3006 use pm_kind, only: SKG => SK4
3007 character(*,SKG) , intent(inout) , allocatable :: array(:)
3008 integer(IK) , intent(in) :: size, lbc
3009 character(*, SK) , intent(out) , optional :: errmsg
3010 logical(LK) , intent(out) , optional :: failed
3011 end subroutine
3012#endif
3013
3014#if SK3_ENABLED
3015 PURE module subroutine setResizedSLDD_D1_SK3(array, size, lbc, failed, errmsg)
3016#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3017 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_SK3
3018#endif
3019 use pm_kind, only: SKG => SK3
3020 character(*,SKG) , intent(inout) , allocatable :: array(:)
3021 integer(IK) , intent(in) :: size, lbc
3022 character(*, SK) , intent(out) , optional :: errmsg
3023 logical(LK) , intent(out) , optional :: failed
3024 end subroutine
3025#endif
3026
3027#if SK2_ENABLED
3028 PURE module subroutine setResizedSLDD_D1_SK2(array, size, lbc, failed, errmsg)
3029#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3030 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_SK2
3031#endif
3032 use pm_kind, only: SKG => SK2
3033 character(*,SKG) , intent(inout) , allocatable :: array(:)
3034 integer(IK) , intent(in) :: size, lbc
3035 character(*, SK) , intent(out) , optional :: errmsg
3036 logical(LK) , intent(out) , optional :: failed
3037 end subroutine
3038#endif
3039
3040#if SK1_ENABLED
3041 PURE module subroutine setResizedSLDD_D1_SK1(array, size, lbc, failed, errmsg)
3042#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3043 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_SK1
3044#endif
3045 use pm_kind, only: SKG => SK1
3046 character(*,SKG) , intent(inout) , allocatable :: array(:)
3047 integer(IK) , intent(in) :: size, lbc
3048 character(*, SK) , intent(out) , optional :: errmsg
3049 logical(LK) , intent(out) , optional :: failed
3050 end subroutine
3051#endif
3052
3053 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3054
3055#if IK5_ENABLED
3056 PURE module subroutine setResizedSLDD_D1_IK5(array, size, lbc, failed, errmsg)
3057#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3058 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_IK5
3059#endif
3060 use pm_kind, only: IKG => IK5
3061 integer(IKG) , intent(inout) , allocatable :: array(:)
3062 integer(IK) , intent(in) :: size, lbc
3063 character(*, SK) , intent(out) , optional :: errmsg
3064 logical(LK) , intent(out) , optional :: failed
3065 end subroutine
3066#endif
3067
3068#if IK4_ENABLED
3069 PURE module subroutine setResizedSLDD_D1_IK4(array, size, lbc, failed, errmsg)
3070#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3071 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_IK4
3072#endif
3073 use pm_kind, only: IKG => IK4
3074 integer(IKG) , intent(inout) , allocatable :: array(:)
3075 integer(IK) , intent(in) :: 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 setResizedSLDD_D1_IK3(array, size, lbc, failed, errmsg)
3083#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3084 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_IK3
3085#endif
3086 use pm_kind, only: IKG => IK3
3087 integer(IKG) , intent(inout) , allocatable :: array(:)
3088 integer(IK) , intent(in) :: size, lbc
3089 character(*, SK) , intent(out) , optional :: errmsg
3090 logical(LK) , intent(out) , optional :: failed
3091 end subroutine
3092#endif
3093
3094#if IK2_ENABLED
3095 PURE module subroutine setResizedSLDD_D1_IK2(array, size, lbc, failed, errmsg)
3096#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3097 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_IK2
3098#endif
3099 use pm_kind, only: IKG => IK2
3100 integer(IKG) , intent(inout) , allocatable :: array(:)
3101 integer(IK) , intent(in) :: size, lbc
3102 character(*, SK) , intent(out) , optional :: errmsg
3103 logical(LK) , intent(out) , optional :: failed
3104 end subroutine
3105#endif
3106
3107#if IK1_ENABLED
3108 PURE module subroutine setResizedSLDD_D1_IK1(array, size, lbc, failed, errmsg)
3109#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3110 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_IK1
3111#endif
3112 use pm_kind, only: IKG => IK1
3113 integer(IKG) , intent(inout) , allocatable :: array(:)
3114 integer(IK) , intent(in) :: size, lbc
3115 character(*, SK) , intent(out) , optional :: errmsg
3116 logical(LK) , intent(out) , optional :: failed
3117 end subroutine
3118#endif
3119
3120 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3121
3122#if LK5_ENABLED
3123 PURE module subroutine setResizedSLDD_D1_LK5(array, size, lbc, failed, errmsg)
3124#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3125 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_LK5
3126#endif
3127 use pm_kind, only: LKG => LK5
3128 logical(LKG) , intent(inout) , allocatable :: array(:)
3129 integer(IK) , intent(in) :: size, lbc
3130 character(*, SK) , intent(out) , optional :: errmsg
3131 logical(LK) , intent(out) , optional :: failed
3132 end subroutine
3133#endif
3134
3135#if LK4_ENABLED
3136 PURE module subroutine setResizedSLDD_D1_LK4(array, size, lbc, failed, errmsg)
3137#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3138 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_LK4
3139#endif
3140 use pm_kind, only: LKG => LK4
3141 logical(LKG) , intent(inout) , allocatable :: array(:)
3142 integer(IK) , intent(in) :: size, lbc
3143 character(*, SK) , intent(out) , optional :: errmsg
3144 logical(LK) , intent(out) , optional :: failed
3145 end subroutine
3146#endif
3147
3148#if LK3_ENABLED
3149 PURE module subroutine setResizedSLDD_D1_LK3(array, size, lbc, failed, errmsg)
3150#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3151 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_LK3
3152#endif
3153 use pm_kind, only: LKG => LK3
3154 logical(LKG) , intent(inout) , allocatable :: array(:)
3155 integer(IK) , intent(in) :: size, lbc
3156 character(*, SK) , intent(out) , optional :: errmsg
3157 logical(LK) , intent(out) , optional :: failed
3158 end subroutine
3159#endif
3160
3161#if LK2_ENABLED
3162 PURE module subroutine setResizedSLDD_D1_LK2(array, size, lbc, failed, errmsg)
3163#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3164 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_LK2
3165#endif
3166 use pm_kind, only: LKG => LK2
3167 logical(LKG) , intent(inout) , allocatable :: array(:)
3168 integer(IK) , intent(in) :: size, lbc
3169 character(*, SK) , intent(out) , optional :: errmsg
3170 logical(LK) , intent(out) , optional :: failed
3171 end subroutine
3172#endif
3173
3174#if LK1_ENABLED
3175 PURE module subroutine setResizedSLDD_D1_LK1(array, size, lbc, failed, errmsg)
3176#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3177 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_LK1
3178#endif
3179 use pm_kind, only: LKG => LK1
3180 logical(LKG) , intent(inout) , allocatable :: array(:)
3181 integer(IK) , intent(in) :: size, lbc
3182 character(*, SK) , intent(out) , optional :: errmsg
3183 logical(LK) , intent(out) , optional :: failed
3184 end subroutine
3185#endif
3186
3187 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3188
3189#if CK5_ENABLED
3190 PURE module subroutine setResizedSLDD_D1_CK5(array, size, lbc, failed, errmsg)
3191#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3192 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_CK5
3193#endif
3194 use pm_kind, only: CKG => CK5
3195 complex(CKG) , intent(inout) , allocatable :: array(:)
3196 integer(IK) , intent(in) :: size, lbc
3197 character(*, SK) , intent(out) , optional :: errmsg
3198 logical(LK) , intent(out) , optional :: failed
3199 end subroutine
3200#endif
3201
3202#if CK4_ENABLED
3203 PURE module subroutine setResizedSLDD_D1_CK4(array, size, lbc, failed, errmsg)
3204#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3205 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_CK4
3206#endif
3207 use pm_kind, only: CKG => CK4
3208 complex(CKG) , intent(inout) , allocatable :: array(:)
3209 integer(IK) , intent(in) :: size, lbc
3210 character(*, SK) , intent(out) , optional :: errmsg
3211 logical(LK) , intent(out) , optional :: failed
3212 end subroutine
3213#endif
3214
3215#if CK3_ENABLED
3216 PURE module subroutine setResizedSLDD_D1_CK3(array, size, lbc, failed, errmsg)
3217#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3218 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_CK3
3219#endif
3220 use pm_kind, only: CKG => CK3
3221 complex(CKG) , intent(inout) , allocatable :: array(:)
3222 integer(IK) , intent(in) :: size, lbc
3223 character(*, SK) , intent(out) , optional :: errmsg
3224 logical(LK) , intent(out) , optional :: failed
3225 end subroutine
3226#endif
3227
3228#if CK2_ENABLED
3229 PURE module subroutine setResizedSLDD_D1_CK2(array, size, lbc, failed, errmsg)
3230#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3231 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_CK2
3232#endif
3233 use pm_kind, only: CKG => CK2
3234 complex(CKG) , intent(inout) , allocatable :: array(:)
3235 integer(IK) , intent(in) :: size, lbc
3236 character(*, SK) , intent(out) , optional :: errmsg
3237 logical(LK) , intent(out) , optional :: failed
3238 end subroutine
3239#endif
3240
3241#if CK1_ENABLED
3242 PURE module subroutine setResizedSLDD_D1_CK1(array, size, lbc, failed, errmsg)
3243#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3244 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_CK1
3245#endif
3246 use pm_kind, only: CKG => CK1
3247 complex(CKG) , intent(inout) , allocatable :: array(:)
3248 integer(IK) , intent(in) :: size, lbc
3249 character(*, SK) , intent(out) , optional :: errmsg
3250 logical(LK) , intent(out) , optional :: failed
3251 end subroutine
3252#endif
3253
3254 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3255
3256#if RK5_ENABLED
3257 PURE module subroutine setResizedSLDD_D1_RK5(array, size, lbc, failed, errmsg)
3258#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3259 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_RK5
3260#endif
3261 use pm_kind, only: RKG => RK5
3262 real(RKG) , intent(inout) , allocatable :: array(:)
3263 integer(IK) , intent(in) :: size, lbc
3264 character(*, SK) , intent(out) , optional :: errmsg
3265 logical(LK) , intent(out) , optional :: failed
3266 end subroutine
3267#endif
3268
3269#if RK4_ENABLED
3270 PURE module subroutine setResizedSLDD_D1_RK4(array, size, lbc, failed, errmsg)
3271#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3272 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_RK4
3273#endif
3274 use pm_kind, only: RKG => RK4
3275 real(RKG) , intent(inout) , allocatable :: array(:)
3276 integer(IK) , intent(in) :: size, lbc
3277 character(*, SK) , intent(out) , optional :: errmsg
3278 logical(LK) , intent(out) , optional :: failed
3279 end subroutine
3280#endif
3281
3282#if RK3_ENABLED
3283 PURE module subroutine setResizedSLDD_D1_RK3(array, size, lbc, failed, errmsg)
3284#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3285 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_RK3
3286#endif
3287 use pm_kind, only: RKG => RK3
3288 real(RKG) , intent(inout) , allocatable :: array(:)
3289 integer(IK) , intent(in) :: size, lbc
3290 character(*, SK) , intent(out) , optional :: errmsg
3291 logical(LK) , intent(out) , optional :: failed
3292 end subroutine
3293#endif
3294
3295#if RK2_ENABLED
3296 PURE module subroutine setResizedSLDD_D1_RK2(array, size, lbc, failed, errmsg)
3297#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3298 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_RK2
3299#endif
3300 use pm_kind, only: RKG => RK2
3301 real(RKG) , intent(inout) , allocatable :: array(:)
3302 integer(IK) , intent(in) :: size, lbc
3303 character(*, SK) , intent(out) , optional :: errmsg
3304 logical(LK) , intent(out) , optional :: failed
3305 end subroutine
3306#endif
3307
3308#if RK1_ENABLED
3309 PURE module subroutine setResizedSLDD_D1_RK1(array, size, lbc, failed, errmsg)
3310#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3311 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_RK1
3312#endif
3313 use pm_kind, only: RKG => RK1
3314 real(RKG) , intent(inout) , allocatable :: array(:)
3315 integer(IK) , intent(in) :: size, lbc
3316 character(*, SK) , intent(out) , optional :: errmsg
3317 logical(LK) , intent(out) , optional :: failed
3318 end subroutine
3319#endif
3320
3321 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3322
3323#if PDT_ENABLED
3324
3325#if SK5_ENABLED
3326 module subroutine setResizedSLDD_D1_PSSK5(array, size, lbc, failed, errmsg)
3327#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3328 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_PSSK5
3329#endif
3330 use pm_kind, only: SKG => SK5
3331 use pm_container, only: css_pdt
3332 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
3333 integer(IK) , intent(in) :: size, lbc
3334 character(*, SK) , intent(out) , optional :: errmsg
3335 logical(LK) , intent(out) , optional :: failed
3336 end subroutine
3337#endif
3338
3339#if SK4_ENABLED
3340 module subroutine setResizedSLDD_D1_PSSK4(array, size, lbc, failed, errmsg)
3341#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3342 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_PSSK4
3343#endif
3344 use pm_kind, only: SKG => SK4
3345 use pm_container, only: css_pdt
3346 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
3347 integer(IK) , intent(in) :: size, lbc
3348 character(*, SK) , intent(out) , optional :: errmsg
3349 logical(LK) , intent(out) , optional :: failed
3350 end subroutine
3351#endif
3352
3353#if SK3_ENABLED
3354 module subroutine setResizedSLDD_D1_PSSK3(array, size, lbc, failed, errmsg)
3355#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3356 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_PSSK3
3357#endif
3358 use pm_kind, only: SKG => SK3
3359 use pm_container, only: css_pdt
3360 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
3361 integer(IK) , intent(in) :: size, lbc
3362 character(*, SK) , intent(out) , optional :: errmsg
3363 logical(LK) , intent(out) , optional :: failed
3364 end subroutine
3365#endif
3366
3367#if SK2_ENABLED
3368 module subroutine setResizedSLDD_D1_PSSK2(array, size, lbc, failed, errmsg)
3369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3370 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_PSSK2
3371#endif
3372 use pm_kind, only: SKG => SK2
3373 use pm_container, only: css_pdt
3374 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
3375 integer(IK) , intent(in) :: size, lbc
3376 character(*, SK) , intent(out) , optional :: errmsg
3377 logical(LK) , intent(out) , optional :: failed
3378 end subroutine
3379#endif
3380
3381#if SK1_ENABLED
3382 module subroutine setResizedSLDD_D1_PSSK1(array, size, lbc, failed, errmsg)
3383#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3384 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_PSSK1
3385#endif
3386 use pm_kind, only: SKG => SK1
3387 use pm_container, only: css_pdt
3388 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
3389 integer(IK) , intent(in) :: size, lbc
3390 character(*, SK) , intent(out) , optional :: errmsg
3391 logical(LK) , intent(out) , optional :: failed
3392 end subroutine
3393#endif
3394
3395#endif
3396!PDT_ENABLED
3397
3398 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3399
3400 module subroutine setResizedSLDD_D1_BSSK(array, size, lbc, failed, errmsg)
3401#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3402 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D1_BSSK
3403#endif
3404 use pm_kind, only: SKG => SK
3405 use pm_container, only: css_type
3406 type(css_type) , intent(inout) , allocatable :: array(:)
3407 integer(IK) , intent(in) :: size, lbc
3408 character(*, SK) , intent(out) , optional :: errmsg
3409 logical(LK) , intent(out) , optional :: failed
3410 end subroutine
3411
3412 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3413
3414 end interface
3415
3416 ! SLDD_D2
3417
3418 interface setResized
3419
3420 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3421
3422#if SK5_ENABLED
3423 PURE module subroutine setResizedSLDD_D2_SK5(array, size, lbc, failed, errmsg)
3424#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3425 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_SK5
3426#endif
3427 use pm_kind, only: SKG => SK5
3428 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
3429 integer(IK) , intent(in) , dimension(2) :: size, lbc
3430 character(*, SK) , intent(out) , optional :: errmsg
3431 logical(LK) , intent(out) , optional :: failed
3432 end subroutine
3433#endif
3434
3435#if SK4_ENABLED
3436 PURE module subroutine setResizedSLDD_D2_SK4(array, size, lbc, failed, errmsg)
3437#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3438 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_SK4
3439#endif
3440 use pm_kind, only: SKG => SK4
3441 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
3442 integer(IK) , intent(in) , dimension(2) :: size, lbc
3443 character(*, SK) , intent(out) , optional :: errmsg
3444 logical(LK) , intent(out) , optional :: failed
3445 end subroutine
3446#endif
3447
3448#if SK3_ENABLED
3449 PURE module subroutine setResizedSLDD_D2_SK3(array, size, lbc, failed, errmsg)
3450#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3451 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_SK3
3452#endif
3453 use pm_kind, only: SKG => SK3
3454 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
3455 integer(IK) , intent(in) , dimension(2) :: size, lbc
3456 character(*, SK) , intent(out) , optional :: errmsg
3457 logical(LK) , intent(out) , optional :: failed
3458 end subroutine
3459#endif
3460
3461#if SK2_ENABLED
3462 PURE module subroutine setResizedSLDD_D2_SK2(array, size, lbc, failed, errmsg)
3463#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3464 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_SK2
3465#endif
3466 use pm_kind, only: SKG => SK2
3467 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
3468 integer(IK) , intent(in) , dimension(2) :: size, lbc
3469 character(*, SK) , intent(out) , optional :: errmsg
3470 logical(LK) , intent(out) , optional :: failed
3471 end subroutine
3472#endif
3473
3474#if SK1_ENABLED
3475 PURE module subroutine setResizedSLDD_D2_SK1(array, size, lbc, failed, errmsg)
3476#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3477 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_SK1
3478#endif
3479 use pm_kind, only: SKG => SK1
3480 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
3481 integer(IK) , intent(in) , dimension(2) :: size, lbc
3482 character(*, SK) , intent(out) , optional :: errmsg
3483 logical(LK) , intent(out) , optional :: failed
3484 end subroutine
3485#endif
3486
3487 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3488
3489#if IK5_ENABLED
3490 PURE module subroutine setResizedSLDD_D2_IK5(array, size, lbc, failed, errmsg)
3491#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3492 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_IK5
3493#endif
3494 use pm_kind, only: IKG => IK5
3495 integer(IKG) , intent(inout) , allocatable :: array(:,:)
3496 integer(IK) , intent(in) , dimension(2) :: size, lbc
3497 character(*, SK) , intent(out) , optional :: errmsg
3498 logical(LK) , intent(out) , optional :: failed
3499 end subroutine
3500#endif
3501
3502#if IK4_ENABLED
3503 PURE module subroutine setResizedSLDD_D2_IK4(array, size, lbc, failed, errmsg)
3504#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3505 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_IK4
3506#endif
3507 use pm_kind, only: IKG => IK4
3508 integer(IKG) , intent(inout) , allocatable :: array(:,:)
3509 integer(IK) , intent(in) , dimension(2) :: size, lbc
3510 character(*, SK) , intent(out) , optional :: errmsg
3511 logical(LK) , intent(out) , optional :: failed
3512 end subroutine
3513#endif
3514
3515#if IK3_ENABLED
3516 PURE module subroutine setResizedSLDD_D2_IK3(array, size, lbc, failed, errmsg)
3517#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3518 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_IK3
3519#endif
3520 use pm_kind, only: IKG => IK3
3521 integer(IKG) , intent(inout) , allocatable :: array(:,:)
3522 integer(IK) , intent(in) , dimension(2) :: size, lbc
3523 character(*, SK) , intent(out) , optional :: errmsg
3524 logical(LK) , intent(out) , optional :: failed
3525 end subroutine
3526#endif
3527
3528#if IK2_ENABLED
3529 PURE module subroutine setResizedSLDD_D2_IK2(array, size, lbc, failed, errmsg)
3530#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3531 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_IK2
3532#endif
3533 use pm_kind, only: IKG => IK2
3534 integer(IKG) , intent(inout) , allocatable :: array(:,:)
3535 integer(IK) , intent(in) , dimension(2) :: size, lbc
3536 character(*, SK) , intent(out) , optional :: errmsg
3537 logical(LK) , intent(out) , optional :: failed
3538 end subroutine
3539#endif
3540
3541#if IK1_ENABLED
3542 PURE module subroutine setResizedSLDD_D2_IK1(array, size, lbc, failed, errmsg)
3543#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3544 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_IK1
3545#endif
3546 use pm_kind, only: IKG => IK1
3547 integer(IKG) , intent(inout) , allocatable :: array(:,:)
3548 integer(IK) , intent(in) , dimension(2) :: size, lbc
3549 character(*, SK) , intent(out) , optional :: errmsg
3550 logical(LK) , intent(out) , optional :: failed
3551 end subroutine
3552#endif
3553
3554 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3555
3556#if LK5_ENABLED
3557 PURE module subroutine setResizedSLDD_D2_LK5(array, size, lbc, failed, errmsg)
3558#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3559 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_LK5
3560#endif
3561 use pm_kind, only: LKG => LK5
3562 logical(LKG) , intent(inout) , allocatable :: array(:,:)
3563 integer(IK) , intent(in) , dimension(2) :: size, lbc
3564 character(*, SK) , intent(out) , optional :: errmsg
3565 logical(LK) , intent(out) , optional :: failed
3566 end subroutine
3567#endif
3568
3569#if LK4_ENABLED
3570 PURE module subroutine setResizedSLDD_D2_LK4(array, size, lbc, failed, errmsg)
3571#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3572 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_LK4
3573#endif
3574 use pm_kind, only: LKG => LK4
3575 logical(LKG) , intent(inout) , allocatable :: array(:,:)
3576 integer(IK) , intent(in) , dimension(2) :: size, lbc
3577 character(*, SK) , intent(out) , optional :: errmsg
3578 logical(LK) , intent(out) , optional :: failed
3579 end subroutine
3580#endif
3581
3582#if LK3_ENABLED
3583 PURE module subroutine setResizedSLDD_D2_LK3(array, size, lbc, failed, errmsg)
3584#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3585 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_LK3
3586#endif
3587 use pm_kind, only: LKG => LK3
3588 logical(LKG) , intent(inout) , allocatable :: array(:,:)
3589 integer(IK) , intent(in) , dimension(2) :: size, lbc
3590 character(*, SK) , intent(out) , optional :: errmsg
3591 logical(LK) , intent(out) , optional :: failed
3592 end subroutine
3593#endif
3594
3595#if LK2_ENABLED
3596 PURE module subroutine setResizedSLDD_D2_LK2(array, size, lbc, failed, errmsg)
3597#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3598 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_LK2
3599#endif
3600 use pm_kind, only: LKG => LK2
3601 logical(LKG) , intent(inout) , allocatable :: array(:,:)
3602 integer(IK) , intent(in) , dimension(2) :: size, lbc
3603 character(*, SK) , intent(out) , optional :: errmsg
3604 logical(LK) , intent(out) , optional :: failed
3605 end subroutine
3606#endif
3607
3608#if LK1_ENABLED
3609 PURE module subroutine setResizedSLDD_D2_LK1(array, size, lbc, failed, errmsg)
3610#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3611 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_LK1
3612#endif
3613 use pm_kind, only: LKG => LK1
3614 logical(LKG) , intent(inout) , allocatable :: array(:,:)
3615 integer(IK) , intent(in) , dimension(2) :: size, lbc
3616 character(*, SK) , intent(out) , optional :: errmsg
3617 logical(LK) , intent(out) , optional :: failed
3618 end subroutine
3619#endif
3620
3621 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3622
3623#if CK5_ENABLED
3624 PURE module subroutine setResizedSLDD_D2_CK5(array, size, lbc, failed, errmsg)
3625#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3626 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_CK5
3627#endif
3628 use pm_kind, only: CKG => CK5
3629 complex(CKG) , intent(inout) , allocatable :: array(:,:)
3630 integer(IK) , intent(in) , dimension(2) :: size, lbc
3631 character(*, SK) , intent(out) , optional :: errmsg
3632 logical(LK) , intent(out) , optional :: failed
3633 end subroutine
3634#endif
3635
3636#if CK4_ENABLED
3637 PURE module subroutine setResizedSLDD_D2_CK4(array, size, lbc, failed, errmsg)
3638#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3639 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_CK4
3640#endif
3641 use pm_kind, only: CKG => CK4
3642 complex(CKG) , intent(inout) , allocatable :: array(:,:)
3643 integer(IK) , intent(in) , dimension(2) :: size, lbc
3644 character(*, SK) , intent(out) , optional :: errmsg
3645 logical(LK) , intent(out) , optional :: failed
3646 end subroutine
3647#endif
3648
3649#if CK3_ENABLED
3650 PURE module subroutine setResizedSLDD_D2_CK3(array, size, lbc, failed, errmsg)
3651#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3652 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_CK3
3653#endif
3654 use pm_kind, only: CKG => CK3
3655 complex(CKG) , intent(inout) , allocatable :: array(:,:)
3656 integer(IK) , intent(in) , dimension(2) :: size, lbc
3657 character(*, SK) , intent(out) , optional :: errmsg
3658 logical(LK) , intent(out) , optional :: failed
3659 end subroutine
3660#endif
3661
3662#if CK2_ENABLED
3663 PURE module subroutine setResizedSLDD_D2_CK2(array, size, lbc, failed, errmsg)
3664#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3665 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_CK2
3666#endif
3667 use pm_kind, only: CKG => CK2
3668 complex(CKG) , intent(inout) , allocatable :: array(:,:)
3669 integer(IK) , intent(in) , dimension(2) :: size, lbc
3670 character(*, SK) , intent(out) , optional :: errmsg
3671 logical(LK) , intent(out) , optional :: failed
3672 end subroutine
3673#endif
3674
3675#if CK1_ENABLED
3676 PURE module subroutine setResizedSLDD_D2_CK1(array, size, lbc, failed, errmsg)
3677#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3678 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_CK1
3679#endif
3680 use pm_kind, only: CKG => CK1
3681 complex(CKG) , intent(inout) , allocatable :: array(:,:)
3682 integer(IK) , intent(in) , dimension(2) :: size, lbc
3683 character(*, SK) , intent(out) , optional :: errmsg
3684 logical(LK) , intent(out) , optional :: failed
3685 end subroutine
3686#endif
3687
3688 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3689
3690#if RK5_ENABLED
3691 PURE module subroutine setResizedSLDD_D2_RK5(array, size, lbc, failed, errmsg)
3692#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3693 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_RK5
3694#endif
3695 use pm_kind, only: RKG => RK5
3696 real(RKG) , intent(inout) , allocatable :: array(:,:)
3697 integer(IK) , intent(in) , dimension(2) :: size, lbc
3698 character(*, SK) , intent(out) , optional :: errmsg
3699 logical(LK) , intent(out) , optional :: failed
3700 end subroutine
3701#endif
3702
3703#if RK4_ENABLED
3704 PURE module subroutine setResizedSLDD_D2_RK4(array, size, lbc, failed, errmsg)
3705#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3706 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_RK4
3707#endif
3708 use pm_kind, only: RKG => RK4
3709 real(RKG) , intent(inout) , allocatable :: array(:,:)
3710 integer(IK) , intent(in) , dimension(2) :: size, lbc
3711 character(*, SK) , intent(out) , optional :: errmsg
3712 logical(LK) , intent(out) , optional :: failed
3713 end subroutine
3714#endif
3715
3716#if RK3_ENABLED
3717 PURE module subroutine setResizedSLDD_D2_RK3(array, size, lbc, failed, errmsg)
3718#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3719 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_RK3
3720#endif
3721 use pm_kind, only: RKG => RK3
3722 real(RKG) , intent(inout) , allocatable :: array(:,:)
3723 integer(IK) , intent(in) , dimension(2) :: size, lbc
3724 character(*, SK) , intent(out) , optional :: errmsg
3725 logical(LK) , intent(out) , optional :: failed
3726 end subroutine
3727#endif
3728
3729#if RK2_ENABLED
3730 PURE module subroutine setResizedSLDD_D2_RK2(array, size, lbc, failed, errmsg)
3731#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3732 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_RK2
3733#endif
3734 use pm_kind, only: RKG => RK2
3735 real(RKG) , intent(inout) , allocatable :: array(:,:)
3736 integer(IK) , intent(in) , dimension(2) :: size, lbc
3737 character(*, SK) , intent(out) , optional :: errmsg
3738 logical(LK) , intent(out) , optional :: failed
3739 end subroutine
3740#endif
3741
3742#if RK1_ENABLED
3743 PURE module subroutine setResizedSLDD_D2_RK1(array, size, lbc, failed, errmsg)
3744#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3745 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_RK1
3746#endif
3747 use pm_kind, only: RKG => RK1
3748 real(RKG) , intent(inout) , allocatable :: array(:,:)
3749 integer(IK) , intent(in) , dimension(2) :: size, lbc
3750 character(*, SK) , intent(out) , optional :: errmsg
3751 logical(LK) , intent(out) , optional :: failed
3752 end subroutine
3753#endif
3754
3755 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3756
3757#if PDT_ENABLED
3758
3759#if SK5_ENABLED
3760 module subroutine setResizedSLDD_D2_PSSK5(array, size, lbc, failed, errmsg)
3761#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3762 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_PSSK5
3763#endif
3764 use pm_kind, only: SKG => SK5
3765 use pm_container, only: css_pdt
3766 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:)
3767 integer(IK) , intent(in) , dimension(2) :: size, lbc
3768 character(*, SK) , intent(out) , optional :: errmsg
3769 logical(LK) , intent(out) , optional :: failed
3770 end subroutine
3771#endif
3772
3773#if SK4_ENABLED
3774 module subroutine setResizedSLDD_D2_PSSK4(array, size, lbc, failed, errmsg)
3775#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3776 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_PSSK4
3777#endif
3778 use pm_kind, only: SKG => SK4
3779 use pm_container, only: css_pdt
3780 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:)
3781 integer(IK) , intent(in) , dimension(2) :: size, lbc
3782 character(*, SK) , intent(out) , optional :: errmsg
3783 logical(LK) , intent(out) , optional :: failed
3784 end subroutine
3785#endif
3786
3787#if SK3_ENABLED
3788 module subroutine setResizedSLDD_D2_PSSK3(array, size, lbc, failed, errmsg)
3789#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3790 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_PSSK3
3791#endif
3792 use pm_kind, only: SKG => SK3
3793 use pm_container, only: css_pdt
3794 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:)
3795 integer(IK) , intent(in) , dimension(2) :: size, lbc
3796 character(*, SK) , intent(out) , optional :: errmsg
3797 logical(LK) , intent(out) , optional :: failed
3798 end subroutine
3799#endif
3800
3801#if SK2_ENABLED
3802 module subroutine setResizedSLDD_D2_PSSK2(array, size, lbc, failed, errmsg)
3803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3804 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_PSSK2
3805#endif
3806 use pm_kind, only: SKG => SK2
3807 use pm_container, only: css_pdt
3808 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:)
3809 integer(IK) , intent(in) , dimension(2) :: size, lbc
3810 character(*, SK) , intent(out) , optional :: errmsg
3811 logical(LK) , intent(out) , optional :: failed
3812 end subroutine
3813#endif
3814
3815#if SK1_ENABLED
3816 module subroutine setResizedSLDD_D2_PSSK1(array, size, lbc, failed, errmsg)
3817#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3818 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_PSSK1
3819#endif
3820 use pm_kind, only: SKG => SK1
3821 use pm_container, only: css_pdt
3822 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:)
3823 integer(IK) , intent(in) , dimension(2) :: size, lbc
3824 character(*, SK) , intent(out) , optional :: errmsg
3825 logical(LK) , intent(out) , optional :: failed
3826 end subroutine
3827#endif
3828
3829#endif
3830!PDT_ENABLED
3831
3832 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3833
3834 module subroutine setResizedSLDD_D2_BSSK(array, size, lbc, failed, errmsg)
3835#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3836 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D2_BSSK
3837#endif
3838 use pm_kind, only: SKG => SK
3839 use pm_container, only: css_type
3840 type(css_type) , intent(inout) , allocatable :: array(:,:)
3841 integer(IK) , intent(in) , dimension(2) :: size, lbc
3842 character(*, SK) , intent(out) , optional :: errmsg
3843 logical(LK) , intent(out) , optional :: failed
3844 end subroutine
3845
3846 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3847
3848 end interface
3849
3850 ! SLDD_D3
3851
3852 interface setResized
3853
3854 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3855
3856#if SK5_ENABLED
3857 PURE module subroutine setResizedSLDD_D3_SK5(array, size, lbc, failed, errmsg)
3858#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3859 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_SK5
3860#endif
3861 use pm_kind, only: SKG => SK5
3862 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
3863 integer(IK) , intent(in) , dimension(3) :: size, lbc
3864 character(*, SK) , intent(out) , optional :: errmsg
3865 logical(LK) , intent(out) , optional :: failed
3866 end subroutine
3867#endif
3868
3869#if SK4_ENABLED
3870 PURE module subroutine setResizedSLDD_D3_SK4(array, size, lbc, failed, errmsg)
3871#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3872 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_SK4
3873#endif
3874 use pm_kind, only: SKG => SK4
3875 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
3876 integer(IK) , intent(in) , dimension(3) :: size, lbc
3877 character(*, SK) , intent(out) , optional :: errmsg
3878 logical(LK) , intent(out) , optional :: failed
3879 end subroutine
3880#endif
3881
3882#if SK3_ENABLED
3883 PURE module subroutine setResizedSLDD_D3_SK3(array, size, lbc, failed, errmsg)
3884#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3885 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_SK3
3886#endif
3887 use pm_kind, only: SKG => SK3
3888 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
3889 integer(IK) , intent(in) , dimension(3) :: size, lbc
3890 character(*, SK) , intent(out) , optional :: errmsg
3891 logical(LK) , intent(out) , optional :: failed
3892 end subroutine
3893#endif
3894
3895#if SK2_ENABLED
3896 PURE module subroutine setResizedSLDD_D3_SK2(array, size, lbc, failed, errmsg)
3897#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3898 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_SK2
3899#endif
3900 use pm_kind, only: SKG => SK2
3901 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
3902 integer(IK) , intent(in) , dimension(3) :: size, lbc
3903 character(*, SK) , intent(out) , optional :: errmsg
3904 logical(LK) , intent(out) , optional :: failed
3905 end subroutine
3906#endif
3907
3908#if SK1_ENABLED
3909 PURE module subroutine setResizedSLDD_D3_SK1(array, size, lbc, failed, errmsg)
3910#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3911 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_SK1
3912#endif
3913 use pm_kind, only: SKG => SK1
3914 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
3915 integer(IK) , intent(in) , dimension(3) :: size, lbc
3916 character(*, SK) , intent(out) , optional :: errmsg
3917 logical(LK) , intent(out) , optional :: failed
3918 end subroutine
3919#endif
3920
3921 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3922
3923#if IK5_ENABLED
3924 PURE module subroutine setResizedSLDD_D3_IK5(array, size, lbc, failed, errmsg)
3925#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3926 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_IK5
3927#endif
3928 use pm_kind, only: IKG => IK5
3929 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3930 integer(IK) , intent(in) , dimension(3) :: size, lbc
3931 character(*, SK) , intent(out) , optional :: errmsg
3932 logical(LK) , intent(out) , optional :: failed
3933 end subroutine
3934#endif
3935
3936#if IK4_ENABLED
3937 PURE module subroutine setResizedSLDD_D3_IK4(array, size, lbc, failed, errmsg)
3938#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3939 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_IK4
3940#endif
3941 use pm_kind, only: IKG => IK4
3942 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3943 integer(IK) , intent(in) , dimension(3) :: size, lbc
3944 character(*, SK) , intent(out) , optional :: errmsg
3945 logical(LK) , intent(out) , optional :: failed
3946 end subroutine
3947#endif
3948
3949#if IK3_ENABLED
3950 PURE module subroutine setResizedSLDD_D3_IK3(array, size, lbc, failed, errmsg)
3951#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3952 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_IK3
3953#endif
3954 use pm_kind, only: IKG => IK3
3955 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3956 integer(IK) , intent(in) , dimension(3) :: size, lbc
3957 character(*, SK) , intent(out) , optional :: errmsg
3958 logical(LK) , intent(out) , optional :: failed
3959 end subroutine
3960#endif
3961
3962#if IK2_ENABLED
3963 PURE module subroutine setResizedSLDD_D3_IK2(array, size, lbc, failed, errmsg)
3964#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3965 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_IK2
3966#endif
3967 use pm_kind, only: IKG => IK2
3968 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3969 integer(IK) , intent(in) , dimension(3) :: size, lbc
3970 character(*, SK) , intent(out) , optional :: errmsg
3971 logical(LK) , intent(out) , optional :: failed
3972 end subroutine
3973#endif
3974
3975#if IK1_ENABLED
3976 PURE module subroutine setResizedSLDD_D3_IK1(array, size, lbc, failed, errmsg)
3977#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3978 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_IK1
3979#endif
3980 use pm_kind, only: IKG => IK1
3981 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
3982 integer(IK) , intent(in) , dimension(3) :: size, lbc
3983 character(*, SK) , intent(out) , optional :: errmsg
3984 logical(LK) , intent(out) , optional :: failed
3985 end subroutine
3986#endif
3987
3988 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3989
3990#if LK5_ENABLED
3991 PURE module subroutine setResizedSLDD_D3_LK5(array, size, lbc, failed, errmsg)
3992#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
3993 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_LK5
3994#endif
3995 use pm_kind, only: LKG => LK5
3996 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
3997 integer(IK) , intent(in) , dimension(3) :: size, lbc
3998 character(*, SK) , intent(out) , optional :: errmsg
3999 logical(LK) , intent(out) , optional :: failed
4000 end subroutine
4001#endif
4002
4003#if LK4_ENABLED
4004 PURE module subroutine setResizedSLDD_D3_LK4(array, size, lbc, failed, errmsg)
4005#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4006 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_LK4
4007#endif
4008 use pm_kind, only: LKG => LK4
4009 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
4010 integer(IK) , intent(in) , dimension(3) :: size, lbc
4011 character(*, SK) , intent(out) , optional :: errmsg
4012 logical(LK) , intent(out) , optional :: failed
4013 end subroutine
4014#endif
4015
4016#if LK3_ENABLED
4017 PURE module subroutine setResizedSLDD_D3_LK3(array, size, lbc, failed, errmsg)
4018#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4019 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_LK3
4020#endif
4021 use pm_kind, only: LKG => LK3
4022 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
4023 integer(IK) , intent(in) , dimension(3) :: size, lbc
4024 character(*, SK) , intent(out) , optional :: errmsg
4025 logical(LK) , intent(out) , optional :: failed
4026 end subroutine
4027#endif
4028
4029#if LK2_ENABLED
4030 PURE module subroutine setResizedSLDD_D3_LK2(array, size, lbc, failed, errmsg)
4031#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4032 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_LK2
4033#endif
4034 use pm_kind, only: LKG => LK2
4035 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
4036 integer(IK) , intent(in) , dimension(3) :: size, lbc
4037 character(*, SK) , intent(out) , optional :: errmsg
4038 logical(LK) , intent(out) , optional :: failed
4039 end subroutine
4040#endif
4041
4042#if LK1_ENABLED
4043 PURE module subroutine setResizedSLDD_D3_LK1(array, size, lbc, failed, errmsg)
4044#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4045 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_LK1
4046#endif
4047 use pm_kind, only: LKG => LK1
4048 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
4049 integer(IK) , intent(in) , dimension(3) :: size, lbc
4050 character(*, SK) , intent(out) , optional :: errmsg
4051 logical(LK) , intent(out) , optional :: failed
4052 end subroutine
4053#endif
4054
4055 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4056
4057#if CK5_ENABLED
4058 PURE module subroutine setResizedSLDD_D3_CK5(array, size, lbc, failed, errmsg)
4059#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4060 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_CK5
4061#endif
4062 use pm_kind, only: CKG => CK5
4063 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
4064 integer(IK) , intent(in) , dimension(3) :: size, lbc
4065 character(*, SK) , intent(out) , optional :: errmsg
4066 logical(LK) , intent(out) , optional :: failed
4067 end subroutine
4068#endif
4069
4070#if CK4_ENABLED
4071 PURE module subroutine setResizedSLDD_D3_CK4(array, size, lbc, failed, errmsg)
4072#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4073 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_CK4
4074#endif
4075 use pm_kind, only: CKG => CK4
4076 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
4077 integer(IK) , intent(in) , dimension(3) :: size, lbc
4078 character(*, SK) , intent(out) , optional :: errmsg
4079 logical(LK) , intent(out) , optional :: failed
4080 end subroutine
4081#endif
4082
4083#if CK3_ENABLED
4084 PURE module subroutine setResizedSLDD_D3_CK3(array, size, lbc, failed, errmsg)
4085#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4086 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_CK3
4087#endif
4088 use pm_kind, only: CKG => CK3
4089 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
4090 integer(IK) , intent(in) , dimension(3) :: size, lbc
4091 character(*, SK) , intent(out) , optional :: errmsg
4092 logical(LK) , intent(out) , optional :: failed
4093 end subroutine
4094#endif
4095
4096#if CK2_ENABLED
4097 PURE module subroutine setResizedSLDD_D3_CK2(array, size, lbc, failed, errmsg)
4098#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4099 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_CK2
4100#endif
4101 use pm_kind, only: CKG => CK2
4102 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
4103 integer(IK) , intent(in) , dimension(3) :: size, lbc
4104 character(*, SK) , intent(out) , optional :: errmsg
4105 logical(LK) , intent(out) , optional :: failed
4106 end subroutine
4107#endif
4108
4109#if CK1_ENABLED
4110 PURE module subroutine setResizedSLDD_D3_CK1(array, size, lbc, failed, errmsg)
4111#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4112 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_CK1
4113#endif
4114 use pm_kind, only: CKG => CK1
4115 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
4116 integer(IK) , intent(in) , dimension(3) :: size, lbc
4117 character(*, SK) , intent(out) , optional :: errmsg
4118 logical(LK) , intent(out) , optional :: failed
4119 end subroutine
4120#endif
4121
4122 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4123
4124#if RK5_ENABLED
4125 PURE module subroutine setResizedSLDD_D3_RK5(array, size, lbc, failed, errmsg)
4126#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4127 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_RK5
4128#endif
4129 use pm_kind, only: RKG => RK5
4130 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
4131 integer(IK) , intent(in) , dimension(3) :: size, lbc
4132 character(*, SK) , intent(out) , optional :: errmsg
4133 logical(LK) , intent(out) , optional :: failed
4134 end subroutine
4135#endif
4136
4137#if RK4_ENABLED
4138 PURE module subroutine setResizedSLDD_D3_RK4(array, size, lbc, failed, errmsg)
4139#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4140 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_RK4
4141#endif
4142 use pm_kind, only: RKG => RK4
4143 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
4144 integer(IK) , intent(in) , dimension(3) :: size, lbc
4145 character(*, SK) , intent(out) , optional :: errmsg
4146 logical(LK) , intent(out) , optional :: failed
4147 end subroutine
4148#endif
4149
4150#if RK3_ENABLED
4151 PURE module subroutine setResizedSLDD_D3_RK3(array, size, lbc, failed, errmsg)
4152#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4153 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_RK3
4154#endif
4155 use pm_kind, only: RKG => RK3
4156 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
4157 integer(IK) , intent(in) , dimension(3) :: size, lbc
4158 character(*, SK) , intent(out) , optional :: errmsg
4159 logical(LK) , intent(out) , optional :: failed
4160 end subroutine
4161#endif
4162
4163#if RK2_ENABLED
4164 PURE module subroutine setResizedSLDD_D3_RK2(array, size, lbc, failed, errmsg)
4165#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4166 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_RK2
4167#endif
4168 use pm_kind, only: RKG => RK2
4169 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
4170 integer(IK) , intent(in) , dimension(3) :: size, lbc
4171 character(*, SK) , intent(out) , optional :: errmsg
4172 logical(LK) , intent(out) , optional :: failed
4173 end subroutine
4174#endif
4175
4176#if RK1_ENABLED
4177 PURE module subroutine setResizedSLDD_D3_RK1(array, size, lbc, failed, errmsg)
4178#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4179 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_RK1
4180#endif
4181 use pm_kind, only: RKG => RK1
4182 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
4183 integer(IK) , intent(in) , dimension(3) :: size, lbc
4184 character(*, SK) , intent(out) , optional :: errmsg
4185 logical(LK) , intent(out) , optional :: failed
4186 end subroutine
4187#endif
4188
4189 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4190
4191#if PDT_ENABLED
4192
4193#if SK5_ENABLED
4194 module subroutine setResizedSLDD_D3_PSSK5(array, size, lbc, failed, errmsg)
4195#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4196 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_PSSK5
4197#endif
4198 use pm_kind, only: SKG => SK5
4199 use pm_container, only: css_pdt
4200 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
4201 integer(IK) , intent(in) , dimension(3) :: size, lbc
4202 character(*, SK) , intent(out) , optional :: errmsg
4203 logical(LK) , intent(out) , optional :: failed
4204 end subroutine
4205#endif
4206
4207#if SK4_ENABLED
4208 module subroutine setResizedSLDD_D3_PSSK4(array, size, lbc, failed, errmsg)
4209#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4210 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_PSSK4
4211#endif
4212 use pm_kind, only: SKG => SK4
4213 use pm_container, only: css_pdt
4214 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
4215 integer(IK) , intent(in) , dimension(3) :: size, lbc
4216 character(*, SK) , intent(out) , optional :: errmsg
4217 logical(LK) , intent(out) , optional :: failed
4218 end subroutine
4219#endif
4220
4221#if SK3_ENABLED
4222 module subroutine setResizedSLDD_D3_PSSK3(array, size, lbc, failed, errmsg)
4223#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4224 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_PSSK3
4225#endif
4226 use pm_kind, only: SKG => SK3
4227 use pm_container, only: css_pdt
4228 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
4229 integer(IK) , intent(in) , dimension(3) :: size, lbc
4230 character(*, SK) , intent(out) , optional :: errmsg
4231 logical(LK) , intent(out) , optional :: failed
4232 end subroutine
4233#endif
4234
4235#if SK2_ENABLED
4236 module subroutine setResizedSLDD_D3_PSSK2(array, size, lbc, failed, errmsg)
4237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4238 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_PSSK2
4239#endif
4240 use pm_kind, only: SKG => SK2
4241 use pm_container, only: css_pdt
4242 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
4243 integer(IK) , intent(in) , dimension(3) :: size, lbc
4244 character(*, SK) , intent(out) , optional :: errmsg
4245 logical(LK) , intent(out) , optional :: failed
4246 end subroutine
4247#endif
4248
4249#if SK1_ENABLED
4250 module subroutine setResizedSLDD_D3_PSSK1(array, size, lbc, failed, errmsg)
4251#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4252 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_PSSK1
4253#endif
4254 use pm_kind, only: SKG => SK1
4255 use pm_container, only: css_pdt
4256 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
4257 integer(IK) , intent(in) , dimension(3) :: size, lbc
4258 character(*, SK) , intent(out) , optional :: errmsg
4259 logical(LK) , intent(out) , optional :: failed
4260 end subroutine
4261#endif
4262
4263#endif
4264!PDT_ENABLED
4265
4266 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4267
4268 module subroutine setResizedSLDD_D3_BSSK(array, size, lbc, failed, errmsg)
4269#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4270 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLDD_D3_BSSK
4271#endif
4272 use pm_kind, only: SKG => SK
4273 use pm_container, only: css_type
4274 type(css_type) , intent(inout) , allocatable :: array(:,:,:)
4275 integer(IK) , intent(in) , dimension(3) :: size, lbc
4276 character(*, SK) , intent(out) , optional :: errmsg
4277 logical(LK) , intent(out) , optional :: failed
4278 end subroutine
4279
4280 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4281
4282 end interface
4283
4284 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4285
4286 ! SLLU_D0
4287
4288 interface setResized
4289
4290 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4291
4292#if SK5_ENABLED
4293 PURE module subroutine setResizedSLLU_D0_SK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
4294#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4295 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D0_SK5
4296#endif
4297 use pm_kind, only: SKG => SK5
4298 character(:,SKG) , intent(inout) , allocatable :: array
4299 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4300 character(*, SK) , intent(out) , optional :: errmsg
4301 logical(LK) , intent(out) , optional :: failed
4302 end subroutine
4303#endif
4304
4305#if SK4_ENABLED
4306 PURE module subroutine setResizedSLLU_D0_SK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
4307#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4308 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D0_SK4
4309#endif
4310 use pm_kind, only: SKG => SK4
4311 character(:,SKG) , intent(inout) , allocatable :: array
4312 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4313 character(*, SK) , intent(out) , optional :: errmsg
4314 logical(LK) , intent(out) , optional :: failed
4315 end subroutine
4316#endif
4317
4318#if SK3_ENABLED
4319 PURE module subroutine setResizedSLLU_D0_SK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
4320#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4321 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D0_SK3
4322#endif
4323 use pm_kind, only: SKG => SK3
4324 character(:,SKG) , intent(inout) , allocatable :: array
4325 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4326 character(*, SK) , intent(out) , optional :: errmsg
4327 logical(LK) , intent(out) , optional :: failed
4328 end subroutine
4329#endif
4330
4331#if SK2_ENABLED
4332 PURE module subroutine setResizedSLLU_D0_SK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
4333#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4334 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D0_SK2
4335#endif
4336 use pm_kind, only: SKG => SK2
4337 character(:,SKG) , intent(inout) , allocatable :: array
4338 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4339 character(*, SK) , intent(out) , optional :: errmsg
4340 logical(LK) , intent(out) , optional :: failed
4341 end subroutine
4342#endif
4343
4344#if SK1_ENABLED
4345 PURE module subroutine setResizedSLLU_D0_SK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
4346#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4347 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D0_SK1
4348#endif
4349 use pm_kind, only: SKG => SK1
4350 character(:,SKG) , intent(inout) , allocatable :: array
4351 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4352 character(*, SK) , intent(out) , optional :: errmsg
4353 logical(LK) , intent(out) , optional :: failed
4354 end subroutine
4355#endif
4356
4357 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4358
4359 end interface
4360
4361 ! SLLU_D1
4362
4363 interface setResized
4364
4365 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4366
4367#if SK5_ENABLED
4368 PURE module subroutine setResizedSLLU_D1_SK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
4369#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4370 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_SK5
4371#endif
4372 use pm_kind, only: SKG => SK5
4373 character(*,SKG) , intent(inout) , allocatable :: array(:)
4374 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4375 character(*, SK) , intent(out) , optional :: errmsg
4376 logical(LK) , intent(out) , optional :: failed
4377 end subroutine
4378#endif
4379
4380#if SK4_ENABLED
4381 PURE module subroutine setResizedSLLU_D1_SK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
4382#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4383 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_SK4
4384#endif
4385 use pm_kind, only: SKG => SK4
4386 character(*,SKG) , intent(inout) , allocatable :: array(:)
4387 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4388 character(*, SK) , intent(out) , optional :: errmsg
4389 logical(LK) , intent(out) , optional :: failed
4390 end subroutine
4391#endif
4392
4393#if SK3_ENABLED
4394 PURE module subroutine setResizedSLLU_D1_SK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
4395#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4396 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_SK3
4397#endif
4398 use pm_kind, only: SKG => SK3
4399 character(*,SKG) , intent(inout) , allocatable :: array(:)
4400 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4401 character(*, SK) , intent(out) , optional :: errmsg
4402 logical(LK) , intent(out) , optional :: failed
4403 end subroutine
4404#endif
4405
4406#if SK2_ENABLED
4407 PURE module subroutine setResizedSLLU_D1_SK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
4408#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4409 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_SK2
4410#endif
4411 use pm_kind, only: SKG => SK2
4412 character(*,SKG) , intent(inout) , allocatable :: array(:)
4413 integer(IK) , intent(in) :: 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 SK1_ENABLED
4420 PURE module subroutine setResizedSLLU_D1_SK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
4421#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4422 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_SK1
4423#endif
4424 use pm_kind, only: SKG => SK1
4425 character(*,SKG) , intent(inout) , allocatable :: array(:)
4426 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4427 character(*, SK) , intent(out) , optional :: errmsg
4428 logical(LK) , intent(out) , optional :: failed
4429 end subroutine
4430#endif
4431
4432 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4433
4434#if IK5_ENABLED
4435 PURE module subroutine setResizedSLLU_D1_IK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
4436#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4437 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_IK5
4438#endif
4439 use pm_kind, only: IKG => IK5
4440 integer(IKG) , intent(inout) , allocatable :: array(:)
4441 integer(IK) , intent(in) :: 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#if IK4_ENABLED
4448 PURE module subroutine setResizedSLLU_D1_IK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
4449#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4450 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_IK4
4451#endif
4452 use pm_kind, only: IKG => IK4
4453 integer(IKG) , intent(inout) , allocatable :: array(:)
4454 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4455 character(*, SK) , intent(out) , optional :: errmsg
4456 logical(LK) , intent(out) , optional :: failed
4457 end subroutine
4458#endif
4459
4460#if IK3_ENABLED
4461 PURE module subroutine setResizedSLLU_D1_IK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
4462#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4463 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_IK3
4464#endif
4465 use pm_kind, only: IKG => IK3
4466 integer(IKG) , intent(inout) , allocatable :: array(:)
4467 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4468 character(*, SK) , intent(out) , optional :: errmsg
4469 logical(LK) , intent(out) , optional :: failed
4470 end subroutine
4471#endif
4472
4473#if IK2_ENABLED
4474 PURE module subroutine setResizedSLLU_D1_IK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
4475#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4476 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_IK2
4477#endif
4478 use pm_kind, only: IKG => IK2
4479 integer(IKG) , intent(inout) , allocatable :: array(:)
4480 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4481 character(*, SK) , intent(out) , optional :: errmsg
4482 logical(LK) , intent(out) , optional :: failed
4483 end subroutine
4484#endif
4485
4486#if IK1_ENABLED
4487 PURE module subroutine setResizedSLLU_D1_IK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
4488#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4489 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_IK1
4490#endif
4491 use pm_kind, only: IKG => IK1
4492 integer(IKG) , intent(inout) , allocatable :: array(:)
4493 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4494 character(*, SK) , intent(out) , optional :: errmsg
4495 logical(LK) , intent(out) , optional :: failed
4496 end subroutine
4497#endif
4498
4499 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4500
4501#if LK5_ENABLED
4502 PURE module subroutine setResizedSLLU_D1_LK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
4503#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4504 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_LK5
4505#endif
4506 use pm_kind, only: LKG => LK5
4507 logical(LKG) , intent(inout) , allocatable :: array(:)
4508 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4509 character(*, SK) , intent(out) , optional :: errmsg
4510 logical(LK) , intent(out) , optional :: failed
4511 end subroutine
4512#endif
4513
4514#if LK4_ENABLED
4515 PURE module subroutine setResizedSLLU_D1_LK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
4516#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4517 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_LK4
4518#endif
4519 use pm_kind, only: LKG => LK4
4520 logical(LKG) , intent(inout) , allocatable :: array(:)
4521 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4522 character(*, SK) , intent(out) , optional :: errmsg
4523 logical(LK) , intent(out) , optional :: failed
4524 end subroutine
4525#endif
4526
4527#if LK3_ENABLED
4528 PURE module subroutine setResizedSLLU_D1_LK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
4529#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4530 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_LK3
4531#endif
4532 use pm_kind, only: LKG => LK3
4533 logical(LKG) , intent(inout) , allocatable :: array(:)
4534 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4535 character(*, SK) , intent(out) , optional :: errmsg
4536 logical(LK) , intent(out) , optional :: failed
4537 end subroutine
4538#endif
4539
4540#if LK2_ENABLED
4541 PURE module subroutine setResizedSLLU_D1_LK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
4542#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4543 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_LK2
4544#endif
4545 use pm_kind, only: LKG => LK2
4546 logical(LKG) , intent(inout) , allocatable :: array(:)
4547 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4548 character(*, SK) , intent(out) , optional :: errmsg
4549 logical(LK) , intent(out) , optional :: failed
4550 end subroutine
4551#endif
4552
4553#if LK1_ENABLED
4554 PURE module subroutine setResizedSLLU_D1_LK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
4555#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4556 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_LK1
4557#endif
4558 use pm_kind, only: LKG => LK1
4559 logical(LKG) , intent(inout) , allocatable :: array(:)
4560 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4561 character(*, SK) , intent(out) , optional :: errmsg
4562 logical(LK) , intent(out) , optional :: failed
4563 end subroutine
4564#endif
4565
4566 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4567
4568#if CK5_ENABLED
4569 PURE module subroutine setResizedSLLU_D1_CK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
4570#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4571 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_CK5
4572#endif
4573 use pm_kind, only: CKG => CK5
4574 complex(CKG) , intent(inout) , allocatable :: array(:)
4575 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4576 character(*, SK) , intent(out) , optional :: errmsg
4577 logical(LK) , intent(out) , optional :: failed
4578 end subroutine
4579#endif
4580
4581#if CK4_ENABLED
4582 PURE module subroutine setResizedSLLU_D1_CK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
4583#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4584 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_CK4
4585#endif
4586 use pm_kind, only: CKG => CK4
4587 complex(CKG) , intent(inout) , allocatable :: array(:)
4588 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4589 character(*, SK) , intent(out) , optional :: errmsg
4590 logical(LK) , intent(out) , optional :: failed
4591 end subroutine
4592#endif
4593
4594#if CK3_ENABLED
4595 PURE module subroutine setResizedSLLU_D1_CK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
4596#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4597 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_CK3
4598#endif
4599 use pm_kind, only: CKG => CK3
4600 complex(CKG) , intent(inout) , allocatable :: array(:)
4601 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4602 character(*, SK) , intent(out) , optional :: errmsg
4603 logical(LK) , intent(out) , optional :: failed
4604 end subroutine
4605#endif
4606
4607#if CK2_ENABLED
4608 PURE module subroutine setResizedSLLU_D1_CK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
4609#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4610 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_CK2
4611#endif
4612 use pm_kind, only: CKG => CK2
4613 complex(CKG) , intent(inout) , allocatable :: array(:)
4614 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4615 character(*, SK) , intent(out) , optional :: errmsg
4616 logical(LK) , intent(out) , optional :: failed
4617 end subroutine
4618#endif
4619
4620#if CK1_ENABLED
4621 PURE module subroutine setResizedSLLU_D1_CK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
4622#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4623 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_CK1
4624#endif
4625 use pm_kind, only: CKG => CK1
4626 complex(CKG) , intent(inout) , allocatable :: array(:)
4627 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4628 character(*, SK) , intent(out) , optional :: errmsg
4629 logical(LK) , intent(out) , optional :: failed
4630 end subroutine
4631#endif
4632
4633 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4634
4635#if RK5_ENABLED
4636 PURE module subroutine setResizedSLLU_D1_RK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
4637#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4638 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_RK5
4639#endif
4640 use pm_kind, only: RKG => RK5
4641 real(RKG) , intent(inout) , allocatable :: array(:)
4642 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4643 character(*, SK) , intent(out) , optional :: errmsg
4644 logical(LK) , intent(out) , optional :: failed
4645 end subroutine
4646#endif
4647
4648#if RK4_ENABLED
4649 PURE module subroutine setResizedSLLU_D1_RK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
4650#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4651 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_RK4
4652#endif
4653 use pm_kind, only: RKG => RK4
4654 real(RKG) , intent(inout) , allocatable :: array(:)
4655 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4656 character(*, SK) , intent(out) , optional :: errmsg
4657 logical(LK) , intent(out) , optional :: failed
4658 end subroutine
4659#endif
4660
4661#if RK3_ENABLED
4662 PURE module subroutine setResizedSLLU_D1_RK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
4663#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4664 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_RK3
4665#endif
4666 use pm_kind, only: RKG => RK3
4667 real(RKG) , intent(inout) , allocatable :: array(:)
4668 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4669 character(*, SK) , intent(out) , optional :: errmsg
4670 logical(LK) , intent(out) , optional :: failed
4671 end subroutine
4672#endif
4673
4674#if RK2_ENABLED
4675 PURE module subroutine setResizedSLLU_D1_RK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
4676#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4677 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_RK2
4678#endif
4679 use pm_kind, only: RKG => RK2
4680 real(RKG) , intent(inout) , allocatable :: array(:)
4681 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4682 character(*, SK) , intent(out) , optional :: errmsg
4683 logical(LK) , intent(out) , optional :: failed
4684 end subroutine
4685#endif
4686
4687#if RK1_ENABLED
4688 PURE module subroutine setResizedSLLU_D1_RK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
4689#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4690 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_RK1
4691#endif
4692 use pm_kind, only: RKG => RK1
4693 real(RKG) , intent(inout) , allocatable :: array(:)
4694 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4695 character(*, SK) , intent(out) , optional :: errmsg
4696 logical(LK) , intent(out) , optional :: failed
4697 end subroutine
4698#endif
4699
4700 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4701
4702#if PDT_ENABLED
4703
4704#if SK5_ENABLED
4705 module subroutine setResizedSLLU_D1_PSSK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
4706#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4707 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_PSSK5
4708#endif
4709 use pm_kind, only: SKG => SK5
4710 use pm_container, only: css_pdt
4711 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
4712 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4713 character(*, SK) , intent(out) , optional :: errmsg
4714 logical(LK) , intent(out) , optional :: failed
4715 end subroutine
4716#endif
4717
4718#if SK4_ENABLED
4719 module subroutine setResizedSLLU_D1_PSSK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
4720#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4721 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_PSSK4
4722#endif
4723 use pm_kind, only: SKG => SK4
4724 use pm_container, only: css_pdt
4725 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
4726 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4727 character(*, SK) , intent(out) , optional :: errmsg
4728 logical(LK) , intent(out) , optional :: failed
4729 end subroutine
4730#endif
4731
4732#if SK3_ENABLED
4733 module subroutine setResizedSLLU_D1_PSSK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
4734#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4735 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_PSSK3
4736#endif
4737 use pm_kind, only: SKG => SK3
4738 use pm_container, only: css_pdt
4739 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
4740 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4741 character(*, SK) , intent(out) , optional :: errmsg
4742 logical(LK) , intent(out) , optional :: failed
4743 end subroutine
4744#endif
4745
4746#if SK2_ENABLED
4747 module subroutine setResizedSLLU_D1_PSSK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
4748#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4749 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_PSSK2
4750#endif
4751 use pm_kind, only: SKG => SK2
4752 use pm_container, only: css_pdt
4753 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
4754 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4755 character(*, SK) , intent(out) , optional :: errmsg
4756 logical(LK) , intent(out) , optional :: failed
4757 end subroutine
4758#endif
4759
4760#if SK1_ENABLED
4761 module subroutine setResizedSLLU_D1_PSSK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
4762#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4763 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_PSSK1
4764#endif
4765 use pm_kind, only: SKG => SK1
4766 use pm_container, only: css_pdt
4767 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:)
4768 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4769 character(*, SK) , intent(out) , optional :: errmsg
4770 logical(LK) , intent(out) , optional :: failed
4771 end subroutine
4772#endif
4773
4774#endif
4775!PDT_ENABLED
4776
4777 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4778
4779 module subroutine setResizedSLLU_D1_BSSK(array, size, lbc, lbcold, ubcold, failed, errmsg)
4780#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4781 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D1_BSSK
4782#endif
4783 use pm_kind, only: SKG => SK
4784 use pm_container, only: css_type
4785 type(css_type) , intent(inout) , allocatable :: array(:)
4786 integer(IK) , intent(in) :: size, lbc, lbcold, ubcold
4787 character(*, SK) , intent(out) , optional :: errmsg
4788 logical(LK) , intent(out) , optional :: failed
4789 end subroutine
4790
4791 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4792
4793 end interface
4794
4795 ! SLLU_D2
4796
4797 interface setResized
4798
4799 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4800
4801#if SK5_ENABLED
4802 PURE module subroutine setResizedSLLU_D2_SK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
4803#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4804 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_SK5
4805#endif
4806 use pm_kind, only: SKG => SK5
4807 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
4808 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4809 character(*, SK) , intent(out) , optional :: errmsg
4810 logical(LK) , intent(out) , optional :: failed
4811 end subroutine
4812#endif
4813
4814#if SK4_ENABLED
4815 PURE module subroutine setResizedSLLU_D2_SK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
4816#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4817 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_SK4
4818#endif
4819 use pm_kind, only: SKG => SK4
4820 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
4821 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4822 character(*, SK) , intent(out) , optional :: errmsg
4823 logical(LK) , intent(out) , optional :: failed
4824 end subroutine
4825#endif
4826
4827#if SK3_ENABLED
4828 PURE module subroutine setResizedSLLU_D2_SK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
4829#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4830 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_SK3
4831#endif
4832 use pm_kind, only: SKG => SK3
4833 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
4834 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4835 character(*, SK) , intent(out) , optional :: errmsg
4836 logical(LK) , intent(out) , optional :: failed
4837 end subroutine
4838#endif
4839
4840#if SK2_ENABLED
4841 PURE module subroutine setResizedSLLU_D2_SK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
4842#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4843 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_SK2
4844#endif
4845 use pm_kind, only: SKG => SK2
4846 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
4847 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4848 character(*, SK) , intent(out) , optional :: errmsg
4849 logical(LK) , intent(out) , optional :: failed
4850 end subroutine
4851#endif
4852
4853#if SK1_ENABLED
4854 PURE module subroutine setResizedSLLU_D2_SK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
4855#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4856 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_SK1
4857#endif
4858 use pm_kind, only: SKG => SK1
4859 character(*,SKG) , intent(inout) , allocatable :: array(:,:)
4860 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4861 character(*, SK) , intent(out) , optional :: errmsg
4862 logical(LK) , intent(out) , optional :: failed
4863 end subroutine
4864#endif
4865
4866 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4867
4868#if IK5_ENABLED
4869 PURE module subroutine setResizedSLLU_D2_IK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
4870#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4871 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_IK5
4872#endif
4873 use pm_kind, only: IKG => IK5
4874 integer(IKG) , intent(inout) , allocatable :: array(:,:)
4875 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4876 character(*, SK) , intent(out) , optional :: errmsg
4877 logical(LK) , intent(out) , optional :: failed
4878 end subroutine
4879#endif
4880
4881#if IK4_ENABLED
4882 PURE module subroutine setResizedSLLU_D2_IK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
4883#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4884 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_IK4
4885#endif
4886 use pm_kind, only: IKG => IK4
4887 integer(IKG) , intent(inout) , allocatable :: array(:,:)
4888 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4889 character(*, SK) , intent(out) , optional :: errmsg
4890 logical(LK) , intent(out) , optional :: failed
4891 end subroutine
4892#endif
4893
4894#if IK3_ENABLED
4895 PURE module subroutine setResizedSLLU_D2_IK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
4896#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4897 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_IK3
4898#endif
4899 use pm_kind, only: IKG => IK3
4900 integer(IKG) , intent(inout) , allocatable :: array(:,:)
4901 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4902 character(*, SK) , intent(out) , optional :: errmsg
4903 logical(LK) , intent(out) , optional :: failed
4904 end subroutine
4905#endif
4906
4907#if IK2_ENABLED
4908 PURE module subroutine setResizedSLLU_D2_IK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
4909#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4910 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_IK2
4911#endif
4912 use pm_kind, only: IKG => IK2
4913 integer(IKG) , intent(inout) , allocatable :: array(:,:)
4914 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4915 character(*, SK) , intent(out) , optional :: errmsg
4916 logical(LK) , intent(out) , optional :: failed
4917 end subroutine
4918#endif
4919
4920#if IK1_ENABLED
4921 PURE module subroutine setResizedSLLU_D2_IK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
4922#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4923 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_IK1
4924#endif
4925 use pm_kind, only: IKG => IK1
4926 integer(IKG) , intent(inout) , allocatable :: array(:,:)
4927 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4928 character(*, SK) , intent(out) , optional :: errmsg
4929 logical(LK) , intent(out) , optional :: failed
4930 end subroutine
4931#endif
4932
4933 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4934
4935#if LK5_ENABLED
4936 PURE module subroutine setResizedSLLU_D2_LK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
4937#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4938 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_LK5
4939#endif
4940 use pm_kind, only: LKG => LK5
4941 logical(LKG) , intent(inout) , allocatable :: array(:,:)
4942 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4943 character(*, SK) , intent(out) , optional :: errmsg
4944 logical(LK) , intent(out) , optional :: failed
4945 end subroutine
4946#endif
4947
4948#if LK4_ENABLED
4949 PURE module subroutine setResizedSLLU_D2_LK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
4950#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4951 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_LK4
4952#endif
4953 use pm_kind, only: LKG => LK4
4954 logical(LKG) , intent(inout) , allocatable :: array(:,:)
4955 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4956 character(*, SK) , intent(out) , optional :: errmsg
4957 logical(LK) , intent(out) , optional :: failed
4958 end subroutine
4959#endif
4960
4961#if LK3_ENABLED
4962 PURE module subroutine setResizedSLLU_D2_LK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
4963#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4964 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_LK3
4965#endif
4966 use pm_kind, only: LKG => LK3
4967 logical(LKG) , intent(inout) , allocatable :: array(:,:)
4968 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4969 character(*, SK) , intent(out) , optional :: errmsg
4970 logical(LK) , intent(out) , optional :: failed
4971 end subroutine
4972#endif
4973
4974#if LK2_ENABLED
4975 PURE module subroutine setResizedSLLU_D2_LK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
4976#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4977 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_LK2
4978#endif
4979 use pm_kind, only: LKG => LK2
4980 logical(LKG) , intent(inout) , allocatable :: array(:,:)
4981 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4982 character(*, SK) , intent(out) , optional :: errmsg
4983 logical(LK) , intent(out) , optional :: failed
4984 end subroutine
4985#endif
4986
4987#if LK1_ENABLED
4988 PURE module subroutine setResizedSLLU_D2_LK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
4989#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
4990 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_LK1
4991#endif
4992 use pm_kind, only: LKG => LK1
4993 logical(LKG) , intent(inout) , allocatable :: array(:,:)
4994 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
4995 character(*, SK) , intent(out) , optional :: errmsg
4996 logical(LK) , intent(out) , optional :: failed
4997 end subroutine
4998#endif
4999
5000 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5001
5002#if CK5_ENABLED
5003 PURE module subroutine setResizedSLLU_D2_CK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
5004#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5005 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_CK5
5006#endif
5007 use pm_kind, only: CKG => CK5
5008 complex(CKG) , intent(inout) , allocatable :: array(:,:)
5009 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
5010 character(*, SK) , intent(out) , optional :: errmsg
5011 logical(LK) , intent(out) , optional :: failed
5012 end subroutine
5013#endif
5014
5015#if CK4_ENABLED
5016 PURE module subroutine setResizedSLLU_D2_CK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
5017#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5018 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_CK4
5019#endif
5020 use pm_kind, only: CKG => CK4
5021 complex(CKG) , intent(inout) , allocatable :: array(:,:)
5022 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
5023 character(*, SK) , intent(out) , optional :: errmsg
5024 logical(LK) , intent(out) , optional :: failed
5025 end subroutine
5026#endif
5027
5028#if CK3_ENABLED
5029 PURE module subroutine setResizedSLLU_D2_CK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
5030#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5031 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_CK3
5032#endif
5033 use pm_kind, only: CKG => CK3
5034 complex(CKG) , intent(inout) , allocatable :: array(:,:)
5035 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
5036 character(*, SK) , intent(out) , optional :: errmsg
5037 logical(LK) , intent(out) , optional :: failed
5038 end subroutine
5039#endif
5040
5041#if CK2_ENABLED
5042 PURE module subroutine setResizedSLLU_D2_CK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
5043#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5044 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_CK2
5045#endif
5046 use pm_kind, only: CKG => CK2
5047 complex(CKG) , intent(inout) , allocatable :: array(:,:)
5048 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
5049 character(*, SK) , intent(out) , optional :: errmsg
5050 logical(LK) , intent(out) , optional :: failed
5051 end subroutine
5052#endif
5053
5054#if CK1_ENABLED
5055 PURE module subroutine setResizedSLLU_D2_CK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
5056#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5057 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_CK1
5058#endif
5059 use pm_kind, only: CKG => CK1
5060 complex(CKG) , intent(inout) , allocatable :: array(:,:)
5061 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
5062 character(*, SK) , intent(out) , optional :: errmsg
5063 logical(LK) , intent(out) , optional :: failed
5064 end subroutine
5065#endif
5066
5067 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5068
5069#if RK5_ENABLED
5070 PURE module subroutine setResizedSLLU_D2_RK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
5071#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5072 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_RK5
5073#endif
5074 use pm_kind, only: RKG => RK5
5075 real(RKG) , intent(inout) , allocatable :: array(:,:)
5076 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
5077 character(*, SK) , intent(out) , optional :: errmsg
5078 logical(LK) , intent(out) , optional :: failed
5079 end subroutine
5080#endif
5081
5082#if RK4_ENABLED
5083 PURE module subroutine setResizedSLLU_D2_RK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
5084#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5085 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_RK4
5086#endif
5087 use pm_kind, only: RKG => RK4
5088 real(RKG) , intent(inout) , allocatable :: array(:,:)
5089 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
5090 character(*, SK) , intent(out) , optional :: errmsg
5091 logical(LK) , intent(out) , optional :: failed
5092 end subroutine
5093#endif
5094
5095#if RK3_ENABLED
5096 PURE module subroutine setResizedSLLU_D2_RK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
5097#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5098 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_RK3
5099#endif
5100 use pm_kind, only: RKG => RK3
5101 real(RKG) , intent(inout) , allocatable :: array(:,:)
5102 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
5103 character(*, SK) , intent(out) , optional :: errmsg
5104 logical(LK) , intent(out) , optional :: failed
5105 end subroutine
5106#endif
5107
5108#if RK2_ENABLED
5109 PURE module subroutine setResizedSLLU_D2_RK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
5110#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5111 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_RK2
5112#endif
5113 use pm_kind, only: RKG => RK2
5114 real(RKG) , intent(inout) , allocatable :: array(:,:)
5115 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
5116 character(*, SK) , intent(out) , optional :: errmsg
5117 logical(LK) , intent(out) , optional :: failed
5118 end subroutine
5119#endif
5120
5121#if RK1_ENABLED
5122 PURE module subroutine setResizedSLLU_D2_RK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
5123#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5124 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_RK1
5125#endif
5126 use pm_kind, only: RKG => RK1
5127 real(RKG) , intent(inout) , allocatable :: array(:,:)
5128 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
5129 character(*, SK) , intent(out) , optional :: errmsg
5130 logical(LK) , intent(out) , optional :: failed
5131 end subroutine
5132#endif
5133
5134 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5135
5136#if PDT_ENABLED
5137
5138#if SK5_ENABLED
5139 module subroutine setResizedSLLU_D2_PSSK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
5140#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5141 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_PSSK5
5142#endif
5143 use pm_kind, only: SKG => SK5
5144 use pm_container, only: css_pdt
5145 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:)
5146 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
5147 character(*, SK) , intent(out) , optional :: errmsg
5148 logical(LK) , intent(out) , optional :: failed
5149 end subroutine
5150#endif
5151
5152#if SK4_ENABLED
5153 module subroutine setResizedSLLU_D2_PSSK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
5154#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5155 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_PSSK4
5156#endif
5157 use pm_kind, only: SKG => SK4
5158 use pm_container, only: css_pdt
5159 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:)
5160 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
5161 character(*, SK) , intent(out) , optional :: errmsg
5162 logical(LK) , intent(out) , optional :: failed
5163 end subroutine
5164#endif
5165
5166#if SK3_ENABLED
5167 module subroutine setResizedSLLU_D2_PSSK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
5168#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5169 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_PSSK3
5170#endif
5171 use pm_kind, only: SKG => SK3
5172 use pm_container, only: css_pdt
5173 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:)
5174 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
5175 character(*, SK) , intent(out) , optional :: errmsg
5176 logical(LK) , intent(out) , optional :: failed
5177 end subroutine
5178#endif
5179
5180#if SK2_ENABLED
5181 module subroutine setResizedSLLU_D2_PSSK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
5182#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5183 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_PSSK2
5184#endif
5185 use pm_kind, only: SKG => SK2
5186 use pm_container, only: css_pdt
5187 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:)
5188 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
5189 character(*, SK) , intent(out) , optional :: errmsg
5190 logical(LK) , intent(out) , optional :: failed
5191 end subroutine
5192#endif
5193
5194#if SK1_ENABLED
5195 module subroutine setResizedSLLU_D2_PSSK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
5196#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5197 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_PSSK1
5198#endif
5199 use pm_kind, only: SKG => SK1
5200 use pm_container, only: css_pdt
5201 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:)
5202 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
5203 character(*, SK) , intent(out) , optional :: errmsg
5204 logical(LK) , intent(out) , optional :: failed
5205 end subroutine
5206#endif
5207
5208#endif
5209!PDT_ENABLED
5210
5211 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5212
5213 module subroutine setResizedSLLU_D2_BSSK(array, size, lbc, lbcold, ubcold, failed, errmsg)
5214#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5215 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D2_BSSK
5216#endif
5217 use pm_kind, only: SKG => SK
5218 use pm_container, only: css_type
5219 type(css_type) , intent(inout) , allocatable :: array(:,:)
5220 integer(IK) , intent(in) , dimension(2) :: size, lbc, lbcold, ubcold
5221 character(*, SK) , intent(out) , optional :: errmsg
5222 logical(LK) , intent(out) , optional :: failed
5223 end subroutine
5224
5225 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5226
5227 end interface
5228
5229 ! SLLU_D3
5230
5231 interface setResized
5232
5233 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5234
5235#if SK5_ENABLED
5236 PURE module subroutine setResizedSLLU_D3_SK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
5237#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5238 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_SK5
5239#endif
5240 use pm_kind, only: SKG => SK5
5241 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
5242 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5243 character(*, SK) , intent(out) , optional :: errmsg
5244 logical(LK) , intent(out) , optional :: failed
5245 end subroutine
5246#endif
5247
5248#if SK4_ENABLED
5249 PURE module subroutine setResizedSLLU_D3_SK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
5250#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5251 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_SK4
5252#endif
5253 use pm_kind, only: SKG => SK4
5254 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
5255 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5256 character(*, SK) , intent(out) , optional :: errmsg
5257 logical(LK) , intent(out) , optional :: failed
5258 end subroutine
5259#endif
5260
5261#if SK3_ENABLED
5262 PURE module subroutine setResizedSLLU_D3_SK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
5263#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5264 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_SK3
5265#endif
5266 use pm_kind, only: SKG => SK3
5267 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
5268 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5269 character(*, SK) , intent(out) , optional :: errmsg
5270 logical(LK) , intent(out) , optional :: failed
5271 end subroutine
5272#endif
5273
5274#if SK2_ENABLED
5275 PURE module subroutine setResizedSLLU_D3_SK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
5276#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5277 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_SK2
5278#endif
5279 use pm_kind, only: SKG => SK2
5280 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
5281 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5282 character(*, SK) , intent(out) , optional :: errmsg
5283 logical(LK) , intent(out) , optional :: failed
5284 end subroutine
5285#endif
5286
5287#if SK1_ENABLED
5288 PURE module subroutine setResizedSLLU_D3_SK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
5289#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5290 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_SK1
5291#endif
5292 use pm_kind, only: SKG => SK1
5293 character(*,SKG) , intent(inout) , allocatable :: array(:,:,:)
5294 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5295 character(*, SK) , intent(out) , optional :: errmsg
5296 logical(LK) , intent(out) , optional :: failed
5297 end subroutine
5298#endif
5299
5300 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5301
5302#if IK5_ENABLED
5303 PURE module subroutine setResizedSLLU_D3_IK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
5304#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5305 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_IK5
5306#endif
5307 use pm_kind, only: IKG => IK5
5308 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
5309 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5310 character(*, SK) , intent(out) , optional :: errmsg
5311 logical(LK) , intent(out) , optional :: failed
5312 end subroutine
5313#endif
5314
5315#if IK4_ENABLED
5316 PURE module subroutine setResizedSLLU_D3_IK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
5317#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5318 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_IK4
5319#endif
5320 use pm_kind, only: IKG => IK4
5321 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
5322 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5323 character(*, SK) , intent(out) , optional :: errmsg
5324 logical(LK) , intent(out) , optional :: failed
5325 end subroutine
5326#endif
5327
5328#if IK3_ENABLED
5329 PURE module subroutine setResizedSLLU_D3_IK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
5330#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5331 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_IK3
5332#endif
5333 use pm_kind, only: IKG => IK3
5334 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
5335 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5336 character(*, SK) , intent(out) , optional :: errmsg
5337 logical(LK) , intent(out) , optional :: failed
5338 end subroutine
5339#endif
5340
5341#if IK2_ENABLED
5342 PURE module subroutine setResizedSLLU_D3_IK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
5343#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5344 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_IK2
5345#endif
5346 use pm_kind, only: IKG => IK2
5347 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
5348 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5349 character(*, SK) , intent(out) , optional :: errmsg
5350 logical(LK) , intent(out) , optional :: failed
5351 end subroutine
5352#endif
5353
5354#if IK1_ENABLED
5355 PURE module subroutine setResizedSLLU_D3_IK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
5356#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5357 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_IK1
5358#endif
5359 use pm_kind, only: IKG => IK1
5360 integer(IKG) , intent(inout) , allocatable :: array(:,:,:)
5361 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5362 character(*, SK) , intent(out) , optional :: errmsg
5363 logical(LK) , intent(out) , optional :: failed
5364 end subroutine
5365#endif
5366
5367 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5368
5369#if LK5_ENABLED
5370 PURE module subroutine setResizedSLLU_D3_LK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
5371#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5372 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_LK5
5373#endif
5374 use pm_kind, only: LKG => LK5
5375 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
5376 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5377 character(*, SK) , intent(out) , optional :: errmsg
5378 logical(LK) , intent(out) , optional :: failed
5379 end subroutine
5380#endif
5381
5382#if LK4_ENABLED
5383 PURE module subroutine setResizedSLLU_D3_LK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
5384#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5385 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_LK4
5386#endif
5387 use pm_kind, only: LKG => LK4
5388 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
5389 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5390 character(*, SK) , intent(out) , optional :: errmsg
5391 logical(LK) , intent(out) , optional :: failed
5392 end subroutine
5393#endif
5394
5395#if LK3_ENABLED
5396 PURE module subroutine setResizedSLLU_D3_LK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
5397#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5398 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_LK3
5399#endif
5400 use pm_kind, only: LKG => LK3
5401 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
5402 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5403 character(*, SK) , intent(out) , optional :: errmsg
5404 logical(LK) , intent(out) , optional :: failed
5405 end subroutine
5406#endif
5407
5408#if LK2_ENABLED
5409 PURE module subroutine setResizedSLLU_D3_LK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
5410#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5411 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_LK2
5412#endif
5413 use pm_kind, only: LKG => LK2
5414 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
5415 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5416 character(*, SK) , intent(out) , optional :: errmsg
5417 logical(LK) , intent(out) , optional :: failed
5418 end subroutine
5419#endif
5420
5421#if LK1_ENABLED
5422 PURE module subroutine setResizedSLLU_D3_LK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
5423#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5424 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_LK1
5425#endif
5426 use pm_kind, only: LKG => LK1
5427 logical(LKG) , intent(inout) , allocatable :: array(:,:,:)
5428 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5429 character(*, SK) , intent(out) , optional :: errmsg
5430 logical(LK) , intent(out) , optional :: failed
5431 end subroutine
5432#endif
5433
5434 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5435
5436#if CK5_ENABLED
5437 PURE module subroutine setResizedSLLU_D3_CK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
5438#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5439 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_CK5
5440#endif
5441 use pm_kind, only: CKG => CK5
5442 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
5443 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5444 character(*, SK) , intent(out) , optional :: errmsg
5445 logical(LK) , intent(out) , optional :: failed
5446 end subroutine
5447#endif
5448
5449#if CK4_ENABLED
5450 PURE module subroutine setResizedSLLU_D3_CK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
5451#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5452 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_CK4
5453#endif
5454 use pm_kind, only: CKG => CK4
5455 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
5456 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5457 character(*, SK) , intent(out) , optional :: errmsg
5458 logical(LK) , intent(out) , optional :: failed
5459 end subroutine
5460#endif
5461
5462#if CK3_ENABLED
5463 PURE module subroutine setResizedSLLU_D3_CK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
5464#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5465 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_CK3
5466#endif
5467 use pm_kind, only: CKG => CK3
5468 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
5469 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5470 character(*, SK) , intent(out) , optional :: errmsg
5471 logical(LK) , intent(out) , optional :: failed
5472 end subroutine
5473#endif
5474
5475#if CK2_ENABLED
5476 PURE module subroutine setResizedSLLU_D3_CK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
5477#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5478 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_CK2
5479#endif
5480 use pm_kind, only: CKG => CK2
5481 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
5482 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5483 character(*, SK) , intent(out) , optional :: errmsg
5484 logical(LK) , intent(out) , optional :: failed
5485 end subroutine
5486#endif
5487
5488#if CK1_ENABLED
5489 PURE module subroutine setResizedSLLU_D3_CK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
5490#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5491 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_CK1
5492#endif
5493 use pm_kind, only: CKG => CK1
5494 complex(CKG) , intent(inout) , allocatable :: array(:,:,:)
5495 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5496 character(*, SK) , intent(out) , optional :: errmsg
5497 logical(LK) , intent(out) , optional :: failed
5498 end subroutine
5499#endif
5500
5501 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5502
5503#if RK5_ENABLED
5504 PURE module subroutine setResizedSLLU_D3_RK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
5505#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5506 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_RK5
5507#endif
5508 use pm_kind, only: RKG => RK5
5509 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
5510 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5511 character(*, SK) , intent(out) , optional :: errmsg
5512 logical(LK) , intent(out) , optional :: failed
5513 end subroutine
5514#endif
5515
5516#if RK4_ENABLED
5517 PURE module subroutine setResizedSLLU_D3_RK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
5518#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5519 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_RK4
5520#endif
5521 use pm_kind, only: RKG => RK4
5522 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
5523 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5524 character(*, SK) , intent(out) , optional :: errmsg
5525 logical(LK) , intent(out) , optional :: failed
5526 end subroutine
5527#endif
5528
5529#if RK3_ENABLED
5530 PURE module subroutine setResizedSLLU_D3_RK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
5531#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5532 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_RK3
5533#endif
5534 use pm_kind, only: RKG => RK3
5535 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
5536 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5537 character(*, SK) , intent(out) , optional :: errmsg
5538 logical(LK) , intent(out) , optional :: failed
5539 end subroutine
5540#endif
5541
5542#if RK2_ENABLED
5543 PURE module subroutine setResizedSLLU_D3_RK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
5544#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5545 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_RK2
5546#endif
5547 use pm_kind, only: RKG => RK2
5548 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
5549 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5550 character(*, SK) , intent(out) , optional :: errmsg
5551 logical(LK) , intent(out) , optional :: failed
5552 end subroutine
5553#endif
5554
5555#if RK1_ENABLED
5556 PURE module subroutine setResizedSLLU_D3_RK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
5557#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5558 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_RK1
5559#endif
5560 use pm_kind, only: RKG => RK1
5561 real(RKG) , intent(inout) , allocatable :: array(:,:,:)
5562 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5563 character(*, SK) , intent(out) , optional :: errmsg
5564 logical(LK) , intent(out) , optional :: failed
5565 end subroutine
5566#endif
5567
5568 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5569
5570#if PDT_ENABLED
5571
5572#if SK5_ENABLED
5573 module subroutine setResizedSLLU_D3_PSSK5(array, size, lbc, lbcold, ubcold, failed, errmsg)
5574#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5575 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_PSSK5
5576#endif
5577 use pm_kind, only: SKG => SK5
5578 use pm_container, only: css_pdt
5579 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
5580 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5581 character(*, SK) , intent(out) , optional :: errmsg
5582 logical(LK) , intent(out) , optional :: failed
5583 end subroutine
5584#endif
5585
5586#if SK4_ENABLED
5587 module subroutine setResizedSLLU_D3_PSSK4(array, size, lbc, lbcold, ubcold, failed, errmsg)
5588#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5589 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_PSSK4
5590#endif
5591 use pm_kind, only: SKG => SK4
5592 use pm_container, only: css_pdt
5593 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
5594 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5595 character(*, SK) , intent(out) , optional :: errmsg
5596 logical(LK) , intent(out) , optional :: failed
5597 end subroutine
5598#endif
5599
5600#if SK3_ENABLED
5601 module subroutine setResizedSLLU_D3_PSSK3(array, size, lbc, lbcold, ubcold, failed, errmsg)
5602#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5603 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_PSSK3
5604#endif
5605 use pm_kind, only: SKG => SK3
5606 use pm_container, only: css_pdt
5607 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
5608 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5609 character(*, SK) , intent(out) , optional :: errmsg
5610 logical(LK) , intent(out) , optional :: failed
5611 end subroutine
5612#endif
5613
5614#if SK2_ENABLED
5615 module subroutine setResizedSLLU_D3_PSSK2(array, size, lbc, lbcold, ubcold, failed, errmsg)
5616#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5617 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_PSSK2
5618#endif
5619 use pm_kind, only: SKG => SK2
5620 use pm_container, only: css_pdt
5621 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
5622 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5623 character(*, SK) , intent(out) , optional :: errmsg
5624 logical(LK) , intent(out) , optional :: failed
5625 end subroutine
5626#endif
5627
5628#if SK1_ENABLED
5629 module subroutine setResizedSLLU_D3_PSSK1(array, size, lbc, lbcold, ubcold, failed, errmsg)
5630#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5631 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_PSSK1
5632#endif
5633 use pm_kind, only: SKG => SK1
5634 use pm_container, only: css_pdt
5635 type(css_pdt(SKG)) , intent(inout) , allocatable :: array(:,:,:)
5636 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5637 character(*, SK) , intent(out) , optional :: errmsg
5638 logical(LK) , intent(out) , optional :: failed
5639 end subroutine
5640#endif
5641
5642#endif
5643!PDT_ENABLED
5644
5645 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5646
5647 module subroutine setResizedSLLU_D3_BSSK(array, size, lbc, lbcold, ubcold, failed, errmsg)
5648#if __INTEL_COMPILER && DLL_ENABLED && (_WIN32 || _WIN64)
5649 !DEC$ ATTRIBUTES DLLEXPORT :: setResizedSLLU_D3_BSSK
5650#endif
5651 use pm_kind, only: SKG => SK
5652 use pm_container, only: css_type
5653 type(css_type) , intent(inout) , allocatable :: array(:,:,:)
5654 integer(IK) , intent(in) , dimension(3) :: size, lbc, lbcold, ubcold
5655 character(*, SK) , intent(out) , optional :: errmsg
5656 logical(LK) , intent(out) , optional :: failed
5657 end subroutine
5658
5659 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5660
5661 end interface
5662
5663!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5664
5665end module pm_arrayResize ! LCOV_EXCL_LINE
Allocate or resize (shrink or expand) an input allocatable scalar string or array of rank 1....
This module contains procedures and generic interfaces for resizing allocatable arrays of various typ...
character(*, SK), parameter MODULE_NAME
This module contains the derived types for generating allocatable containers of scalar,...
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter SK5
Definition: pm_kind.F90:326
integer, parameter LK1
Definition: pm_kind.F90:412
integer, parameter IK3
Definition: pm_kind.F90:368
integer, parameter RK5
Definition: pm_kind.F90:478
integer, parameter RK4
Definition: pm_kind.F90:489
integer, parameter SK1
Definition: pm_kind.F90:346
integer, parameter IK1
Definition: pm_kind.F90:382
integer, parameter LK5
Definition: pm_kind.F90:392
integer, parameter RK2
Definition: pm_kind.F90:511
integer, parameter CK1
Definition: pm_kind.F90:464
integer, parameter RK3
Definition: pm_kind.F90:500
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
integer, parameter LK2
Definition: pm_kind.F90:407
integer, parameter LK4
Definition: pm_kind.F90:397
integer, parameter CK5
Definition: pm_kind.F90:420
integer, parameter CK4
Definition: pm_kind.F90:431
integer, parameter SK4
Definition: pm_kind.F90:331
integer, parameter LK3
Definition: pm_kind.F90:402
integer, parameter IK2
Definition: pm_kind.F90:375
integer, parameter CK2
Definition: pm_kind.F90:453
integer, parameter SK2
Definition: pm_kind.F90:341
integer, parameter CK3
Definition: pm_kind.F90:442
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
integer, parameter IK4
Definition: pm_kind.F90:361
integer, parameter IK5
Definition: pm_kind.F90:354
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
integer, parameter RK1
Definition: pm_kind.F90:522
integer, parameter SK3
Definition: pm_kind.F90:336
This is the css_pdt parameterized type for generating instances of container of scalar of string obje...
This is the css_type type for generating instances of container of scalar of string objects.