dsparskit Module


Used by

  • module~~dsparskit~~UsedByGraph module~dsparskit dsparskit proc~jac_ilupre jac_ilupre proc~jac_ilupre->module~dsparskit proc~psol_ilupre psol_ilupre proc~psol_ilupre->module~dsparskit

Functions

public function maskdeg(ja, ia, nod, mask, maskval)

Arguments

Type IntentOptional Attributes Name
integer :: ja(*)
integer :: ia(*)
integer :: nod
integer :: mask(*)
integer :: maskval

Return Value integer


Subroutines

public subroutine aplb(nrow, ncol, job, a, ja, ia, b, jb, ib, c, jc, ic, nzmax, iw, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: nrow
integer :: ncol
integer :: job
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(nrow+1)
real(kind=8) :: b(*)
integer :: jb(*)
integer :: ib(nrow+1)
real(kind=8) :: c(*)
integer :: jc(*)
integer :: ic(nrow+1)
integer :: nzmax
integer :: iw(ncol)
integer :: ierr

public subroutine aplb1(nrow, ncol, job, a, ja, ia, b, jb, ib, c, jc, ic, nzmax, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: nrow
integer :: ncol
integer :: job
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(nrow+1)
real(kind=8) :: b(*)
integer :: jb(*)
integer :: ib(nrow+1)
real(kind=8) :: c(*)
integer :: jc(*)
integer :: ic(nrow+1)
integer :: nzmax
integer :: ierr

public subroutine aplsb(nrow, ncol, a, ja, ia, s, b, jb, ib, c, jc, ic, nzmax, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: nrow
integer :: ncol
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(nrow+1)
real(kind=8) :: s
real(kind=8) :: b(*)
integer :: jb(*)
integer :: ib(nrow+1)
real(kind=8) :: c(*)
integer :: jc(*)
integer :: ic(nrow+1)
integer :: nzmax
integer :: ierr

public subroutine diamua(nrow, job, a, ja, ia, diag, b, jb, ib)

Arguments

Type IntentOptional Attributes Name
integer :: nrow
integer :: job
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(nrow+1)
real(kind=8) :: diag(nrow)
real(kind=8) :: b(*)
integer :: jb(*)
integer :: ib(nrow+1)

public subroutine amudia(nrow, job, a, ja, ia, diag, b, jb, ib)

Arguments

Type IntentOptional Attributes Name
integer :: nrow
integer :: job
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(nrow+1)
real(kind=8) :: diag(nrow)
real(kind=8) :: b(*)
integer :: jb(*)
integer :: ib(nrow+1)

public subroutine aplsca(nrow, a, ja, ia, scal, iw)

Arguments

Type IntentOptional Attributes Name
integer :: nrow
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(nrow+1)
real(kind=8) :: scal
integer :: iw(*)

public subroutine amux(n, x, y, a, ja, ia)

Arguments

Type IntentOptional Attributes Name
integer :: n
real(kind=8) :: x(*)
real(kind=8) :: y(*)
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(*)

public subroutine prtmt(nrow, ncol, a, ja, ia, rhs, guesol, title, key, type, ifmt, job, iounit)

Arguments

Type IntentOptional Attributes Name
integer :: nrow
integer :: ncol
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(*)
real(kind=8) :: rhs(*)
character(len=1) :: guesol*2
character(len=1) :: title*72
character(len=1) :: key*8
character(len=1) :: type*3
integer :: ifmt
integer :: job
integer :: iounit

public subroutine csrdns(nrow, ncol, a, ja, ia, dns, ndns, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: nrow
integer :: ncol
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(*)
real(kind=8) :: dns(ndns,*)
integer :: ndns
integer :: ierr

public subroutine coocsr(nrow, nnz, a, ir, jc, ao, jao, iao)

Arguments

Type IntentOptional Attributes Name
integer :: nrow
integer :: nnz
real(kind=8) :: a(*)
integer :: ir(*)
integer :: jc(*)
real(kind=8) :: ao(*)
integer :: jao(*)
integer :: iao(*)

public subroutine coicsr(n, nnz, job, a, ja, ia, iwk)

Arguments

Type IntentOptional Attributes Name
integer :: n
integer :: nnz
integer :: job
real(kind=8) :: a(*)
integer :: ja(nnz)
integer :: ia(nnz)
integer :: iwk(n+1)

public subroutine csrcoo(nrow, job, nzmax, a, ja, ia, nnz, ao, ir, jc, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: nrow
integer :: job
integer :: nzmax
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(nrow+1)
integer :: nnz
real(kind=8) :: ao(*)
integer :: ir(*)
integer :: jc(*)
integer :: ierr

public subroutine csrcsc(n, job, ipos, a, ja, ia, ao, jao, iao)

Arguments

Type IntentOptional Attributes Name
integer :: n
integer :: job
integer :: ipos
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(n+1)
real(kind=8) :: ao(*)
integer :: jao(*)
integer :: iao(n+1)

public subroutine csrcsc2(n, n2, job, ipos, a, ja, ia, ao, jao, iao)

Arguments

Type IntentOptional Attributes Name
integer :: n
integer :: n2
integer :: job
integer :: ipos
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(n+1)
real(kind=8) :: ao(*)
integer :: jao(*)
integer :: iao(n2+1)

public subroutine csrdia(n, idiag, job, a, ja, ia, ndiag, diag, ioff, ao, jao, iao, ind)

Arguments

Type IntentOptional Attributes Name
integer :: n
integer :: idiag
integer :: job
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(*)
integer :: ndiag
real(kind=8) :: diag(ndiag,idiag)
integer :: ioff(*)
real(kind=8) :: ao(*)
integer :: jao(*)
integer :: iao(*)
integer :: ind(*)

public subroutine csrbnd(n, a, ja, ia, job, abd, nabd, lowd, ml, mu, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: n
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(n+1)
integer :: job
real(kind=8) :: abd(nabd,n)
integer :: nabd
integer :: lowd
integer :: ml
integer :: mu
integer :: ierr

public subroutine rperm(nrow, a, ja, ia, ao, jao, iao, perm, job)

Arguments

Type IntentOptional Attributes Name
integer :: nrow
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(nrow+1)
real(kind=8) :: ao(*)
integer :: jao(*)
integer :: iao(nrow+1)
integer :: perm(nrow)
integer :: job

public subroutine cperm(nrow, a, ja, ia, ao, jao, iao, perm, job)

Arguments

Type IntentOptional Attributes Name
integer :: nrow
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(nrow+1)
real(kind=8) :: ao(*)
integer :: jao(*)
integer :: iao(nrow+1)
integer :: perm(*)
integer :: job

public subroutine dperm(nrow, a, ja, ia, ao, jao, iao, perm, qperm, job)

Arguments

Type IntentOptional Attributes Name
integer :: nrow
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(nrow+1)
real(kind=8) :: ao(*)
integer :: jao(*)
integer :: iao(nrow+1)
integer :: perm(nrow)
integer :: qperm(*)
integer :: job

public subroutine dvperm(n, x, perm)

Arguments

Type IntentOptional Attributes Name
integer :: n
real(kind=8) :: x(n)
integer :: perm(n)

public subroutine ivperm(n, ix, perm)

Arguments

Type IntentOptional Attributes Name
integer :: n
integer :: ix(n)
integer :: perm(n)

public subroutine diapos(n, ja, ia, idiag)

Arguments

Type IntentOptional Attributes Name
integer :: n
integer :: ja(*)
integer :: ia(n+1)
integer :: idiag(n)

public subroutine getbwd(n, a, ja, ia, ml, mu)

Arguments

Type IntentOptional Attributes Name
integer :: n
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(n+1)
integer :: ml
integer :: mu

public subroutine infdia(n, ja, ia, ind, idiag)

Arguments

Type IntentOptional Attributes Name
integer :: n
integer :: ja(*)
integer :: ia(*)
integer :: ind(*)
integer :: idiag

public subroutine rnrms(nrow, nrm, a, ja, ia, diag)

Arguments

Type IntentOptional Attributes Name
integer :: nrow
integer :: nrm
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(nrow+1)
real(kind=8) :: diag(nrow)

public subroutine roscal(nrow, job, nrm, a, ja, ia, diag, b, jb, ib, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: nrow
integer :: job
integer :: nrm
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(nrow+1)
real(kind=8) :: diag(nrow)
real(kind=8) :: b(*)
integer :: jb(*)
integer :: ib(nrow+1)
integer :: ierr

public subroutine ilut(n, a, ja, ia, lfil, droptol, alu, jlu, ju, iwk, w, jw, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: n
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(n+1)
integer :: lfil
real(kind=8) :: droptol
real(kind=8) :: alu(*)
integer :: jlu(*)
integer :: ju(n)
integer :: iwk
real(kind=8) :: w(n)
integer :: jw(2*n)
integer :: ierr

public subroutine ilutp(n, a, ja, ia, lfil, droptol, permtol, mbloc, alu, jlu, ju, iwk, w, jw, iperm, ierr)

Arguments

Type IntentOptional Attributes Name
integer :: n
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(n+1)
integer :: lfil
real(kind=8) :: droptol
real(kind=8) :: permtol
integer :: mbloc
real(kind=8) :: alu(*)
integer :: jlu(*)
integer :: ju(n)
integer :: iwk
real(kind=8) :: w(n)
integer :: jw(2*n)
integer :: iperm(2*n)
integer :: ierr

public subroutine qsplit(a, ind, n, ncut)

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: a(n)
integer :: ind(n)
integer :: n
integer :: ncut

public subroutine lusol(n, y, x, alu, jlu, ju)

Arguments

Type IntentOptional Attributes Name
integer :: n
real(kind=8) :: y(n)
real(kind=8) :: x(n)
real(kind=8) :: alu(*)inteern
real(kind=8) :: jlu(*)
real(kind=8) :: ju(*)

public subroutine dblstr(n, ja, ia, ip1, ip2, nfirst, riord, ndom, map, mapptr, mask, levels, iwk)

Arguments

Type IntentOptional Attributes Name
integer :: n
integer :: ja(*)
integer :: ia(*)
integer :: ip1
integer :: ip2
integer :: nfirst
integer :: riord(*)
integer :: ndom
integer :: map(*)
integer :: mapptr(*)
integer :: mask(*)
integer :: levels(*)
integer :: iwk(*)

public subroutine BFS(n, ja, ia, nfirst, iperm, mask, maskval, riord, levels, nlev)

Arguments

Type IntentOptional Attributes Name
integer :: n
integer :: ja(*)
integer :: ia(*)
integer :: nfirst
integer :: iperm(n)
integer :: mask(n)
integer :: maskval
integer :: riord(*)
integer :: levels(*)
integer :: nlev

public subroutine add_lvst(istart, iend, nlev, riord, ja, ia, mask, maskval)

Arguments

Type IntentOptional Attributes Name
integer :: istart
integer :: iend
integer :: nlev
integer :: riord(*)
integer :: ja(*)
integer :: ia(*)
integer :: mask(*)
integer :: maskval

public subroutine stripes(nlev, riord, levels, ip, map, mapptr, ndom)

Arguments

Type IntentOptional Attributes Name
integer :: nlev
integer :: riord(*)
integer :: levels(nlev+1)
integer :: ip
integer :: map(*)
integer :: mapptr(*)
integer :: ndom

public subroutine perphn(n, ja, ia, init, mask, maskval, nlev, riord, levels)

Arguments

Type IntentOptional Attributes Name
integer :: n
integer :: ja(*)
integer :: ia(*)
integer :: init
integer :: mask(*)
integer :: maskval
integer :: nlev
integer :: riord(*)
integer :: levels(*)

public subroutine rversp(n, riord)

Arguments

Type IntentOptional Attributes Name
integer :: n
integer :: riord(n)

public subroutine atob(n, a, ja, ia, b, jb, ib)

Arguments

Type IntentOptional Attributes Name
integer :: n
real(kind=8) :: a(*)
integer :: ja(*)
integer :: ia(n+1)
real(kind=8) :: b(*)
integer :: jb(*)
integer :: ib(n+1)