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