dsparskit Module

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Functions

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

Arguments

Type	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	Attributes		Name
integer				::	n
real(kind=8)				::	x(n)
integer				::	perm(n)

public subroutine ivperm(n, ix, perm)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	n
integer				::	ix(n)
integer				::	perm(n)

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

Arguments

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

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

Arguments

Type	Intent	Optional	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	Intent	Optional	Attributes		Name
integer				::	n
integer				::	ja(*)
integer				::	ia(*)
integer				::	ind(*)
integer				::	idiag

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

Arguments

Type	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	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	Intent	Optional	Attributes		Name
integer				::	n
integer				::	riord(n)

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

Arguments

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