pm_lapack.F90

Go to the documentation of this file.

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!                                                                                                                            !!!!
!!!!    ParaMonte: Parallel Monte Carlo and Machine Learning Library.                                                           !!!!
!!!!                                                                                                                            !!!!
!!!!    Copyright (C) 2012-present, The Computational Data Science Lab                                                          !!!!
!!!!                                                                                                                            !!!!
!!!!    This file is part of the ParaMonte library.                                                                             !!!!
!!!!                                                                                                                            !!!!
!!!!    LICENSE                                                                                                                 !!!!
!!!!                                                                                                                            !!!!
!!!!       https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md                                                          !!!!
!!!!                                                                                                                            !!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
module pm_lapack
 
    use pm_kind, only: SK, IK, LK, RKS, RKD
 
    implicit none
 
    character(*, SK), parameter :: MODULE_NAME = "@pm_lapack"
 
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
    interface lapackGETRF
        pure subroutine zgetrf(m, n, a, lda, ipiv, info)
            use pm_kind , only: IK, TKG => CKD
            integer(IK) , intent(in) :: m, n, lda
            integer(IK) , intent(out) :: info, ipiv(*)
            complex(TKG), intent(inout) :: a
        end subroutine
        pure subroutine cgetrf(m, n, a, lda, ipiv, info)
            use pm_kind , only: IK, TKG => CKS
            integer(IK) , intent(in) :: m, n, lda
            integer(IK) , intent(out) :: info, ipiv(*)
            complex(TKG), intent(inout) :: a
        end subroutine
        pure subroutine dgetrf(m, n, a, lda, ipiv, info)
            use pm_kind , only: IK, TKG => RKD
            integer(IK) , intent(in) :: m, n, lda
            integer(IK) , intent(out) :: info, ipiv(*)
            real(TKG)   , intent(inout) :: a
        end subroutine
        pure subroutine sgetrf(m, n, a, lda, ipiv, info)
            use pm_kind , only: IK, TKG => RKS
            integer(IK) , intent(in) :: m, n, lda
            integer(IK) , intent(out) :: info, ipiv(*)
            real(TKG)   , intent(inout) :: a
        end subroutine
    end interface
 
!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
end module pm_lapack ! LCOV_EXCL_LINE