linsolve_quick Subroutine

  1. mod_linalg.f90
  2. mod_linalg
  3. linsolve_quick

public subroutine linsolve_quick(n, a, nrhs, b, x)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: n
real(kind=wp), intent(in), dimension(n, n):: a
integer, intent(in) :: nrhs
real(kind=wp), intent(in), dimension(n, nrhs):: b
real(kind=wp), intent(out), dimension(n, nrhs):: x

Calls

proc~~linsolve_quick~~CallsGraph proc~linsolve_quick linsolve_quick proc~linsolve linsolve proc~linsolve_quick->proc~linsolve dgetrf dgetrf proc~linsolve->dgetrf dgetrs dgetrs proc~linsolve->dgetrs

Called by

proc~~linsolve_quick~~CalledByGraph proc~linsolve_quick linsolve_quick proc~getalpha1d getAlpha1D proc~getalpha1d->proc~linsolve_quick program~driver1d driver1D program~driver1d->proc~linsolve_quick proc~getalpha2d getAlpha2D proc~getalpha2d->proc~linsolve_quick

Contents

Source Code

linsolve_quick

Source Code

  subroutine linsolve_quick(n, a, nrhs, b, x)
    ! Quick wrapper around linsolve
    integer,  intent(in)                          :: n, nrhs
    real(wp), intent(in),     dimension(n, n)     :: a
    real(wp), intent(in),     dimension(n, nrhs)  :: b
    real(wp), intent(out),    dimension(n, nrhs)  :: x

    integer,                  dimension(n)        :: P
    real(wp),                 dimension(n, n)     :: LU

    call linsolve (n, a, nrhs, b, x, LU, P, .False.)
    return
  end subroutine linsolve_quick