Line data    Source code

       1             : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
       2             : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
       3             : !!!!                                                                                                                            !!!!
       4             : !!!!    ParaMonte: Parallel Monte Carlo and Machine Learning Library.                                                           !!!!
       5             : !!!!                                                                                                                            !!!!
       6             : !!!!    Copyright (C) 2012-present, The Computational Data Science Lab                                                          !!!!
       7             : !!!!                                                                                                                            !!!!
       8             : !!!!    This file is part of the ParaMonte library.                                                                             !!!!
       9             : !!!!                                                                                                                            !!!!
      10             : !!!!    LICENSE                                                                                                                 !!!!
      11             : !!!!                                                                                                                            !!!!
      12             : !!!!       https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md                                                          !!!!
      13             : !!!!                                                                                                                            !!!!
      14             : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      15             : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      16             : 
      17             : !>  \brief
      18             : !>  This file contains procedure implementations of [pm_arrayRefill](@ref pm_arrayRefill).
      19             : !>
      20             : !>  \finmain
      21             : !>
      22             : !>  \author
      23             : !>  \FatemehBagheri, Wednesday 12:20 AM, October 13, 2021, Dallas, TX
      24             : 
      25             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      26             : 
      27             : submodule (pm_arrayRefill) routines ! LCOV_EXCL_LINE
      28             : 
      29             : #if CHECK_ENABLED
      30             :     use pm_err, only: getFine
      31             :     use pm_val2str, only: getStr
      32             :     use pm_err, only: setAsserted
      33             : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) \
      34             : call setAsserted(ASSERTION,getFine(__FILE__,LINE)//MODULE_NAME//MSG);
      35             : #else
      36             : #define CHECK_ASSERTION(LINE,ASSERTION,MSG) continue;
      37             : #endif
      38             : 
      39             :     use pm_arrayInit, only: setCoreHalo
      40             :     implicit none
      41             : 
      42             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      43             : 
      44             : contains
      45             : 
      46             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      47             : 
      48             : #define setRefilled_ENABLED 1
      49             : 
      50             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      51             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      52             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      53             : 
      54             : #define DDDD_ENABLED 1
      55             : 
      56             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      57             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      58             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      59             : 
      60             : #define D0_ENABLED 1
      61             : 
      62             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      63             : 
      64             : #define SK_ENABLED 1
      65             : 
      66             : #if SK5_ENABLED
      67             :     module procedure setRefilledDDDD_D0_SK5
      68             :         use pm_kind, only: SKC => SK5
      69             :         character(:,SKC), allocatable :: temp
      70             : #include "pm_arrayResize@routines.inc.F90"
      71             :     end procedure
      72             : #endif
      73             : 
      74             : #if SK4_ENABLED
      75             :     module procedure setRefilledDDDD_D0_SK4
      76             :         use pm_kind, only: SKC => SK4
      77             :         character(:,SKC), allocatable :: temp
      78             : #include "pm_arrayResize@routines.inc.F90"
      79             :     end procedure
      80             : #endif
      81             : 
      82             : #if SK3_ENABLED
      83             :     module procedure setRefilledDDDD_D0_SK3
      84             :         use pm_kind, only: SKC => SK3
      85             :         character(:,SKC), allocatable :: temp
      86             : #include "pm_arrayResize@routines.inc.F90"
      87             :     end procedure
      88             : #endif
      89             : 
      90             : #if SK2_ENABLED
      91             :     module procedure setRefilledDDDD_D0_SK2
      92             :         use pm_kind, only: SKC => SK2
      93             :         character(:,SKC), allocatable :: temp
      94             : #include "pm_arrayResize@routines.inc.F90"
      95             :     end procedure
      96             : #endif
      97             : 
      98             : #if SK1_ENABLED
      99          72 :     module procedure setRefilledDDDD_D0_SK1
     100             :         use pm_kind, only: SKC => SK1
     101             :         character(:,SKC), allocatable :: temp
     102             : #include "pm_arrayResize@routines.inc.F90"
     103          18 :     end procedure
     104             : #endif
     105             : 
     106             : #undef SK_ENABLED
     107             : 
     108             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     109             : 
     110             : #undef D0_ENABLED
     111             : 
     112             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     113             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     114             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     115             : 
     116             : #define D1_ENABLED 1
     117             : 
     118             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     119             : 
     120             : #define SK_ENABLED 1
     121             : 
     122             : #if SK5_ENABLED
     123             :     module procedure setRefilledDDDD_D1_SK5
     124             :         use pm_kind, only: SKC => SK5
     125             :         character(len(array,IK),SKC), allocatable :: temp(:)
     126             : #include "pm_arrayResize@routines.inc.F90"
     127             :     end procedure
     128             : #endif
     129             : 
     130             : #if SK4_ENABLED
     131             :     module procedure setRefilledDDDD_D1_SK4
     132             :         use pm_kind, only: SKC => SK4
     133             :         character(len(array,IK),SKC), allocatable :: temp(:)
     134             : #include "pm_arrayResize@routines.inc.F90"
     135             :     end procedure
     136             : #endif
     137             : 
     138             : #if SK3_ENABLED
     139             :     module procedure setRefilledDDDD_D1_SK3
     140             :         use pm_kind, only: SKC => SK3
     141             :         character(len(array,IK),SKC), allocatable :: temp(:)
     142             : #include "pm_arrayResize@routines.inc.F90"
     143             :     end procedure
     144             : #endif
     145             : 
     146             : #if SK2_ENABLED
     147             :     module procedure setRefilledDDDD_D1_SK2
     148             :         use pm_kind, only: SKC => SK2
     149             :         character(len(array,IK),SKC), allocatable :: temp(:)
     150             : #include "pm_arrayResize@routines.inc.F90"
     151             :     end procedure
     152             : #endif
     153             : 
     154             : #if SK1_ENABLED
     155          29 :     module procedure setRefilledDDDD_D1_SK1
     156             :         use pm_kind, only: SKC => SK1
     157          29 :         character(len(array,IK),SKC), allocatable :: temp(:)
     158             : #include "pm_arrayResize@routines.inc.F90"
     159          29 :     end procedure
     160             : #endif
     161             : 
     162             : #undef SK_ENABLED
     163             : 
     164             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     165             : 
     166             : #define IK_ENABLED 1
     167             : 
     168             : #if IK5_ENABLED
     169          23 :     module procedure setRefilledDDDD_D1_IK5
     170             :         use pm_kind, only: IKC => IK5
     171             :         integer(IKC), allocatable :: temp(:)
     172             : #include "pm_arrayResize@routines.inc.F90"
     173          23 :     end procedure
     174             : #endif
     175             : 
     176             : #if IK4_ENABLED
     177          23 :     module procedure setRefilledDDDD_D1_IK4
     178             :         use pm_kind, only: IKC => IK4
     179             :         integer(IKC), allocatable :: temp(:)
     180             : #include "pm_arrayResize@routines.inc.F90"
     181          23 :     end procedure
     182             : #endif
     183             : 
     184             : #if IK3_ENABLED
     185          17 :     module procedure setRefilledDDDD_D1_IK3
     186             :         use pm_kind, only: IKC => IK3
     187             :         integer(IKC), allocatable :: temp(:)
     188             : #include "pm_arrayResize@routines.inc.F90"
     189          17 :     end procedure
     190             : #endif
     191             : 
     192             : #if IK2_ENABLED
     193          31 :     module procedure setRefilledDDDD_D1_IK2
     194             :         use pm_kind, only: IKC => IK2
     195             :         integer(IKC), allocatable :: temp(:)
     196             : #include "pm_arrayResize@routines.inc.F90"
     197          31 :     end procedure
     198             : #endif
     199             : 
     200             : #if IK1_ENABLED
     201          18 :     module procedure setRefilledDDDD_D1_IK1
     202             :         use pm_kind, only: IKC => IK1
     203             :         integer(IKC), allocatable :: temp(:)
     204             : #include "pm_arrayResize@routines.inc.F90"
     205          18 :     end procedure
     206             : #endif
     207             : 
     208             : #undef IK_ENABLED
     209             : 
     210             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     211             : 
     212             : #define LK_ENABLED 1
     213             : 
     214             : #if LK5_ENABLED
     215          17 :     module procedure setRefilledDDDD_D1_LK5
     216             :         use pm_kind, only: LKC => LK5
     217             :         logical(LKC), allocatable :: temp(:)
     218             : #include "pm_arrayResize@routines.inc.F90"
     219          17 :     end procedure
     220             : #endif
     221             : 
     222             : #if LK4_ENABLED
     223          16 :     module procedure setRefilledDDDD_D1_LK4
     224             :         use pm_kind, only: LKC => LK4
     225             :         logical(LKC), allocatable :: temp(:)
     226             : #include "pm_arrayResize@routines.inc.F90"
     227          16 :     end procedure
     228             : #endif
     229             : 
     230             : #if LK3_ENABLED
     231          16 :     module procedure setRefilledDDDD_D1_LK3
     232             :         use pm_kind, only: LKC => LK3
     233             :         logical(LKC), allocatable :: temp(:)
     234             : #include "pm_arrayResize@routines.inc.F90"
     235          16 :     end procedure
     236             : #endif
     237             : 
     238             : #if LK2_ENABLED
     239          19 :     module procedure setRefilledDDDD_D1_LK2
     240             :         use pm_kind, only: LKC => LK2
     241             :         logical(LKC), allocatable :: temp(:)
     242             : #include "pm_arrayResize@routines.inc.F90"
     243          19 :     end procedure
     244             : #endif
     245             : 
     246             : #if LK1_ENABLED
     247          27 :     module procedure setRefilledDDDD_D1_LK1
     248             :         use pm_kind, only: LKC => LK1
     249             :         logical(LKC), allocatable :: temp(:)
     250             : #include "pm_arrayResize@routines.inc.F90"
     251          27 :     end procedure
     252             : #endif
     253             : 
     254             : #undef LK_ENABLED
     255             : 
     256             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     257             : 
     258             : #define CK_ENABLED 1
     259             : 
     260             : #if CK5_ENABLED
     261             :     module procedure setRefilledDDDD_D1_CK5
     262             :         use pm_kind, only: CKC => CK5
     263             :         complex(CKC), allocatable :: temp(:)
     264             : #include "pm_arrayResize@routines.inc.F90"
     265             :     end procedure
     266             : #endif
     267             : 
     268             : #if CK4_ENABLED
     269          26 :     module procedure setRefilledDDDD_D1_CK4
     270             :         use pm_kind, only: CKC => CK4
     271             :         complex(CKC), allocatable :: temp(:)
     272             : #include "pm_arrayResize@routines.inc.F90"
     273          26 :     end procedure
     274             : #endif
     275             : 
     276             : #if CK3_ENABLED
     277          20 :     module procedure setRefilledDDDD_D1_CK3
     278             :         use pm_kind, only: CKC => CK3
     279             :         complex(CKC), allocatable :: temp(:)
     280             : #include "pm_arrayResize@routines.inc.F90"
     281          20 :     end procedure
     282             : #endif
     283             : 
     284             : #if CK2_ENABLED
     285          15 :     module procedure setRefilledDDDD_D1_CK2
     286             :         use pm_kind, only: CKC => CK2
     287             :         complex(CKC), allocatable :: temp(:)
     288             : #include "pm_arrayResize@routines.inc.F90"
     289          15 :     end procedure
     290             : #endif
     291             : 
     292             : #if CK1_ENABLED
     293          20 :     module procedure setRefilledDDDD_D1_CK1
     294             :         use pm_kind, only: CKC => CK1
     295             :         complex(CKC), allocatable :: temp(:)
     296             : #include "pm_arrayResize@routines.inc.F90"
     297          20 :     end procedure
     298             : #endif
     299             : 
     300             : #undef CK_ENABLED
     301             : 
     302             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     303             : 
     304             : #define RK_ENABLED 1
     305             : 
     306             : #if RK5_ENABLED
     307             :     module procedure setRefilledDDDD_D1_RK5
     308             :         use pm_kind, only: RKC => RK5
     309             :         real(RKC), allocatable :: temp(:)
     310             : #include "pm_arrayResize@routines.inc.F90"
     311             :     end procedure
     312             : #endif
     313             : 
     314             : #if RK4_ENABLED
     315          23 :     module procedure setRefilledDDDD_D1_RK4
     316             :         use pm_kind, only: RKC => RK4
     317             :         real(RKC), allocatable :: temp(:)
     318             : #include "pm_arrayResize@routines.inc.F90"
     319          23 :     end procedure
     320             : #endif
     321             : 
     322             : #if RK3_ENABLED
     323          18 :     module procedure setRefilledDDDD_D1_RK3
     324             :         use pm_kind, only: RKC => RK3
     325             :         real(RKC), allocatable :: temp(:)
     326             : #include "pm_arrayResize@routines.inc.F90"
     327          18 :     end procedure
     328             : #endif
     329             : 
     330             : #if RK2_ENABLED
     331          20 :     module procedure setRefilledDDDD_D1_RK2
     332             :         use pm_kind, only: RKC => RK2
     333             :         real(RKC), allocatable :: temp(:)
     334             : #include "pm_arrayResize@routines.inc.F90"
     335          20 :     end procedure
     336             : #endif
     337             : 
     338             : #if RK1_ENABLED
     339          23 :     module procedure setRefilledDDDD_D1_RK1
     340             :         use pm_kind, only: RKC => RK1
     341             :         real(RKC), allocatable :: temp(:)
     342             : #include "pm_arrayResize@routines.inc.F90"
     343          23 :     end procedure
     344             : #endif
     345             : 
     346             : #undef RK_ENABLED
     347             : 
     348             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     349             : 
     350             : #undef D1_ENABLED
     351             : 
     352             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     353             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     354             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     355             : 
     356             : #define D2_ENABLED 1
     357             : 
     358             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     359             : 
     360             : #define SK_ENABLED 1
     361             : 
     362             : #if SK5_ENABLED
     363             :     module procedure setRefilledDDDD_D2_SK5
     364             :         use pm_kind, only: SKC => SK5
     365             :         character(len(array,IK),SKC), allocatable :: temp(:,:)
     366             : #include "pm_arrayResize@routines.inc.F90"
     367             :     end procedure
     368             : #endif
     369             : 
     370             : #if SK4_ENABLED
     371             :     module procedure setRefilledDDDD_D2_SK4
     372             :         use pm_kind, only: SKC => SK4
     373             :         character(len(array,IK),SKC), allocatable :: temp(:,:)
     374             : #include "pm_arrayResize@routines.inc.F90"
     375             :     end procedure
     376             : #endif
     377             : 
     378             : #if SK3_ENABLED
     379             :     module procedure setRefilledDDDD_D2_SK3
     380             :         use pm_kind, only: SKC => SK3
     381             :         character(len(array,IK),SKC), allocatable :: temp(:,:)
     382             : #include "pm_arrayResize@routines.inc.F90"
     383             :     end procedure
     384             : #endif
     385             : 
     386             : #if SK2_ENABLED
     387             :     module procedure setRefilledDDDD_D2_SK2
     388             :         use pm_kind, only: SKC => SK2
     389             :         character(len(array,IK),SKC), allocatable :: temp(:,:)
     390             : #include "pm_arrayResize@routines.inc.F90"
     391             :     end procedure
     392             : #endif
     393             : 
     394             : #if SK1_ENABLED
     395          21 :     module procedure setRefilledDDDD_D2_SK1
     396             :         use pm_kind, only: SKC => SK1
     397          21 :         character(len(array,IK),SKC), allocatable :: temp(:,:)
     398             : #include "pm_arrayResize@routines.inc.F90"
     399          21 :     end procedure
     400             : #endif
     401             : 
     402             : #undef SK_ENABLED
     403             : 
     404             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     405             : 
     406             : #define IK_ENABLED 1
     407             : 
     408             : #if IK5_ENABLED
     409          17 :     module procedure setRefilledDDDD_D2_IK5
     410             :         use pm_kind, only: IKC => IK5
     411             :         integer(IKC), allocatable :: temp(:,:)
     412             : #include "pm_arrayResize@routines.inc.F90"
     413          17 :     end procedure
     414             : #endif
     415             : 
     416             : #if IK4_ENABLED
     417          18 :     module procedure setRefilledDDDD_D2_IK4
     418             :         use pm_kind, only: IKC => IK4
     419             :         integer(IKC), allocatable :: temp(:,:)
     420             : #include "pm_arrayResize@routines.inc.F90"
     421          18 :     end procedure
     422             : #endif
     423             : 
     424             : #if IK3_ENABLED
     425          21 :     module procedure setRefilledDDDD_D2_IK3
     426             :         use pm_kind, only: IKC => IK3
     427             :         integer(IKC), allocatable :: temp(:,:)
     428             : #include "pm_arrayResize@routines.inc.F90"
     429          21 :     end procedure
     430             : #endif
     431             : 
     432             : #if IK2_ENABLED
     433          14 :     module procedure setRefilledDDDD_D2_IK2
     434             :         use pm_kind, only: IKC => IK2
     435             :         integer(IKC), allocatable :: temp(:,:)
     436             : #include "pm_arrayResize@routines.inc.F90"
     437          14 :     end procedure
     438             : #endif
     439             : 
     440             : #if IK1_ENABLED
     441          19 :     module procedure setRefilledDDDD_D2_IK1
     442             :         use pm_kind, only: IKC => IK1
     443             :         integer(IKC), allocatable :: temp(:,:)
     444             : #include "pm_arrayResize@routines.inc.F90"
     445          19 :     end procedure
     446             : #endif
     447             : 
     448             : #undef IK_ENABLED
     449             : 
     450             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     451             : 
     452             : #define LK_ENABLED 1
     453             : 
     454             : #if LK5_ENABLED
     455          27 :     module procedure setRefilledDDDD_D2_LK5
     456             :         use pm_kind, only: LKC => LK5
     457             :         logical(LKC), allocatable :: temp(:,:)
     458             : #include "pm_arrayResize@routines.inc.F90"
     459          27 :     end procedure
     460             : #endif
     461             : 
     462             : #if LK4_ENABLED
     463          22 :     module procedure setRefilledDDDD_D2_LK4
     464             :         use pm_kind, only: LKC => LK4
     465             :         logical(LKC), allocatable :: temp(:,:)
     466             : #include "pm_arrayResize@routines.inc.F90"
     467          22 :     end procedure
     468             : #endif
     469             : 
     470             : #if LK3_ENABLED
     471          17 :     module procedure setRefilledDDDD_D2_LK3
     472             :         use pm_kind, only: LKC => LK3
     473             :         logical(LKC), allocatable :: temp(:,:)
     474             : #include "pm_arrayResize@routines.inc.F90"
     475          17 :     end procedure
     476             : #endif
     477             : 
     478             : #if LK2_ENABLED
     479          23 :     module procedure setRefilledDDDD_D2_LK2
     480             :         use pm_kind, only: LKC => LK2
     481             :         logical(LKC), allocatable :: temp(:,:)
     482             : #include "pm_arrayResize@routines.inc.F90"
     483          23 :     end procedure
     484             : #endif
     485             : 
     486             : #if LK1_ENABLED
     487          15 :     module procedure setRefilledDDDD_D2_LK1
     488             :         use pm_kind, only: LKC => LK1
     489             :         logical(LKC), allocatable :: temp(:,:)
     490             : #include "pm_arrayResize@routines.inc.F90"
     491          15 :     end procedure
     492             : #endif
     493             : 
     494             : #undef LK_ENABLED
     495             : 
     496             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     497             : 
     498             : #define CK_ENABLED 1
     499             : 
     500             : #if CK5_ENABLED
     501             :     module procedure setRefilledDDDD_D2_CK5
     502             :         use pm_kind, only: CKC => CK5
     503             :         complex(CKC), allocatable :: temp(:,:)
     504             : #include "pm_arrayResize@routines.inc.F90"
     505             :     end procedure
     506             : #endif
     507             : 
     508             : #if CK4_ENABLED
     509          21 :     module procedure setRefilledDDDD_D2_CK4
     510             :         use pm_kind, only: CKC => CK4
     511             :         complex(CKC), allocatable :: temp(:,:)
     512             : #include "pm_arrayResize@routines.inc.F90"
     513          21 :     end procedure
     514             : #endif
     515             : 
     516             : #if CK3_ENABLED
     517          24 :     module procedure setRefilledDDDD_D2_CK3
     518             :         use pm_kind, only: CKC => CK3
     519             :         complex(CKC), allocatable :: temp(:,:)
     520             : #include "pm_arrayResize@routines.inc.F90"
     521          24 :     end procedure
     522             : #endif
     523             : 
     524             : #if CK2_ENABLED
     525          26 :     module procedure setRefilledDDDD_D2_CK2
     526             :         use pm_kind, only: CKC => CK2
     527             :         complex(CKC), allocatable :: temp(:,:)
     528             : #include "pm_arrayResize@routines.inc.F90"
     529          26 :     end procedure
     530             : #endif
     531             : 
     532             : #if CK1_ENABLED
     533          18 :     module procedure setRefilledDDDD_D2_CK1
     534             :         use pm_kind, only: CKC => CK1
     535             :         complex(CKC), allocatable :: temp(:,:)
     536             : #include "pm_arrayResize@routines.inc.F90"
     537          18 :     end procedure
     538             : #endif
     539             : 
     540             : #undef CK_ENABLED
     541             : 
     542             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     543             : 
     544             : #define RK_ENABLED 1
     545             : 
     546             : #if RK5_ENABLED
     547             :     module procedure setRefilledDDDD_D2_RK5
     548             :         use pm_kind, only: RKC => RK5
     549             :         real(RKC), allocatable :: temp(:,:)
     550             : #include "pm_arrayResize@routines.inc.F90"
     551             :     end procedure
     552             : #endif
     553             : 
     554             : #if RK4_ENABLED
     555          20 :     module procedure setRefilledDDDD_D2_RK4
     556             :         use pm_kind, only: RKC => RK4
     557             :         real(RKC), allocatable :: temp(:,:)
     558             : #include "pm_arrayResize@routines.inc.F90"
     559          20 :     end procedure
     560             : #endif
     561             : 
     562             : #if RK3_ENABLED
     563          22 :     module procedure setRefilledDDDD_D2_RK3
     564             :         use pm_kind, only: RKC => RK3
     565             :         real(RKC), allocatable :: temp(:,:)
     566             : #include "pm_arrayResize@routines.inc.F90"
     567          22 :     end procedure
     568             : #endif
     569             : 
     570             : #if RK2_ENABLED
     571          18 :     module procedure setRefilledDDDD_D2_RK2
     572             :         use pm_kind, only: RKC => RK2
     573             :         real(RKC), allocatable :: temp(:,:)
     574             : #include "pm_arrayResize@routines.inc.F90"
     575          18 :     end procedure
     576             : #endif
     577             : 
     578             : #if RK1_ENABLED
     579          24 :     module procedure setRefilledDDDD_D2_RK1
     580             :         use pm_kind, only: RKC => RK1
     581             :         real(RKC), allocatable :: temp(:,:)
     582             : #include "pm_arrayResize@routines.inc.F90"
     583          24 :     end procedure
     584             : #endif
     585             : 
     586             : #undef RK_ENABLED
     587             : 
     588             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     589             : 
     590             : #undef D2_ENABLED
     591             : 
     592             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     593             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     594             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     595             : 
     596             : #define D3_ENABLED 1
     597             : 
     598             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     599             : 
     600             : #define SK_ENABLED 1
     601             : 
     602             : #if SK5_ENABLED
     603             :     module procedure setRefilledDDDD_D3_SK5
     604             :         use pm_kind, only: SKC => SK5
     605             :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
     606             : #include "pm_arrayResize@routines.inc.F90"
     607             :     end procedure
     608             : #endif
     609             : 
     610             : #if SK4_ENABLED
     611             :     module procedure setRefilledDDDD_D3_SK4
     612             :         use pm_kind, only: SKC => SK4
     613             :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
     614             : #include "pm_arrayResize@routines.inc.F90"
     615             :     end procedure
     616             : #endif
     617             : 
     618             : #if SK3_ENABLED
     619             :     module procedure setRefilledDDDD_D3_SK3
     620             :         use pm_kind, only: SKC => SK3
     621             :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
     622             : #include "pm_arrayResize@routines.inc.F90"
     623             :     end procedure
     624             : #endif
     625             : 
     626             : #if SK2_ENABLED
     627             :     module procedure setRefilledDDDD_D3_SK2
     628             :         use pm_kind, only: SKC => SK2
     629             :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
     630             : #include "pm_arrayResize@routines.inc.F90"
     631             :     end procedure
     632             : #endif
     633             : 
     634             : #if SK1_ENABLED
     635          23 :     module procedure setRefilledDDDD_D3_SK1
     636             :         use pm_kind, only: SKC => SK1
     637          23 :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
     638             : #include "pm_arrayResize@routines.inc.F90"
     639          23 :     end procedure
     640             : #endif
     641             : 
     642             : #undef SK_ENABLED
     643             : 
     644             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     645             : 
     646             : #define IK_ENABLED 1
     647             : 
     648             : #if IK5_ENABLED
     649          32 :     module procedure setRefilledDDDD_D3_IK5
     650             :         use pm_kind, only: IKC => IK5
     651             :         integer(IKC), allocatable :: temp(:,:,:)
     652             : #include "pm_arrayResize@routines.inc.F90"
     653          32 :     end procedure
     654             : #endif
     655             : 
     656             : #if IK4_ENABLED
     657          32 :     module procedure setRefilledDDDD_D3_IK4
     658             :         use pm_kind, only: IKC => IK4
     659             :         integer(IKC), allocatable :: temp(:,:,:)
     660             : #include "pm_arrayResize@routines.inc.F90"
     661          32 :     end procedure
     662             : #endif
     663             : 
     664             : #if IK3_ENABLED
     665          21 :     module procedure setRefilledDDDD_D3_IK3
     666             :         use pm_kind, only: IKC => IK3
     667             :         integer(IKC), allocatable :: temp(:,:,:)
     668             : #include "pm_arrayResize@routines.inc.F90"
     669          21 :     end procedure
     670             : #endif
     671             : 
     672             : #if IK2_ENABLED
     673          17 :     module procedure setRefilledDDDD_D3_IK2
     674             :         use pm_kind, only: IKC => IK2
     675             :         integer(IKC), allocatable :: temp(:,:,:)
     676             : #include "pm_arrayResize@routines.inc.F90"
     677          17 :     end procedure
     678             : #endif
     679             : 
     680             : #if IK1_ENABLED
     681          22 :     module procedure setRefilledDDDD_D3_IK1
     682             :         use pm_kind, only: IKC => IK1
     683             :         integer(IKC), allocatable :: temp(:,:,:)
     684             : #include "pm_arrayResize@routines.inc.F90"
     685          22 :     end procedure
     686             : #endif
     687             : 
     688             : #undef IK_ENABLED
     689             : 
     690             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     691             : 
     692             : #define LK_ENABLED 1
     693             : 
     694             : #if LK5_ENABLED
     695          10 :     module procedure setRefilledDDDD_D3_LK5
     696             :         use pm_kind, only: LKC => LK5
     697             :         logical(LKC), allocatable :: temp(:,:,:)
     698             : #include "pm_arrayResize@routines.inc.F90"
     699          10 :     end procedure
     700             : #endif
     701             : 
     702             : #if LK4_ENABLED
     703          19 :     module procedure setRefilledDDDD_D3_LK4
     704             :         use pm_kind, only: LKC => LK4
     705             :         logical(LKC), allocatable :: temp(:,:,:)
     706             : #include "pm_arrayResize@routines.inc.F90"
     707          19 :     end procedure
     708             : #endif
     709             : 
     710             : #if LK3_ENABLED
     711          25 :     module procedure setRefilledDDDD_D3_LK3
     712             :         use pm_kind, only: LKC => LK3
     713             :         logical(LKC), allocatable :: temp(:,:,:)
     714             : #include "pm_arrayResize@routines.inc.F90"
     715          25 :     end procedure
     716             : #endif
     717             : 
     718             : #if LK2_ENABLED
     719          19 :     module procedure setRefilledDDDD_D3_LK2
     720             :         use pm_kind, only: LKC => LK2
     721             :         logical(LKC), allocatable :: temp(:,:,:)
     722             : #include "pm_arrayResize@routines.inc.F90"
     723          19 :     end procedure
     724             : #endif
     725             : 
     726             : #if LK1_ENABLED
     727          19 :     module procedure setRefilledDDDD_D3_LK1
     728             :         use pm_kind, only: LKC => LK1
     729             :         logical(LKC), allocatable :: temp(:,:,:)
     730             : #include "pm_arrayResize@routines.inc.F90"
     731          19 :     end procedure
     732             : #endif
     733             : 
     734             : #undef LK_ENABLED
     735             : 
     736             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     737             : 
     738             : #define CK_ENABLED 1
     739             : 
     740             : #if CK5_ENABLED
     741             :     module procedure setRefilledDDDD_D3_CK5
     742             :         use pm_kind, only: CKC => CK5
     743             :         complex(CKC), allocatable :: temp(:,:,:)
     744             : #include "pm_arrayResize@routines.inc.F90"
     745             :     end procedure
     746             : #endif
     747             : 
     748             : #if CK4_ENABLED
     749          17 :     module procedure setRefilledDDDD_D3_CK4
     750             :         use pm_kind, only: CKC => CK4
     751             :         complex(CKC), allocatable :: temp(:,:,:)
     752             : #include "pm_arrayResize@routines.inc.F90"
     753          17 :     end procedure
     754             : #endif
     755             : 
     756             : #if CK3_ENABLED
     757          22 :     module procedure setRefilledDDDD_D3_CK3
     758             :         use pm_kind, only: CKC => CK3
     759             :         complex(CKC), allocatable :: temp(:,:,:)
     760             : #include "pm_arrayResize@routines.inc.F90"
     761          22 :     end procedure
     762             : #endif
     763             : 
     764             : #if CK2_ENABLED
     765          17 :     module procedure setRefilledDDDD_D3_CK2
     766             :         use pm_kind, only: CKC => CK2
     767             :         complex(CKC), allocatable :: temp(:,:,:)
     768             : #include "pm_arrayResize@routines.inc.F90"
     769          17 :     end procedure
     770             : #endif
     771             : 
     772             : #if CK1_ENABLED
     773          20 :     module procedure setRefilledDDDD_D3_CK1
     774             :         use pm_kind, only: CKC => CK1
     775             :         complex(CKC), allocatable :: temp(:,:,:)
     776             : #include "pm_arrayResize@routines.inc.F90"
     777          20 :     end procedure
     778             : #endif
     779             : 
     780             : #undef CK_ENABLED
     781             : 
     782             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     783             : 
     784             : #define RK_ENABLED 1
     785             : 
     786             : #if RK5_ENABLED
     787             :     module procedure setRefilledDDDD_D3_RK5
     788             :         use pm_kind, only: RKC => RK5
     789             :         real(RKC), allocatable :: temp(:,:,:)
     790             : #include "pm_arrayResize@routines.inc.F90"
     791             :     end procedure
     792             : #endif
     793             : 
     794             : #if RK4_ENABLED
     795          22 :     module procedure setRefilledDDDD_D3_RK4
     796             :         use pm_kind, only: RKC => RK4
     797             :         real(RKC), allocatable :: temp(:,:,:)
     798             : #include "pm_arrayResize@routines.inc.F90"
     799          22 :     end procedure
     800             : #endif
     801             : 
     802             : #if RK3_ENABLED
     803          21 :     module procedure setRefilledDDDD_D3_RK3
     804             :         use pm_kind, only: RKC => RK3
     805             :         real(RKC), allocatable :: temp(:,:,:)
     806             : #include "pm_arrayResize@routines.inc.F90"
     807          21 :     end procedure
     808             : #endif
     809             : 
     810             : #if RK2_ENABLED
     811          26 :     module procedure setRefilledDDDD_D3_RK2
     812             :         use pm_kind, only: RKC => RK2
     813             :         real(RKC), allocatable :: temp(:,:,:)
     814             : #include "pm_arrayResize@routines.inc.F90"
     815          26 :     end procedure
     816             : #endif
     817             : 
     818             : #if RK1_ENABLED
     819          20 :     module procedure setRefilledDDDD_D3_RK1
     820             :         use pm_kind, only: RKC => RK1
     821             :         real(RKC), allocatable :: temp(:,:,:)
     822             : #include "pm_arrayResize@routines.inc.F90"
     823          20 :     end procedure
     824             : #endif
     825             : 
     826             : #undef RK_ENABLED
     827             : 
     828             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     829             : 
     830             : #undef D3_ENABLED
     831             : 
     832             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     833             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     834             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     835             : 
     836             : #undef DDDD_ENABLED
     837             : 
     838             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     839             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     840             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     841             : 
     842             : #define SDDD_ENABLED 1
     843             : 
     844             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     845             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     846             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     847             : 
     848             : #define D0_ENABLED 1
     849             : 
     850             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     851             : 
     852             : #define SK_ENABLED 1
     853             : 
     854             : #if SK5_ENABLED
     855             :     module procedure setRefilledSDDD_D0_SK5
     856             :         use pm_kind, only: SKC => SK5
     857             :         character(:,SKC), allocatable :: temp
     858             : #include "pm_arrayResize@routines.inc.F90"
     859             :     end procedure
     860             : #endif
     861             : 
     862             : #if SK4_ENABLED
     863             :     module procedure setRefilledSDDD_D0_SK4
     864             :         use pm_kind, only: SKC => SK4
     865             :         character(:,SKC), allocatable :: temp
     866             : #include "pm_arrayResize@routines.inc.F90"
     867             :     end procedure
     868             : #endif
     869             : 
     870             : #if SK3_ENABLED
     871             :     module procedure setRefilledSDDD_D0_SK3
     872             :         use pm_kind, only: SKC => SK3
     873             :         character(:,SKC), allocatable :: temp
     874             : #include "pm_arrayResize@routines.inc.F90"
     875             :     end procedure
     876             : #endif
     877             : 
     878             : #if SK2_ENABLED
     879             :     module procedure setRefilledSDDD_D0_SK2
     880             :         use pm_kind, only: SKC => SK2
     881             :         character(:,SKC), allocatable :: temp
     882             : #include "pm_arrayResize@routines.inc.F90"
     883             :     end procedure
     884             : #endif
     885             : 
     886             : #if SK1_ENABLED
     887           4 :     module procedure setRefilledSDDD_D0_SK1
     888             :         use pm_kind, only: SKC => SK1
     889             :         character(:,SKC), allocatable :: temp
     890             : #include "pm_arrayResize@routines.inc.F90"
     891         166 :     end procedure
     892             : #endif
     893             : 
     894             : #undef SK_ENABLED
     895             : 
     896             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     897             : 
     898             : #undef D0_ENABLED
     899             : 
     900             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     901             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     902             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     903             : 
     904             : #define D1_ENABLED 1
     905             : 
     906             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     907             : 
     908             : #define SK_ENABLED 1
     909             : 
     910             : #if SK5_ENABLED
     911             :     module procedure setRefilledSDDD_D1_SK5
     912             :         use pm_kind, only: SKC => SK5
     913             :         character(len(array,IK),SKC), allocatable :: temp(:)
     914             : #include "pm_arrayResize@routines.inc.F90"
     915             :     end procedure
     916             : #endif
     917             : 
     918             : #if SK4_ENABLED
     919             :     module procedure setRefilledSDDD_D1_SK4
     920             :         use pm_kind, only: SKC => SK4
     921             :         character(len(array,IK),SKC), allocatable :: temp(:)
     922             : #include "pm_arrayResize@routines.inc.F90"
     923             :     end procedure
     924             : #endif
     925             : 
     926             : #if SK3_ENABLED
     927             :     module procedure setRefilledSDDD_D1_SK3
     928             :         use pm_kind, only: SKC => SK3
     929             :         character(len(array,IK),SKC), allocatable :: temp(:)
     930             : #include "pm_arrayResize@routines.inc.F90"
     931             :     end procedure
     932             : #endif
     933             : 
     934             : #if SK2_ENABLED
     935             :     module procedure setRefilledSDDD_D1_SK2
     936             :         use pm_kind, only: SKC => SK2
     937             :         character(len(array,IK),SKC), allocatable :: temp(:)
     938             : #include "pm_arrayResize@routines.inc.F90"
     939             :     end procedure
     940             : #endif
     941             : 
     942             : #if SK1_ENABLED
     943         173 :     module procedure setRefilledSDDD_D1_SK1
     944             :         use pm_kind, only: SKC => SK1
     945         173 :         character(len(array,IK),SKC), allocatable :: temp(:)
     946             : #include "pm_arrayResize@routines.inc.F90"
     947         173 :     end procedure
     948             : #endif
     949             : 
     950             : #undef SK_ENABLED
     951             : 
     952             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     953             : 
     954             : #define IK_ENABLED 1
     955             : 
     956             : #if IK5_ENABLED
     957         160 :     module procedure setRefilledSDDD_D1_IK5
     958             :         use pm_kind, only: IKC => IK5
     959             :         integer(IKC), allocatable :: temp(:)
     960             : #include "pm_arrayResize@routines.inc.F90"
     961         160 :     end procedure
     962             : #endif
     963             : 
     964             : #if IK4_ENABLED
     965         178 :     module procedure setRefilledSDDD_D1_IK4
     966             :         use pm_kind, only: IKC => IK4
     967             :         integer(IKC), allocatable :: temp(:)
     968             : #include "pm_arrayResize@routines.inc.F90"
     969         178 :     end procedure
     970             : #endif
     971             : 
     972             : #if IK3_ENABLED
     973         220 :     module procedure setRefilledSDDD_D1_IK3
     974             :         use pm_kind, only: IKC => IK3
     975             :         integer(IKC), allocatable :: temp(:)
     976             : #include "pm_arrayResize@routines.inc.F90"
     977         220 :     end procedure
     978             : #endif
     979             : 
     980             : #if IK2_ENABLED
     981         153 :     module procedure setRefilledSDDD_D1_IK2
     982             :         use pm_kind, only: IKC => IK2
     983             :         integer(IKC), allocatable :: temp(:)
     984             : #include "pm_arrayResize@routines.inc.F90"
     985         153 :     end procedure
     986             : #endif
     987             : 
     988             : #if IK1_ENABLED
     989         169 :     module procedure setRefilledSDDD_D1_IK1
     990             :         use pm_kind, only: IKC => IK1
     991             :         integer(IKC), allocatable :: temp(:)
     992             : #include "pm_arrayResize@routines.inc.F90"
     993         169 :     end procedure
     994             : #endif
     995             : 
     996             : #undef IK_ENABLED
     997             : 
     998             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     999             : 
    1000             : #define LK_ENABLED 1
    1001             : 
    1002             : #if LK5_ENABLED
    1003         179 :     module procedure setRefilledSDDD_D1_LK5
    1004             :         use pm_kind, only: LKC => LK5
    1005             :         logical(LKC), allocatable :: temp(:)
    1006             : #include "pm_arrayResize@routines.inc.F90"
    1007         179 :     end procedure
    1008             : #endif
    1009             : 
    1010             : #if LK4_ENABLED
    1011         178 :     module procedure setRefilledSDDD_D1_LK4
    1012             :         use pm_kind, only: LKC => LK4
    1013             :         logical(LKC), allocatable :: temp(:)
    1014             : #include "pm_arrayResize@routines.inc.F90"
    1015         178 :     end procedure
    1016             : #endif
    1017             : 
    1018             : #if LK3_ENABLED
    1019         166 :     module procedure setRefilledSDDD_D1_LK3
    1020             :         use pm_kind, only: LKC => LK3
    1021             :         logical(LKC), allocatable :: temp(:)
    1022             : #include "pm_arrayResize@routines.inc.F90"
    1023         166 :     end procedure
    1024             : #endif
    1025             : 
    1026             : #if LK2_ENABLED
    1027         170 :     module procedure setRefilledSDDD_D1_LK2
    1028             :         use pm_kind, only: LKC => LK2
    1029             :         logical(LKC), allocatable :: temp(:)
    1030             : #include "pm_arrayResize@routines.inc.F90"
    1031         170 :     end procedure
    1032             : #endif
    1033             : 
    1034             : #if LK1_ENABLED
    1035         175 :     module procedure setRefilledSDDD_D1_LK1
    1036             :         use pm_kind, only: LKC => LK1
    1037             :         logical(LKC), allocatable :: temp(:)
    1038             : #include "pm_arrayResize@routines.inc.F90"
    1039         175 :     end procedure
    1040             : #endif
    1041             : 
    1042             : #undef LK_ENABLED
    1043             : 
    1044             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1045             : 
    1046             : #define CK_ENABLED 1
    1047             : 
    1048             : #if CK5_ENABLED
    1049             :     module procedure setRefilledSDDD_D1_CK5
    1050             :         use pm_kind, only: CKC => CK5
    1051             :         complex(CKC), allocatable :: temp(:)
    1052             : #include "pm_arrayResize@routines.inc.F90"
    1053             :     end procedure
    1054             : #endif
    1055             : 
    1056             : #if CK4_ENABLED
    1057         187 :     module procedure setRefilledSDDD_D1_CK4
    1058             :         use pm_kind, only: CKC => CK4
    1059             :         complex(CKC), allocatable :: temp(:)
    1060             : #include "pm_arrayResize@routines.inc.F90"
    1061         187 :     end procedure
    1062             : #endif
    1063             : 
    1064             : #if CK3_ENABLED
    1065         169 :     module procedure setRefilledSDDD_D1_CK3
    1066             :         use pm_kind, only: CKC => CK3
    1067             :         complex(CKC), allocatable :: temp(:)
    1068             : #include "pm_arrayResize@routines.inc.F90"
    1069         169 :     end procedure
    1070             : #endif
    1071             : 
    1072             : #if CK2_ENABLED
    1073         165 :     module procedure setRefilledSDDD_D1_CK2
    1074             :         use pm_kind, only: CKC => CK2
    1075             :         complex(CKC), allocatable :: temp(:)
    1076             : #include "pm_arrayResize@routines.inc.F90"
    1077         165 :     end procedure
    1078             : #endif
    1079             : 
    1080             : #if CK1_ENABLED
    1081         177 :     module procedure setRefilledSDDD_D1_CK1
    1082             :         use pm_kind, only: CKC => CK1
    1083             :         complex(CKC), allocatable :: temp(:)
    1084             : #include "pm_arrayResize@routines.inc.F90"
    1085         177 :     end procedure
    1086             : #endif
    1087             : 
    1088             : #undef CK_ENABLED
    1089             : 
    1090             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1091             : 
    1092             : #define RK_ENABLED 1
    1093             : 
    1094             : #if RK5_ENABLED
    1095             :     module procedure setRefilledSDDD_D1_RK5
    1096             :         use pm_kind, only: RKC => RK5
    1097             :         real(RKC), allocatable :: temp(:)
    1098             : #include "pm_arrayResize@routines.inc.F90"
    1099             :     end procedure
    1100             : #endif
    1101             : 
    1102             : #if RK4_ENABLED
    1103         164 :     module procedure setRefilledSDDD_D1_RK4
    1104             :         use pm_kind, only: RKC => RK4
    1105             :         real(RKC), allocatable :: temp(:)
    1106             : #include "pm_arrayResize@routines.inc.F90"
    1107         164 :     end procedure
    1108             : #endif
    1109             : 
    1110             : #if RK3_ENABLED
    1111         167 :     module procedure setRefilledSDDD_D1_RK3
    1112             :         use pm_kind, only: RKC => RK3
    1113             :         real(RKC), allocatable :: temp(:)
    1114             : #include "pm_arrayResize@routines.inc.F90"
    1115         167 :     end procedure
    1116             : #endif
    1117             : 
    1118             : #if RK2_ENABLED
    1119         204 :     module procedure setRefilledSDDD_D1_RK2
    1120             :         use pm_kind, only: RKC => RK2
    1121             :         real(RKC), allocatable :: temp(:)
    1122             : #include "pm_arrayResize@routines.inc.F90"
    1123         204 :     end procedure
    1124             : #endif
    1125             : 
    1126             : #if RK1_ENABLED
    1127         178 :     module procedure setRefilledSDDD_D1_RK1
    1128             :         use pm_kind, only: RKC => RK1
    1129             :         real(RKC), allocatable :: temp(:)
    1130             : #include "pm_arrayResize@routines.inc.F90"
    1131         178 :     end procedure
    1132             : #endif
    1133             : 
    1134             : #undef RK_ENABLED
    1135             : 
    1136             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1137             : 
    1138             : #undef D1_ENABLED
    1139             : 
    1140             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1141             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1142             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1143             : 
    1144             : #define D2_ENABLED 1
    1145             : 
    1146             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1147             : 
    1148             : #define SK_ENABLED 1
    1149             : 
    1150             : #if SK5_ENABLED
    1151             :     module procedure setRefilledSDDD_D2_SK5
    1152             :         use pm_kind, only: SKC => SK5
    1153             :         character(len(array,IK),SKC), allocatable :: temp(:,:)
    1154             : #include "pm_arrayResize@routines.inc.F90"
    1155             :     end procedure
    1156             : #endif
    1157             : 
    1158             : #if SK4_ENABLED
    1159             :     module procedure setRefilledSDDD_D2_SK4
    1160             :         use pm_kind, only: SKC => SK4
    1161             :         character(len(array,IK),SKC), allocatable :: temp(:,:)
    1162             : #include "pm_arrayResize@routines.inc.F90"
    1163             :     end procedure
    1164             : #endif
    1165             : 
    1166             : #if SK3_ENABLED
    1167             :     module procedure setRefilledSDDD_D2_SK3
    1168             :         use pm_kind, only: SKC => SK3
    1169             :         character(len(array,IK),SKC), allocatable :: temp(:,:)
    1170             : #include "pm_arrayResize@routines.inc.F90"
    1171             :     end procedure
    1172             : #endif
    1173             : 
    1174             : #if SK2_ENABLED
    1175             :     module procedure setRefilledSDDD_D2_SK2
    1176             :         use pm_kind, only: SKC => SK2
    1177             :         character(len(array,IK),SKC), allocatable :: temp(:,:)
    1178             : #include "pm_arrayResize@routines.inc.F90"
    1179             :     end procedure
    1180             : #endif
    1181             : 
    1182             : #if SK1_ENABLED
    1183         138 :     module procedure setRefilledSDDD_D2_SK1
    1184             :         use pm_kind, only: SKC => SK1
    1185         138 :         character(len(array,IK),SKC), allocatable :: temp(:,:)
    1186             : #include "pm_arrayResize@routines.inc.F90"
    1187         138 :     end procedure
    1188             : #endif
    1189             : 
    1190             : #undef SK_ENABLED
    1191             : 
    1192             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1193             : 
    1194             : #define IK_ENABLED 1
    1195             : 
    1196             : #if IK5_ENABLED
    1197         142 :     module procedure setRefilledSDDD_D2_IK5
    1198             :         use pm_kind, only: IKC => IK5
    1199             :         integer(IKC), allocatable :: temp(:,:)
    1200             : #include "pm_arrayResize@routines.inc.F90"
    1201         142 :     end procedure
    1202             : #endif
    1203             : 
    1204             : #if IK4_ENABLED
    1205         163 :     module procedure setRefilledSDDD_D2_IK4
    1206             :         use pm_kind, only: IKC => IK4
    1207             :         integer(IKC), allocatable :: temp(:,:)
    1208             : #include "pm_arrayResize@routines.inc.F90"
    1209         163 :     end procedure
    1210             : #endif
    1211             : 
    1212             : #if IK3_ENABLED
    1213         147 :     module procedure setRefilledSDDD_D2_IK3
    1214             :         use pm_kind, only: IKC => IK3
    1215             :         integer(IKC), allocatable :: temp(:,:)
    1216             : #include "pm_arrayResize@routines.inc.F90"
    1217         147 :     end procedure
    1218             : #endif
    1219             : 
    1220             : #if IK2_ENABLED
    1221         133 :     module procedure setRefilledSDDD_D2_IK2
    1222             :         use pm_kind, only: IKC => IK2
    1223             :         integer(IKC), allocatable :: temp(:,:)
    1224             : #include "pm_arrayResize@routines.inc.F90"
    1225         133 :     end procedure
    1226             : #endif
    1227             : 
    1228             : #if IK1_ENABLED
    1229         136 :     module procedure setRefilledSDDD_D2_IK1
    1230             :         use pm_kind, only: IKC => IK1
    1231             :         integer(IKC), allocatable :: temp(:,:)
    1232             : #include "pm_arrayResize@routines.inc.F90"
    1233         136 :     end procedure
    1234             : #endif
    1235             : 
    1236             : #undef IK_ENABLED
    1237             : 
    1238             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1239             : 
    1240             : #define LK_ENABLED 1
    1241             : 
    1242             : #if LK5_ENABLED
    1243         164 :     module procedure setRefilledSDDD_D2_LK5
    1244             :         use pm_kind, only: LKC => LK5
    1245             :         logical(LKC), allocatable :: temp(:,:)
    1246             : #include "pm_arrayResize@routines.inc.F90"
    1247         164 :     end procedure
    1248             : #endif
    1249             : 
    1250             : #if LK4_ENABLED
    1251         144 :     module procedure setRefilledSDDD_D2_LK4
    1252             :         use pm_kind, only: LKC => LK4
    1253             :         logical(LKC), allocatable :: temp(:,:)
    1254             : #include "pm_arrayResize@routines.inc.F90"
    1255         144 :     end procedure
    1256             : #endif
    1257             : 
    1258             : #if LK3_ENABLED
    1259         136 :     module procedure setRefilledSDDD_D2_LK3
    1260             :         use pm_kind, only: LKC => LK3
    1261             :         logical(LKC), allocatable :: temp(:,:)
    1262             : #include "pm_arrayResize@routines.inc.F90"
    1263         136 :     end procedure
    1264             : #endif
    1265             : 
    1266             : #if LK2_ENABLED
    1267         134 :     module procedure setRefilledSDDD_D2_LK2
    1268             :         use pm_kind, only: LKC => LK2
    1269             :         logical(LKC), allocatable :: temp(:,:)
    1270             : #include "pm_arrayResize@routines.inc.F90"
    1271         134 :     end procedure
    1272             : #endif
    1273             : 
    1274             : #if LK1_ENABLED
    1275         143 :     module procedure setRefilledSDDD_D2_LK1
    1276             :         use pm_kind, only: LKC => LK1
    1277             :         logical(LKC), allocatable :: temp(:,:)
    1278             : #include "pm_arrayResize@routines.inc.F90"
    1279         143 :     end procedure
    1280             : #endif
    1281             : 
    1282             : #undef LK_ENABLED
    1283             : 
    1284             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1285             : 
    1286             : #define CK_ENABLED 1
    1287             : 
    1288             : #if CK5_ENABLED
    1289             :     module procedure setRefilledSDDD_D2_CK5
    1290             :         use pm_kind, only: CKC => CK5
    1291             :         complex(CKC), allocatable :: temp(:,:)
    1292             : #include "pm_arrayResize@routines.inc.F90"
    1293             :     end procedure
    1294             : #endif
    1295             : 
    1296             : #if CK4_ENABLED
    1297         134 :     module procedure setRefilledSDDD_D2_CK4
    1298             :         use pm_kind, only: CKC => CK4
    1299             :         complex(CKC), allocatable :: temp(:,:)
    1300             : #include "pm_arrayResize@routines.inc.F90"
    1301         134 :     end procedure
    1302             : #endif
    1303             : 
    1304             : #if CK3_ENABLED
    1305         153 :     module procedure setRefilledSDDD_D2_CK3
    1306             :         use pm_kind, only: CKC => CK3
    1307             :         complex(CKC), allocatable :: temp(:,:)
    1308             : #include "pm_arrayResize@routines.inc.F90"
    1309         153 :     end procedure
    1310             : #endif
    1311             : 
    1312             : #if CK2_ENABLED
    1313         144 :     module procedure setRefilledSDDD_D2_CK2
    1314             :         use pm_kind, only: CKC => CK2
    1315             :         complex(CKC), allocatable :: temp(:,:)
    1316             : #include "pm_arrayResize@routines.inc.F90"
    1317         144 :     end procedure
    1318             : #endif
    1319             : 
    1320             : #if CK1_ENABLED
    1321         129 :     module procedure setRefilledSDDD_D2_CK1
    1322             :         use pm_kind, only: CKC => CK1
    1323             :         complex(CKC), allocatable :: temp(:,:)
    1324             : #include "pm_arrayResize@routines.inc.F90"
    1325         129 :     end procedure
    1326             : #endif
    1327             : 
    1328             : #undef CK_ENABLED
    1329             : 
    1330             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1331             : 
    1332             : #define RK_ENABLED 1
    1333             : 
    1334             : #if RK5_ENABLED
    1335             :     module procedure setRefilledSDDD_D2_RK5
    1336             :         use pm_kind, only: RKC => RK5
    1337             :         real(RKC), allocatable :: temp(:,:)
    1338             : #include "pm_arrayResize@routines.inc.F90"
    1339             :     end procedure
    1340             : #endif
    1341             : 
    1342             : #if RK4_ENABLED
    1343         156 :     module procedure setRefilledSDDD_D2_RK4
    1344             :         use pm_kind, only: RKC => RK4
    1345             :         real(RKC), allocatable :: temp(:,:)
    1346             : #include "pm_arrayResize@routines.inc.F90"
    1347         156 :     end procedure
    1348             : #endif
    1349             : 
    1350             : #if RK3_ENABLED
    1351         140 :     module procedure setRefilledSDDD_D2_RK3
    1352             :         use pm_kind, only: RKC => RK3
    1353             :         real(RKC), allocatable :: temp(:,:)
    1354             : #include "pm_arrayResize@routines.inc.F90"
    1355         140 :     end procedure
    1356             : #endif
    1357             : 
    1358             : #if RK2_ENABLED
    1359         159 :     module procedure setRefilledSDDD_D2_RK2
    1360             :         use pm_kind, only: RKC => RK2
    1361             :         real(RKC), allocatable :: temp(:,:)
    1362             : #include "pm_arrayResize@routines.inc.F90"
    1363         159 :     end procedure
    1364             : #endif
    1365             : 
    1366             : #if RK1_ENABLED
    1367         144 :     module procedure setRefilledSDDD_D2_RK1
    1368             :         use pm_kind, only: RKC => RK1
    1369             :         real(RKC), allocatable :: temp(:,:)
    1370             : #include "pm_arrayResize@routines.inc.F90"
    1371         144 :     end procedure
    1372             : #endif
    1373             : 
    1374             : #undef RK_ENABLED
    1375             : 
    1376             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1377             : 
    1378             : #undef D2_ENABLED
    1379             : 
    1380             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1381             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1382             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1383             : 
    1384             : #define D3_ENABLED 1
    1385             : 
    1386             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1387             : 
    1388             : #define SK_ENABLED 1
    1389             : 
    1390             : #if SK5_ENABLED
    1391             :     module procedure setRefilledSDDD_D3_SK5
    1392             :         use pm_kind, only: SKC => SK5
    1393             :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
    1394             : #include "pm_arrayResize@routines.inc.F90"
    1395             :     end procedure
    1396             : #endif
    1397             : 
    1398             : #if SK4_ENABLED
    1399             :     module procedure setRefilledSDDD_D3_SK4
    1400             :         use pm_kind, only: SKC => SK4
    1401             :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
    1402             : #include "pm_arrayResize@routines.inc.F90"
    1403             :     end procedure
    1404             : #endif
    1405             : 
    1406             : #if SK3_ENABLED
    1407             :     module procedure setRefilledSDDD_D3_SK3
    1408             :         use pm_kind, only: SKC => SK3
    1409             :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
    1410             : #include "pm_arrayResize@routines.inc.F90"
    1411             :     end procedure
    1412             : #endif
    1413             : 
    1414             : #if SK2_ENABLED
    1415             :     module procedure setRefilledSDDD_D3_SK2
    1416             :         use pm_kind, only: SKC => SK2
    1417             :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
    1418             : #include "pm_arrayResize@routines.inc.F90"
    1419             :     end procedure
    1420             : #endif
    1421             : 
    1422             : #if SK1_ENABLED
    1423         128 :     module procedure setRefilledSDDD_D3_SK1
    1424             :         use pm_kind, only: SKC => SK1
    1425         128 :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
    1426             : #include "pm_arrayResize@routines.inc.F90"
    1427         128 :     end procedure
    1428             : #endif
    1429             : 
    1430             : #undef SK_ENABLED
    1431             : 
    1432             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1433             : 
    1434             : #define IK_ENABLED 1
    1435             : 
    1436             : #if IK5_ENABLED
    1437         127 :     module procedure setRefilledSDDD_D3_IK5
    1438             :         use pm_kind, only: IKC => IK5
    1439             :         integer(IKC), allocatable :: temp(:,:,:)
    1440             : #include "pm_arrayResize@routines.inc.F90"
    1441         127 :     end procedure
    1442             : #endif
    1443             : 
    1444             : #if IK4_ENABLED
    1445         128 :     module procedure setRefilledSDDD_D3_IK4
    1446             :         use pm_kind, only: IKC => IK4
    1447             :         integer(IKC), allocatable :: temp(:,:,:)
    1448             : #include "pm_arrayResize@routines.inc.F90"
    1449         128 :     end procedure
    1450             : #endif
    1451             : 
    1452             : #if IK3_ENABLED
    1453         130 :     module procedure setRefilledSDDD_D3_IK3
    1454             :         use pm_kind, only: IKC => IK3
    1455             :         integer(IKC), allocatable :: temp(:,:,:)
    1456             : #include "pm_arrayResize@routines.inc.F90"
    1457         130 :     end procedure
    1458             : #endif
    1459             : 
    1460             : #if IK2_ENABLED
    1461         121 :     module procedure setRefilledSDDD_D3_IK2
    1462             :         use pm_kind, only: IKC => IK2
    1463             :         integer(IKC), allocatable :: temp(:,:,:)
    1464             : #include "pm_arrayResize@routines.inc.F90"
    1465         121 :     end procedure
    1466             : #endif
    1467             : 
    1468             : #if IK1_ENABLED
    1469         116 :     module procedure setRefilledSDDD_D3_IK1
    1470             :         use pm_kind, only: IKC => IK1
    1471             :         integer(IKC), allocatable :: temp(:,:,:)
    1472             : #include "pm_arrayResize@routines.inc.F90"
    1473         116 :     end procedure
    1474             : #endif
    1475             : 
    1476             : #undef IK_ENABLED
    1477             : 
    1478             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1479             : 
    1480             : #define LK_ENABLED 1
    1481             : 
    1482             : #if LK5_ENABLED
    1483         117 :     module procedure setRefilledSDDD_D3_LK5
    1484             :         use pm_kind, only: LKC => LK5
    1485             :         logical(LKC), allocatable :: temp(:,:,:)
    1486             : #include "pm_arrayResize@routines.inc.F90"
    1487         117 :     end procedure
    1488             : #endif
    1489             : 
    1490             : #if LK4_ENABLED
    1491         125 :     module procedure setRefilledSDDD_D3_LK4
    1492             :         use pm_kind, only: LKC => LK4
    1493             :         logical(LKC), allocatable :: temp(:,:,:)
    1494             : #include "pm_arrayResize@routines.inc.F90"
    1495         125 :     end procedure
    1496             : #endif
    1497             : 
    1498             : #if LK3_ENABLED
    1499         126 :     module procedure setRefilledSDDD_D3_LK3
    1500             :         use pm_kind, only: LKC => LK3
    1501             :         logical(LKC), allocatable :: temp(:,:,:)
    1502             : #include "pm_arrayResize@routines.inc.F90"
    1503         126 :     end procedure
    1504             : #endif
    1505             : 
    1506             : #if LK2_ENABLED
    1507         123 :     module procedure setRefilledSDDD_D3_LK2
    1508             :         use pm_kind, only: LKC => LK2
    1509             :         logical(LKC), allocatable :: temp(:,:,:)
    1510             : #include "pm_arrayResize@routines.inc.F90"
    1511         123 :     end procedure
    1512             : #endif
    1513             : 
    1514             : #if LK1_ENABLED
    1515         107 :     module procedure setRefilledSDDD_D3_LK1
    1516             :         use pm_kind, only: LKC => LK1
    1517             :         logical(LKC), allocatable :: temp(:,:,:)
    1518             : #include "pm_arrayResize@routines.inc.F90"
    1519         107 :     end procedure
    1520             : #endif
    1521             : 
    1522             : #undef LK_ENABLED
    1523             : 
    1524             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1525             : 
    1526             : #define CK_ENABLED 1
    1527             : 
    1528             : #if CK5_ENABLED
    1529             :     module procedure setRefilledSDDD_D3_CK5
    1530             :         use pm_kind, only: CKC => CK5
    1531             :         complex(CKC), allocatable :: temp(:,:,:)
    1532             : #include "pm_arrayResize@routines.inc.F90"
    1533             :     end procedure
    1534             : #endif
    1535             : 
    1536             : #if CK4_ENABLED
    1537         127 :     module procedure setRefilledSDDD_D3_CK4
    1538             :         use pm_kind, only: CKC => CK4
    1539             :         complex(CKC), allocatable :: temp(:,:,:)
    1540             : #include "pm_arrayResize@routines.inc.F90"
    1541         127 :     end procedure
    1542             : #endif
    1543             : 
    1544             : #if CK3_ENABLED
    1545         113 :     module procedure setRefilledSDDD_D3_CK3
    1546             :         use pm_kind, only: CKC => CK3
    1547             :         complex(CKC), allocatable :: temp(:,:,:)
    1548             : #include "pm_arrayResize@routines.inc.F90"
    1549         113 :     end procedure
    1550             : #endif
    1551             : 
    1552             : #if CK2_ENABLED
    1553         116 :     module procedure setRefilledSDDD_D3_CK2
    1554             :         use pm_kind, only: CKC => CK2
    1555             :         complex(CKC), allocatable :: temp(:,:,:)
    1556             : #include "pm_arrayResize@routines.inc.F90"
    1557         116 :     end procedure
    1558             : #endif
    1559             : 
    1560             : #if CK1_ENABLED
    1561         115 :     module procedure setRefilledSDDD_D3_CK1
    1562             :         use pm_kind, only: CKC => CK1
    1563             :         complex(CKC), allocatable :: temp(:,:,:)
    1564             : #include "pm_arrayResize@routines.inc.F90"
    1565         115 :     end procedure
    1566             : #endif
    1567             : 
    1568             : #undef CK_ENABLED
    1569             : 
    1570             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1571             : 
    1572             : #define RK_ENABLED 1
    1573             : 
    1574             : #if RK5_ENABLED
    1575             :     module procedure setRefilledSDDD_D3_RK5
    1576             :         use pm_kind, only: RKC => RK5
    1577             :         real(RKC), allocatable :: temp(:,:,:)
    1578             : #include "pm_arrayResize@routines.inc.F90"
    1579             :     end procedure
    1580             : #endif
    1581             : 
    1582             : #if RK4_ENABLED
    1583         130 :     module procedure setRefilledSDDD_D3_RK4
    1584             :         use pm_kind, only: RKC => RK4
    1585             :         real(RKC), allocatable :: temp(:,:,:)
    1586             : #include "pm_arrayResize@routines.inc.F90"
    1587         130 :     end procedure
    1588             : #endif
    1589             : 
    1590             : #if RK3_ENABLED
    1591         117 :     module procedure setRefilledSDDD_D3_RK3
    1592             :         use pm_kind, only: RKC => RK3
    1593             :         real(RKC), allocatable :: temp(:,:,:)
    1594             : #include "pm_arrayResize@routines.inc.F90"
    1595         117 :     end procedure
    1596             : #endif
    1597             : 
    1598             : #if RK2_ENABLED
    1599         127 :     module procedure setRefilledSDDD_D3_RK2
    1600             :         use pm_kind, only: RKC => RK2
    1601             :         real(RKC), allocatable :: temp(:,:,:)
    1602             : #include "pm_arrayResize@routines.inc.F90"
    1603         127 :     end procedure
    1604             : #endif
    1605             : 
    1606             : #if RK1_ENABLED
    1607         143 :     module procedure setRefilledSDDD_D3_RK1
    1608             :         use pm_kind, only: RKC => RK1
    1609             :         real(RKC), allocatable :: temp(:,:,:)
    1610             : #include "pm_arrayResize@routines.inc.F90"
    1611         143 :     end procedure
    1612             : #endif
    1613             : 
    1614             : #undef RK_ENABLED
    1615             : 
    1616             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1617             : 
    1618             : #undef D3_ENABLED
    1619             : 
    1620             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1621             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1622             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1623             : 
    1624             : #undef SDDD_ENABLED
    1625             : 
    1626             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1627             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1628             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1629             : 
    1630             : #define SLDD_ENABLED 1
    1631             : 
    1632             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1633             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1634             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1635             : 
    1636             : #define D0_ENABLED 1
    1637             : 
    1638             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1639             : 
    1640             : #define SK_ENABLED 1
    1641             : 
    1642             : #if SK5_ENABLED
    1643             :     module procedure setRefilledSLDD_D0_SK5
    1644             :         use pm_kind, only: SKC => SK5
    1645             :         character(:,SKC), allocatable :: temp
    1646             : #include "pm_arrayResize@routines.inc.F90"
    1647             :     end procedure
    1648             : #endif
    1649             : 
    1650             : #if SK4_ENABLED
    1651             :     module procedure setRefilledSLDD_D0_SK4
    1652             :         use pm_kind, only: SKC => SK4
    1653             :         character(:,SKC), allocatable :: temp
    1654             : #include "pm_arrayResize@routines.inc.F90"
    1655             :     end procedure
    1656             : #endif
    1657             : 
    1658             : #if SK3_ENABLED
    1659             :     module procedure setRefilledSLDD_D0_SK3
    1660             :         use pm_kind, only: SKC => SK3
    1661             :         character(:,SKC), allocatable :: temp
    1662             : #include "pm_arrayResize@routines.inc.F90"
    1663             :     end procedure
    1664             : #endif
    1665             : 
    1666             : #if SK2_ENABLED
    1667             :     module procedure setRefilledSLDD_D0_SK2
    1668             :         use pm_kind, only: SKC => SK2
    1669             :         character(:,SKC), allocatable :: temp
    1670             : #include "pm_arrayResize@routines.inc.F90"
    1671             :     end procedure
    1672             : #endif
    1673             : 
    1674             : #if SK1_ENABLED
    1675         324 :     module procedure setRefilledSLDD_D0_SK1
    1676             :         use pm_kind, only: SKC => SK1
    1677             :         character(:,SKC), allocatable :: temp
    1678             : #include "pm_arrayResize@routines.inc.F90"
    1679         162 :     end procedure
    1680             : #endif
    1681             : 
    1682             : #undef SK_ENABLED
    1683             : 
    1684             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1685             : 
    1686             : #undef D0_ENABLED
    1687             : 
    1688             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1689             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1690             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1691             : 
    1692             : #define D1_ENABLED 1
    1693             : 
    1694             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1695             : 
    1696             : #define SK_ENABLED 1
    1697             : 
    1698             : #if SK5_ENABLED
    1699             :     module procedure setRefilledSLDD_D1_SK5
    1700             :         use pm_kind, only: SKC => SK5
    1701             :         character(len(array,IK),SKC), allocatable :: temp(:)
    1702             : #include "pm_arrayResize@routines.inc.F90"
    1703             :     end procedure
    1704             : #endif
    1705             : 
    1706             : #if SK4_ENABLED
    1707             :     module procedure setRefilledSLDD_D1_SK4
    1708             :         use pm_kind, only: SKC => SK4
    1709             :         character(len(array,IK),SKC), allocatable :: temp(:)
    1710             : #include "pm_arrayResize@routines.inc.F90"
    1711             :     end procedure
    1712             : #endif
    1713             : 
    1714             : #if SK3_ENABLED
    1715             :     module procedure setRefilledSLDD_D1_SK3
    1716             :         use pm_kind, only: SKC => SK3
    1717             :         character(len(array,IK),SKC), allocatable :: temp(:)
    1718             : #include "pm_arrayResize@routines.inc.F90"
    1719             :     end procedure
    1720             : #endif
    1721             : 
    1722             : #if SK2_ENABLED
    1723             :     module procedure setRefilledSLDD_D1_SK2
    1724             :         use pm_kind, only: SKC => SK2
    1725             :         character(len(array,IK),SKC), allocatable :: temp(:)
    1726             : #include "pm_arrayResize@routines.inc.F90"
    1727             :     end procedure
    1728             : #endif
    1729             : 
    1730             : #if SK1_ENABLED
    1731         169 :     module procedure setRefilledSLDD_D1_SK1
    1732             :         use pm_kind, only: SKC => SK1
    1733         169 :         character(len(array,IK),SKC), allocatable :: temp(:)
    1734             : #include "pm_arrayResize@routines.inc.F90"
    1735         169 :     end procedure
    1736             : #endif
    1737             : 
    1738             : #undef SK_ENABLED
    1739             : 
    1740             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1741             : 
    1742             : #define IK_ENABLED 1
    1743             : 
    1744             : #if IK5_ENABLED
    1745         156 :     module procedure setRefilledSLDD_D1_IK5
    1746             :         use pm_kind, only: IKC => IK5
    1747             :         integer(IKC), allocatable :: temp(:)
    1748             : #include "pm_arrayResize@routines.inc.F90"
    1749         156 :     end procedure
    1750             : #endif
    1751             : 
    1752             : #if IK4_ENABLED
    1753         174 :     module procedure setRefilledSLDD_D1_IK4
    1754             :         use pm_kind, only: IKC => IK4
    1755             :         integer(IKC), allocatable :: temp(:)
    1756             : #include "pm_arrayResize@routines.inc.F90"
    1757         174 :     end procedure
    1758             : #endif
    1759             : 
    1760             : #if IK3_ENABLED
    1761         163 :     module procedure setRefilledSLDD_D1_IK3
    1762             :         use pm_kind, only: IKC => IK3
    1763             :         integer(IKC), allocatable :: temp(:)
    1764             : #include "pm_arrayResize@routines.inc.F90"
    1765         163 :     end procedure
    1766             : #endif
    1767             : 
    1768             : #if IK2_ENABLED
    1769         149 :     module procedure setRefilledSLDD_D1_IK2
    1770             :         use pm_kind, only: IKC => IK2
    1771             :         integer(IKC), allocatable :: temp(:)
    1772             : #include "pm_arrayResize@routines.inc.F90"
    1773         149 :     end procedure
    1774             : #endif
    1775             : 
    1776             : #if IK1_ENABLED
    1777         165 :     module procedure setRefilledSLDD_D1_IK1
    1778             :         use pm_kind, only: IKC => IK1
    1779             :         integer(IKC), allocatable :: temp(:)
    1780             : #include "pm_arrayResize@routines.inc.F90"
    1781         165 :     end procedure
    1782             : #endif
    1783             : 
    1784             : #undef IK_ENABLED
    1785             : 
    1786             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1787             : 
    1788             : #define LK_ENABLED 1
    1789             : 
    1790             : #if LK5_ENABLED
    1791         175 :     module procedure setRefilledSLDD_D1_LK5
    1792             :         use pm_kind, only: LKC => LK5
    1793             :         logical(LKC), allocatable :: temp(:)
    1794             : #include "pm_arrayResize@routines.inc.F90"
    1795         175 :     end procedure
    1796             : #endif
    1797             : 
    1798             : #if LK4_ENABLED
    1799         174 :     module procedure setRefilledSLDD_D1_LK4
    1800             :         use pm_kind, only: LKC => LK4
    1801             :         logical(LKC), allocatable :: temp(:)
    1802             : #include "pm_arrayResize@routines.inc.F90"
    1803         174 :     end procedure
    1804             : #endif
    1805             : 
    1806             : #if LK3_ENABLED
    1807         161 :     module procedure setRefilledSLDD_D1_LK3
    1808             :         use pm_kind, only: LKC => LK3
    1809             :         logical(LKC), allocatable :: temp(:)
    1810             : #include "pm_arrayResize@routines.inc.F90"
    1811         161 :     end procedure
    1812             : #endif
    1813             : 
    1814             : #if LK2_ENABLED
    1815         166 :     module procedure setRefilledSLDD_D1_LK2
    1816             :         use pm_kind, only: LKC => LK2
    1817             :         logical(LKC), allocatable :: temp(:)
    1818             : #include "pm_arrayResize@routines.inc.F90"
    1819         166 :     end procedure
    1820             : #endif
    1821             : 
    1822             : #if LK1_ENABLED
    1823         171 :     module procedure setRefilledSLDD_D1_LK1
    1824             :         use pm_kind, only: LKC => LK1
    1825             :         logical(LKC), allocatable :: temp(:)
    1826             : #include "pm_arrayResize@routines.inc.F90"
    1827         171 :     end procedure
    1828             : #endif
    1829             : 
    1830             : #undef LK_ENABLED
    1831             : 
    1832             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1833             : 
    1834             : #define CK_ENABLED 1
    1835             : 
    1836             : #if CK5_ENABLED
    1837             :     module procedure setRefilledSLDD_D1_CK5
    1838             :         use pm_kind, only: CKC => CK5
    1839             :         complex(CKC), allocatable :: temp(:)
    1840             : #include "pm_arrayResize@routines.inc.F90"
    1841             :     end procedure
    1842             : #endif
    1843             : 
    1844             : #if CK4_ENABLED
    1845         183 :     module procedure setRefilledSLDD_D1_CK4
    1846             :         use pm_kind, only: CKC => CK4
    1847             :         complex(CKC), allocatable :: temp(:)
    1848             : #include "pm_arrayResize@routines.inc.F90"
    1849         183 :     end procedure
    1850             : #endif
    1851             : 
    1852             : #if CK3_ENABLED
    1853         165 :     module procedure setRefilledSLDD_D1_CK3
    1854             :         use pm_kind, only: CKC => CK3
    1855             :         complex(CKC), allocatable :: temp(:)
    1856             : #include "pm_arrayResize@routines.inc.F90"
    1857         165 :     end procedure
    1858             : #endif
    1859             : 
    1860             : #if CK2_ENABLED
    1861         160 :     module procedure setRefilledSLDD_D1_CK2
    1862             :         use pm_kind, only: CKC => CK2
    1863             :         complex(CKC), allocatable :: temp(:)
    1864             : #include "pm_arrayResize@routines.inc.F90"
    1865         160 :     end procedure
    1866             : #endif
    1867             : 
    1868             : #if CK1_ENABLED
    1869         173 :     module procedure setRefilledSLDD_D1_CK1
    1870             :         use pm_kind, only: CKC => CK1
    1871             :         complex(CKC), allocatable :: temp(:)
    1872             : #include "pm_arrayResize@routines.inc.F90"
    1873         173 :     end procedure
    1874             : #endif
    1875             : 
    1876             : #undef CK_ENABLED
    1877             : 
    1878             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1879             : 
    1880             : #define RK_ENABLED 1
    1881             : 
    1882             : #if RK5_ENABLED
    1883             :     module procedure setRefilledSLDD_D1_RK5
    1884             :         use pm_kind, only: RKC => RK5
    1885             :         real(RKC), allocatable :: temp(:)
    1886             : #include "pm_arrayResize@routines.inc.F90"
    1887             :     end procedure
    1888             : #endif
    1889             : 
    1890             : #if RK4_ENABLED
    1891         160 :     module procedure setRefilledSLDD_D1_RK4
    1892             :         use pm_kind, only: RKC => RK4
    1893             :         real(RKC), allocatable :: temp(:)
    1894             : #include "pm_arrayResize@routines.inc.F90"
    1895         160 :     end procedure
    1896             : #endif
    1897             : 
    1898             : #if RK3_ENABLED
    1899         163 :     module procedure setRefilledSLDD_D1_RK3
    1900             :         use pm_kind, only: RKC => RK3
    1901             :         real(RKC), allocatable :: temp(:)
    1902             : #include "pm_arrayResize@routines.inc.F90"
    1903         163 :     end procedure
    1904             : #endif
    1905             : 
    1906             : #if RK2_ENABLED
    1907         163 :     module procedure setRefilledSLDD_D1_RK2
    1908             :         use pm_kind, only: RKC => RK2
    1909             :         real(RKC), allocatable :: temp(:)
    1910             : #include "pm_arrayResize@routines.inc.F90"
    1911         163 :     end procedure
    1912             : #endif
    1913             : 
    1914             : #if RK1_ENABLED
    1915         169 :     module procedure setRefilledSLDD_D1_RK1
    1916             :         use pm_kind, only: RKC => RK1
    1917             :         real(RKC), allocatable :: temp(:)
    1918             : #include "pm_arrayResize@routines.inc.F90"
    1919         169 :     end procedure
    1920             : #endif
    1921             : 
    1922             : #undef RK_ENABLED
    1923             : 
    1924             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1925             : 
    1926             : #undef D1_ENABLED
    1927             : 
    1928             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1929             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1930             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1931             : 
    1932             : #define D2_ENABLED 1
    1933             : 
    1934             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1935             : 
    1936             : #define SK_ENABLED 1
    1937             : 
    1938             : #if SK5_ENABLED
    1939             :     module procedure setRefilledSLDD_D2_SK5
    1940             :         use pm_kind, only: SKC => SK5
    1941             :         character(len(array,IK),SKC), allocatable :: temp(:,:)
    1942             : #include "pm_arrayResize@routines.inc.F90"
    1943             :     end procedure
    1944             : #endif
    1945             : 
    1946             : #if SK4_ENABLED
    1947             :     module procedure setRefilledSLDD_D2_SK4
    1948             :         use pm_kind, only: SKC => SK4
    1949             :         character(len(array,IK),SKC), allocatable :: temp(:,:)
    1950             : #include "pm_arrayResize@routines.inc.F90"
    1951             :     end procedure
    1952             : #endif
    1953             : 
    1954             : #if SK3_ENABLED
    1955             :     module procedure setRefilledSLDD_D2_SK3
    1956             :         use pm_kind, only: SKC => SK3
    1957             :         character(len(array,IK),SKC), allocatable :: temp(:,:)
    1958             : #include "pm_arrayResize@routines.inc.F90"
    1959             :     end procedure
    1960             : #endif
    1961             : 
    1962             : #if SK2_ENABLED
    1963             :     module procedure setRefilledSLDD_D2_SK2
    1964             :         use pm_kind, only: SKC => SK2
    1965             :         character(len(array,IK),SKC), allocatable :: temp(:,:)
    1966             : #include "pm_arrayResize@routines.inc.F90"
    1967             :     end procedure
    1968             : #endif
    1969             : 
    1970             : #if SK1_ENABLED
    1971         134 :     module procedure setRefilledSLDD_D2_SK1
    1972             :         use pm_kind, only: SKC => SK1
    1973         134 :         character(len(array,IK),SKC), allocatable :: temp(:,:)
    1974             : #include "pm_arrayResize@routines.inc.F90"
    1975         134 :     end procedure
    1976             : #endif
    1977             : 
    1978             : #undef SK_ENABLED
    1979             : 
    1980             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1981             : 
    1982             : #define IK_ENABLED 1
    1983             : 
    1984             : #if IK5_ENABLED
    1985         138 :     module procedure setRefilledSLDD_D2_IK5
    1986             :         use pm_kind, only: IKC => IK5
    1987             :         integer(IKC), allocatable :: temp(:,:)
    1988             : #include "pm_arrayResize@routines.inc.F90"
    1989         138 :     end procedure
    1990             : #endif
    1991             : 
    1992             : #if IK4_ENABLED
    1993         159 :     module procedure setRefilledSLDD_D2_IK4
    1994             :         use pm_kind, only: IKC => IK4
    1995             :         integer(IKC), allocatable :: temp(:,:)
    1996             : #include "pm_arrayResize@routines.inc.F90"
    1997         159 :     end procedure
    1998             : #endif
    1999             : 
    2000             : #if IK3_ENABLED
    2001         143 :     module procedure setRefilledSLDD_D2_IK3
    2002             :         use pm_kind, only: IKC => IK3
    2003             :         integer(IKC), allocatable :: temp(:,:)
    2004             : #include "pm_arrayResize@routines.inc.F90"
    2005         143 :     end procedure
    2006             : #endif
    2007             : 
    2008             : #if IK2_ENABLED
    2009         129 :     module procedure setRefilledSLDD_D2_IK2
    2010             :         use pm_kind, only: IKC => IK2
    2011             :         integer(IKC), allocatable :: temp(:,:)
    2012             : #include "pm_arrayResize@routines.inc.F90"
    2013         129 :     end procedure
    2014             : #endif
    2015             : 
    2016             : #if IK1_ENABLED
    2017         132 :     module procedure setRefilledSLDD_D2_IK1
    2018             :         use pm_kind, only: IKC => IK1
    2019             :         integer(IKC), allocatable :: temp(:,:)
    2020             : #include "pm_arrayResize@routines.inc.F90"
    2021         132 :     end procedure
    2022             : #endif
    2023             : 
    2024             : #undef IK_ENABLED
    2025             : 
    2026             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2027             : 
    2028             : #define LK_ENABLED 1
    2029             : 
    2030             : #if LK5_ENABLED
    2031         160 :     module procedure setRefilledSLDD_D2_LK5
    2032             :         use pm_kind, only: LKC => LK5
    2033             :         logical(LKC), allocatable :: temp(:,:)
    2034             : #include "pm_arrayResize@routines.inc.F90"
    2035         160 :     end procedure
    2036             : #endif
    2037             : 
    2038             : #if LK4_ENABLED
    2039         140 :     module procedure setRefilledSLDD_D2_LK4
    2040             :         use pm_kind, only: LKC => LK4
    2041             :         logical(LKC), allocatable :: temp(:,:)
    2042             : #include "pm_arrayResize@routines.inc.F90"
    2043         140 :     end procedure
    2044             : #endif
    2045             : 
    2046             : #if LK3_ENABLED
    2047         132 :     module procedure setRefilledSLDD_D2_LK3
    2048             :         use pm_kind, only: LKC => LK3
    2049             :         logical(LKC), allocatable :: temp(:,:)
    2050             : #include "pm_arrayResize@routines.inc.F90"
    2051         132 :     end procedure
    2052             : #endif
    2053             : 
    2054             : #if LK2_ENABLED
    2055         130 :     module procedure setRefilledSLDD_D2_LK2
    2056             :         use pm_kind, only: LKC => LK2
    2057             :         logical(LKC), allocatable :: temp(:,:)
    2058             : #include "pm_arrayResize@routines.inc.F90"
    2059         130 :     end procedure
    2060             : #endif
    2061             : 
    2062             : #if LK1_ENABLED
    2063         139 :     module procedure setRefilledSLDD_D2_LK1
    2064             :         use pm_kind, only: LKC => LK1
    2065             :         logical(LKC), allocatable :: temp(:,:)
    2066             : #include "pm_arrayResize@routines.inc.F90"
    2067         139 :     end procedure
    2068             : #endif
    2069             : 
    2070             : #undef LK_ENABLED
    2071             : 
    2072             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2073             : 
    2074             : #define CK_ENABLED 1
    2075             : 
    2076             : #if CK5_ENABLED
    2077             :     module procedure setRefilledSLDD_D2_CK5
    2078             :         use pm_kind, only: CKC => CK5
    2079             :         complex(CKC), allocatable :: temp(:,:)
    2080             : #include "pm_arrayResize@routines.inc.F90"
    2081             :     end procedure
    2082             : #endif
    2083             : 
    2084             : #if CK4_ENABLED
    2085         130 :     module procedure setRefilledSLDD_D2_CK4
    2086             :         use pm_kind, only: CKC => CK4
    2087             :         complex(CKC), allocatable :: temp(:,:)
    2088             : #include "pm_arrayResize@routines.inc.F90"
    2089         130 :     end procedure
    2090             : #endif
    2091             : 
    2092             : #if CK3_ENABLED
    2093         149 :     module procedure setRefilledSLDD_D2_CK3
    2094             :         use pm_kind, only: CKC => CK3
    2095             :         complex(CKC), allocatable :: temp(:,:)
    2096             : #include "pm_arrayResize@routines.inc.F90"
    2097         149 :     end procedure
    2098             : #endif
    2099             : 
    2100             : #if CK2_ENABLED
    2101         140 :     module procedure setRefilledSLDD_D2_CK2
    2102             :         use pm_kind, only: CKC => CK2
    2103             :         complex(CKC), allocatable :: temp(:,:)
    2104             : #include "pm_arrayResize@routines.inc.F90"
    2105         140 :     end procedure
    2106             : #endif
    2107             : 
    2108             : #if CK1_ENABLED
    2109         125 :     module procedure setRefilledSLDD_D2_CK1
    2110             :         use pm_kind, only: CKC => CK1
    2111             :         complex(CKC), allocatable :: temp(:,:)
    2112             : #include "pm_arrayResize@routines.inc.F90"
    2113         125 :     end procedure
    2114             : #endif
    2115             : 
    2116             : #undef CK_ENABLED
    2117             : 
    2118             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2119             : 
    2120             : #define RK_ENABLED 1
    2121             : 
    2122             : #if RK5_ENABLED
    2123             :     module procedure setRefilledSLDD_D2_RK5
    2124             :         use pm_kind, only: RKC => RK5
    2125             :         real(RKC), allocatable :: temp(:,:)
    2126             : #include "pm_arrayResize@routines.inc.F90"
    2127             :     end procedure
    2128             : #endif
    2129             : 
    2130             : #if RK4_ENABLED
    2131         152 :     module procedure setRefilledSLDD_D2_RK4
    2132             :         use pm_kind, only: RKC => RK4
    2133             :         real(RKC), allocatable :: temp(:,:)
    2134             : #include "pm_arrayResize@routines.inc.F90"
    2135         152 :     end procedure
    2136             : #endif
    2137             : 
    2138             : #if RK3_ENABLED
    2139         136 :     module procedure setRefilledSLDD_D2_RK3
    2140             :         use pm_kind, only: RKC => RK3
    2141             :         real(RKC), allocatable :: temp(:,:)
    2142             : #include "pm_arrayResize@routines.inc.F90"
    2143         136 :     end procedure
    2144             : #endif
    2145             : 
    2146             : #if RK2_ENABLED
    2147         143 :     module procedure setRefilledSLDD_D2_RK2
    2148             :         use pm_kind, only: RKC => RK2
    2149             :         real(RKC), allocatable :: temp(:,:)
    2150             : #include "pm_arrayResize@routines.inc.F90"
    2151         143 :     end procedure
    2152             : #endif
    2153             : 
    2154             : #if RK1_ENABLED
    2155         139 :     module procedure setRefilledSLDD_D2_RK1
    2156             :         use pm_kind, only: RKC => RK1
    2157             :         real(RKC), allocatable :: temp(:,:)
    2158             : #include "pm_arrayResize@routines.inc.F90"
    2159         139 :     end procedure
    2160             : #endif
    2161             : 
    2162             : #undef RK_ENABLED
    2163             : 
    2164             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2165             : 
    2166             : #undef D2_ENABLED
    2167             : 
    2168             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2169             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2170             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2171             : 
    2172             : #define D3_ENABLED 1
    2173             : 
    2174             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2175             : 
    2176             : #define SK_ENABLED 1
    2177             : 
    2178             : #if SK5_ENABLED
    2179             :     module procedure setRefilledSLDD_D3_SK5
    2180             :         use pm_kind, only: SKC => SK5
    2181             :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
    2182             : #include "pm_arrayResize@routines.inc.F90"
    2183             :     end procedure
    2184             : #endif
    2185             : 
    2186             : #if SK4_ENABLED
    2187             :     module procedure setRefilledSLDD_D3_SK4
    2188             :         use pm_kind, only: SKC => SK4
    2189             :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
    2190             : #include "pm_arrayResize@routines.inc.F90"
    2191             :     end procedure
    2192             : #endif
    2193             : 
    2194             : #if SK3_ENABLED
    2195             :     module procedure setRefilledSLDD_D3_SK3
    2196             :         use pm_kind, only: SKC => SK3
    2197             :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
    2198             : #include "pm_arrayResize@routines.inc.F90"
    2199             :     end procedure
    2200             : #endif
    2201             : 
    2202             : #if SK2_ENABLED
    2203             :     module procedure setRefilledSLDD_D3_SK2
    2204             :         use pm_kind, only: SKC => SK2
    2205             :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
    2206             : #include "pm_arrayResize@routines.inc.F90"
    2207             :     end procedure
    2208             : #endif
    2209             : 
    2210             : #if SK1_ENABLED
    2211         124 :     module procedure setRefilledSLDD_D3_SK1
    2212             :         use pm_kind, only: SKC => SK1
    2213         124 :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
    2214             : #include "pm_arrayResize@routines.inc.F90"
    2215         124 :     end procedure
    2216             : #endif
    2217             : 
    2218             : #undef SK_ENABLED
    2219             : 
    2220             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2221             : 
    2222             : #define IK_ENABLED 1
    2223             : 
    2224             : #if IK5_ENABLED
    2225         123 :     module procedure setRefilledSLDD_D3_IK5
    2226             :         use pm_kind, only: IKC => IK5
    2227             :         integer(IKC), allocatable :: temp(:,:,:)
    2228             : #include "pm_arrayResize@routines.inc.F90"
    2229         123 :     end procedure
    2230             : #endif
    2231             : 
    2232             : #if IK4_ENABLED
    2233         124 :     module procedure setRefilledSLDD_D3_IK4
    2234             :         use pm_kind, only: IKC => IK4
    2235             :         integer(IKC), allocatable :: temp(:,:,:)
    2236             : #include "pm_arrayResize@routines.inc.F90"
    2237         124 :     end procedure
    2238             : #endif
    2239             : 
    2240             : #if IK3_ENABLED
    2241         126 :     module procedure setRefilledSLDD_D3_IK3
    2242             :         use pm_kind, only: IKC => IK3
    2243             :         integer(IKC), allocatable :: temp(:,:,:)
    2244             : #include "pm_arrayResize@routines.inc.F90"
    2245         126 :     end procedure
    2246             : #endif
    2247             : 
    2248             : #if IK2_ENABLED
    2249         117 :     module procedure setRefilledSLDD_D3_IK2
    2250             :         use pm_kind, only: IKC => IK2
    2251             :         integer(IKC), allocatable :: temp(:,:,:)
    2252             : #include "pm_arrayResize@routines.inc.F90"
    2253         117 :     end procedure
    2254             : #endif
    2255             : 
    2256             : #if IK1_ENABLED
    2257         112 :     module procedure setRefilledSLDD_D3_IK1
    2258             :         use pm_kind, only: IKC => IK1
    2259             :         integer(IKC), allocatable :: temp(:,:,:)
    2260             : #include "pm_arrayResize@routines.inc.F90"
    2261         112 :     end procedure
    2262             : #endif
    2263             : 
    2264             : #undef IK_ENABLED
    2265             : 
    2266             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2267             : 
    2268             : #define LK_ENABLED 1
    2269             : 
    2270             : #if LK5_ENABLED
    2271         113 :     module procedure setRefilledSLDD_D3_LK5
    2272             :         use pm_kind, only: LKC => LK5
    2273             :         logical(LKC), allocatable :: temp(:,:,:)
    2274             : #include "pm_arrayResize@routines.inc.F90"
    2275         113 :     end procedure
    2276             : #endif
    2277             : 
    2278             : #if LK4_ENABLED
    2279         121 :     module procedure setRefilledSLDD_D3_LK4
    2280             :         use pm_kind, only: LKC => LK4
    2281             :         logical(LKC), allocatable :: temp(:,:,:)
    2282             : #include "pm_arrayResize@routines.inc.F90"
    2283         121 :     end procedure
    2284             : #endif
    2285             : 
    2286             : #if LK3_ENABLED
    2287         122 :     module procedure setRefilledSLDD_D3_LK3
    2288             :         use pm_kind, only: LKC => LK3
    2289             :         logical(LKC), allocatable :: temp(:,:,:)
    2290             : #include "pm_arrayResize@routines.inc.F90"
    2291         122 :     end procedure
    2292             : #endif
    2293             : 
    2294             : #if LK2_ENABLED
    2295         119 :     module procedure setRefilledSLDD_D3_LK2
    2296             :         use pm_kind, only: LKC => LK2
    2297             :         logical(LKC), allocatable :: temp(:,:,:)
    2298             : #include "pm_arrayResize@routines.inc.F90"
    2299         119 :     end procedure
    2300             : #endif
    2301             : 
    2302             : #if LK1_ENABLED
    2303         103 :     module procedure setRefilledSLDD_D3_LK1
    2304             :         use pm_kind, only: LKC => LK1
    2305             :         logical(LKC), allocatable :: temp(:,:,:)
    2306             : #include "pm_arrayResize@routines.inc.F90"
    2307         103 :     end procedure
    2308             : #endif
    2309             : 
    2310             : #undef LK_ENABLED
    2311             : 
    2312             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2313             : 
    2314             : #define CK_ENABLED 1
    2315             : 
    2316             : #if CK5_ENABLED
    2317             :     module procedure setRefilledSLDD_D3_CK5
    2318             :         use pm_kind, only: CKC => CK5
    2319             :         complex(CKC), allocatable :: temp(:,:,:)
    2320             : #include "pm_arrayResize@routines.inc.F90"
    2321             :     end procedure
    2322             : #endif
    2323             : 
    2324             : #if CK4_ENABLED
    2325         123 :     module procedure setRefilledSLDD_D3_CK4
    2326             :         use pm_kind, only: CKC => CK4
    2327             :         complex(CKC), allocatable :: temp(:,:,:)
    2328             : #include "pm_arrayResize@routines.inc.F90"
    2329         123 :     end procedure
    2330             : #endif
    2331             : 
    2332             : #if CK3_ENABLED
    2333         109 :     module procedure setRefilledSLDD_D3_CK3
    2334             :         use pm_kind, only: CKC => CK3
    2335             :         complex(CKC), allocatable :: temp(:,:,:)
    2336             : #include "pm_arrayResize@routines.inc.F90"
    2337         109 :     end procedure
    2338             : #endif
    2339             : 
    2340             : #if CK2_ENABLED
    2341         112 :     module procedure setRefilledSLDD_D3_CK2
    2342             :         use pm_kind, only: CKC => CK2
    2343             :         complex(CKC), allocatable :: temp(:,:,:)
    2344             : #include "pm_arrayResize@routines.inc.F90"
    2345         112 :     end procedure
    2346             : #endif
    2347             : 
    2348             : #if CK1_ENABLED
    2349         111 :     module procedure setRefilledSLDD_D3_CK1
    2350             :         use pm_kind, only: CKC => CK1
    2351             :         complex(CKC), allocatable :: temp(:,:,:)
    2352             : #include "pm_arrayResize@routines.inc.F90"
    2353         111 :     end procedure
    2354             : #endif
    2355             : 
    2356             : #undef CK_ENABLED
    2357             : 
    2358             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2359             : 
    2360             : #define RK_ENABLED 1
    2361             : 
    2362             : #if RK5_ENABLED
    2363             :     module procedure setRefilledSLDD_D3_RK5
    2364             :         use pm_kind, only: RKC => RK5
    2365             :         real(RKC), allocatable :: temp(:,:,:)
    2366             : #include "pm_arrayResize@routines.inc.F90"
    2367             :     end procedure
    2368             : #endif
    2369             : 
    2370             : #if RK4_ENABLED
    2371         126 :     module procedure setRefilledSLDD_D3_RK4
    2372             :         use pm_kind, only: RKC => RK4
    2373             :         real(RKC), allocatable :: temp(:,:,:)
    2374             : #include "pm_arrayResize@routines.inc.F90"
    2375         126 :     end procedure
    2376             : #endif
    2377             : 
    2378             : #if RK3_ENABLED
    2379         113 :     module procedure setRefilledSLDD_D3_RK3
    2380             :         use pm_kind, only: RKC => RK3
    2381             :         real(RKC), allocatable :: temp(:,:,:)
    2382             : #include "pm_arrayResize@routines.inc.F90"
    2383         113 :     end procedure
    2384             : #endif
    2385             : 
    2386             : #if RK2_ENABLED
    2387         123 :     module procedure setRefilledSLDD_D3_RK2
    2388             :         use pm_kind, only: RKC => RK2
    2389             :         real(RKC), allocatable :: temp(:,:,:)
    2390             : #include "pm_arrayResize@routines.inc.F90"
    2391         123 :     end procedure
    2392             : #endif
    2393             : 
    2394             : #if RK1_ENABLED
    2395         139 :     module procedure setRefilledSLDD_D3_RK1
    2396             :         use pm_kind, only: RKC => RK1
    2397             :         real(RKC), allocatable :: temp(:,:,:)
    2398             : #include "pm_arrayResize@routines.inc.F90"
    2399         139 :     end procedure
    2400             : #endif
    2401             : 
    2402             : #undef RK_ENABLED
    2403             : 
    2404             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2405             : 
    2406             : #undef D3_ENABLED
    2407             : 
    2408             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2409             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2410             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2411             : 
    2412             : #undef SLDD_ENABLED
    2413             : 
    2414             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2415             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2416             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2417             : 
    2418             : #define SLLU_ENABLED 1
    2419             : 
    2420             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2421             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2422             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2423             : 
    2424             : #define D0_ENABLED 1
    2425             : 
    2426             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2427             : 
    2428             : #define SK_ENABLED 1
    2429             : 
    2430             : #if SK5_ENABLED
    2431             :     module procedure setRefilledSLLU_D0_SK5
    2432             :         use pm_kind, only: SKC => SK5
    2433             :         character(:,SKC), allocatable :: temp
    2434             : #include "pm_arrayResize@routines.inc.F90"
    2435             :     end procedure
    2436             : #endif
    2437             : 
    2438             : #if SK4_ENABLED
    2439             :     module procedure setRefilledSLLU_D0_SK4
    2440             :         use pm_kind, only: SKC => SK4
    2441             :         character(:,SKC), allocatable :: temp
    2442             : #include "pm_arrayResize@routines.inc.F90"
    2443             :     end procedure
    2444             : #endif
    2445             : 
    2446             : #if SK3_ENABLED
    2447             :     module procedure setRefilledSLLU_D0_SK3
    2448             :         use pm_kind, only: SKC => SK3
    2449             :         character(:,SKC), allocatable :: temp
    2450             : #include "pm_arrayResize@routines.inc.F90"
    2451             :     end procedure
    2452             : #endif
    2453             : 
    2454             : #if SK2_ENABLED
    2455             :     module procedure setRefilledSLLU_D0_SK2
    2456             :         use pm_kind, only: SKC => SK2
    2457             :         character(:,SKC), allocatable :: temp
    2458             : #include "pm_arrayResize@routines.inc.F90"
    2459             :     end procedure
    2460             : #endif
    2461             : 
    2462             : #if SK1_ENABLED
    2463         800 :     module procedure setRefilledSLLU_D0_SK1
    2464             :         use pm_kind, only: SKC => SK1
    2465             :         character(:,SKC), allocatable :: temp
    2466             : #include "pm_arrayResize@routines.inc.F90"
    2467         400 :     end procedure
    2468             : #endif
    2469             : 
    2470             : #undef SK_ENABLED
    2471             : 
    2472             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2473             : 
    2474             : #undef D0_ENABLED
    2475             : 
    2476             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2477             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2478             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2479             : 
    2480             : #define D1_ENABLED 1
    2481             : 
    2482             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2483             : 
    2484             : #define SK_ENABLED 1
    2485             : 
    2486             : #if SK5_ENABLED
    2487             :     module procedure setRefilledSLLU_D1_SK5
    2488             :         use pm_kind, only: SKC => SK5
    2489             :         character(len(array,IK),SKC), allocatable :: temp(:)
    2490             : #include "pm_arrayResize@routines.inc.F90"
    2491             :     end procedure
    2492             : #endif
    2493             : 
    2494             : #if SK4_ENABLED
    2495             :     module procedure setRefilledSLLU_D1_SK4
    2496             :         use pm_kind, only: SKC => SK4
    2497             :         character(len(array,IK),SKC), allocatable :: temp(:)
    2498             : #include "pm_arrayResize@routines.inc.F90"
    2499             :     end procedure
    2500             : #endif
    2501             : 
    2502             : #if SK3_ENABLED
    2503             :     module procedure setRefilledSLLU_D1_SK3
    2504             :         use pm_kind, only: SKC => SK3
    2505             :         character(len(array,IK),SKC), allocatable :: temp(:)
    2506             : #include "pm_arrayResize@routines.inc.F90"
    2507             :     end procedure
    2508             : #endif
    2509             : 
    2510             : #if SK2_ENABLED
    2511             :     module procedure setRefilledSLLU_D1_SK2
    2512             :         use pm_kind, only: SKC => SK2
    2513             :         character(len(array,IK),SKC), allocatable :: temp(:)
    2514             : #include "pm_arrayResize@routines.inc.F90"
    2515             :     end procedure
    2516             : #endif
    2517             : 
    2518             : #if SK1_ENABLED
    2519         401 :     module procedure setRefilledSLLU_D1_SK1
    2520             :         use pm_kind, only: SKC => SK1
    2521         401 :         character(len(array,IK),SKC), allocatable :: temp(:)
    2522             : #include "pm_arrayResize@routines.inc.F90"
    2523         401 :     end procedure
    2524             : #endif
    2525             : 
    2526             : #undef SK_ENABLED
    2527             : 
    2528             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2529             : 
    2530             : #define IK_ENABLED 1
    2531             : 
    2532             : #if IK5_ENABLED
    2533         400 :     module procedure setRefilledSLLU_D1_IK5
    2534             :         use pm_kind, only: IKC => IK5
    2535             :         integer(IKC), allocatable :: temp(:)
    2536             : #include "pm_arrayResize@routines.inc.F90"
    2537         400 :     end procedure
    2538             : #endif
    2539             : 
    2540             : #if IK4_ENABLED
    2541         400 :     module procedure setRefilledSLLU_D1_IK4
    2542             :         use pm_kind, only: IKC => IK4
    2543             :         integer(IKC), allocatable :: temp(:)
    2544             : #include "pm_arrayResize@routines.inc.F90"
    2545         400 :     end procedure
    2546             : #endif
    2547             : 
    2548             : #if IK3_ENABLED
    2549         400 :     module procedure setRefilledSLLU_D1_IK3
    2550             :         use pm_kind, only: IKC => IK3
    2551             :         integer(IKC), allocatable :: temp(:)
    2552             : #include "pm_arrayResize@routines.inc.F90"
    2553         400 :     end procedure
    2554             : #endif
    2555             : 
    2556             : #if IK2_ENABLED
    2557         400 :     module procedure setRefilledSLLU_D1_IK2
    2558             :         use pm_kind, only: IKC => IK2
    2559             :         integer(IKC), allocatable :: temp(:)
    2560             : #include "pm_arrayResize@routines.inc.F90"
    2561         400 :     end procedure
    2562             : #endif
    2563             : 
    2564             : #if IK1_ENABLED
    2565         400 :     module procedure setRefilledSLLU_D1_IK1
    2566             :         use pm_kind, only: IKC => IK1
    2567             :         integer(IKC), allocatable :: temp(:)
    2568             : #include "pm_arrayResize@routines.inc.F90"
    2569         400 :     end procedure
    2570             : #endif
    2571             : 
    2572             : #undef IK_ENABLED
    2573             : 
    2574             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2575             : 
    2576             : #define LK_ENABLED 1
    2577             : 
    2578             : #if LK5_ENABLED
    2579         400 :     module procedure setRefilledSLLU_D1_LK5
    2580             :         use pm_kind, only: LKC => LK5
    2581             :         logical(LKC), allocatable :: temp(:)
    2582             : #include "pm_arrayResize@routines.inc.F90"
    2583         400 :     end procedure
    2584             : #endif
    2585             : 
    2586             : #if LK4_ENABLED
    2587         400 :     module procedure setRefilledSLLU_D1_LK4
    2588             :         use pm_kind, only: LKC => LK4
    2589             :         logical(LKC), allocatable :: temp(:)
    2590             : #include "pm_arrayResize@routines.inc.F90"
    2591         400 :     end procedure
    2592             : #endif
    2593             : 
    2594             : #if LK3_ENABLED
    2595         400 :     module procedure setRefilledSLLU_D1_LK3
    2596             :         use pm_kind, only: LKC => LK3
    2597             :         logical(LKC), allocatable :: temp(:)
    2598             : #include "pm_arrayResize@routines.inc.F90"
    2599         400 :     end procedure
    2600             : #endif
    2601             : 
    2602             : #if LK2_ENABLED
    2603         400 :     module procedure setRefilledSLLU_D1_LK2
    2604             :         use pm_kind, only: LKC => LK2
    2605             :         logical(LKC), allocatable :: temp(:)
    2606             : #include "pm_arrayResize@routines.inc.F90"
    2607         400 :     end procedure
    2608             : #endif
    2609             : 
    2610             : #if LK1_ENABLED
    2611         400 :     module procedure setRefilledSLLU_D1_LK1
    2612             :         use pm_kind, only: LKC => LK1
    2613             :         logical(LKC), allocatable :: temp(:)
    2614             : #include "pm_arrayResize@routines.inc.F90"
    2615         400 :     end procedure
    2616             : #endif
    2617             : 
    2618             : #undef LK_ENABLED
    2619             : 
    2620             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2621             : 
    2622             : #define CK_ENABLED 1
    2623             : 
    2624             : #if CK5_ENABLED
    2625             :     module procedure setRefilledSLLU_D1_CK5
    2626             :         use pm_kind, only: CKC => CK5
    2627             :         complex(CKC), allocatable :: temp(:)
    2628             : #include "pm_arrayResize@routines.inc.F90"
    2629             :     end procedure
    2630             : #endif
    2631             : 
    2632             : #if CK4_ENABLED
    2633         400 :     module procedure setRefilledSLLU_D1_CK4
    2634             :         use pm_kind, only: CKC => CK4
    2635             :         complex(CKC), allocatable :: temp(:)
    2636             : #include "pm_arrayResize@routines.inc.F90"
    2637         400 :     end procedure
    2638             : #endif
    2639             : 
    2640             : #if CK3_ENABLED
    2641         400 :     module procedure setRefilledSLLU_D1_CK3
    2642             :         use pm_kind, only: CKC => CK3
    2643             :         complex(CKC), allocatable :: temp(:)
    2644             : #include "pm_arrayResize@routines.inc.F90"
    2645         400 :     end procedure
    2646             : #endif
    2647             : 
    2648             : #if CK2_ENABLED
    2649         400 :     module procedure setRefilledSLLU_D1_CK2
    2650             :         use pm_kind, only: CKC => CK2
    2651             :         complex(CKC), allocatable :: temp(:)
    2652             : #include "pm_arrayResize@routines.inc.F90"
    2653         400 :     end procedure
    2654             : #endif
    2655             : 
    2656             : #if CK1_ENABLED
    2657         400 :     module procedure setRefilledSLLU_D1_CK1
    2658             :         use pm_kind, only: CKC => CK1
    2659             :         complex(CKC), allocatable :: temp(:)
    2660             : #include "pm_arrayResize@routines.inc.F90"
    2661         400 :     end procedure
    2662             : #endif
    2663             : 
    2664             : #undef CK_ENABLED
    2665             : 
    2666             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2667             : 
    2668             : #define RK_ENABLED 1
    2669             : 
    2670             : #if RK5_ENABLED
    2671             :     module procedure setRefilledSLLU_D1_RK5
    2672             :         use pm_kind, only: RKC => RK5
    2673             :         real(RKC), allocatable :: temp(:)
    2674             : #include "pm_arrayResize@routines.inc.F90"
    2675             :     end procedure
    2676             : #endif
    2677             : 
    2678             : #if RK4_ENABLED
    2679         400 :     module procedure setRefilledSLLU_D1_RK4
    2680             :         use pm_kind, only: RKC => RK4
    2681             :         real(RKC), allocatable :: temp(:)
    2682             : #include "pm_arrayResize@routines.inc.F90"
    2683         400 :     end procedure
    2684             : #endif
    2685             : 
    2686             : #if RK3_ENABLED
    2687         400 :     module procedure setRefilledSLLU_D1_RK3
    2688             :         use pm_kind, only: RKC => RK3
    2689             :         real(RKC), allocatable :: temp(:)
    2690             : #include "pm_arrayResize@routines.inc.F90"
    2691         400 :     end procedure
    2692             : #endif
    2693             : 
    2694             : #if RK2_ENABLED
    2695         400 :     module procedure setRefilledSLLU_D1_RK2
    2696             :         use pm_kind, only: RKC => RK2
    2697             :         real(RKC), allocatable :: temp(:)
    2698             : #include "pm_arrayResize@routines.inc.F90"
    2699         400 :     end procedure
    2700             : #endif
    2701             : 
    2702             : #if RK1_ENABLED
    2703         400 :     module procedure setRefilledSLLU_D1_RK1
    2704             :         use pm_kind, only: RKC => RK1
    2705             :         real(RKC), allocatable :: temp(:)
    2706             : #include "pm_arrayResize@routines.inc.F90"
    2707         400 :     end procedure
    2708             : #endif
    2709             : 
    2710             : #undef RK_ENABLED
    2711             : 
    2712             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2713             : 
    2714             : #undef D1_ENABLED
    2715             : 
    2716             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2717             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2718             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2719             : 
    2720             : #define D2_ENABLED 1
    2721             : 
    2722             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2723             : 
    2724             : #define SK_ENABLED 1
    2725             : 
    2726             : #if SK5_ENABLED
    2727             :     module procedure setRefilledSLLU_D2_SK5
    2728             :         use pm_kind, only: SKC => SK5
    2729             :         character(len(array,IK),SKC), allocatable :: temp(:,:)
    2730             : #include "pm_arrayResize@routines.inc.F90"
    2731             :     end procedure
    2732             : #endif
    2733             : 
    2734             : #if SK4_ENABLED
    2735             :     module procedure setRefilledSLLU_D2_SK4
    2736             :         use pm_kind, only: SKC => SK4
    2737             :         character(len(array,IK),SKC), allocatable :: temp(:,:)
    2738             : #include "pm_arrayResize@routines.inc.F90"
    2739             :     end procedure
    2740             : #endif
    2741             : 
    2742             : #if SK3_ENABLED
    2743             :     module procedure setRefilledSLLU_D2_SK3
    2744             :         use pm_kind, only: SKC => SK3
    2745             :         character(len(array,IK),SKC), allocatable :: temp(:,:)
    2746             : #include "pm_arrayResize@routines.inc.F90"
    2747             :     end procedure
    2748             : #endif
    2749             : 
    2750             : #if SK2_ENABLED
    2751             :     module procedure setRefilledSLLU_D2_SK2
    2752             :         use pm_kind, only: SKC => SK2
    2753             :         character(len(array,IK),SKC), allocatable :: temp(:,:)
    2754             : #include "pm_arrayResize@routines.inc.F90"
    2755             :     end procedure
    2756             : #endif
    2757             : 
    2758             : #if SK1_ENABLED
    2759         401 :     module procedure setRefilledSLLU_D2_SK1
    2760             :         use pm_kind, only: SKC => SK1
    2761         401 :         character(len(array,IK),SKC), allocatable :: temp(:,:)
    2762             : #include "pm_arrayResize@routines.inc.F90"
    2763         401 :     end procedure
    2764             : #endif
    2765             : 
    2766             : #undef SK_ENABLED
    2767             : 
    2768             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2769             : 
    2770             : #define IK_ENABLED 1
    2771             : 
    2772             : #if IK5_ENABLED
    2773         400 :     module procedure setRefilledSLLU_D2_IK5
    2774             :         use pm_kind, only: IKC => IK5
    2775             :         integer(IKC), allocatable :: temp(:,:)
    2776             : #include "pm_arrayResize@routines.inc.F90"
    2777         400 :     end procedure
    2778             : #endif
    2779             : 
    2780             : #if IK4_ENABLED
    2781         400 :     module procedure setRefilledSLLU_D2_IK4
    2782             :         use pm_kind, only: IKC => IK4
    2783             :         integer(IKC), allocatable :: temp(:,:)
    2784             : #include "pm_arrayResize@routines.inc.F90"
    2785         400 :     end procedure
    2786             : #endif
    2787             : 
    2788             : #if IK3_ENABLED
    2789         400 :     module procedure setRefilledSLLU_D2_IK3
    2790             :         use pm_kind, only: IKC => IK3
    2791             :         integer(IKC), allocatable :: temp(:,:)
    2792             : #include "pm_arrayResize@routines.inc.F90"
    2793         400 :     end procedure
    2794             : #endif
    2795             : 
    2796             : #if IK2_ENABLED
    2797         400 :     module procedure setRefilledSLLU_D2_IK2
    2798             :         use pm_kind, only: IKC => IK2
    2799             :         integer(IKC), allocatable :: temp(:,:)
    2800             : #include "pm_arrayResize@routines.inc.F90"
    2801         400 :     end procedure
    2802             : #endif
    2803             : 
    2804             : #if IK1_ENABLED
    2805         400 :     module procedure setRefilledSLLU_D2_IK1
    2806             :         use pm_kind, only: IKC => IK1
    2807             :         integer(IKC), allocatable :: temp(:,:)
    2808             : #include "pm_arrayResize@routines.inc.F90"
    2809         400 :     end procedure
    2810             : #endif
    2811             : 
    2812             : #undef IK_ENABLED
    2813             : 
    2814             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2815             : 
    2816             : #define LK_ENABLED 1
    2817             : 
    2818             : #if LK5_ENABLED
    2819         400 :     module procedure setRefilledSLLU_D2_LK5
    2820             :         use pm_kind, only: LKC => LK5
    2821             :         logical(LKC), allocatable :: temp(:,:)
    2822             : #include "pm_arrayResize@routines.inc.F90"
    2823         400 :     end procedure
    2824             : #endif
    2825             : 
    2826             : #if LK4_ENABLED
    2827         400 :     module procedure setRefilledSLLU_D2_LK4
    2828             :         use pm_kind, only: LKC => LK4
    2829             :         logical(LKC), allocatable :: temp(:,:)
    2830             : #include "pm_arrayResize@routines.inc.F90"
    2831         400 :     end procedure
    2832             : #endif
    2833             : 
    2834             : #if LK3_ENABLED
    2835         400 :     module procedure setRefilledSLLU_D2_LK3
    2836             :         use pm_kind, only: LKC => LK3
    2837             :         logical(LKC), allocatable :: temp(:,:)
    2838             : #include "pm_arrayResize@routines.inc.F90"
    2839         400 :     end procedure
    2840             : #endif
    2841             : 
    2842             : #if LK2_ENABLED
    2843         400 :     module procedure setRefilledSLLU_D2_LK2
    2844             :         use pm_kind, only: LKC => LK2
    2845             :         logical(LKC), allocatable :: temp(:,:)
    2846             : #include "pm_arrayResize@routines.inc.F90"
    2847         400 :     end procedure
    2848             : #endif
    2849             : 
    2850             : #if LK1_ENABLED
    2851         400 :     module procedure setRefilledSLLU_D2_LK1
    2852             :         use pm_kind, only: LKC => LK1
    2853             :         logical(LKC), allocatable :: temp(:,:)
    2854             : #include "pm_arrayResize@routines.inc.F90"
    2855         400 :     end procedure
    2856             : #endif
    2857             : 
    2858             : #undef LK_ENABLED
    2859             : 
    2860             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2861             : 
    2862             : #define CK_ENABLED 1
    2863             : 
    2864             : #if CK5_ENABLED
    2865             :     module procedure setRefilledSLLU_D2_CK5
    2866             :         use pm_kind, only: CKC => CK5
    2867             :         complex(CKC), allocatable :: temp(:,:)
    2868             : #include "pm_arrayResize@routines.inc.F90"
    2869             :     end procedure
    2870             : #endif
    2871             : 
    2872             : #if CK4_ENABLED
    2873         400 :     module procedure setRefilledSLLU_D2_CK4
    2874             :         use pm_kind, only: CKC => CK4
    2875             :         complex(CKC), allocatable :: temp(:,:)
    2876             : #include "pm_arrayResize@routines.inc.F90"
    2877         400 :     end procedure
    2878             : #endif
    2879             : 
    2880             : #if CK3_ENABLED
    2881         400 :     module procedure setRefilledSLLU_D2_CK3
    2882             :         use pm_kind, only: CKC => CK3
    2883             :         complex(CKC), allocatable :: temp(:,:)
    2884             : #include "pm_arrayResize@routines.inc.F90"
    2885         400 :     end procedure
    2886             : #endif
    2887             : 
    2888             : #if CK2_ENABLED
    2889         400 :     module procedure setRefilledSLLU_D2_CK2
    2890             :         use pm_kind, only: CKC => CK2
    2891             :         complex(CKC), allocatable :: temp(:,:)
    2892             : #include "pm_arrayResize@routines.inc.F90"
    2893         400 :     end procedure
    2894             : #endif
    2895             : 
    2896             : #if CK1_ENABLED
    2897         400 :     module procedure setRefilledSLLU_D2_CK1
    2898             :         use pm_kind, only: CKC => CK1
    2899             :         complex(CKC), allocatable :: temp(:,:)
    2900             : #include "pm_arrayResize@routines.inc.F90"
    2901         400 :     end procedure
    2902             : #endif
    2903             : 
    2904             : #undef CK_ENABLED
    2905             : 
    2906             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2907             : 
    2908             : #define RK_ENABLED 1
    2909             : 
    2910             : #if RK5_ENABLED
    2911             :     module procedure setRefilledSLLU_D2_RK5
    2912             :         use pm_kind, only: RKC => RK5
    2913             :         real(RKC), allocatable :: temp(:,:)
    2914             : #include "pm_arrayResize@routines.inc.F90"
    2915             :     end procedure
    2916             : #endif
    2917             : 
    2918             : #if RK4_ENABLED
    2919         400 :     module procedure setRefilledSLLU_D2_RK4
    2920             :         use pm_kind, only: RKC => RK4
    2921             :         real(RKC), allocatable :: temp(:,:)
    2922             : #include "pm_arrayResize@routines.inc.F90"
    2923         400 :     end procedure
    2924             : #endif
    2925             : 
    2926             : #if RK3_ENABLED
    2927         400 :     module procedure setRefilledSLLU_D2_RK3
    2928             :         use pm_kind, only: RKC => RK3
    2929             :         real(RKC), allocatable :: temp(:,:)
    2930             : #include "pm_arrayResize@routines.inc.F90"
    2931         400 :     end procedure
    2932             : #endif
    2933             : 
    2934             : #if RK2_ENABLED
    2935         400 :     module procedure setRefilledSLLU_D2_RK2
    2936             :         use pm_kind, only: RKC => RK2
    2937             :         real(RKC), allocatable :: temp(:,:)
    2938             : #include "pm_arrayResize@routines.inc.F90"
    2939         400 :     end procedure
    2940             : #endif
    2941             : 
    2942             : #if RK1_ENABLED
    2943         400 :     module procedure setRefilledSLLU_D2_RK1
    2944             :         use pm_kind, only: RKC => RK1
    2945             :         real(RKC), allocatable :: temp(:,:)
    2946             : #include "pm_arrayResize@routines.inc.F90"
    2947         400 :     end procedure
    2948             : #endif
    2949             : 
    2950             : #undef RK_ENABLED
    2951             : 
    2952             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2953             : 
    2954             : #undef D2_ENABLED
    2955             : 
    2956             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2957             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2958             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2959             : 
    2960             : #define D3_ENABLED 1
    2961             : 
    2962             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2963             : 
    2964             : #define SK_ENABLED 1
    2965             : 
    2966             : #if SK5_ENABLED
    2967             :     module procedure setRefilledSLLU_D3_SK5
    2968             :         use pm_kind, only: SKC => SK5
    2969             :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
    2970             : #include "pm_arrayResize@routines.inc.F90"
    2971             :     end procedure
    2972             : #endif
    2973             : 
    2974             : #if SK4_ENABLED
    2975             :     module procedure setRefilledSLLU_D3_SK4
    2976             :         use pm_kind, only: SKC => SK4
    2977             :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
    2978             : #include "pm_arrayResize@routines.inc.F90"
    2979             :     end procedure
    2980             : #endif
    2981             : 
    2982             : #if SK3_ENABLED
    2983             :     module procedure setRefilledSLLU_D3_SK3
    2984             :         use pm_kind, only: SKC => SK3
    2985             :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
    2986             : #include "pm_arrayResize@routines.inc.F90"
    2987             :     end procedure
    2988             : #endif
    2989             : 
    2990             : #if SK2_ENABLED
    2991             :     module procedure setRefilledSLLU_D3_SK2
    2992             :         use pm_kind, only: SKC => SK2
    2993             :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
    2994             : #include "pm_arrayResize@routines.inc.F90"
    2995             :     end procedure
    2996             : #endif
    2997             : 
    2998             : #if SK1_ENABLED
    2999         401 :     module procedure setRefilledSLLU_D3_SK1
    3000             :         use pm_kind, only: SKC => SK1
    3001         401 :         character(len(array,IK),SKC), allocatable :: temp(:,:,:)
    3002             : #include "pm_arrayResize@routines.inc.F90"
    3003         401 :     end procedure
    3004             : #endif
    3005             : 
    3006             : #undef SK_ENABLED
    3007             : 
    3008             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3009             : 
    3010             : #define IK_ENABLED 1
    3011             : 
    3012             : #if IK5_ENABLED
    3013         400 :     module procedure setRefilledSLLU_D3_IK5
    3014             :         use pm_kind, only: IKC => IK5
    3015             :         integer(IKC), allocatable :: temp(:,:,:)
    3016             : #include "pm_arrayResize@routines.inc.F90"
    3017         400 :     end procedure
    3018             : #endif
    3019             : 
    3020             : #if IK4_ENABLED
    3021         400 :     module procedure setRefilledSLLU_D3_IK4
    3022             :         use pm_kind, only: IKC => IK4
    3023             :         integer(IKC), allocatable :: temp(:,:,:)
    3024             : #include "pm_arrayResize@routines.inc.F90"
    3025         400 :     end procedure
    3026             : #endif
    3027             : 
    3028             : #if IK3_ENABLED
    3029         400 :     module procedure setRefilledSLLU_D3_IK3
    3030             :         use pm_kind, only: IKC => IK3
    3031             :         integer(IKC), allocatable :: temp(:,:,:)
    3032             : #include "pm_arrayResize@routines.inc.F90"
    3033         400 :     end procedure
    3034             : #endif
    3035             : 
    3036             : #if IK2_ENABLED
    3037         400 :     module procedure setRefilledSLLU_D3_IK2
    3038             :         use pm_kind, only: IKC => IK2
    3039             :         integer(IKC), allocatable :: temp(:,:,:)
    3040             : #include "pm_arrayResize@routines.inc.F90"
    3041         400 :     end procedure
    3042             : #endif
    3043             : 
    3044             : #if IK1_ENABLED
    3045         400 :     module procedure setRefilledSLLU_D3_IK1
    3046             :         use pm_kind, only: IKC => IK1
    3047             :         integer(IKC), allocatable :: temp(:,:,:)
    3048             : #include "pm_arrayResize@routines.inc.F90"
    3049         400 :     end procedure
    3050             : #endif
    3051             : 
    3052             : #undef IK_ENABLED
    3053             : 
    3054             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3055             : 
    3056             : #define LK_ENABLED 1
    3057             : 
    3058             : #if LK5_ENABLED
    3059         400 :     module procedure setRefilledSLLU_D3_LK5
    3060             :         use pm_kind, only: LKC => LK5
    3061             :         logical(LKC), allocatable :: temp(:,:,:)
    3062             : #include "pm_arrayResize@routines.inc.F90"
    3063         400 :     end procedure
    3064             : #endif
    3065             : 
    3066             : #if LK4_ENABLED
    3067         400 :     module procedure setRefilledSLLU_D3_LK4
    3068             :         use pm_kind, only: LKC => LK4
    3069             :         logical(LKC), allocatable :: temp(:,:,:)
    3070             : #include "pm_arrayResize@routines.inc.F90"
    3071         400 :     end procedure
    3072             : #endif
    3073             : 
    3074             : #if LK3_ENABLED
    3075         400 :     module procedure setRefilledSLLU_D3_LK3
    3076             :         use pm_kind, only: LKC => LK3
    3077             :         logical(LKC), allocatable :: temp(:,:,:)
    3078             : #include "pm_arrayResize@routines.inc.F90"
    3079         400 :     end procedure
    3080             : #endif
    3081             : 
    3082             : #if LK2_ENABLED
    3083         400 :     module procedure setRefilledSLLU_D3_LK2
    3084             :         use pm_kind, only: LKC => LK2
    3085             :         logical(LKC), allocatable :: temp(:,:,:)
    3086             : #include "pm_arrayResize@routines.inc.F90"
    3087         400 :     end procedure
    3088             : #endif
    3089             : 
    3090             : #if LK1_ENABLED
    3091         400 :     module procedure setRefilledSLLU_D3_LK1
    3092             :         use pm_kind, only: LKC => LK1
    3093             :         logical(LKC), allocatable :: temp(:,:,:)
    3094             : #include "pm_arrayResize@routines.inc.F90"
    3095         400 :     end procedure
    3096             : #endif
    3097             : 
    3098             : #undef LK_ENABLED
    3099             : 
    3100             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3101             : 
    3102             : #define CK_ENABLED 1
    3103             : 
    3104             : #if CK5_ENABLED
    3105             :     module procedure setRefilledSLLU_D3_CK5
    3106             :         use pm_kind, only: CKC => CK5
    3107             :         complex(CKC), allocatable :: temp(:,:,:)
    3108             : #include "pm_arrayResize@routines.inc.F90"
    3109             :     end procedure
    3110             : #endif
    3111             : 
    3112             : #if CK4_ENABLED
    3113         400 :     module procedure setRefilledSLLU_D3_CK4
    3114             :         use pm_kind, only: CKC => CK4
    3115             :         complex(CKC), allocatable :: temp(:,:,:)
    3116             : #include "pm_arrayResize@routines.inc.F90"
    3117         400 :     end procedure
    3118             : #endif
    3119             : 
    3120             : #if CK3_ENABLED
    3121         400 :     module procedure setRefilledSLLU_D3_CK3
    3122             :         use pm_kind, only: CKC => CK3
    3123             :         complex(CKC), allocatable :: temp(:,:,:)
    3124             : #include "pm_arrayResize@routines.inc.F90"
    3125         400 :     end procedure
    3126             : #endif
    3127             : 
    3128             : #if CK2_ENABLED
    3129         400 :     module procedure setRefilledSLLU_D3_CK2
    3130             :         use pm_kind, only: CKC => CK2
    3131             :         complex(CKC), allocatable :: temp(:,:,:)
    3132             : #include "pm_arrayResize@routines.inc.F90"
    3133         400 :     end procedure
    3134             : #endif
    3135             : 
    3136             : #if CK1_ENABLED
    3137         400 :     module procedure setRefilledSLLU_D3_CK1
    3138             :         use pm_kind, only: CKC => CK1
    3139             :         complex(CKC), allocatable :: temp(:,:,:)
    3140             : #include "pm_arrayResize@routines.inc.F90"
    3141         400 :     end procedure
    3142             : #endif
    3143             : 
    3144             : #undef CK_ENABLED
    3145             : 
    3146             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3147             : 
    3148             : #define RK_ENABLED 1
    3149             : 
    3150             : #if RK5_ENABLED
    3151             :     module procedure setRefilledSLLU_D3_RK5
    3152             :         use pm_kind, only: RKC => RK5
    3153             :         real(RKC), allocatable :: temp(:,:,:)
    3154             : #include "pm_arrayResize@routines.inc.F90"
    3155             :     end procedure
    3156             : #endif
    3157             : 
    3158             : #if RK4_ENABLED
    3159         400 :     module procedure setRefilledSLLU_D3_RK4
    3160             :         use pm_kind, only: RKC => RK4
    3161             :         real(RKC), allocatable :: temp(:,:,:)
    3162             : #include "pm_arrayResize@routines.inc.F90"
    3163         400 :     end procedure
    3164             : #endif
    3165             : 
    3166             : #if RK3_ENABLED
    3167         400 :     module procedure setRefilledSLLU_D3_RK3
    3168             :         use pm_kind, only: RKC => RK3
    3169             :         real(RKC), allocatable :: temp(:,:,:)
    3170             : #include "pm_arrayResize@routines.inc.F90"
    3171         400 :     end procedure
    3172             : #endif
    3173             : 
    3174             : #if RK2_ENABLED
    3175         400 :     module procedure setRefilledSLLU_D3_RK2
    3176             :         use pm_kind, only: RKC => RK2
    3177             :         real(RKC), allocatable :: temp(:,:,:)
    3178             : #include "pm_arrayResize@routines.inc.F90"
    3179         400 :     end procedure
    3180             : #endif
    3181             : 
    3182             : #if RK1_ENABLED
    3183         400 :     module procedure setRefilledSLLU_D3_RK1
    3184             :         use pm_kind, only: RKC => RK1
    3185             :         real(RKC), allocatable :: temp(:,:,:)
    3186             : #include "pm_arrayResize@routines.inc.F90"
    3187         400 :     end procedure
    3188             : #endif
    3189             : 
    3190             : #undef RK_ENABLED
    3191             : 
    3192             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3193             : 
    3194             : #undef D3_ENABLED
    3195             : 
    3196             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3197             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3198             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3199             : 
    3200             : #undef SLLU_ENABLED
    3201             : 
    3202             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3203             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3204             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3205             : 
    3206             : #undef setRefilled_ENABLED
    3207             : 
    3208             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3209             : 
    3210             : #undef CHECK_ASSERTION
    3211             : 
    3212             : end submodule routines