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_complexCompareAll](@ref pm_complexCompareAll).
      19             : !>
      20             : !>  \finmain
      21             : !>
      22             : !>  \author
      23             : !>  \AmirShahmoradi, September 1, 2017, 12:00 AM, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin
      24             : 
      25             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      26             : 
      27             : submodule (pm_complexCompareAll) routines ! LCOV_EXCL_LINE
      28             : 
      29             :     implicit none
      30             : 
      31             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      32             : 
      33             : contains
      34             : 
      35             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      36             : 
      37             : #define isallless_CK_ENABLED 1
      38             : 
      39             : #if CK5_ENABLED
      40             :     module procedure isallless_CK5
      41             :         use pm_kind, only: CKC => CK5
      42             : #include "pm_complexCompareAll@routines.inc.F90"
      43             :     end procedure
      44             : #endif
      45             : 
      46             : #if CK4_ENABLED
      47      165714 :     module procedure isallless_CK4
      48             :         use pm_kind, only: CKC => CK4
      49             : #include "pm_complexCompareAll@routines.inc.F90"
      50      165714 :     end procedure
      51             : #endif
      52             : 
      53             : #if CK3_ENABLED
      54      169977 :     module procedure isallless_CK3
      55             :         use pm_kind, only: CKC => CK3
      56             : #include "pm_complexCompareAll@routines.inc.F90"
      57      169977 :     end procedure
      58             : #endif
      59             : 
      60             : #if CK2_ENABLED
      61      172567 :     module procedure isallless_CK2
      62             :         use pm_kind, only: CKC => CK2
      63             : #include "pm_complexCompareAll@routines.inc.F90"
      64      172567 :     end procedure
      65             : #endif
      66             : 
      67             : #if CK1_ENABLED
      68      169961 :     module procedure isallless_CK1
      69             :         use pm_kind, only: CKC => CK1
      70             : #include "pm_complexCompareAll@routines.inc.F90"
      71      169961 :     end procedure
      72             : #endif
      73             : 
      74             : #undef isallless_CK_ENABLED
      75             : 
      76             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      77             : 
      78             : #define isallleq_CK_ENABLED 1
      79             : 
      80             : #if CK5_ENABLED
      81             :     module procedure isallleq_CK5
      82             :         use pm_kind, only: CKC => CK5
      83             : #include "pm_complexCompareAll@routines.inc.F90"
      84             :     end procedure
      85             : #endif
      86             : 
      87             : #if CK4_ENABLED
      88       20387 :     module procedure isallleq_CK4
      89             :         use pm_kind, only: CKC => CK4
      90             : #include "pm_complexCompareAll@routines.inc.F90"
      91       20387 :     end procedure
      92             : #endif
      93             : 
      94             : #if CK3_ENABLED
      95       20539 :     module procedure isallleq_CK3
      96             :         use pm_kind, only: CKC => CK3
      97             : #include "pm_complexCompareAll@routines.inc.F90"
      98       20539 :     end procedure
      99             : #endif
     100             : 
     101             : #if CK2_ENABLED
     102       20299 :     module procedure isallleq_CK2
     103             :         use pm_kind, only: CKC => CK2
     104             : #include "pm_complexCompareAll@routines.inc.F90"
     105       20299 :     end procedure
     106             : #endif
     107             : 
     108             : #if CK1_ENABLED
     109       20368 :     module procedure isallleq_CK1
     110             :         use pm_kind, only: CKC => CK1
     111             : #include "pm_complexCompareAll@routines.inc.F90"
     112       20368 :     end procedure
     113             : #endif
     114             : 
     115             : #undef isallleq_CK_ENABLED
     116             : 
     117             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     118             : 
     119             : #define isallneq_CK_ENABLED 1
     120             : 
     121             : #if CK5_ENABLED
     122             :     module procedure isallneq_CK5
     123             :         use pm_kind, only: CKC => CK5
     124             : #include "pm_complexCompareAll@routines.inc.F90"
     125             :     end procedure
     126             : #endif
     127             : 
     128             : #if CK4_ENABLED
     129          75 :     module procedure isallneq_CK4
     130             :         use pm_kind, only: CKC => CK4
     131             : #include "pm_complexCompareAll@routines.inc.F90"
     132          75 :     end procedure
     133             : #endif
     134             : 
     135             : #if CK3_ENABLED
     136          75 :     module procedure isallneq_CK3
     137             :         use pm_kind, only: CKC => CK3
     138             : #include "pm_complexCompareAll@routines.inc.F90"
     139          75 :     end procedure
     140             : #endif
     141             : 
     142             : #if CK2_ENABLED
     143          91 :     module procedure isallneq_CK2
     144             :         use pm_kind, only: CKC => CK2
     145             : #include "pm_complexCompareAll@routines.inc.F90"
     146          91 :     end procedure
     147             : #endif
     148             : 
     149             : #if CK1_ENABLED
     150          75 :     module procedure isallneq_CK1
     151             :         use pm_kind, only: CKC => CK1
     152             : #include "pm_complexCompareAll@routines.inc.F90"
     153          75 :     end procedure
     154             : #endif
     155             : 
     156             : #undef isallneq_CK_ENABLED
     157             : 
     158             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     159             : !
     160             : !#define isalleq_CK_ENABLED 1
     161             : !
     162             : !#if CK3_ENABLED
     163             : !    module procedure isalleq_CK3
     164             : !        use pm_kind, only: CKC => CK3
     165             : !#include "pm_complexCompareAll@routines.inc.F90"
     166             : !    end procedure
     167             : !#endif
     168             : !
     169             : !#if CK2_ENABLED
     170             : !    module procedure isalleq_CK2
     171             : !        use pm_kind, only: CKC => CK2
     172             : !#include "pm_complexCompareAll@routines.inc.F90"
     173             : !    end procedure
     174             : !#endif
     175             : !
     176             : !#if CK1_ENABLED
     177             : !    module procedure isalleq_CK1
     178             : !        use pm_kind, only: CKC => CK1
     179             : !#include "pm_complexCompareAll@routines.inc.F90"
     180             : !    end procedure
     181             : !#endif
     182             : !
     183             : !#undef isalleq_CK_ENABLED
     184             : 
     185             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     186             : 
     187             : #define isallmeq_CK_ENABLED 1
     188             : 
     189             : #if CK5_ENABLED
     190             :     module procedure isallmeq_CK5
     191             :         use pm_kind, only: CKC => CK5
     192             : #include "pm_complexCompareAll@routines.inc.F90"
     193             :     end procedure
     194             : #endif
     195             : 
     196             : #if CK4_ENABLED
     197          75 :     module procedure isallmeq_CK4
     198             :         use pm_kind, only: CKC => CK4
     199             : #include "pm_complexCompareAll@routines.inc.F90"
     200          75 :     end procedure
     201             : #endif
     202             : 
     203             : #if CK3_ENABLED
     204          75 :     module procedure isallmeq_CK3
     205             :         use pm_kind, only: CKC => CK3
     206             : #include "pm_complexCompareAll@routines.inc.F90"
     207          75 :     end procedure
     208             : #endif
     209             : 
     210             : #if CK2_ENABLED
     211          91 :     module procedure isallmeq_CK2
     212             :         use pm_kind, only: CKC => CK2
     213             : #include "pm_complexCompareAll@routines.inc.F90"
     214          91 :     end procedure
     215             : #endif
     216             : 
     217             : #if CK1_ENABLED
     218          75 :     module procedure isallmeq_CK1
     219             :         use pm_kind, only: CKC => CK1
     220             : #include "pm_complexCompareAll@routines.inc.F90"
     221          75 :     end procedure
     222             : #endif
     223             : 
     224             : #undef isallmeq_CK_ENABLED
     225             : 
     226             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     227             : 
     228             : #define isallmore_CK_ENABLED 1
     229             : 
     230             : #if CK5_ENABLED
     231             :     module procedure isallmore_CK5
     232             :         use pm_kind, only: CKC => CK5
     233             : #include "pm_complexCompareAll@routines.inc.F90"
     234             :     end procedure
     235             : #endif
     236             : 
     237             : #if CK4_ENABLED
     238          75 :     module procedure isallmore_CK4
     239             :         use pm_kind, only: CKC => CK4
     240             : #include "pm_complexCompareAll@routines.inc.F90"
     241          75 :     end procedure
     242             : #endif
     243             : 
     244             : #if CK3_ENABLED
     245          75 :     module procedure isallmore_CK3
     246             :         use pm_kind, only: CKC => CK3
     247             : #include "pm_complexCompareAll@routines.inc.F90"
     248          75 :     end procedure
     249             : #endif
     250             : 
     251             : #if CK2_ENABLED
     252          91 :     module procedure isallmore_CK2
     253             :         use pm_kind, only: CKC => CK2
     254             : #include "pm_complexCompareAll@routines.inc.F90"
     255          91 :     end procedure
     256             : #endif
     257             : 
     258             : #if CK1_ENABLED
     259          75 :     module procedure isallmore_CK1
     260             :         use pm_kind, only: CKC => CK1
     261             : #include "pm_complexCompareAll@routines.inc.F90"
     262          75 :     end procedure
     263             : #endif
     264             : 
     265             : #undef isallmore_CK_ENABLED
     266             : 
     267             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     268             : 
     269             : end submodule routines