https://www.cdslab.org/paramonte/fortran/2
Current view: top level - main - pm_arrayMembership@routines.F90 (source / functions) Hit Total Coverage
Test: ParaMonte 2.0.0 :: Serial Fortran - Code Coverage Report Lines: 70 217 32.3 %
Date: 2024-04-08 03:18:57 Functions: 56 158 35.4 %
Legend: Lines: hit not hit

          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_arrayMembership](@ref pm_arrayMembership).
      19             : !>
      20             : !>  \finmain
      21             : !>
      22             : !>  \author
      23             : !>  \FatemehBagheri, Wednesday 5:03 PM, August 11, 2021, Dallas, TX
      24             : 
      25             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      26             : 
      27             : submodule (pm_arrayMembership) 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             :     implicit none
      40             : 
      41             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      42             : 
      43             : contains
      44             : 
      45             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      46             : 
      47             : #define in_ENABLED 1
      48             : 
      49             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      50             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      51             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      52             : 
      53             : #define D0_D0_ENABLED 1
      54             : 
      55             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      56             : 
      57             : #define SK_ENABLED 1
      58             : 
      59             : #if SK5_ENABLED
      60             :     module procedure in_D0_D0_SK5
      61             :         use pm_kind, only: SKC => SK5
      62             : #include "pm_arrayMembership@routines.inc.F90"
      63             :     end procedure
      64             : #endif
      65             : 
      66             : #if SK4_ENABLED
      67             :     module procedure in_D0_D0_SK4
      68             :         use pm_kind, only: SKC => SK4
      69             : #include "pm_arrayMembership@routines.inc.F90"
      70             :     end procedure
      71             : #endif
      72             : 
      73             : #if SK3_ENABLED
      74             :     module procedure in_D0_D0_SK3
      75             :         use pm_kind, only: SKC => SK3
      76             : #include "pm_arrayMembership@routines.inc.F90"
      77             :     end procedure
      78             : #endif
      79             : 
      80             : #if SK2_ENABLED
      81             :     module procedure in_D0_D0_SK2
      82             :         use pm_kind, only: SKC => SK2
      83             : #include "pm_arrayMembership@routines.inc.F90"
      84             :     end procedure
      85             : #endif
      86             : 
      87             : #if SK1_ENABLED
      88           2 :     module procedure in_D0_D0_SK1
      89             :         use pm_kind, only: SKC => SK1
      90             : #include "pm_arrayMembership@routines.inc.F90"
      91           2 :     end procedure
      92             : #endif
      93             : 
      94             : #undef SK_ENABLED
      95             : 
      96             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      97             : 
      98             : #undef D0_D0_ENABLED
      99             : 
     100             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     101             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     102             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     103             : 
     104             : #define D0_D1_ENABLED 1
     105             : 
     106             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     107             : 
     108             : #define SK_ENABLED 1
     109             : 
     110             : #if SK5_ENABLED
     111             :     module procedure in_D0_D1_SK5
     112             :         use pm_kind, only: SKC => SK5
     113             : #include "pm_arrayMembership@routines.inc.F90"
     114             :     end procedure
     115             : #endif
     116             : 
     117             : #if SK4_ENABLED
     118             :     module procedure in_D0_D1_SK4
     119             :         use pm_kind, only: SKC => SK4
     120             : #include "pm_arrayMembership@routines.inc.F90"
     121             :     end procedure
     122             : #endif
     123             : 
     124             : #if SK3_ENABLED
     125             :     module procedure in_D0_D1_SK3
     126             :         use pm_kind, only: SKC => SK3
     127             : #include "pm_arrayMembership@routines.inc.F90"
     128             :     end procedure
     129             : #endif
     130             : 
     131             : #if SK2_ENABLED
     132             :     module procedure in_D0_D1_SK2
     133             :         use pm_kind, only: SKC => SK2
     134             : #include "pm_arrayMembership@routines.inc.F90"
     135             :     end procedure
     136             : #endif
     137             : 
     138             : #if SK1_ENABLED
     139          35 :     module procedure in_D0_D1_SK1
     140             :         use pm_kind, only: SKC => SK1
     141             : #include "pm_arrayMembership@routines.inc.F90"
     142             :     end procedure
     143             : #endif
     144             : 
     145             : #undef SK_ENABLED
     146             : 
     147             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     148             : 
     149             : #define IK_ENABLED 1
     150             : 
     151             : #if IK5_ENABLED
     152           0 :     module procedure in_D0_D1_IK5
     153             :         use pm_kind, only: IKC => IK5
     154             : #include "pm_arrayMembership@routines.inc.F90"
     155             :     end procedure
     156             : #endif
     157             : 
     158             : #if IK4_ENABLED
     159           0 :     module procedure in_D0_D1_IK4
     160             :         use pm_kind, only: IKC => IK4
     161             : #include "pm_arrayMembership@routines.inc.F90"
     162             :     end procedure
     163             : #endif
     164             : 
     165             : #if IK3_ENABLED
     166           2 :     module procedure in_D0_D1_IK3
     167             :         use pm_kind, only: IKC => IK3
     168             : #include "pm_arrayMembership@routines.inc.F90"
     169             :     end procedure
     170             : #endif
     171             : 
     172             : #if IK2_ENABLED
     173           0 :     module procedure in_D0_D1_IK2
     174             :         use pm_kind, only: IKC => IK2
     175             : #include "pm_arrayMembership@routines.inc.F90"
     176             :     end procedure
     177             : #endif
     178             : 
     179             : #if IK1_ENABLED
     180           0 :     module procedure in_D0_D1_IK1
     181             :         use pm_kind, only: IKC => IK1
     182             : #include "pm_arrayMembership@routines.inc.F90"
     183             :     end procedure
     184             : #endif
     185             : 
     186             : #undef IK_ENABLED
     187             : 
     188             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     189             : 
     190             : #define LK_ENABLED 1
     191             : 
     192             : #if LK5_ENABLED
     193           0 :     module procedure in_D0_D1_LK5
     194             :         use pm_kind, only: LKC => LK5
     195             : #include "pm_arrayMembership@routines.inc.F90"
     196             :     end procedure
     197             : #endif
     198             : 
     199             : #if LK4_ENABLED
     200           0 :     module procedure in_D0_D1_LK4
     201             :         use pm_kind, only: LKC => LK4
     202             : #include "pm_arrayMembership@routines.inc.F90"
     203             :     end procedure
     204             : #endif
     205             : 
     206             : #if LK3_ENABLED
     207           1 :     module procedure in_D0_D1_LK3
     208             :         use pm_kind, only: LKC => LK3
     209             : #include "pm_arrayMembership@routines.inc.F90"
     210             :     end procedure
     211             : #endif
     212             : 
     213             : #if LK2_ENABLED
     214           0 :     module procedure in_D0_D1_LK2
     215             :         use pm_kind, only: LKC => LK2
     216             : #include "pm_arrayMembership@routines.inc.F90"
     217             :     end procedure
     218             : #endif
     219             : 
     220             : #if LK1_ENABLED
     221           0 :     module procedure in_D0_D1_LK1
     222             :         use pm_kind, only: LKC => LK1
     223             : #include "pm_arrayMembership@routines.inc.F90"
     224             :     end procedure
     225             : #endif
     226             : 
     227             : #undef LK_ENABLED
     228             : 
     229             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     230             : 
     231             : #define CK_ENABLED 1
     232             : 
     233             : #if CK5_ENABLED
     234             :     module procedure in_D0_D1_CK5
     235             :         use pm_kind, only: CKC => CK5
     236             : #include "pm_arrayMembership@routines.inc.F90"
     237             :     end procedure
     238             : #endif
     239             : 
     240             : #if CK4_ENABLED
     241           0 :     module procedure in_D0_D1_CK4
     242             :         use pm_kind, only: CKC => CK4
     243             : #include "pm_arrayMembership@routines.inc.F90"
     244             :     end procedure
     245             : #endif
     246             : 
     247             : #if CK3_ENABLED
     248           0 :     module procedure in_D0_D1_CK3
     249             :         use pm_kind, only: CKC => CK3
     250             : #include "pm_arrayMembership@routines.inc.F90"
     251             :     end procedure
     252             : #endif
     253             : 
     254             : #if CK2_ENABLED
     255           0 :     module procedure in_D0_D1_CK2
     256             :         use pm_kind, only: CKC => CK2
     257             : #include "pm_arrayMembership@routines.inc.F90"
     258             :     end procedure
     259             : #endif
     260             : 
     261             : #if CK1_ENABLED
     262           0 :     module procedure in_D0_D1_CK1
     263             :         use pm_kind, only: CKC => CK1
     264             : #include "pm_arrayMembership@routines.inc.F90"
     265             :     end procedure
     266             : #endif
     267             : 
     268             : #undef CK_ENABLED
     269             : 
     270             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     271             : 
     272             : #define RK_ENABLED 1
     273             : 
     274             : #if RK5_ENABLED
     275             :     module procedure in_D0_D1_RK5
     276             :         use pm_kind, only: RKC => RK5
     277             : #include "pm_arrayMembership@routines.inc.F90"
     278             :     end procedure
     279             : #endif
     280             : 
     281             : #if RK4_ENABLED
     282           0 :     module procedure in_D0_D1_RK4
     283             :         use pm_kind, only: RKC => RK4
     284             : #include "pm_arrayMembership@routines.inc.F90"
     285             :     end procedure
     286             : #endif
     287             : 
     288             : #if RK3_ENABLED
     289           0 :     module procedure in_D0_D1_RK3
     290             :         use pm_kind, only: RKC => RK3
     291             : #include "pm_arrayMembership@routines.inc.F90"
     292             :     end procedure
     293             : #endif
     294             : 
     295             : #if RK2_ENABLED
     296           1 :     module procedure in_D0_D1_RK2
     297             :         use pm_kind, only: RKC => RK2
     298             : #include "pm_arrayMembership@routines.inc.F90"
     299             :     end procedure
     300             : #endif
     301             : 
     302             : #if RK1_ENABLED
     303           0 :     module procedure in_D0_D1_RK1
     304             :         use pm_kind, only: RKC => RK1
     305             : #include "pm_arrayMembership@routines.inc.F90"
     306             :     end procedure
     307             : #endif
     308             : 
     309             : #undef RK_ENABLED
     310             : 
     311             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     312             : 
     313             : #undef D0_D1_ENABLED
     314             : 
     315             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     316             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     317             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     318             : 
     319             : #define D1_D1_ENABLED 1
     320             : 
     321             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     322             : 
     323             : #define SK_ENABLED 1
     324             : 
     325             : #if SK5_ENABLED
     326             :     module procedure in_D1_D1_SK5
     327             :         use pm_kind, only: SKC => SK5
     328             : #include "pm_arrayMembership@routines.inc.F90"
     329             :     end procedure
     330             : #endif
     331             : 
     332             : #if SK4_ENABLED
     333             :     module procedure in_D1_D1_SK4
     334             :         use pm_kind, only: SKC => SK4
     335             : #include "pm_arrayMembership@routines.inc.F90"
     336             :     end procedure
     337             : #endif
     338             : 
     339             : #if SK3_ENABLED
     340             :     module procedure in_D1_D1_SK3
     341             :         use pm_kind, only: SKC => SK3
     342             : #include "pm_arrayMembership@routines.inc.F90"
     343             :     end procedure
     344             : #endif
     345             : 
     346             : #if SK2_ENABLED
     347             :     module procedure in_D1_D1_SK2
     348             :         use pm_kind, only: SKC => SK2
     349             : #include "pm_arrayMembership@routines.inc.F90"
     350             :     end procedure
     351             : #endif
     352             : 
     353             : #if SK1_ENABLED
     354           1 :     module procedure in_D1_D1_SK1
     355             :         use pm_kind, only: SKC => SK1
     356             : #include "pm_arrayMembership@routines.inc.F90"
     357           1 :     end procedure
     358             : #endif
     359             : 
     360             : #undef SK_ENABLED
     361             : 
     362             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     363             : 
     364             : #define IK_ENABLED 1
     365             : 
     366             : #if IK5_ENABLED
     367           0 :     module procedure in_D1_D1_IK5
     368             :         use pm_kind, only: IKC => IK5
     369             : #include "pm_arrayMembership@routines.inc.F90"
     370           0 :     end procedure
     371             : #endif
     372             : 
     373             : #if IK4_ENABLED
     374           0 :     module procedure in_D1_D1_IK4
     375             :         use pm_kind, only: IKC => IK4
     376             : #include "pm_arrayMembership@routines.inc.F90"
     377           0 :     end procedure
     378             : #endif
     379             : 
     380             : #if IK3_ENABLED
     381           2 :     module procedure in_D1_D1_IK3
     382             :         use pm_kind, only: IKC => IK3
     383             : #include "pm_arrayMembership@routines.inc.F90"
     384           2 :     end procedure
     385             : #endif
     386             : 
     387             : #if IK2_ENABLED
     388           0 :     module procedure in_D1_D1_IK2
     389             :         use pm_kind, only: IKC => IK2
     390             : #include "pm_arrayMembership@routines.inc.F90"
     391           0 :     end procedure
     392             : #endif
     393             : 
     394             : #if IK1_ENABLED
     395           0 :     module procedure in_D1_D1_IK1
     396             :         use pm_kind, only: IKC => IK1
     397             : #include "pm_arrayMembership@routines.inc.F90"
     398           0 :     end procedure
     399             : #endif
     400             : 
     401             : #undef IK_ENABLED
     402             : 
     403             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     404             : 
     405             : #define LK_ENABLED 1
     406             : 
     407             : #if LK5_ENABLED
     408           0 :     module procedure in_D1_D1_LK5
     409             :         use pm_kind, only: LKC => LK5
     410             : #include "pm_arrayMembership@routines.inc.F90"
     411           0 :     end procedure
     412             : #endif
     413             : 
     414             : #if LK4_ENABLED
     415           0 :     module procedure in_D1_D1_LK4
     416             :         use pm_kind, only: LKC => LK4
     417             : #include "pm_arrayMembership@routines.inc.F90"
     418           0 :     end procedure
     419             : #endif
     420             : 
     421             : #if LK3_ENABLED
     422           1 :     module procedure in_D1_D1_LK3
     423             :         use pm_kind, only: LKC => LK3
     424             : #include "pm_arrayMembership@routines.inc.F90"
     425           1 :     end procedure
     426             : #endif
     427             : 
     428             : #if LK2_ENABLED
     429           0 :     module procedure in_D1_D1_LK2
     430             :         use pm_kind, only: LKC => LK2
     431             : #include "pm_arrayMembership@routines.inc.F90"
     432           0 :     end procedure
     433             : #endif
     434             : 
     435             : #if LK1_ENABLED
     436           0 :     module procedure in_D1_D1_LK1
     437             :         use pm_kind, only: LKC => LK1
     438             : #include "pm_arrayMembership@routines.inc.F90"
     439           0 :     end procedure
     440             : #endif
     441             : 
     442             : #undef LK_ENABLED
     443             : 
     444             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     445             : 
     446             : #define CK_ENABLED 1
     447             : 
     448             : #if CK5_ENABLED
     449             :     module procedure in_D1_D1_CK5
     450             :         use pm_kind, only: CKC => CK5
     451             : #include "pm_arrayMembership@routines.inc.F90"
     452             :     end procedure
     453             : #endif
     454             : 
     455             : #if CK4_ENABLED
     456           0 :     module procedure in_D1_D1_CK4
     457             :         use pm_kind, only: CKC => CK4
     458             : #include "pm_arrayMembership@routines.inc.F90"
     459           0 :     end procedure
     460             : #endif
     461             : 
     462             : #if CK3_ENABLED
     463           0 :     module procedure in_D1_D1_CK3
     464             :         use pm_kind, only: CKC => CK3
     465             : #include "pm_arrayMembership@routines.inc.F90"
     466           0 :     end procedure
     467             : #endif
     468             : 
     469             : #if CK2_ENABLED
     470           0 :     module procedure in_D1_D1_CK2
     471             :         use pm_kind, only: CKC => CK2
     472             : #include "pm_arrayMembership@routines.inc.F90"
     473           0 :     end procedure
     474             : #endif
     475             : 
     476             : #if CK1_ENABLED
     477           0 :     module procedure in_D1_D1_CK1
     478             :         use pm_kind, only: CKC => CK1
     479             : #include "pm_arrayMembership@routines.inc.F90"
     480           0 :     end procedure
     481             : #endif
     482             : 
     483             : #undef CK_ENABLED
     484             : 
     485             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     486             : 
     487             : #define RK_ENABLED 1
     488             : 
     489             : #if RK5_ENABLED
     490             :     module procedure in_D1_D1_RK5
     491             :         use pm_kind, only: RKC => RK5
     492             : #include "pm_arrayMembership@routines.inc.F90"
     493             :     end procedure
     494             : #endif
     495             : 
     496             : #if RK4_ENABLED
     497           0 :     module procedure in_D1_D1_RK4
     498             :         use pm_kind, only: RKC => RK4
     499             : #include "pm_arrayMembership@routines.inc.F90"
     500           0 :     end procedure
     501             : #endif
     502             : 
     503             : #if RK3_ENABLED
     504           0 :     module procedure in_D1_D1_RK3
     505             :         use pm_kind, only: RKC => RK3
     506             : #include "pm_arrayMembership@routines.inc.F90"
     507           0 :     end procedure
     508             : #endif
     509             : 
     510             : #if RK2_ENABLED
     511           1 :     module procedure in_D1_D1_RK2
     512             :         use pm_kind, only: RKC => RK2
     513             : #include "pm_arrayMembership@routines.inc.F90"
     514           1 :     end procedure
     515             : #endif
     516             : 
     517             : #if RK1_ENABLED
     518           0 :     module procedure in_D1_D1_RK1
     519             :         use pm_kind, only: RKC => RK1
     520             : #include "pm_arrayMembership@routines.inc.F90"
     521           0 :     end procedure
     522             : #endif
     523             : 
     524             : #undef RK_ENABLED
     525             : 
     526             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     527             : 
     528             : #undef D1_D1_ENABLED
     529             : 
     530             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     531             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     532             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     533             : 
     534             : #undef in_ENABLED
     535             : 
     536             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     537             : 
     538             : #define inrange_ENABLED 1
     539             : 
     540             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     541             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     542             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     543             : 
     544             : #define D0_D0_ENABLED 1
     545             : 
     546             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     547             : 
     548             : #define SK_ENABLED 1
     549             : 
     550             : #if SK5_ENABLED
     551             :     module procedure inrange_D0_D0_SK5
     552             :         use pm_kind, only: SKC => SK5
     553             : #include "pm_arrayMembership@routines.inc.F90"
     554             :     end procedure
     555             : #endif
     556             : 
     557             : #if SK4_ENABLED
     558             :     module procedure inrange_D0_D0_SK4
     559             :         use pm_kind, only: SKC => SK4
     560             : #include "pm_arrayMembership@routines.inc.F90"
     561             :     end procedure
     562             : #endif
     563             : 
     564             : #if SK3_ENABLED
     565             :     module procedure inrange_D0_D0_SK3
     566             :         use pm_kind, only: SKC => SK3
     567             : #include "pm_arrayMembership@routines.inc.F90"
     568             :     end procedure
     569             : #endif
     570             : 
     571             : #if SK2_ENABLED
     572             :     module procedure inrange_D0_D0_SK2
     573             :         use pm_kind, only: SKC => SK2
     574             : #include "pm_arrayMembership@routines.inc.F90"
     575             :     end procedure
     576             : #endif
     577             : 
     578             : #if SK1_ENABLED
     579           2 :     module procedure inrange_D0_D0_SK1
     580             :         use pm_kind, only: SKC => SK1
     581             : #include "pm_arrayMembership@routines.inc.F90"
     582           2 :     end procedure
     583             : #endif
     584             : 
     585             : #undef SK_ENABLED
     586             : 
     587             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     588             : 
     589             : #undef D0_D0_ENABLED
     590             : 
     591             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     592             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     593             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     594             : 
     595             : #define D0_D1_ENABLED 1
     596             : 
     597             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     598             : 
     599             : #define SK_ENABLED 1
     600             : 
     601             : #if SK5_ENABLED
     602             :     module procedure inrange_D0_D1_SK5
     603             :         use pm_kind, only: SKC => SK5
     604             : #include "pm_arrayMembership@routines.inc.F90"
     605             :     end procedure
     606             : #endif
     607             : 
     608             : #if SK4_ENABLED
     609             :     module procedure inrange_D0_D1_SK4
     610             :         use pm_kind, only: SKC => SK4
     611             : #include "pm_arrayMembership@routines.inc.F90"
     612             :     end procedure
     613             : #endif
     614             : 
     615             : #if SK3_ENABLED
     616             :     module procedure inrange_D0_D1_SK3
     617             :         use pm_kind, only: SKC => SK3
     618             : #include "pm_arrayMembership@routines.inc.F90"
     619             :     end procedure
     620             : #endif
     621             : 
     622             : #if SK2_ENABLED
     623             :     module procedure inrange_D0_D1_SK2
     624             :         use pm_kind, only: SKC => SK2
     625             : #include "pm_arrayMembership@routines.inc.F90"
     626             :     end procedure
     627             : #endif
     628             : 
     629             : #if SK1_ENABLED
     630           1 :     module procedure inrange_D0_D1_SK1
     631             :         use pm_kind, only: SKC => SK1
     632             : #include "pm_arrayMembership@routines.inc.F90"
     633           1 :     end procedure
     634             : #endif
     635             : 
     636             : #undef SK_ENABLED
     637             : 
     638             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     639             : 
     640             : #define IK_ENABLED 1
     641             : 
     642             : #if IK5_ENABLED
     643           0 :     module procedure inrange_D0_D1_IK5
     644             :         use pm_kind, only: IKC => IK5
     645             : #include "pm_arrayMembership@routines.inc.F90"
     646           0 :     end procedure
     647             : #endif
     648             : 
     649             : #if IK4_ENABLED
     650           0 :     module procedure inrange_D0_D1_IK4
     651             :         use pm_kind, only: IKC => IK4
     652             : #include "pm_arrayMembership@routines.inc.F90"
     653           0 :     end procedure
     654             : #endif
     655             : 
     656             : #if IK3_ENABLED
     657           2 :     module procedure inrange_D0_D1_IK3
     658             :         use pm_kind, only: IKC => IK3
     659             : #include "pm_arrayMembership@routines.inc.F90"
     660           2 :     end procedure
     661             : #endif
     662             : 
     663             : #if IK2_ENABLED
     664           0 :     module procedure inrange_D0_D1_IK2
     665             :         use pm_kind, only: IKC => IK2
     666             : #include "pm_arrayMembership@routines.inc.F90"
     667           0 :     end procedure
     668             : #endif
     669             : 
     670             : #if IK1_ENABLED
     671           0 :     module procedure inrange_D0_D1_IK1
     672             :         use pm_kind, only: IKC => IK1
     673             : #include "pm_arrayMembership@routines.inc.F90"
     674           0 :     end procedure
     675             : #endif
     676             : 
     677             : #undef IK_ENABLED
     678             : 
     679             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     680             : 
     681             : #define LK_ENABLED 1
     682             : 
     683             : #if LK5_ENABLED
     684           0 :     module procedure inrange_D0_D1_LK5
     685             :         use pm_kind, only: LKC => LK5
     686             : #include "pm_arrayMembership@routines.inc.F90"
     687           0 :     end procedure
     688             : #endif
     689             : 
     690             : #if LK4_ENABLED
     691           0 :     module procedure inrange_D0_D1_LK4
     692             :         use pm_kind, only: LKC => LK4
     693             : #include "pm_arrayMembership@routines.inc.F90"
     694           0 :     end procedure
     695             : #endif
     696             : 
     697             : #if LK3_ENABLED
     698           1 :     module procedure inrange_D0_D1_LK3
     699             :         use pm_kind, only: LKC => LK3
     700             : #include "pm_arrayMembership@routines.inc.F90"
     701           1 :     end procedure
     702             : #endif
     703             : 
     704             : #if LK2_ENABLED
     705           0 :     module procedure inrange_D0_D1_LK2
     706             :         use pm_kind, only: LKC => LK2
     707             : #include "pm_arrayMembership@routines.inc.F90"
     708           0 :     end procedure
     709             : #endif
     710             : 
     711             : #if LK1_ENABLED
     712           0 :     module procedure inrange_D0_D1_LK1
     713             :         use pm_kind, only: LKC => LK1
     714             : #include "pm_arrayMembership@routines.inc.F90"
     715           0 :     end procedure
     716             : #endif
     717             : 
     718             : #undef LK_ENABLED
     719             : 
     720             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     721             : 
     722             : #define CK_ENABLED 1
     723             : 
     724             : #if CK5_ENABLED
     725             :     module procedure inrange_D0_D1_CK5
     726             :         use pm_kind, only: CKC => CK5
     727             : #include "pm_arrayMembership@routines.inc.F90"
     728             :     end procedure
     729             : #endif
     730             : 
     731             : #if CK4_ENABLED
     732           0 :     module procedure inrange_D0_D1_CK4
     733             :         use pm_kind, only: CKC => CK4
     734             : #include "pm_arrayMembership@routines.inc.F90"
     735           0 :     end procedure
     736             : #endif
     737             : 
     738             : #if CK3_ENABLED
     739           0 :     module procedure inrange_D0_D1_CK3
     740             :         use pm_kind, only: CKC => CK3
     741             : #include "pm_arrayMembership@routines.inc.F90"
     742           0 :     end procedure
     743             : #endif
     744             : 
     745             : #if CK2_ENABLED
     746           0 :     module procedure inrange_D0_D1_CK2
     747             :         use pm_kind, only: CKC => CK2
     748             : #include "pm_arrayMembership@routines.inc.F90"
     749           0 :     end procedure
     750             : #endif
     751             : 
     752             : #if CK1_ENABLED
     753           0 :     module procedure inrange_D0_D1_CK1
     754             :         use pm_kind, only: CKC => CK1
     755             : #include "pm_arrayMembership@routines.inc.F90"
     756           0 :     end procedure
     757             : #endif
     758             : 
     759             : #undef CK_ENABLED
     760             : 
     761             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     762             : 
     763             : #define RK_ENABLED 1
     764             : 
     765             : #if RK5_ENABLED
     766             :     module procedure inrange_D0_D1_RK5
     767             :         use pm_kind, only: RKC => RK5
     768             : #include "pm_arrayMembership@routines.inc.F90"
     769             :     end procedure
     770             : #endif
     771             : 
     772             : #if RK4_ENABLED
     773           0 :     module procedure inrange_D0_D1_RK4
     774             :         use pm_kind, only: RKC => RK4
     775             : #include "pm_arrayMembership@routines.inc.F90"
     776           0 :     end procedure
     777             : #endif
     778             : 
     779             : #if RK3_ENABLED
     780           0 :     module procedure inrange_D0_D1_RK3
     781             :         use pm_kind, only: RKC => RK3
     782             : #include "pm_arrayMembership@routines.inc.F90"
     783           0 :     end procedure
     784             : #endif
     785             : 
     786             : #if RK2_ENABLED
     787       16001 :     module procedure inrange_D0_D1_RK2
     788             :         use pm_kind, only: RKC => RK2
     789             : #include "pm_arrayMembership@routines.inc.F90"
     790       16001 :     end procedure
     791             : #endif
     792             : 
     793             : #if RK1_ENABLED
     794           0 :     module procedure inrange_D0_D1_RK1
     795             :         use pm_kind, only: RKC => RK1
     796             : #include "pm_arrayMembership@routines.inc.F90"
     797           0 :     end procedure
     798             : #endif
     799             : 
     800             : #undef RK_ENABLED
     801             : 
     802             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     803             : 
     804             : #undef D0_D1_ENABLED
     805             : 
     806             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     807             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     808             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     809             : 
     810             : #define D1_D1_ENABLED 1
     811             : 
     812             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     813             : 
     814             : #define SK_ENABLED 1
     815             : 
     816             : #if SK5_ENABLED
     817             :     module procedure inrange_D1_D1_SK5
     818             :         use pm_kind, only: SKC => SK5
     819             : #include "pm_arrayMembership@routines.inc.F90"
     820             :     end procedure
     821             : #endif
     822             : 
     823             : #if SK4_ENABLED
     824             :     module procedure inrange_D1_D1_SK4
     825             :         use pm_kind, only: SKC => SK4
     826             : #include "pm_arrayMembership@routines.inc.F90"
     827             :     end procedure
     828             : #endif
     829             : 
     830             : #if SK3_ENABLED
     831             :     module procedure inrange_D1_D1_SK3
     832             :         use pm_kind, only: SKC => SK3
     833             : #include "pm_arrayMembership@routines.inc.F90"
     834             :     end procedure
     835             : #endif
     836             : 
     837             : #if SK2_ENABLED
     838             :     module procedure inrange_D1_D1_SK2
     839             :         use pm_kind, only: SKC => SK2
     840             : #include "pm_arrayMembership@routines.inc.F90"
     841             :     end procedure
     842             : #endif
     843             : 
     844             : #if SK1_ENABLED
     845           1 :     module procedure inrange_D1_D1_SK1
     846             :         use pm_kind, only: SKC => SK1
     847             : #include "pm_arrayMembership@routines.inc.F90"
     848           1 :     end procedure
     849             : #endif
     850             : 
     851             : #undef SK_ENABLED
     852             : 
     853             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     854             : 
     855             : #define IK_ENABLED 1
     856             : 
     857             : #if IK5_ENABLED
     858           0 :     module procedure inrange_D1_D1_IK5
     859             :         use pm_kind, only: IKC => IK5
     860             : #include "pm_arrayMembership@routines.inc.F90"
     861           0 :     end procedure
     862             : #endif
     863             : 
     864             : #if IK4_ENABLED
     865           0 :     module procedure inrange_D1_D1_IK4
     866             :         use pm_kind, only: IKC => IK4
     867             : #include "pm_arrayMembership@routines.inc.F90"
     868           0 :     end procedure
     869             : #endif
     870             : 
     871             : #if IK3_ENABLED
     872           2 :     module procedure inrange_D1_D1_IK3
     873             :         use pm_kind, only: IKC => IK3
     874             : #include "pm_arrayMembership@routines.inc.F90"
     875           2 :     end procedure
     876             : #endif
     877             : 
     878             : #if IK2_ENABLED
     879           0 :     module procedure inrange_D1_D1_IK2
     880             :         use pm_kind, only: IKC => IK2
     881             : #include "pm_arrayMembership@routines.inc.F90"
     882           0 :     end procedure
     883             : #endif
     884             : 
     885             : #if IK1_ENABLED
     886           0 :     module procedure inrange_D1_D1_IK1
     887             :         use pm_kind, only: IKC => IK1
     888             : #include "pm_arrayMembership@routines.inc.F90"
     889           0 :     end procedure
     890             : #endif
     891             : 
     892             : #undef IK_ENABLED
     893             : 
     894             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     895             : 
     896             : #define LK_ENABLED 1
     897             : 
     898             : #if LK5_ENABLED
     899           0 :     module procedure inrange_D1_D1_LK5
     900             :         use pm_kind, only: LKC => LK5
     901             : #include "pm_arrayMembership@routines.inc.F90"
     902           0 :     end procedure
     903             : #endif
     904             : 
     905             : #if LK4_ENABLED
     906           0 :     module procedure inrange_D1_D1_LK4
     907             :         use pm_kind, only: LKC => LK4
     908             : #include "pm_arrayMembership@routines.inc.F90"
     909           0 :     end procedure
     910             : #endif
     911             : 
     912             : #if LK3_ENABLED
     913           1 :     module procedure inrange_D1_D1_LK3
     914             :         use pm_kind, only: LKC => LK3
     915             : #include "pm_arrayMembership@routines.inc.F90"
     916           1 :     end procedure
     917             : #endif
     918             : 
     919             : #if LK2_ENABLED
     920           0 :     module procedure inrange_D1_D1_LK2
     921             :         use pm_kind, only: LKC => LK2
     922             : #include "pm_arrayMembership@routines.inc.F90"
     923           0 :     end procedure
     924             : #endif
     925             : 
     926             : #if LK1_ENABLED
     927           0 :     module procedure inrange_D1_D1_LK1
     928             :         use pm_kind, only: LKC => LK1
     929             : #include "pm_arrayMembership@routines.inc.F90"
     930           0 :     end procedure
     931             : #endif
     932             : 
     933             : #undef LK_ENABLED
     934             : 
     935             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     936             : 
     937             : #define CK_ENABLED 1
     938             : 
     939             : #if CK5_ENABLED
     940             :     module procedure inrange_D1_D1_CK5
     941             :         use pm_kind, only: CKC => CK5
     942             : #include "pm_arrayMembership@routines.inc.F90"
     943             :     end procedure
     944             : #endif
     945             : 
     946             : #if CK4_ENABLED
     947           0 :     module procedure inrange_D1_D1_CK4
     948             :         use pm_kind, only: CKC => CK4
     949             : #include "pm_arrayMembership@routines.inc.F90"
     950           0 :     end procedure
     951             : #endif
     952             : 
     953             : #if CK3_ENABLED
     954           0 :     module procedure inrange_D1_D1_CK3
     955             :         use pm_kind, only: CKC => CK3
     956             : #include "pm_arrayMembership@routines.inc.F90"
     957           0 :     end procedure
     958             : #endif
     959             : 
     960             : #if CK2_ENABLED
     961           0 :     module procedure inrange_D1_D1_CK2
     962             :         use pm_kind, only: CKC => CK2
     963             : #include "pm_arrayMembership@routines.inc.F90"
     964           0 :     end procedure
     965             : #endif
     966             : 
     967             : #if CK1_ENABLED
     968           0 :     module procedure inrange_D1_D1_CK1
     969             :         use pm_kind, only: CKC => CK1
     970             : #include "pm_arrayMembership@routines.inc.F90"
     971           0 :     end procedure
     972             : #endif
     973             : 
     974             : #undef CK_ENABLED
     975             : 
     976             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     977             : 
     978             : #define RK_ENABLED 1
     979             : 
     980             : #if RK5_ENABLED
     981             :     module procedure inrange_D1_D1_RK5
     982             :         use pm_kind, only: RKC => RK5
     983             : #include "pm_arrayMembership@routines.inc.F90"
     984             :     end procedure
     985             : #endif
     986             : 
     987             : #if RK4_ENABLED
     988           0 :     module procedure inrange_D1_D1_RK4
     989             :         use pm_kind, only: RKC => RK4
     990             : #include "pm_arrayMembership@routines.inc.F90"
     991           0 :     end procedure
     992             : #endif
     993             : 
     994             : #if RK3_ENABLED
     995           0 :     module procedure inrange_D1_D1_RK3
     996             :         use pm_kind, only: RKC => RK3
     997             : #include "pm_arrayMembership@routines.inc.F90"
     998           0 :     end procedure
     999             : #endif
    1000             : 
    1001             : #if RK2_ENABLED
    1002           1 :     module procedure inrange_D1_D1_RK2
    1003             :         use pm_kind, only: RKC => RK2
    1004             : #include "pm_arrayMembership@routines.inc.F90"
    1005           1 :     end procedure
    1006             : #endif
    1007             : 
    1008             : #if RK1_ENABLED
    1009           0 :     module procedure inrange_D1_D1_RK1
    1010             :         use pm_kind, only: RKC => RK1
    1011             : #include "pm_arrayMembership@routines.inc.F90"
    1012           0 :     end procedure
    1013             : #endif
    1014             : 
    1015             : #undef RK_ENABLED
    1016             : 
    1017             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1018             : 
    1019             : #undef D1_D1_ENABLED
    1020             : 
    1021             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1022             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1023             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1024             : 
    1025             : #undef inrange_ENABLED
    1026             : 
    1027             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1028             : 
    1029             : #define allin_ENABLED 1
    1030             : 
    1031             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1032             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1033             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1034             : 
    1035             : #define D0_D0_ENABLED 1
    1036             : 
    1037             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1038             : 
    1039             : #define SK_ENABLED 1
    1040             : 
    1041             : #if SK5_ENABLED
    1042             :     module procedure allin_D0_D0_SK5
    1043             :         use pm_kind, only: SKC => SK5
    1044             : #include "pm_arrayMembership@routines.inc.F90"
    1045             :     end procedure
    1046             : #endif
    1047             : 
    1048             : #if SK4_ENABLED
    1049             :     module procedure allin_D0_D0_SK4
    1050             :         use pm_kind, only: SKC => SK4
    1051             : #include "pm_arrayMembership@routines.inc.F90"
    1052             :     end procedure
    1053             : #endif
    1054             : 
    1055             : #if SK3_ENABLED
    1056             :     module procedure allin_D0_D0_SK3
    1057             :         use pm_kind, only: SKC => SK3
    1058             : #include "pm_arrayMembership@routines.inc.F90"
    1059             :     end procedure
    1060             : #endif
    1061             : 
    1062             : #if SK2_ENABLED
    1063             :     module procedure allin_D0_D0_SK2
    1064             :         use pm_kind, only: SKC => SK2
    1065             : #include "pm_arrayMembership@routines.inc.F90"
    1066             :     end procedure
    1067             : #endif
    1068             : 
    1069             : #if SK1_ENABLED
    1070        1009 :     module procedure allin_D0_D0_SK1
    1071             :         use pm_kind, only: SKC => SK1
    1072             : #include "pm_arrayMembership@routines.inc.F90"
    1073             :     end procedure
    1074             : #endif
    1075             : 
    1076             : #undef SK_ENABLED
    1077             : 
    1078             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1079             : 
    1080             : #undef D0_D0_ENABLED
    1081             : 
    1082             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1083             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1084             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1085             : 
    1086             : #define D1_D1_ENABLED 1
    1087             : 
    1088             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1089             : 
    1090             : #define SK_ENABLED 1
    1091             : 
    1092             : #if SK5_ENABLED
    1093             :     module procedure allin_D1_D1_SK5
    1094             :         use pm_kind, only: SKC => SK5
    1095             : #include "pm_arrayMembership@routines.inc.F90"
    1096             :     end procedure
    1097             : #endif
    1098             : 
    1099             : #if SK4_ENABLED
    1100             :     module procedure allin_D1_D1_SK4
    1101             :         use pm_kind, only: SKC => SK4
    1102             : #include "pm_arrayMembership@routines.inc.F90"
    1103             :     end procedure
    1104             : #endif
    1105             : 
    1106             : #if SK3_ENABLED
    1107             :     module procedure allin_D1_D1_SK3
    1108             :         use pm_kind, only: SKC => SK3
    1109             : #include "pm_arrayMembership@routines.inc.F90"
    1110             :     end procedure
    1111             : #endif
    1112             : 
    1113             : #if SK2_ENABLED
    1114             :     module procedure allin_D1_D1_SK2
    1115             :         use pm_kind, only: SKC => SK2
    1116             : #include "pm_arrayMembership@routines.inc.F90"
    1117             :     end procedure
    1118             : #endif
    1119             : 
    1120             : #if SK1_ENABLED
    1121         610 :     module procedure allin_D1_D1_SK1
    1122             :         use pm_kind, only: SKC => SK1
    1123             : #include "pm_arrayMembership@routines.inc.F90"
    1124             :     end procedure
    1125             : #endif
    1126             : 
    1127             : #undef SK_ENABLED
    1128             : 
    1129             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1130             : 
    1131             : #define IK_ENABLED 1
    1132             : 
    1133             : #if IK5_ENABLED
    1134        1008 :     module procedure allin_D1_D1_IK5
    1135             :         use pm_kind, only: IKC => IK5
    1136             : #include "pm_arrayMembership@routines.inc.F90"
    1137             :     end procedure
    1138             : #endif
    1139             : 
    1140             : #if IK4_ENABLED
    1141        1008 :     module procedure allin_D1_D1_IK4
    1142             :         use pm_kind, only: IKC => IK4
    1143             : #include "pm_arrayMembership@routines.inc.F90"
    1144             :     end procedure
    1145             : #endif
    1146             : 
    1147             : #if IK3_ENABLED
    1148        1012 :     module procedure allin_D1_D1_IK3
    1149             :         use pm_kind, only: IKC => IK3
    1150             : #include "pm_arrayMembership@routines.inc.F90"
    1151             :     end procedure
    1152             : #endif
    1153             : 
    1154             : #if IK2_ENABLED
    1155        1008 :     module procedure allin_D1_D1_IK2
    1156             :         use pm_kind, only: IKC => IK2
    1157             : #include "pm_arrayMembership@routines.inc.F90"
    1158             :     end procedure
    1159             : #endif
    1160             : 
    1161             : #if IK1_ENABLED
    1162        1008 :     module procedure allin_D1_D1_IK1
    1163             :         use pm_kind, only: IKC => IK1
    1164             : #include "pm_arrayMembership@routines.inc.F90"
    1165             :     end procedure
    1166             : #endif
    1167             : 
    1168             : #undef IK_ENABLED
    1169             : 
    1170             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1171             : 
    1172             : #define LK_ENABLED 1
    1173             : 
    1174             : #if LK5_ENABLED
    1175         608 :     module procedure allin_D1_D1_LK5
    1176             :         use pm_kind, only: LKC => LK5
    1177             : #include "pm_arrayMembership@routines.inc.F90"
    1178             :     end procedure
    1179             : #endif
    1180             : 
    1181             : #if LK4_ENABLED
    1182         608 :     module procedure allin_D1_D1_LK4
    1183             :         use pm_kind, only: LKC => LK4
    1184             : #include "pm_arrayMembership@routines.inc.F90"
    1185             :     end procedure
    1186             : #endif
    1187             : 
    1188             : #if LK3_ENABLED
    1189         610 :     module procedure allin_D1_D1_LK3
    1190             :         use pm_kind, only: LKC => LK3
    1191             : #include "pm_arrayMembership@routines.inc.F90"
    1192             :     end procedure
    1193             : #endif
    1194             : 
    1195             : #if LK2_ENABLED
    1196         608 :     module procedure allin_D1_D1_LK2
    1197             :         use pm_kind, only: LKC => LK2
    1198             : #include "pm_arrayMembership@routines.inc.F90"
    1199             :     end procedure
    1200             : #endif
    1201             : 
    1202             : #if LK1_ENABLED
    1203         608 :     module procedure allin_D1_D1_LK1
    1204             :         use pm_kind, only: LKC => LK1
    1205             : #include "pm_arrayMembership@routines.inc.F90"
    1206             :     end procedure
    1207             : #endif
    1208             : 
    1209             : #undef LK_ENABLED
    1210             : 
    1211             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1212             : 
    1213             : #define CK_ENABLED 1
    1214             : 
    1215             : #if CK5_ENABLED
    1216             :     module procedure allin_D1_D1_CK5
    1217             :         use pm_kind, only: CKC => CK5
    1218             : #include "pm_arrayMembership@routines.inc.F90"
    1219             :     end procedure
    1220             : #endif
    1221             : 
    1222             : #if CK4_ENABLED
    1223         608 :     module procedure allin_D1_D1_CK4
    1224             :         use pm_kind, only: CKC => CK4
    1225             : #include "pm_arrayMembership@routines.inc.F90"
    1226             :     end procedure
    1227             : #endif
    1228             : 
    1229             : #if CK3_ENABLED
    1230         608 :     module procedure allin_D1_D1_CK3
    1231             :         use pm_kind, only: CKC => CK3
    1232             : #include "pm_arrayMembership@routines.inc.F90"
    1233             :     end procedure
    1234             : #endif
    1235             : 
    1236             : #if CK2_ENABLED
    1237         608 :     module procedure allin_D1_D1_CK2
    1238             :         use pm_kind, only: CKC => CK2
    1239             : #include "pm_arrayMembership@routines.inc.F90"
    1240             :     end procedure
    1241             : #endif
    1242             : 
    1243             : #if CK1_ENABLED
    1244         608 :     module procedure allin_D1_D1_CK1
    1245             :         use pm_kind, only: CKC => CK1
    1246             : #include "pm_arrayMembership@routines.inc.F90"
    1247             :     end procedure
    1248             : #endif
    1249             : 
    1250             : #undef CK_ENABLED
    1251             : 
    1252             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1253             : 
    1254             : #define RK_ENABLED 1
    1255             : 
    1256             : #if RK5_ENABLED
    1257             :     module procedure allin_D1_D1_RK5
    1258             :         use pm_kind, only: RKC => RK5
    1259             : #include "pm_arrayMembership@routines.inc.F90"
    1260             :     end procedure
    1261             : #endif
    1262             : 
    1263             : #if RK4_ENABLED
    1264        1008 :     module procedure allin_D1_D1_RK4
    1265             :         use pm_kind, only: RKC => RK4
    1266             : #include "pm_arrayMembership@routines.inc.F90"
    1267             :     end procedure
    1268             : #endif
    1269             : 
    1270             : #if RK3_ENABLED
    1271        1007 :     module procedure allin_D1_D1_RK3
    1272             :         use pm_kind, only: RKC => RK3
    1273             : #include "pm_arrayMembership@routines.inc.F90"
    1274             :     end procedure
    1275             : #endif
    1276             : 
    1277             : #if RK2_ENABLED
    1278        1010 :     module procedure allin_D1_D1_RK2
    1279             :         use pm_kind, only: RKC => RK2
    1280             : #include "pm_arrayMembership@routines.inc.F90"
    1281             :     end procedure
    1282             : #endif
    1283             : 
    1284             : #if RK1_ENABLED
    1285        1008 :     module procedure allin_D1_D1_RK1
    1286             :         use pm_kind, only: RKC => RK1
    1287             : #include "pm_arrayMembership@routines.inc.F90"
    1288             :     end procedure
    1289             : #endif
    1290             : 
    1291             : #undef RK_ENABLED
    1292             : 
    1293             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1294             : 
    1295             : #undef D1_D1_ENABLED
    1296             : 
    1297             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1298             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1299             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1300             : 
    1301             : #undef allin_ENABLED
    1302             : 
    1303             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1304             : 
    1305             : #define allinrange_ENABLED 1
    1306             : 
    1307             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1308             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1309             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1310             : 
    1311             : #define D0_D0_ENABLED 1
    1312             : 
    1313             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1314             : 
    1315             : #define SK_ENABLED 1
    1316             : 
    1317             : #if SK5_ENABLED
    1318             :     module procedure allinrange_D0_D0_SK5
    1319             :         use pm_kind, only: SKC => SK5
    1320             : #include "pm_arrayMembership@routines.inc.F90"
    1321             :     end procedure
    1322             : #endif
    1323             : 
    1324             : #if SK4_ENABLED
    1325             :     module procedure allinrange_D0_D0_SK4
    1326             :         use pm_kind, only: SKC => SK4
    1327             : #include "pm_arrayMembership@routines.inc.F90"
    1328             :     end procedure
    1329             : #endif
    1330             : 
    1331             : #if SK3_ENABLED
    1332             :     module procedure allinrange_D0_D0_SK3
    1333             :         use pm_kind, only: SKC => SK3
    1334             : #include "pm_arrayMembership@routines.inc.F90"
    1335             :     end procedure
    1336             : #endif
    1337             : 
    1338             : #if SK2_ENABLED
    1339             :     module procedure allinrange_D0_D0_SK2
    1340             :         use pm_kind, only: SKC => SK2
    1341             : #include "pm_arrayMembership@routines.inc.F90"
    1342             :     end procedure
    1343             : #endif
    1344             : 
    1345             : #if SK1_ENABLED
    1346           2 :     module procedure allinrange_D0_D0_SK1
    1347             :         use pm_kind, only: SKC => SK1
    1348             : #include "pm_arrayMembership@routines.inc.F90"
    1349             :     end procedure
    1350             : #endif
    1351             : 
    1352             : #undef SK_ENABLED
    1353             : 
    1354             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1355             : 
    1356             : #undef D0_D0_ENABLED
    1357             : 
    1358             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1359             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1360             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1361             : 
    1362             : #define D1_D1_ENABLED 1
    1363             : 
    1364             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1365             : 
    1366             : #define SK_ENABLED 1
    1367             : 
    1368             : #if SK5_ENABLED
    1369             :     module procedure allinrange_D1_D1_SK5
    1370             :         use pm_kind, only: SKC => SK5
    1371             : #include "pm_arrayMembership@routines.inc.F90"
    1372             :     end procedure
    1373             : #endif
    1374             : 
    1375             : #if SK4_ENABLED
    1376             :     module procedure allinrange_D1_D1_SK4
    1377             :         use pm_kind, only: SKC => SK4
    1378             : #include "pm_arrayMembership@routines.inc.F90"
    1379             :     end procedure
    1380             : #endif
    1381             : 
    1382             : #if SK3_ENABLED
    1383             :     module procedure allinrange_D1_D1_SK3
    1384             :         use pm_kind, only: SKC => SK3
    1385             : #include "pm_arrayMembership@routines.inc.F90"
    1386             :     end procedure
    1387             : #endif
    1388             : 
    1389             : #if SK2_ENABLED
    1390             :     module procedure allinrange_D1_D1_SK2
    1391             :         use pm_kind, only: SKC => SK2
    1392             : #include "pm_arrayMembership@routines.inc.F90"
    1393             :     end procedure
    1394             : #endif
    1395             : 
    1396             : #if SK1_ENABLED
    1397           2 :     module procedure allinrange_D1_D1_SK1
    1398             :         use pm_kind, only: SKC => SK1
    1399             : #include "pm_arrayMembership@routines.inc.F90"
    1400             :     end procedure
    1401             : #endif
    1402             : 
    1403             : #undef SK_ENABLED
    1404             : 
    1405             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1406             : 
    1407             : #define IK_ENABLED 1
    1408             : 
    1409             : #if IK5_ENABLED
    1410           0 :     module procedure allinrange_D1_D1_IK5
    1411             :         use pm_kind, only: IKC => IK5
    1412             : #include "pm_arrayMembership@routines.inc.F90"
    1413             :     end procedure
    1414             : #endif
    1415             : 
    1416             : #if IK4_ENABLED
    1417           0 :     module procedure allinrange_D1_D1_IK4
    1418             :         use pm_kind, only: IKC => IK4
    1419             : #include "pm_arrayMembership@routines.inc.F90"
    1420             :     end procedure
    1421             : #endif
    1422             : 
    1423             : #if IK3_ENABLED
    1424           4 :     module procedure allinrange_D1_D1_IK3
    1425             :         use pm_kind, only: IKC => IK3
    1426             : #include "pm_arrayMembership@routines.inc.F90"
    1427             :     end procedure
    1428             : #endif
    1429             : 
    1430             : #if IK2_ENABLED
    1431           0 :     module procedure allinrange_D1_D1_IK2
    1432             :         use pm_kind, only: IKC => IK2
    1433             : #include "pm_arrayMembership@routines.inc.F90"
    1434             :     end procedure
    1435             : #endif
    1436             : 
    1437             : #if IK1_ENABLED
    1438           0 :     module procedure allinrange_D1_D1_IK1
    1439             :         use pm_kind, only: IKC => IK1
    1440             : #include "pm_arrayMembership@routines.inc.F90"
    1441             :     end procedure
    1442             : #endif
    1443             : 
    1444             : #undef IK_ENABLED
    1445             : 
    1446             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1447             : 
    1448             : #define LK_ENABLED 1
    1449             : 
    1450             : #if LK5_ENABLED
    1451           0 :     module procedure allinrange_D1_D1_LK5
    1452             :         use pm_kind, only: LKC => LK5
    1453             : #include "pm_arrayMembership@routines.inc.F90"
    1454             :     end procedure
    1455             : #endif
    1456             : 
    1457             : #if LK4_ENABLED
    1458           0 :     module procedure allinrange_D1_D1_LK4
    1459             :         use pm_kind, only: LKC => LK4
    1460             : #include "pm_arrayMembership@routines.inc.F90"
    1461             :     end procedure
    1462             : #endif
    1463             : 
    1464             : #if LK3_ENABLED
    1465           2 :     module procedure allinrange_D1_D1_LK3
    1466             :         use pm_kind, only: LKC => LK3
    1467             : #include "pm_arrayMembership@routines.inc.F90"
    1468             :     end procedure
    1469             : #endif
    1470             : 
    1471             : #if LK2_ENABLED
    1472           0 :     module procedure allinrange_D1_D1_LK2
    1473             :         use pm_kind, only: LKC => LK2
    1474             : #include "pm_arrayMembership@routines.inc.F90"
    1475             :     end procedure
    1476             : #endif
    1477             : 
    1478             : #if LK1_ENABLED
    1479           0 :     module procedure allinrange_D1_D1_LK1
    1480             :         use pm_kind, only: LKC => LK1
    1481             : #include "pm_arrayMembership@routines.inc.F90"
    1482             :     end procedure
    1483             : #endif
    1484             : 
    1485             : #undef LK_ENABLED
    1486             : 
    1487             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1488             : 
    1489             : #define CK_ENABLED 1
    1490             : 
    1491             : #if CK5_ENABLED
    1492             :     module procedure allinrange_D1_D1_CK5
    1493             :         use pm_kind, only: CKC => CK5
    1494             : #include "pm_arrayMembership@routines.inc.F90"
    1495             :     end procedure
    1496             : #endif
    1497             : 
    1498             : #if CK4_ENABLED
    1499           0 :     module procedure allinrange_D1_D1_CK4
    1500             :         use pm_kind, only: CKC => CK4
    1501             : #include "pm_arrayMembership@routines.inc.F90"
    1502             :     end procedure
    1503             : #endif
    1504             : 
    1505             : #if CK3_ENABLED
    1506           0 :     module procedure allinrange_D1_D1_CK3
    1507             :         use pm_kind, only: CKC => CK3
    1508             : #include "pm_arrayMembership@routines.inc.F90"
    1509             :     end procedure
    1510             : #endif
    1511             : 
    1512             : #if CK2_ENABLED
    1513           0 :     module procedure allinrange_D1_D1_CK2
    1514             :         use pm_kind, only: CKC => CK2
    1515             : #include "pm_arrayMembership@routines.inc.F90"
    1516             :     end procedure
    1517             : #endif
    1518             : 
    1519             : #if CK1_ENABLED
    1520           0 :     module procedure allinrange_D1_D1_CK1
    1521             :         use pm_kind, only: CKC => CK1
    1522             : #include "pm_arrayMembership@routines.inc.F90"
    1523             :     end procedure
    1524             : #endif
    1525             : 
    1526             : #undef CK_ENABLED
    1527             : 
    1528             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1529             : 
    1530             : #define RK_ENABLED 1
    1531             : 
    1532             : #if RK5_ENABLED
    1533             :     module procedure allinrange_D1_D1_RK5
    1534             :         use pm_kind, only: RKC => RK5
    1535             : #include "pm_arrayMembership@routines.inc.F90"
    1536             :     end procedure
    1537             : #endif
    1538             : 
    1539             : #if RK4_ENABLED
    1540        1900 :     module procedure allinrange_D1_D1_RK4
    1541             :         use pm_kind, only: RKC => RK4
    1542             : #include "pm_arrayMembership@routines.inc.F90"
    1543             :     end procedure
    1544             : #endif
    1545             : 
    1546             : #if RK3_ENABLED
    1547        1900 :     module procedure allinrange_D1_D1_RK3
    1548             :         use pm_kind, only: RKC => RK3
    1549             : #include "pm_arrayMembership@routines.inc.F90"
    1550             :     end procedure
    1551             : #endif
    1552             : 
    1553             : #if RK2_ENABLED
    1554        1902 :     module procedure allinrange_D1_D1_RK2
    1555             :         use pm_kind, only: RKC => RK2
    1556             : #include "pm_arrayMembership@routines.inc.F90"
    1557             :     end procedure
    1558             : #endif
    1559             : 
    1560             : #if RK1_ENABLED
    1561        1900 :     module procedure allinrange_D1_D1_RK1
    1562             :         use pm_kind, only: RKC => RK1
    1563             : #include "pm_arrayMembership@routines.inc.F90"
    1564             :     end procedure
    1565             : #endif
    1566             : 
    1567             : #undef RK_ENABLED
    1568             : 
    1569             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1570             : 
    1571             : #undef D1_D1_ENABLED
    1572             : 
    1573             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1574             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1575             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1576             : 
    1577             : #undef allinrange_ENABLED
    1578             : 
    1579             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1580             : 
    1581             : #define anyin_ENABLED 1
    1582             : 
    1583             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1584             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1585             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1586             : 
    1587             : #define D0_D0_ENABLED 1
    1588             : 
    1589             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1590             : 
    1591             : #define SK_ENABLED 1
    1592             : 
    1593             : #if SK5_ENABLED
    1594             :     module procedure anyin_D0_D0_SK5
    1595             :         use pm_kind, only: SKC => SK5
    1596             : #include "pm_arrayMembership@routines.inc.F90"
    1597             :     end procedure
    1598             : #endif
    1599             : 
    1600             : #if SK4_ENABLED
    1601             :     module procedure anyin_D0_D0_SK4
    1602             :         use pm_kind, only: SKC => SK4
    1603             : #include "pm_arrayMembership@routines.inc.F90"
    1604             :     end procedure
    1605             : #endif
    1606             : 
    1607             : #if SK3_ENABLED
    1608             :     module procedure anyin_D0_D0_SK3
    1609             :         use pm_kind, only: SKC => SK3
    1610             : #include "pm_arrayMembership@routines.inc.F90"
    1611             :     end procedure
    1612             : #endif
    1613             : 
    1614             : #if SK2_ENABLED
    1615             :     module procedure anyin_D0_D0_SK2
    1616             :         use pm_kind, only: SKC => SK2
    1617             : #include "pm_arrayMembership@routines.inc.F90"
    1618             :     end procedure
    1619             : #endif
    1620             : 
    1621             : #if SK1_ENABLED
    1622           2 :     module procedure anyin_D0_D0_SK1
    1623             :         use pm_kind, only: SKC => SK1
    1624             : #include "pm_arrayMembership@routines.inc.F90"
    1625             :     end procedure
    1626             : #endif
    1627             : 
    1628             : #undef SK_ENABLED
    1629             : 
    1630             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1631             : 
    1632             : #undef D0_D0_ENABLED
    1633             : 
    1634             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1635             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1636             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1637             : 
    1638             : #define D1_D1_ENABLED 1
    1639             : 
    1640             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1641             : 
    1642             : #define SK_ENABLED 1
    1643             : 
    1644             : #if SK5_ENABLED
    1645             :     module procedure anyin_D1_D1_SK5
    1646             :         use pm_kind, only: SKC => SK5
    1647             : #include "pm_arrayMembership@routines.inc.F90"
    1648             :     end procedure
    1649             : #endif
    1650             : 
    1651             : #if SK4_ENABLED
    1652             :     module procedure anyin_D1_D1_SK4
    1653             :         use pm_kind, only: SKC => SK4
    1654             : #include "pm_arrayMembership@routines.inc.F90"
    1655             :     end procedure
    1656             : #endif
    1657             : 
    1658             : #if SK3_ENABLED
    1659             :     module procedure anyin_D1_D1_SK3
    1660             :         use pm_kind, only: SKC => SK3
    1661             : #include "pm_arrayMembership@routines.inc.F90"
    1662             :     end procedure
    1663             : #endif
    1664             : 
    1665             : #if SK2_ENABLED
    1666             :     module procedure anyin_D1_D1_SK2
    1667             :         use pm_kind, only: SKC => SK2
    1668             : #include "pm_arrayMembership@routines.inc.F90"
    1669             :     end procedure
    1670             : #endif
    1671             : 
    1672             : #if SK1_ENABLED
    1673           2 :     module procedure anyin_D1_D1_SK1
    1674             :         use pm_kind, only: SKC => SK1
    1675             : #include "pm_arrayMembership@routines.inc.F90"
    1676             :     end procedure
    1677             : #endif
    1678             : 
    1679             : #undef SK_ENABLED
    1680             : 
    1681             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1682             : 
    1683             : #define IK_ENABLED 1
    1684             : 
    1685             : #if IK5_ENABLED
    1686           0 :     module procedure anyin_D1_D1_IK5
    1687             :         use pm_kind, only: IKC => IK5
    1688             : #include "pm_arrayMembership@routines.inc.F90"
    1689             :     end procedure
    1690             : #endif
    1691             : 
    1692             : #if IK4_ENABLED
    1693           0 :     module procedure anyin_D1_D1_IK4
    1694             :         use pm_kind, only: IKC => IK4
    1695             : #include "pm_arrayMembership@routines.inc.F90"
    1696             :     end procedure
    1697             : #endif
    1698             : 
    1699             : #if IK3_ENABLED
    1700           4 :     module procedure anyin_D1_D1_IK3
    1701             :         use pm_kind, only: IKC => IK3
    1702             : #include "pm_arrayMembership@routines.inc.F90"
    1703             :     end procedure
    1704             : #endif
    1705             : 
    1706             : #if IK2_ENABLED
    1707           0 :     module procedure anyin_D1_D1_IK2
    1708             :         use pm_kind, only: IKC => IK2
    1709             : #include "pm_arrayMembership@routines.inc.F90"
    1710             :     end procedure
    1711             : #endif
    1712             : 
    1713             : #if IK1_ENABLED
    1714           0 :     module procedure anyin_D1_D1_IK1
    1715             :         use pm_kind, only: IKC => IK1
    1716             : #include "pm_arrayMembership@routines.inc.F90"
    1717             :     end procedure
    1718             : #endif
    1719             : 
    1720             : #undef IK_ENABLED
    1721             : 
    1722             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1723             : 
    1724             : #define LK_ENABLED 1
    1725             : 
    1726             : #if LK5_ENABLED
    1727           0 :     module procedure anyin_D1_D1_LK5
    1728             :         use pm_kind, only: LKC => LK5
    1729             : #include "pm_arrayMembership@routines.inc.F90"
    1730             :     end procedure
    1731             : #endif
    1732             : 
    1733             : #if LK4_ENABLED
    1734           0 :     module procedure anyin_D1_D1_LK4
    1735             :         use pm_kind, only: LKC => LK4
    1736             : #include "pm_arrayMembership@routines.inc.F90"
    1737             :     end procedure
    1738             : #endif
    1739             : 
    1740             : #if LK3_ENABLED
    1741           2 :     module procedure anyin_D1_D1_LK3
    1742             :         use pm_kind, only: LKC => LK3
    1743             : #include "pm_arrayMembership@routines.inc.F90"
    1744             :     end procedure
    1745             : #endif
    1746             : 
    1747             : #if LK2_ENABLED
    1748           0 :     module procedure anyin_D1_D1_LK2
    1749             :         use pm_kind, only: LKC => LK2
    1750             : #include "pm_arrayMembership@routines.inc.F90"
    1751             :     end procedure
    1752             : #endif
    1753             : 
    1754             : #if LK1_ENABLED
    1755           0 :     module procedure anyin_D1_D1_LK1
    1756             :         use pm_kind, only: LKC => LK1
    1757             : #include "pm_arrayMembership@routines.inc.F90"
    1758             :     end procedure
    1759             : #endif
    1760             : 
    1761             : #undef LK_ENABLED
    1762             : 
    1763             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1764             : 
    1765             : #define CK_ENABLED 1
    1766             : 
    1767             : #if CK5_ENABLED
    1768             :     module procedure anyin_D1_D1_CK5
    1769             :         use pm_kind, only: CKC => CK5
    1770             : #include "pm_arrayMembership@routines.inc.F90"
    1771             :     end procedure
    1772             : #endif
    1773             : 
    1774             : #if CK4_ENABLED
    1775           0 :     module procedure anyin_D1_D1_CK4
    1776             :         use pm_kind, only: CKC => CK4
    1777             : #include "pm_arrayMembership@routines.inc.F90"
    1778             :     end procedure
    1779             : #endif
    1780             : 
    1781             : #if CK3_ENABLED
    1782           0 :     module procedure anyin_D1_D1_CK3
    1783             :         use pm_kind, only: CKC => CK3
    1784             : #include "pm_arrayMembership@routines.inc.F90"
    1785             :     end procedure
    1786             : #endif
    1787             : 
    1788             : #if CK2_ENABLED
    1789           0 :     module procedure anyin_D1_D1_CK2
    1790             :         use pm_kind, only: CKC => CK2
    1791             : #include "pm_arrayMembership@routines.inc.F90"
    1792             :     end procedure
    1793             : #endif
    1794             : 
    1795             : #if CK1_ENABLED
    1796           0 :     module procedure anyin_D1_D1_CK1
    1797             :         use pm_kind, only: CKC => CK1
    1798             : #include "pm_arrayMembership@routines.inc.F90"
    1799             :     end procedure
    1800             : #endif
    1801             : 
    1802             : #undef CK_ENABLED
    1803             : 
    1804             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1805             : 
    1806             : #define RK_ENABLED 1
    1807             : 
    1808             : #if RK5_ENABLED
    1809             :     module procedure anyin_D1_D1_RK5
    1810             :         use pm_kind, only: RKC => RK5
    1811             : #include "pm_arrayMembership@routines.inc.F90"
    1812             :     end procedure
    1813             : #endif
    1814             : 
    1815             : #if RK4_ENABLED
    1816           0 :     module procedure anyin_D1_D1_RK4
    1817             :         use pm_kind, only: RKC => RK4
    1818             : #include "pm_arrayMembership@routines.inc.F90"
    1819             :     end procedure
    1820             : #endif
    1821             : 
    1822             : #if RK3_ENABLED
    1823           0 :     module procedure anyin_D1_D1_RK3
    1824             :         use pm_kind, only: RKC => RK3
    1825             : #include "pm_arrayMembership@routines.inc.F90"
    1826             :     end procedure
    1827             : #endif
    1828             : 
    1829             : #if RK2_ENABLED
    1830           2 :     module procedure anyin_D1_D1_RK2
    1831             :         use pm_kind, only: RKC => RK2
    1832             : #include "pm_arrayMembership@routines.inc.F90"
    1833             :     end procedure
    1834             : #endif
    1835             : 
    1836             : #if RK1_ENABLED
    1837           0 :     module procedure anyin_D1_D1_RK1
    1838             :         use pm_kind, only: RKC => RK1
    1839             : #include "pm_arrayMembership@routines.inc.F90"
    1840             :     end procedure
    1841             : #endif
    1842             : 
    1843             : #undef RK_ENABLED
    1844             : 
    1845             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1846             : 
    1847             : #undef D1_D1_ENABLED
    1848             : 
    1849             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1850             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1851             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1852             : 
    1853             : #undef anyin_ENABLED
    1854             : 
    1855             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1856             : 
    1857             : #define anyinrange_ENABLED 1
    1858             : 
    1859             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1860             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1861             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1862             : 
    1863             : #define D0_D0_ENABLED 1
    1864             : 
    1865             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1866             : 
    1867             : #define SK_ENABLED 1
    1868             : 
    1869             : #if SK5_ENABLED
    1870             :     module procedure anyinrange_D0_D0_SK5
    1871             :         use pm_kind, only: SKC => SK5
    1872             : #include "pm_arrayMembership@routines.inc.F90"
    1873             :     end procedure
    1874             : #endif
    1875             : 
    1876             : #if SK4_ENABLED
    1877             :     module procedure anyinrange_D0_D0_SK4
    1878             :         use pm_kind, only: SKC => SK4
    1879             : #include "pm_arrayMembership@routines.inc.F90"
    1880             :     end procedure
    1881             : #endif
    1882             : 
    1883             : #if SK3_ENABLED
    1884             :     module procedure anyinrange_D0_D0_SK3
    1885             :         use pm_kind, only: SKC => SK3
    1886             : #include "pm_arrayMembership@routines.inc.F90"
    1887             :     end procedure
    1888             : #endif
    1889             : 
    1890             : #if SK2_ENABLED
    1891             :     module procedure anyinrange_D0_D0_SK2
    1892             :         use pm_kind, only: SKC => SK2
    1893             : #include "pm_arrayMembership@routines.inc.F90"
    1894             :     end procedure
    1895             : #endif
    1896             : 
    1897             : #if SK1_ENABLED
    1898           2 :     module procedure anyinrange_D0_D0_SK1
    1899             :         use pm_kind, only: SKC => SK1
    1900             : #include "pm_arrayMembership@routines.inc.F90"
    1901             :     end procedure
    1902             : #endif
    1903             : 
    1904             : #undef SK_ENABLED
    1905             : 
    1906             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1907             : 
    1908             : #undef D0_D0_ENABLED
    1909             : 
    1910             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1911             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1912             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1913             : 
    1914             : #define D1_D1_ENABLED 1
    1915             : 
    1916             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1917             : 
    1918             : #define SK_ENABLED 1
    1919             : 
    1920             : #if SK5_ENABLED
    1921             :     module procedure anyinrange_D1_D1_SK5
    1922             :         use pm_kind, only: SKC => SK5
    1923             : #include "pm_arrayMembership@routines.inc.F90"
    1924             :     end procedure
    1925             : #endif
    1926             : 
    1927             : #if SK4_ENABLED
    1928             :     module procedure anyinrange_D1_D1_SK4
    1929             :         use pm_kind, only: SKC => SK4
    1930             : #include "pm_arrayMembership@routines.inc.F90"
    1931             :     end procedure
    1932             : #endif
    1933             : 
    1934             : #if SK3_ENABLED
    1935             :     module procedure anyinrange_D1_D1_SK3
    1936             :         use pm_kind, only: SKC => SK3
    1937             : #include "pm_arrayMembership@routines.inc.F90"
    1938             :     end procedure
    1939             : #endif
    1940             : 
    1941             : #if SK2_ENABLED
    1942             :     module procedure anyinrange_D1_D1_SK2
    1943             :         use pm_kind, only: SKC => SK2
    1944             : #include "pm_arrayMembership@routines.inc.F90"
    1945             :     end procedure
    1946             : #endif
    1947             : 
    1948             : #if SK1_ENABLED
    1949           2 :     module procedure anyinrange_D1_D1_SK1
    1950             :         use pm_kind, only: SKC => SK1
    1951             : #include "pm_arrayMembership@routines.inc.F90"
    1952             :     end procedure
    1953             : #endif
    1954             : 
    1955             : #undef SK_ENABLED
    1956             : 
    1957             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1958             : 
    1959             : #define IK_ENABLED 1
    1960             : 
    1961             : #if IK5_ENABLED
    1962           0 :     module procedure anyinrange_D1_D1_IK5
    1963             :         use pm_kind, only: IKC => IK5
    1964             : #include "pm_arrayMembership@routines.inc.F90"
    1965             :     end procedure
    1966             : #endif
    1967             : 
    1968             : #if IK4_ENABLED
    1969           0 :     module procedure anyinrange_D1_D1_IK4
    1970             :         use pm_kind, only: IKC => IK4
    1971             : #include "pm_arrayMembership@routines.inc.F90"
    1972             :     end procedure
    1973             : #endif
    1974             : 
    1975             : #if IK3_ENABLED
    1976           4 :     module procedure anyinrange_D1_D1_IK3
    1977             :         use pm_kind, only: IKC => IK3
    1978             : #include "pm_arrayMembership@routines.inc.F90"
    1979             :     end procedure
    1980             : #endif
    1981             : 
    1982             : #if IK2_ENABLED
    1983           0 :     module procedure anyinrange_D1_D1_IK2
    1984             :         use pm_kind, only: IKC => IK2
    1985             : #include "pm_arrayMembership@routines.inc.F90"
    1986             :     end procedure
    1987             : #endif
    1988             : 
    1989             : #if IK1_ENABLED
    1990           0 :     module procedure anyinrange_D1_D1_IK1
    1991             :         use pm_kind, only: IKC => IK1
    1992             : #include "pm_arrayMembership@routines.inc.F90"
    1993             :     end procedure
    1994             : #endif
    1995             : 
    1996             : #undef IK_ENABLED
    1997             : 
    1998             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    1999             : 
    2000             : #define LK_ENABLED 1
    2001             : 
    2002             : #if LK5_ENABLED
    2003           0 :     module procedure anyinrange_D1_D1_LK5
    2004             :         use pm_kind, only: LKC => LK5
    2005             : #include "pm_arrayMembership@routines.inc.F90"
    2006             :     end procedure
    2007             : #endif
    2008             : 
    2009             : #if LK4_ENABLED
    2010           0 :     module procedure anyinrange_D1_D1_LK4
    2011             :         use pm_kind, only: LKC => LK4
    2012             : #include "pm_arrayMembership@routines.inc.F90"
    2013             :     end procedure
    2014             : #endif
    2015             : 
    2016             : #if LK3_ENABLED
    2017           2 :     module procedure anyinrange_D1_D1_LK3
    2018             :         use pm_kind, only: LKC => LK3
    2019             : #include "pm_arrayMembership@routines.inc.F90"
    2020             :     end procedure
    2021             : #endif
    2022             : 
    2023             : #if LK2_ENABLED
    2024           0 :     module procedure anyinrange_D1_D1_LK2
    2025             :         use pm_kind, only: LKC => LK2
    2026             : #include "pm_arrayMembership@routines.inc.F90"
    2027             :     end procedure
    2028             : #endif
    2029             : 
    2030             : #if LK1_ENABLED
    2031           0 :     module procedure anyinrange_D1_D1_LK1
    2032             :         use pm_kind, only: LKC => LK1
    2033             : #include "pm_arrayMembership@routines.inc.F90"
    2034             :     end procedure
    2035             : #endif
    2036             : 
    2037             : #undef LK_ENABLED
    2038             : 
    2039             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2040             : 
    2041             : #define CK_ENABLED 1
    2042             : 
    2043             : #if CK5_ENABLED
    2044             :     module procedure anyinrange_D1_D1_CK5
    2045             :         use pm_kind, only: CKC => CK5
    2046             : #include "pm_arrayMembership@routines.inc.F90"
    2047             :     end procedure
    2048             : #endif
    2049             : 
    2050             : #if CK4_ENABLED
    2051           0 :     module procedure anyinrange_D1_D1_CK4
    2052             :         use pm_kind, only: CKC => CK4
    2053             : #include "pm_arrayMembership@routines.inc.F90"
    2054             :     end procedure
    2055             : #endif
    2056             : 
    2057             : #if CK3_ENABLED
    2058           0 :     module procedure anyinrange_D1_D1_CK3
    2059             :         use pm_kind, only: CKC => CK3
    2060             : #include "pm_arrayMembership@routines.inc.F90"
    2061             :     end procedure
    2062             : #endif
    2063             : 
    2064             : #if CK2_ENABLED
    2065           0 :     module procedure anyinrange_D1_D1_CK2
    2066             :         use pm_kind, only: CKC => CK2
    2067             : #include "pm_arrayMembership@routines.inc.F90"
    2068             :     end procedure
    2069             : #endif
    2070             : 
    2071             : #if CK1_ENABLED
    2072           0 :     module procedure anyinrange_D1_D1_CK1
    2073             :         use pm_kind, only: CKC => CK1
    2074             : #include "pm_arrayMembership@routines.inc.F90"
    2075             :     end procedure
    2076             : #endif
    2077             : 
    2078             : #undef CK_ENABLED
    2079             : 
    2080             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2081             : 
    2082             : #define RK_ENABLED 1
    2083             : 
    2084             : #if RK5_ENABLED
    2085             :     module procedure anyinrange_D1_D1_RK5
    2086             :         use pm_kind, only: RKC => RK5
    2087             : #include "pm_arrayMembership@routines.inc.F90"
    2088             :     end procedure
    2089             : #endif
    2090             : 
    2091             : #if RK4_ENABLED
    2092           0 :     module procedure anyinrange_D1_D1_RK4
    2093             :         use pm_kind, only: RKC => RK4
    2094             : #include "pm_arrayMembership@routines.inc.F90"
    2095             :     end procedure
    2096             : #endif
    2097             : 
    2098             : #if RK3_ENABLED
    2099           0 :     module procedure anyinrange_D1_D1_RK3
    2100             :         use pm_kind, only: RKC => RK3
    2101             : #include "pm_arrayMembership@routines.inc.F90"
    2102             :     end procedure
    2103             : #endif
    2104             : 
    2105             : #if RK2_ENABLED
    2106           2 :     module procedure anyinrange_D1_D1_RK2
    2107             :         use pm_kind, only: RKC => RK2
    2108             : #include "pm_arrayMembership@routines.inc.F90"
    2109             :     end procedure
    2110             : #endif
    2111             : 
    2112             : #if RK1_ENABLED
    2113           0 :     module procedure anyinrange_D1_D1_RK1
    2114             :         use pm_kind, only: RKC => RK1
    2115             : #include "pm_arrayMembership@routines.inc.F90"
    2116             :     end procedure
    2117             : #endif
    2118             : 
    2119             : #undef RK_ENABLED
    2120             : 
    2121             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2122             : 
    2123             : #undef D1_D1_ENABLED
    2124             : 
    2125             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2126             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2127             :     !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2128             : 
    2129             : #undef anyinrange_ENABLED
    2130             : 
    2131             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    2132             : 
    2133             : end submodule routines

ParaMonte: Parallel Monte Carlo and Machine Learning Library 
The Computational Data Science Lab
© Copyright 2012 - 2024