solve_system Function

public function solve_system(a, b) result(x)

Uses

Solve a linear sytem AX = b

Arguments

Type IntentOptional Attributes Name
real(kind=pr), intent(in) :: a(size(b),size(b))
real(kind=pr), intent(in) :: b(:)

Return Value real(kind=pr), (size(b))


Variables

Type Visibility Attributes Name Initial
real(kind=dp), public :: a_lapack(size(b),size(b))
real(kind=dp), public :: b_lapack(size(b))
integer, public, parameter :: dp = selected_real_kind(15)
integer, public :: info
integer, public :: ipiv(size(b))
integer, public :: lda
integer, public :: ldb
integer, public :: n
integer, public :: nrhs

Interfaces

interface

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

    Arguments

    Type IntentOptional Attributes Name
    integer :: n
    integer :: nrhs
    real(kind=dp) :: a(n,n)
    integer :: lda
    integer :: ipiv(n)
    real(kind=dp) :: b(n)
    integer :: ldb
    integer :: info