rotex__linalg Module

Linear algebra interfaces to LAPACK routines and other linear algebra stuff


Uses


Interfaces

interface

  • public subroutine zgesv(n, nrhs, a, lda, ipiv, b, ldb, info)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: n
    integer, intent(in) :: nrhs
    complex(kind=dp), intent(inout) :: a(lda,*)
    integer, intent(in) :: lda
    integer, intent(out) :: ipiv(*)
    complex(kind=dp), intent(inout) :: b(ldb,*)
    integer, intent(in) :: ldb
    integer, intent(out) :: info

interface

  • public subroutine dsyev(jobz, uplo, n, a, lda, w, work, lwork, info)

    Arguments

    Type IntentOptional Attributes Name
    character(len=1), intent(in) :: jobz
    character(len=1), intent(in) :: uplo
    integer, intent(in) :: n
    real(kind=dp), intent(inout) :: a(lda,n)
    integer, intent(in) :: lda
    real(kind=dp), intent(out) :: w(*)
    real(kind=dp), intent(out) :: work(*)
    integer, intent(in) :: lwork
    integer, intent(out) :: info

Functions

public function right_divide(A, B) result(X)

Returns X = AB⁻¹ without evaluating B⁻¹

Arguments

Type IntentOptional Attributes Name
complex(kind=dp), intent(in) :: A(:,:)
complex(kind=dp), intent(in) :: B(:,:)

Return Value complex(kind=dp), (size(A,1),size(A,2))