dvode_linpack_module Module

linpack support routines for dvode. these have been refactored into modern fortran.

References

  • j. j. dongarra, j. r. bunch, c. b. moler, and g. w. stewart, linpack users' guide, siam, 1979.

Uses

  • module~~dvode_linpack_module~~UsesGraph module~dvode_linpack_module dvode_linpack_module module~dvode_blas_module dvode_blas_module module~dvode_linpack_module->module~dvode_blas_module module~dvode_kinds_module dvode_kinds_module module~dvode_linpack_module->module~dvode_kinds_module module~dvode_blas_module->module~dvode_kinds_module iso_fortran_env iso_fortran_env module~dvode_kinds_module->iso_fortran_env

Used by

  • module~~dvode_linpack_module~~UsedByGraph module~dvode_linpack_module dvode_linpack_module module~dvode_module dvode_module module~dvode_module->module~dvode_linpack_module

Subroutines

public subroutine dgefa(a, lda, n, ipvt, info)

factor a matrix using gaussian elimination.

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(inout) :: a(lda,*) Read more…
integer, intent(in) :: lda

the leading dimension of the array a.
integer, intent(in) :: n

the order of the matrix a.
integer, intent(out) :: ipvt(*)

an integer vector of pivot indices.
integer, intent(out) :: info Read more…

public subroutine dgesl(a, lda, n, ipvt, b, job)

solve the real system a*x=b or trans(a)*x=b using the factors computed by dgeco or dgefa.

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: a(lda,*)

(lda, n) the output from dgeco or dgefa.
integer, intent(in) :: lda

the leading dimension of the array a.
integer, intent(in) :: n

the order of the matrix a.
integer, intent(in) :: ipvt(*)

the pivot vector from dgeco or dgefa.
real(kind=wp), intent(out) :: b(*)

the solution vector x.
integer, intent(in) :: job Read more…

public subroutine dgbfa(abd, lda, n, ml, mu, ipvt, info)

factor a band matrix using gaussian elimination.

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(inout) :: abd(lda,*) Read more…
integer, intent(in) :: lda

the leading dimension of the array abd . lda must be >= 2*ml + mu + 1 .
integer, intent(in) :: n

the order of the original matrix.
integer, intent(in) :: ml

number of diagonals below the main diagonal. 0 <= ml < n .
integer, intent(in) :: mu

number of diagonals above the main diagonal. 0 <= mu < n . more efficient if ml <= mu .
integer, intent(out) :: ipvt(*)

an integer vector of pivot indices.
integer, intent(out) :: info Read more…

public subroutine dgbsl(abd, lda, n, ml, mu, ipvt, b, job)

solve the real band system a*x=b or trans(a)*x=b using the factors computed by dgbco or dgbfa.

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: abd(lda,*)

the output from dgbco or dgbfa.
integer, intent(in) :: lda

the leading dimension of the array abd.
integer, intent(in) :: n

the order of the original matrix.
integer, intent(in) :: ml

number of diagonals below the main diagonal.
integer, intent(in) :: mu

number of diagonals above the main diagonal.
integer, intent(in) :: ipvt(*)

the pivot vector from dgbco or dgbfa.
real(kind=wp), intent(inout) :: b(*) Read more…
integer, intent(in) :: job Read more…