Line data    Source code

       1             : 
       2             : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
       3             : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
       4             : !!!!                                                                                                                            !!!!
       5             : !!!!    ParaMonte: Parallel Monte Carlo and Machine Learning Library.                                                           !!!!
       6             : !!!!                                                                                                                            !!!!
       7             : !!!!    Copyright (C) 2012-present, The Computational Data Science Lab                                                          !!!!
       8             : !!!!                                                                                                                            !!!!
       9             : !!!!    This file is part of the ParaMonte library.                                                                             !!!!
      10             : !!!!                                                                                                                            !!!!
      11             : !!!!    LICENSE                                                                                                                 !!!!
      12             : !!!!                                                                                                                            !!!!
      13             : !!!!       https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md                                                          !!!!
      14             : !!!!                                                                                                                            !!!!
      15             : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      16             : !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
      17             : 
      18             : !>  \brief
      19             : !>  This file contains procedure implementations of [pm_matrixSubset](@ref pm_matrixSubset).
      20             : !>
      21             : !>  \finmain
      22             : !>
      23             : !>  \author
      24             : !>  \AmirShahmoradi, Monday March 6, 2017, 3:22 pm, Institute for Computational Engineering and Sciences (ICES), The University of Texas at Austin.<br>
      25             : 
      26             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      27             : 
      28             : submodule (pm_matrixSubset) routines ! LCOV_EXCL_LINE
      29             : 
      30             :     implicit none
      31             : 
      32             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      33             : 
      34             : contains
      35             : 
      36             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      37             : 
      38           0 :     module procedure getSubSymmXXD; end procedure
      39           0 :     module procedure getSubSymmUXX; end procedure
      40           0 :     module procedure getSubSymmXLX; end procedure
      41           0 :     module procedure getSubSymmUXD; end procedure
      42           0 :     module procedure getSubSymmXLD; end procedure
      43           0 :     module procedure getSubSymmULX; end procedure
      44           0 :     module procedure getSubSymmULD; end procedure
      45             : 
      46             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      47             : 
      48           0 :     module procedure getSubCompXXD; end procedure
      49           0 :     module procedure getSubCompUXX; end procedure
      50           0 :     module procedure getSubCompXLX; end procedure
      51           0 :     module procedure getSubCompUXD; end procedure
      52           0 :     module procedure getSubCompXLD; end procedure
      53           0 :     module procedure getSubCompULX; end procedure
      54           0 :     module procedure getSubCompULD; end procedure
      55             : 
      56             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
      57             : 
      58           0 :     module procedure getSubUnion_XXX_XXX; end procedure
      59           0 :     module procedure getSubUnion_XXX_UXX; end procedure
      60           0 :     module procedure getSubUnion_XXX_XLX; end procedure
      61           0 :     module procedure getSubUnion_XXX_XXD; end procedure
      62           0 :     module procedure getSubUnion_XXX_UXD; end procedure
      63           0 :     module procedure getSubUnion_XXX_XLD; end procedure
      64           0 :     module procedure getSubUnion_XXX_ULX; end procedure
      65           0 :     module procedure getSubUnion_XXX_ULD; end procedure
      66             : 
      67           0 :     module procedure getSubUnion_UXX_XXX; end procedure
      68           0 :     module procedure getSubUnion_UXX_UXX; end procedure
      69           0 :     module procedure getSubUnion_UXX_XLX; end procedure
      70           0 :     module procedure getSubUnion_UXX_XXD; end procedure
      71           0 :     module procedure getSubUnion_UXX_UXD; end procedure
      72           0 :     module procedure getSubUnion_UXX_XLD; end procedure
      73           0 :     module procedure getSubUnion_UXX_ULX; end procedure
      74           0 :     module procedure getSubUnion_UXX_ULD; end procedure
      75             : 
      76           0 :     module procedure getSubUnion_XLX_XXX; end procedure
      77           0 :     module procedure getSubUnion_XLX_UXX; end procedure
      78           0 :     module procedure getSubUnion_XLX_XLX; end procedure
      79           0 :     module procedure getSubUnion_XLX_XXD; end procedure
      80           0 :     module procedure getSubUnion_XLX_UXD; end procedure
      81           0 :     module procedure getSubUnion_XLX_XLD; end procedure
      82           0 :     module procedure getSubUnion_XLX_ULX; end procedure
      83           0 :     module procedure getSubUnion_XLX_ULD; end procedure
      84             : 
      85           0 :     module procedure getSubUnion_XXD_XXX; end procedure
      86           0 :     module procedure getSubUnion_XXD_UXX; end procedure
      87           0 :     module procedure getSubUnion_XXD_XLX; end procedure
      88           0 :     module procedure getSubUnion_XXD_XXD; end procedure
      89           0 :     module procedure getSubUnion_XXD_UXD; end procedure
      90           0 :     module procedure getSubUnion_XXD_XLD; end procedure
      91           0 :     module procedure getSubUnion_XXD_ULX; end procedure
      92           0 :     module procedure getSubUnion_XXD_ULD; end procedure
      93             : 
      94           0 :     module procedure getSubUnion_UXD_XXX; end procedure
      95           0 :     module procedure getSubUnion_UXD_UXX; end procedure
      96           0 :     module procedure getSubUnion_UXD_XLX; end procedure
      97           0 :     module procedure getSubUnion_UXD_XXD; end procedure
      98           0 :     module procedure getSubUnion_UXD_UXD; end procedure
      99           0 :     module procedure getSubUnion_UXD_XLD; end procedure
     100           0 :     module procedure getSubUnion_UXD_ULX; end procedure
     101           0 :     module procedure getSubUnion_UXD_ULD; end procedure
     102             : 
     103           0 :     module procedure getSubUnion_XLD_XXX; end procedure
     104           0 :     module procedure getSubUnion_XLD_UXX; end procedure
     105           0 :     module procedure getSubUnion_XLD_XLX; end procedure
     106           0 :     module procedure getSubUnion_XLD_XXD; end procedure
     107           0 :     module procedure getSubUnion_XLD_UXD; end procedure
     108           0 :     module procedure getSubUnion_XLD_XLD; end procedure
     109           0 :     module procedure getSubUnion_XLD_ULX; end procedure
     110           0 :     module procedure getSubUnion_XLD_ULD; end procedure
     111             : 
     112           0 :     module procedure getSubUnion_ULX_XXX; end procedure
     113           0 :     module procedure getSubUnion_ULX_UXX; end procedure
     114           0 :     module procedure getSubUnion_ULX_XLX; end procedure
     115           0 :     module procedure getSubUnion_ULX_XXD; end procedure
     116           0 :     module procedure getSubUnion_ULX_UXD; end procedure
     117           0 :     module procedure getSubUnion_ULX_XLD; end procedure
     118           0 :     module procedure getSubUnion_ULX_ULX; end procedure
     119           0 :     module procedure getSubUnion_ULX_ULD; end procedure
     120             : 
     121           0 :     module procedure getSubUnion_ULD_XXX; end procedure
     122           0 :     module procedure getSubUnion_ULD_UXX; end procedure
     123           0 :     module procedure getSubUnion_ULD_XLX; end procedure
     124           0 :     module procedure getSubUnion_ULD_XXD; end procedure
     125           0 :     module procedure getSubUnion_ULD_UXD; end procedure
     126           0 :     module procedure getSubUnion_ULD_XLD; end procedure
     127           0 :     module procedure getSubUnion_ULD_ULX; end procedure
     128           0 :     module procedure getSubUnion_ULD_ULD; end procedure
     129             : 
     130             : !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
     131             : 
     132             : end submodule routines