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_complexCompareLex](@ref pm_complexCompareLex).
      19             : !>
      20             : !>  \author
      21             : !>  \AmirShahmoradi, September 1, 2017, 12:00 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
      22             : 
      23             : submodule (pm_complexCompareLex) routines ! LCOV_EXCL_LINE
      24             : 
      25             :     implicit none
      26             : 
      27             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      28             : 
      29             : contains
      30             : 
      31             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      32             : 
      33             : #define islexless_CK_ENABLED 1
      34             : 
      35             : #if CK5_ENABLED
      36             :     module procedure islexless_CK5
      37             :         use pm_kind, only: CKC => CK5
      38             : #include "pm_complexCompareLex@routines.inc.F90"
      39             :     end procedure
      40             : #endif
      41             : 
      42             : #if CK4_ENABLED
      43      398675 :     module procedure islexless_CK4
      44             :         use pm_kind, only: CKC => CK4
      45             : #include "pm_complexCompareLex@routines.inc.F90"
      46      398675 :     end procedure
      47             : #endif
      48             : 
      49             : #if CK3_ENABLED
      50      398160 :     module procedure islexless_CK3
      51             :         use pm_kind, only: CKC => CK3
      52             : #include "pm_complexCompareLex@routines.inc.F90"
      53      398160 :     end procedure
      54             : #endif
      55             : 
      56             : #if CK2_ENABLED
      57      397608 :     module procedure islexless_CK2
      58             :         use pm_kind, only: CKC => CK2
      59             : #include "pm_complexCompareLex@routines.inc.F90"
      60      397608 :     end procedure
      61             : #endif
      62             : 
      63             : #if CK1_ENABLED
      64      395665 :     module procedure islexless_CK1
      65             :         use pm_kind, only: CKC => CK1
      66             : #include "pm_complexCompareLex@routines.inc.F90"
      67      395665 :     end procedure
      68             : #endif
      69             : 
      70             : #undef islexless_CK_ENABLED
      71             : 
      72             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      73             : 
      74             : #define islexleq_CK_ENABLED 1
      75             : 
      76             : #if CK5_ENABLED
      77             :     module procedure islexleq_CK5
      78             :         use pm_kind, only: CKC => CK5
      79             : #include "pm_complexCompareLex@routines.inc.F90"
      80             :     end procedure
      81             : #endif
      82             : 
      83             : #if CK4_ENABLED
      84          75 :     module procedure islexleq_CK4
      85             :         use pm_kind, only: CKC => CK4
      86             : #include "pm_complexCompareLex@routines.inc.F90"
      87          75 :     end procedure
      88             : #endif
      89             : 
      90             : #if CK3_ENABLED
      91          75 :     module procedure islexleq_CK3
      92             :         use pm_kind, only: CKC => CK3
      93             : #include "pm_complexCompareLex@routines.inc.F90"
      94          75 :     end procedure
      95             : #endif
      96             : 
      97             : #if CK2_ENABLED
      98          91 :     module procedure islexleq_CK2
      99             :         use pm_kind, only: CKC => CK2
     100             : #include "pm_complexCompareLex@routines.inc.F90"
     101          91 :     end procedure
     102             : #endif
     103             : 
     104             : #if CK1_ENABLED
     105          75 :     module procedure islexleq_CK1
     106             :         use pm_kind, only: CKC => CK1
     107             : #include "pm_complexCompareLex@routines.inc.F90"
     108          75 :     end procedure
     109             : #endif
     110             : 
     111             : #undef islexleq_CK_ENABLED
     112             : 
     113             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     114             : !
     115             : !#define islexneq_CK_ENABLED 1
     116             : !
     117             : !#if CK3_ENABLED
     118             : !    module procedure islexneq_CK3
     119             : !        use pm_kind, only: CKC => CK3
     120             : !#include "pm_complexCompareLex@routines.inc.F90"
     121             : !    end procedure
     122             : !#endif
     123             : !
     124             : !#if CK2_ENABLED
     125             : !    module procedure islexneq_CK2
     126             : !        use pm_kind, only: CKC => CK2
     127             : !#include "pm_complexCompareLex@routines.inc.F90"
     128             : !    end procedure
     129             : !#endif
     130             : !
     131             : !#if CK1_ENABLED
     132             : !    module procedure islexneq_CK1
     133             : !        use pm_kind, only: CKC => CK1
     134             : !#include "pm_complexCompareLex@routines.inc.F90"
     135             : !    end procedure
     136             : !#endif
     137             : !
     138             : !#undef islexneq_CK_ENABLED
     139             : !
     140             : !!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     141             : !
     142             : !#define isanyeq_CK_ENABLED 1
     143             : !
     144             : !#if CK3_ENABLED
     145             : !    module procedure isanyeq_CK3
     146             : !        use pm_kind, only: CKC => CK3
     147             : !#include "pm_complexCompareLex@routines.inc.F90"
     148             : !    end procedure
     149             : !#endif
     150             : !
     151             : !#if CK2_ENABLED
     152             : !    module procedure isanyeq_CK2
     153             : !        use pm_kind, only: CKC => CK2
     154             : !#include "pm_complexCompareLex@routines.inc.F90"
     155             : !    end procedure
     156             : !#endif
     157             : !
     158             : !#if CK1_ENABLED
     159             : !    module procedure isanyeq_CK1
     160             : !        use pm_kind, only: CKC => CK1
     161             : !#include "pm_complexCompareLex@routines.inc.F90"
     162             : !    end procedure
     163             : !#endif
     164             : !
     165             : !#undef isanyeq_CK_ENABLED
     166             : !
     167             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     168             : 
     169             : #define islexmeq_CK_ENABLED 1
     170             : 
     171             : #if CK5_ENABLED
     172             :     module procedure islexmeq_CK5
     173             :         use pm_kind, only: CKC => CK5
     174             : #include "pm_complexCompareLex@routines.inc.F90"
     175             :     end procedure
     176             : #endif
     177             : 
     178             : #if CK4_ENABLED
     179          75 :     module procedure islexmeq_CK4
     180             :         use pm_kind, only: CKC => CK4
     181             : #include "pm_complexCompareLex@routines.inc.F90"
     182          75 :     end procedure
     183             : #endif
     184             : 
     185             : #if CK3_ENABLED
     186          75 :     module procedure islexmeq_CK3
     187             :         use pm_kind, only: CKC => CK3
     188             : #include "pm_complexCompareLex@routines.inc.F90"
     189          75 :     end procedure
     190             : #endif
     191             : 
     192             : #if CK2_ENABLED
     193          91 :     module procedure islexmeq_CK2
     194             :         use pm_kind, only: CKC => CK2
     195             : #include "pm_complexCompareLex@routines.inc.F90"
     196          91 :     end procedure
     197             : #endif
     198             : 
     199             : #if CK1_ENABLED
     200          75 :     module procedure islexmeq_CK1
     201             :         use pm_kind, only: CKC => CK1
     202             : #include "pm_complexCompareLex@routines.inc.F90"
     203          75 :     end procedure
     204             : #endif
     205             : 
     206             : #undef islexmeq_CK_ENABLED
     207             : 
     208             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     209             : 
     210             : #define islexmore_CK_ENABLED 1
     211             : 
     212             : #if CK5_ENABLED
     213             :     module procedure islexmore_CK5
     214             :         use pm_kind, only: CKC => CK5
     215             : #include "pm_complexCompareLex@routines.inc.F90"
     216             :     end procedure
     217             : #endif
     218             : 
     219             : #if CK4_ENABLED
     220    18180773 :     module procedure islexmore_CK4
     221             :         use pm_kind, only: CKC => CK4
     222             : #include "pm_complexCompareLex@routines.inc.F90"
     223    18180773 :     end procedure
     224             : #endif
     225             : 
     226             : #if CK3_ENABLED
     227    16831220 :     module procedure islexmore_CK3
     228             :         use pm_kind, only: CKC => CK3
     229             : #include "pm_complexCompareLex@routines.inc.F90"
     230    16831220 :     end procedure
     231             : #endif
     232             : 
     233             : #if CK2_ENABLED
     234    17399493 :     module procedure islexmore_CK2
     235             :         use pm_kind, only: CKC => CK2
     236             : #include "pm_complexCompareLex@routines.inc.F90"
     237    17399493 :     end procedure
     238             : #endif
     239             : 
     240             : #if CK1_ENABLED
     241    18263807 :     module procedure islexmore_CK1
     242             :         use pm_kind, only: CKC => CK1
     243             : #include "pm_complexCompareLex@routines.inc.F90"
     244    18263807 :     end procedure
     245             : #endif
     246             : 
     247             : #undef islexmore_CK_ENABLED
     248             : 
     249             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     250             : 
     251             : end submodule routines