SF_SPECIAL – SciFortran

Uses

- SF_INTEGRATE
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.

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.

Interfaces

public interface step

private elemental function step_x(x, origin) result(step)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	x
logical,	intent(in),	optional		::	origin

Return Value real(kind=8)

private pure function step_ij(i, j, origin)

Arguments

Type	Intent	Optional		Name
integer,	intent(in)		::	i
integer,	intent(in)		::	j
logical,	intent(in),	optional	::	origin

Return Value real(kind=8)

public interface sgn

private elemental function i_sgn(x) result(sgn)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	x

Return Value integer

private elemental function d_sgn(x) result(sgn)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	x

Return Value real(kind=8)

Functions

public elemental function heaviside(x)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	x

Return Value real(kind=8)

public elemental function fermi(x, beta, limit)

Arguments

Type	Intent	Optional		Name
real(kind=8),	intent(in)		::	x
real(kind=8),	intent(in)		::	beta
real(kind=8),	intent(in),	optional	::	limit

Return Value real(kind=8)

public function wfun(z)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8)				::	z

Return Value complex(kind=8)

public elemental function zerf(z)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),	intent(in)			::	z

Return Value complex(kind=8)

public elemental function dens_bethe(x, d)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	x
real(kind=8),	intent(in),	optional		::	d

Return Value real(kind=8)

public elemental function gfbethe(w, zeta, d)

Arguments

Type	Intent		Name
real(kind=8),	intent(in)	::	w
complex(kind=8),	intent(in)	::	zeta
real(kind=8),	intent(in)	::	d

Return Value complex(kind=8)

public function gfbether(w, zeta, d)

Arguments

Type		Name
real(kind=8)	::	w
complex(kind=8)	::	zeta
real(kind=8)	::	d

Return Value complex(kind=8)

public pure function dens_hyperc(x, t1)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	x
real(kind=8),	intent(in),	optional		::	t1

Return Value real(kind=8)

public function dens_2dsquare(x, ts) result(dos)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	x
real(kind=8),	intent(in),	optional		::	ts

Return Value real(kind=8)

public function dens_3dcubic(x, ts) result(dos)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	x
real(kind=8),		optional		::	ts

Return Value real(kind=8)

public function envj(n, x)

************80

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	n
real(kind=8)				::	x

Return Value real(kind=8)

public function msta1(x, mp)

************80

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
integer(kind=4)				::	mp

Return Value integer(kind=4)

public function msta2(x, n, mp)

************80

Arguments

Type		Name
real(kind=8)	::	x
integer(kind=4)	::	n
integer(kind=4)	::	mp

Return Value integer(kind=4)

Subroutines

public subroutine bethe_lattice(dos, ome, Lk, D)

Arguments

Type	Optional		Name
real(kind=8)		::	dos(Lk)
real(kind=8)		::	ome(Lk)
integer		::	Lk
real(kind=8),	optional	::	D

public subroutine bethe_guess_g0(g0, d, beta, hloc)

Arguments

Type	Attributes		Name
complex(kind=8),	dimension(:)	::	g0
real(kind=8)		::	d
real(kind=8)		::	beta
real(kind=8)		::	hloc

public subroutine airya(x, ai, bi, ad, bd)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	ai
real(kind=8)	::	bi
real(kind=8)	::	ad
real(kind=8)	::	bd

public subroutine airyb(x, ai, bi, ad, bd)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	ai
real(kind=8)	::	bi
real(kind=8)	::	ad
real(kind=8)	::	bd

public subroutine airyzo(nt, kf, xa, xb, xc, xd)

************80

Arguments

Type		Name
integer(kind=4)	::	nt
integer(kind=4)	::	kf
real(kind=8)	::	xa(nt)
real(kind=8)	::	xb(nt)
real(kind=8)	::	xc(nt)
real(kind=8)	::	xd(nt)

public subroutine ajyik(x, vj1, vj2, vy1, vy2, vi1, vi2, vk1, vk2)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	vj1
real(kind=8)	::	vj2
real(kind=8)	::	vy1
real(kind=8)	::	vy2
real(kind=8)	::	vi1
real(kind=8)	::	vi2
real(kind=8)	::	vk1
real(kind=8)	::	vk2

public subroutine aswfa(m, n, c, x, kd, cv, s1f, s1d)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	c
real(kind=8)	::	x
integer(kind=4)	::	kd
real(kind=8)	::	cv
real(kind=8)	::	s1f
real(kind=8)	::	s1d

public subroutine aswfb(m, n, c, x, kd, cv, s1f, s1d)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	c
real(kind=8)	::	x
integer(kind=4)	::	kd
real(kind=8)	::	cv
real(kind=8)	::	s1f
real(kind=8)	::	s1d

public subroutine bernoa(n, bn)

************80

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	n
real(kind=8)				::	bn(0:n)

public subroutine bernob(n, bn)

************80

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	n
real(kind=8)				::	bn(0:n)

public subroutine betaf(p, q, bt)

************80

Arguments

Type		Name
real(kind=8)	::	p
real(kind=8)	::	q
real(kind=8)	::	bt

public subroutine bjndd(n, x, bj, dj, fj)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
real(kind=8)	::	bj(n+1)
real(kind=8)	::	dj(n+1)
real(kind=8)	::	fj(n+1)

public subroutine cbk(m, n, c, cv, qt, ck, bk)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	c
real(kind=8)	::	cv
real(kind=8)	::	qt
real(kind=8)	::	ck(200)
real(kind=8)	::	bk(200)

public subroutine cchg(a, b, z, chg)

************80

Arguments

Type		Name
real(kind=8)	::	a
real(kind=8)	::	b
complex(kind=8)	::	z
complex(kind=8)	::	chg

public subroutine cerf(z, cer, cder)

************80

Arguments

Type		Name
complex(kind=8)	::	z
complex(kind=8)	::	cer
complex(kind=8)	::	cder

public subroutine cerror(z, cer)

************80

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8)				::	z
complex(kind=8)				::	cer

public subroutine cerzo(nt, zo)

************80

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	nt
complex(kind=8)				::	zo(nt)

public subroutine cfc(z, zf, zd)

************80

Arguments

Type		Name
complex(kind=8)	::	z
complex(kind=8)	::	zf
complex(kind=8)	::	zd

public subroutine cfs(z, zf, zd)

************80

Arguments

Type		Name
complex(kind=8)	::	z
complex(kind=8)	::	zf
complex(kind=8)	::	zd

public subroutine cgama(x, y, kf, gr, gi)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	y
integer(kind=4)	::	kf
real(kind=8)	::	gr
real(kind=8)	::	gi

public subroutine ch12n(n, z, nm, chf1, chd1, chf2, chd2)

************80

Arguments

Type		Name
integer(kind=4)	::	n
complex(kind=8)	::	z
integer(kind=4)	::	nm
complex(kind=8)	::	chf1(0:n)
complex(kind=8)	::	chd1(0:n)
complex(kind=8)	::	chf2(0:n)
complex(kind=8)	::	chd2(0:n)

public subroutine chgm(a, b, x, hg)

************80

Arguments

Type		Name
real(kind=8)	::	a
real(kind=8)	::	b
real(kind=8)	::	x
real(kind=8)	::	hg

public subroutine chgu(a, b, x, hu, md)

************80

Arguments

Type		Name
real(kind=8)	::	a
real(kind=8)	::	b
real(kind=8)	::	x
real(kind=8)	::	hu
integer(kind=4)	::	md

public subroutine chgubi(a, b, x, hu, id)

************80

Arguments

Type		Name
real(kind=8)	::	a
real(kind=8)	::	b
real(kind=8)	::	x
real(kind=8)	::	hu
integer(kind=4)	::	id

public subroutine chguit(a, b, x, hu, id)

************80

Arguments

Type		Name
double precision	::	a
double precision	::	b
double precision	::	x
double precision	::	hu
integer	::	id

public subroutine chgul(a, b, x, hu, id)

************80

Arguments

Type		Name
real(kind=8)	::	a
real(kind=8)	::	b
real(kind=8)	::	x
real(kind=8)	::	hu
integer(kind=4)	::	id

public subroutine chgus(a, b, x, hu, id)

************80

Arguments

Type		Name
real(kind=8)	::	a
real(kind=8)	::	b
real(kind=8)	::	x
real(kind=8)	::	hu
integer(kind=4)	::	id

public subroutine cik01(z, cbi0, cdi0, cbi1, cdi1, cbk0, cdk0, cbk1, cdk1)

************80

Arguments

Type		Name
complex(kind=8)	::	z
complex(kind=8)	::	cbi0
complex(kind=8)	::	cdi0
complex(kind=8)	::	cbi1
complex(kind=8)	::	cdi1
complex(kind=8)	::	cbk0
complex(kind=8)	::	cdk0
complex(kind=8)	::	cbk1
complex(kind=8)	::	cdk1

public subroutine ciklv(v, z, cbiv, cdiv, cbkv, cdkv)

************80

Arguments

Type		Name
real(kind=8)	::	v
complex(kind=8)	::	z
complex(kind=8)	::	cbiv
complex(kind=8)	::	cdiv
complex(kind=8)	::	cbkv
complex(kind=8)	::	cdkv

public subroutine cikna(n, z, nm, cbi, cdi, cbk, cdk)

************80

Arguments

Type		Name
integer(kind=4)	::	n
complex(kind=8)	::	z
integer(kind=4)	::	nm
complex(kind=8)	::	cbi(0:n)
complex(kind=8)	::	cdi(0:n)
complex(kind=8)	::	cbk(0:n)
complex(kind=8)	::	cdk(0:n)

public subroutine ciknb(n, z, nm, cbi, cdi, cbk, cdk)

************80

Arguments

Type		Name
integer(kind=4)	::	n
complex(kind=8)	::	z
integer(kind=4)	::	nm
complex(kind=8)	::	cbi(0:n)
complex(kind=8)	::	cdi(0:n)
complex(kind=8)	::	cbk(0:n)
complex(kind=8)	::	cdk(0:n)

public subroutine cikva(v, z, vm, cbi, cdi, cbk, cdk)

************80

Arguments

Type		Name
real(kind=8)	::	v
complex(kind=8)	::	z
real(kind=8)	::	vm
complex(kind=8)	::	cbi(0:*)
complex(kind=8)	::	cdi(0:*)
complex(kind=8)	::	cbk(0:*)
complex(kind=8)	::	cdk(0:*)

public subroutine cikvb(v, z, vm, cbi, cdi, cbk, cdk)

************80

Arguments

Type		Name
real(kind=8)	::	v
complex(kind=8)	::	z
real(kind=8)	::	vm
complex(kind=8)	::	cbi(0:*)
complex(kind=8)	::	cdi(0:*)
complex(kind=8)	::	cbk(0:*)
complex(kind=8)	::	cdk(0:*)

public subroutine cisia(x, ci, si)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	ci
real(kind=8)	::	si

public subroutine cisib(x, ci, si)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	ci
real(kind=8)	::	si

public subroutine cjk(km, a)

************80

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	km
real(kind=8)				::	a(*)

public subroutine cjy01(z, cbj0, cdj0, cbj1, cdj1, cby0, cdy0, cby1, cdy1)

************80

Arguments

Type		Name
complex(kind=8)	::	z
complex(kind=8)	::	cbj0
complex(kind=8)	::	cdj0
complex(kind=8)	::	cbj1
complex(kind=8)	::	cdj1
complex(kind=8)	::	cby0
complex(kind=8)	::	cdy0
complex(kind=8)	::	cby1
complex(kind=8)	::	cdy1

public subroutine cjylv(v, z, cbjv, cdjv, cbyv, cdyv)

************80

Arguments

Type		Name
real(kind=8)	::	v
complex(kind=8)	::	z
complex(kind=8)	::	cbjv
complex(kind=8)	::	cdjv
complex(kind=8)	::	cbyv
complex(kind=8)	::	cdyv

public subroutine cjyna(n, z, nm, cbj, cdj, cby, cdy)

************80

Arguments

Type		Name
integer(kind=4)	::	n
complex(kind=8)	::	z
integer(kind=4)	::	nm
complex(kind=8)	::	cbj(0:n)
complex(kind=8)	::	cdj(0:n)
complex(kind=8)	::	cby(0:n)
complex(kind=8)	::	cdy(0:n)

public subroutine cjynb(n, z, nm, cbj, cdj, cby, cdy)

************80

Arguments

Type		Name
integer(kind=4)	::	n
complex(kind=8)	::	z
integer(kind=4)	::	nm
complex(kind=8)	::	cbj(0:n)
complex(kind=8)	::	cdj(0:n)
complex(kind=8)	::	cby(0:n)
complex(kind=8)	::	cdy(0:n)

public subroutine cjyva(v, z, vm, cbj, cdj, cby, cdy)

************80

Arguments

Type		Name
real(kind=8)	::	v
complex(kind=8)	::	z
real(kind=8)	::	vm
complex(kind=8)	::	cbj(0:*)
complex(kind=8)	::	cdj(0:*)
complex(kind=8)	::	cby(0:*)
complex(kind=8)	::	cdy(0:*)

public subroutine cjyvb(v, z, vm, cbj, cdj, cby, cdy)

************80

Arguments

Type		Name
real(kind=8)	::	v
complex(kind=8)	::	z
real(kind=8)	::	vm
complex(kind=8)	::	cbj(0:*)
complex(kind=8)	::	cdj(0:*)
complex(kind=8)	::	cby(0:*)
complex(kind=8)	::	cdy(0:*)

public subroutine clpmn(mm, m, n, x, y, cpm, cpd)

************80

Arguments

Type		Name
integer(kind=4)	::	mm
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	x
real(kind=8)	::	y
complex(kind=8)	::	cpm(0:mm,0:n)
complex(kind=8)	::	cpd(0:mm,0:n)

public subroutine clpn(n, x, y, cpn, cpd)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
real(kind=8)	::	y
complex(kind=8)	::	cpn(0:n)
complex(kind=8)	::	cpd(0:n)

public subroutine clqmn(mm, m, n, x, y, cqm, cqd)

************80

Arguments

Type		Name
integer(kind=4)	::	mm
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	x
real(kind=8)	::	y
complex(kind=8)	::	cqm(0:mm,0:n)
complex(kind=8)	::	cqd(0:mm,0:n)

public subroutine clqn(n, x, y, cqn, cqd)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
real(kind=8)	::	y
complex(kind=8)	::	cqn(0:n)
complex(kind=8)	::	cqd(0:n)

public subroutine comelp(hk, ck, ce)

************80

Arguments

Type		Name
real(kind=8)	::	hk
real(kind=8)	::	ck
real(kind=8)	::	ce

public subroutine cpbdn(n, z, cpb, cpd)

************80

Arguments

Type		Name
integer(kind=4)	::	n
complex(kind=8)	::	z
complex(kind=8)	::	cpb(0:n)
complex(kind=8)	::	cpd(0:n)

public subroutine cpdla(n, z, cdn)

***********80

Arguments

Type		Name
integer(kind=4)	::	n
complex(kind=8)	::	z
complex(kind=8)	::	cdn

public subroutine cpdsa(n, z, cdn)

************80

Arguments

Type		Name
integer(kind=4)	::	n
complex(kind=8)	::	z
complex(kind=8)	::	cdn

public subroutine cpsi(x, y, psr, psi)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	y
real(kind=8)	::	psr
real(kind=8)	::	psi

public subroutine csphik(n, z, nm, csi, cdi, csk, cdk)

************80

Arguments

Type		Name
integer(kind=4)	::	n
complex(kind=8)	::	z
integer(kind=4)	::	nm
complex(kind=8)	::	csi(0:n)
complex(kind=8)	::	cdi(0:n)
complex(kind=8)	::	csk(0:n)
complex(kind=8)	::	cdk(0:n)

public subroutine csphjy(n, z, nm, csj, cdj, csy, cdy)

************80

Arguments

Type		Name
integer(kind=4)	::	n
complex(kind=8)	::	z
integer(kind=4)	::	nm
complex(kind=8)	::	csj(0:n)
complex(kind=8)	::	cdj(0:n)
complex(kind=8)	::	csy(0:n)
complex(kind=8)	::	cdy(0:n)

public subroutine cv0(kd, m, q, a0)

************80

Arguments

Type		Name
integer(kind=4)	::	kd
integer(kind=4)	::	m
real(kind=8)	::	q
real(kind=8)	::	a0

public subroutine cva1(kd, m, q, cv)

************80

Arguments

Type		Name
integer(kind=4)	::	kd
integer(kind=4)	::	m
real(kind=8)	::	q
real(kind=8)	::	cv(200)

public subroutine cva2(kd, m, q, a)

************80

Arguments

Type		Name
integer(kind=4)	::	kd
integer(kind=4)	::	m
real(kind=8)	::	q
real(kind=8)	::	a

public subroutine cvf(kd, m, q, a, mj, f)

************80

Arguments

Type		Name
integer(kind=4)	::	kd
integer(kind=4)	::	m
real(kind=8)	::	q
real(kind=8)	::	a
integer(kind=4)	::	mj
real(kind=8)	::	f

public subroutine cvql(kd, m, q, a0)

************80

Arguments

Type		Name
integer(kind=4)	::	kd
integer(kind=4)	::	m
real(kind=8)	::	q
real(kind=8)	::	a0

public subroutine cvqm(m, q, a0)

************80

Arguments

Type		Name
integer(kind=4)	::	m
real(kind=8)	::	q
real(kind=8)	::	a0

public subroutine cy01(kf, z, zf, zd)

************80

Arguments

Type		Name
integer(kind=4)	::	kf
complex(kind=8)	::	z
complex(kind=8)	::	zf
complex(kind=8)	::	zd

public subroutine cyzo(nt, kf, kc, zo, zv)

************80

Arguments

Type		Name
integer(kind=4)	::	nt
integer(kind=4)	::	kf
integer(kind=4)	::	kc
complex(kind=8)	::	zo(nt)
complex(kind=8)	::	zv(nt)

public subroutine dvla(va, x, pd)

************80

Arguments

Type		Name
real(kind=8)	::	va
real(kind=8)	::	x
real(kind=8)	::	pd

public subroutine dvsa(va, x, pd)

************80

Arguments

Type		Name
real(kind=8)	::	va
real(kind=8)	::	x
real(kind=8)	::	pd

public subroutine e1xa(x, e1)

************80

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
real(kind=8)				::	e1

public subroutine e1xb(x, e1)

************80

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
real(kind=8)				::	e1

public subroutine e1z(z, ce1)

************80

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8)				::	z
complex(kind=8)				::	ce1

public subroutine eix(x, ei)

************80

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
real(kind=8)				::	ei

public subroutine elit(hk, phi, fe, ee)

************80

Arguments

Type		Name
real(kind=8)	::	hk
real(kind=8)	::	phi
real(kind=8)	::	fe
real(kind=8)	::	ee

public subroutine elit3(phi, hk, c, el3)

************80

Arguments

Type		Name
real(kind=8)	::	phi
real(kind=8)	::	hk
real(kind=8)	::	c
real(kind=8)	::	el3

public subroutine enxa(n, x, en)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
real(kind=8)	::	en(0:n)

public subroutine enxb(n, x, en)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
real(kind=8)	::	en(0:n)

public subroutine werror(x, err)

************80

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
real(kind=8)				::	err

public subroutine eulera(n, en)

************80

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	n
real(kind=8)				::	en(0:n)

public subroutine eulerb(n, en)

************80

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	n
real(kind=8)				::	en(0:n)

public subroutine fcoef(kd, m, q, a, fc)

************80

Arguments

Type		Name
integer(kind=4)	::	kd
integer(kind=4)	::	m
real(kind=8)	::	q
real(kind=8)	::	a
real(kind=8)	::	fc(251)

public subroutine fcs(x, c, s)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	c
real(kind=8)	::	s

public subroutine fcszo(kf, nt, zo)

************80

Arguments

Type		Name
integer(kind=4)	::	kf
integer(kind=4)	::	nt
complex(kind=8)	::	zo(nt)

public subroutine ffk(ks, x, fr, fi, fm, fa, gr, gi, gm, ga)

************80

Arguments

Type		Name
integer(kind=4)	::	ks
real(kind=8)	::	x
real(kind=8)	::	fr
real(kind=8)	::	fi
real(kind=8)	::	fm
real(kind=8)	::	fa
real(kind=8)	::	gr
real(kind=8)	::	gi
real(kind=8)	::	gm
real(kind=8)	::	ga

public subroutine gaih(x, ga)

************80

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
real(kind=8)				::	ga

public subroutine gam0(x, ga)

************80

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
real(kind=8)				::	ga

public subroutine gammaf(x, ga)

************80

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
real(kind=8)				::	ga

public subroutine gmn(m, n, c, x, bk, gf, gd)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	c
real(kind=8)	::	x
real(kind=8)	::	bk(200)
real(kind=8)	::	gf
real(kind=8)	::	gd

public subroutine herzo(n, x, w)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x(n)
real(kind=8)	::	w(n)

public subroutine hygfx(a, b, c, x, hf)

************80

Arguments

Type		Name
real(kind=8)	::	a
real(kind=8)	::	b
real(kind=8)	::	c
real(kind=8)	::	x
real(kind=8)	::	hf

public subroutine hygfz(a, b, c, z, zhf)

************80

Arguments

Type		Name
real(kind=8)	::	a
real(kind=8)	::	b
real(kind=8)	::	c
complex(kind=8)	::	z
complex(kind=8)	::	zhf

public subroutine ik01a(x, bi0, di0, bi1, di1, bk0, dk0, bk1, dk1)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	bi0
real(kind=8)	::	di0
real(kind=8)	::	bi1
real(kind=8)	::	di1
real(kind=8)	::	bk0
real(kind=8)	::	dk0
real(kind=8)	::	bk1
real(kind=8)	::	dk1

public subroutine ik01b(x, bi0, di0, bi1, di1, bk0, dk0, bk1, dk1)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	bi0
real(kind=8)	::	di0
real(kind=8)	::	bi1
real(kind=8)	::	di1
real(kind=8)	::	bk0
real(kind=8)	::	dk0
real(kind=8)	::	bk1
real(kind=8)	::	dk1

public subroutine ikna(n, x, nm, bi, di, bk, dk)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
integer(kind=4)	::	nm
real(kind=8)	::	bi(0:n)
real(kind=8)	::	di(0:n)
real(kind=8)	::	bk(0:n)
real(kind=8)	::	dk(0:n)

public subroutine iknb(n, x, nm, bi, di, bk, dk)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
integer(kind=4)	::	nm
real(kind=8)	::	bi(0:n)
real(kind=8)	::	di(0:n)
real(kind=8)	::	bk(0:n)
real(kind=8)	::	dk(0:n)

public subroutine ikv(v, x, vm, bi, di, bk, dk)

************80

Arguments

Type		Name
real(kind=8)	::	v
real(kind=8)	::	x
real(kind=8)	::	vm
real(kind=8)	::	bi(0:*)
real(kind=8)	::	di(0:*)
real(kind=8)	::	bk(0:*)
real(kind=8)	::	dk(0:*)

public subroutine incob(a, b, x, bix)

************80

Arguments

Type		Name
real(kind=8)	::	a
real(kind=8)	::	b
real(kind=8)	::	x
real(kind=8)	::	bix

public subroutine incog(a, x, gin, gim, gip)

************80

Arguments

Type		Name
real(kind=8)	::	a
real(kind=8)	::	x
real(kind=8)	::	gin
real(kind=8)	::	gim
real(kind=8)	::	gip

public subroutine itairy(x, apt, bpt, ant, bnt)

***********80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	apt
real(kind=8)	::	bpt
real(kind=8)	::	ant
real(kind=8)	::	bnt

public subroutine itika(x, ti, tk)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	ti
real(kind=8)	::	tk

public subroutine itikb(x, ti, tk)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	ti
real(kind=8)	::	tk

public subroutine itjya(x, tj, ty)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	tj
real(kind=8)	::	ty

public subroutine itjyb(x, tj, ty)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	tj
real(kind=8)	::	ty

public subroutine itsh0(x, th0)

************80

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
real(kind=8)				::	th0

public subroutine itsl0(x, tl0)

************80

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
real(kind=8)				::	tl0

public subroutine itth0(x, tth)

************80

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
real(kind=8)				::	tth

public subroutine ittika(x, tti, ttk)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	tti
real(kind=8)	::	ttk

public subroutine ittikb(x, tti, ttk)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	tti
real(kind=8)	::	ttk

public subroutine ittjya(x, ttj, tty)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	ttj
real(kind=8)	::	tty

public subroutine ittjyb(x, ttj, tty)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	ttj
real(kind=8)	::	tty

public subroutine jdzo(nt, n, m, p, zo)

************80

Arguments

Type		Name
integer(kind=4)	::	nt
integer(kind=4)	::	n(1400)
integer(kind=4)	::	m(1400)
character(len=4)	::	p(1400)
real(kind=8)	::	zo(1400)

public subroutine jelp(u, hk, esn, ecn, edn, eph)

************80

Arguments

Type		Name
real(kind=8)	::	u
real(kind=8)	::	hk
real(kind=8)	::	esn
real(kind=8)	::	ecn
real(kind=8)	::	edn
real(kind=8)	::	eph

public subroutine jy01a(x, bj0, dj0, bj1, dj1, by0, dy0, by1, dy1)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	bj0
real(kind=8)	::	dj0
real(kind=8)	::	bj1
real(kind=8)	::	dj1
real(kind=8)	::	by0
real(kind=8)	::	dy0
real(kind=8)	::	by1
real(kind=8)	::	dy1

public subroutine jy01b(x, bj0, dj0, bj1, dj1, by0, dy0, by1, dy1)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	bj0
real(kind=8)	::	dj0
real(kind=8)	::	bj1
real(kind=8)	::	dj1
real(kind=8)	::	by0
real(kind=8)	::	dy0
real(kind=8)	::	by1
real(kind=8)	::	dy1

public subroutine jyna(n, x, nm, bj, dj, by, dy)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
integer(kind=4)	::	nm
real(kind=8)	::	bj(0:n)
real(kind=8)	::	dj(0:n)
real(kind=8)	::	by(0:n)
real(kind=8)	::	dy(0:n)

public subroutine jynb(n, x, nm, bj, dj, by, dy)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
integer(kind=4)	::	nm
real(kind=8)	::	bj(0:n)
real(kind=8)	::	dj(0:n)
real(kind=8)	::	by(0:n)
real(kind=8)	::	dy(0:n)

public subroutine jyndd(n, x, bjn, djn, fjn, byn, dyn, fyn)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
real(kind=8)	::	bjn
real(kind=8)	::	djn
real(kind=8)	::	fjn
real(kind=8)	::	byn
real(kind=8)	::	dyn
real(kind=8)	::	fyn

public subroutine jyv(v, x, vm, bj, dj, by, dy)

************80

Arguments

Type		Name
real(kind=8)	::	v
real(kind=8)	::	x
real(kind=8)	::	vm
real(kind=8)	::	bj(0:*)
real(kind=8)	::	dj(0:*)
real(kind=8)	::	by(0:*)
real(kind=8)	::	dy(0:*)

public subroutine jyzo(n, nt, rj0, rj1, ry0, ry1)

************80

Arguments

Type		Name
integer(kind=4)	::	n
integer(kind=4)	::	nt
real(kind=8)	::	rj0(nt)
real(kind=8)	::	rj1(nt)
real(kind=8)	::	ry0(nt)
real(kind=8)	::	ry1(nt)

public subroutine klvna(x, ber, bei, ger, gei, der, dei, her, hei)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	ber
real(kind=8)	::	bei
real(kind=8)	::	ger
real(kind=8)	::	gei
real(kind=8)	::	der
real(kind=8)	::	dei
real(kind=8)	::	her
real(kind=8)	::	hei

public subroutine klvnb(x, ber, bei, ger, gei, der, dei, her, hei)

************80

Arguments

Type		Name
real(kind=8)	::	x
real(kind=8)	::	ber
real(kind=8)	::	bei
real(kind=8)	::	ger
real(kind=8)	::	gei
real(kind=8)	::	der
real(kind=8)	::	dei
real(kind=8)	::	her
real(kind=8)	::	hei

public subroutine klvnzo(nt, kd, zo)

************80

Arguments

Type		Name
integer(kind=4)	::	nt
integer(kind=4)	::	kd
real(kind=8)	::	zo(nt)

public subroutine kmn(m, n, c, cv, kd, df, dn, ck1, ck2)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	c
real(kind=8)	::	cv
integer(kind=4)	::	kd
real(kind=8)	::	df(200)
real(kind=8)	::	dn(200)
real(kind=8)	::	ck1
real(kind=8)	::	ck2

public subroutine lagzo(n, x, w)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x(n)
real(kind=8)	::	w(n)

public subroutine lamn(n, x, nm, bl, dl)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
integer(kind=4)	::	nm
real(kind=8)	::	bl(0:n)
real(kind=8)	::	dl(0:n)

public subroutine lamv(v, x, vm, vl, dl)

************80

Arguments

Type		Name
real(kind=8)	::	v
real(kind=8)	::	x
real(kind=8)	::	vm
real(kind=8)	::	vl(0:int(v))
real(kind=8)	::	dl(0:int(v))

public subroutine legzo(n, x, w)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x(n)
real(kind=8)	::	w(n)

public subroutine lgama(kf, x, gl)

************80

Arguments

Type		Name
integer(kind=4)	::	kf
real(kind=8)	::	x
real(kind=8)	::	gl

public subroutine lpmn(mm, m, n, x, pm, pd)

************80

Arguments

Type		Name
integer(kind=4)	::	mm
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	x
real(kind=8)	::	pm(0:mm,0:n)
real(kind=8)	::	pd(0:mm,0:n)

public subroutine lpmns(m, n, x, pm, pd)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	x
real(kind=8)	::	pm(0:n)
real(kind=8)	::	pd(0:n)

public subroutine lpmv(v, m, x, pmv)

************80

Arguments

Type		Name
real(kind=8)	::	v
integer(kind=4)	::	m
real(kind=8)	::	x
real(kind=8)	::	pmv

public subroutine lpn(n, x, pn, pd)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
real(kind=8)	::	pn(0:n)
real(kind=8)	::	pd(0:n)

public subroutine lpni(n, x, pn, pd, pl)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
real(kind=8)	::	pn(0:n)
real(kind=8)	::	pd(0:n)
real(kind=8)	::	pl(0:n)

public subroutine lqmn(mm, m, n, x, qm, qd)

************80

Arguments

Type		Name
integer(kind=4)	::	mm
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	x
real(kind=8)	::	qm(0:mm,0:n)
real(kind=8)	::	qd(0:mm,0:n)

public subroutine lqmns(m, n, x, qm, qd)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	x
real(kind=8)	::	qm(0:n)
real(kind=8)	::	qd(0:n)

public subroutine lqna(n, x, qn, qd)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
real(kind=8)	::	qn(0:n)
real(kind=8)	::	qd(0:n)

public subroutine lqnb(n, x, qn, qd)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
real(kind=8)	::	qn(0:n)
real(kind=8)	::	qd(0:n)

public subroutine mtu0(kf, m, q, x, csf, csd)

************80

Arguments

Type		Name
integer(kind=4)	::	kf
integer(kind=4)	::	m
real(kind=8)	::	q
real(kind=8)	::	x
real(kind=8)	::	csf
real(kind=8)	::	csd

public subroutine mtu12(kf, kc, m, q, x, f1r, d1r, f2r, d2r)

************80

Arguments

Type		Name
integer(kind=4)	::	kf
integer(kind=4)	::	kc
integer(kind=4)	::	m
real(kind=8)	::	q
real(kind=8)	::	x
real(kind=8)	::	f1r
real(kind=8)	::	d1r
real(kind=8)	::	f2r
real(kind=8)	::	d2r

public subroutine othpl(kf, n, x, pl, dpl)

************80

Arguments

Type		Name
integer(kind=4)	::	kf
integer	::	n
real(kind=8)	::	x
real(kind=8)	::	pl(0:n)
real(kind=8)	::	dpl(0:n)

public subroutine pbdv(v, x, dv, dp, pdf, pdd)

************80

Arguments

Type		Name
real(kind=8)	::	v
real(kind=8)	::	x
real(kind=8)	::	dv(0:*)
real(kind=8)	::	dp(0:*)
real(kind=8)	::	pdf
real(kind=8)	::	pdd

public subroutine pbvv(v, x, vv, vp, pvf, pvd)

************80

Arguments

Type		Name
real(kind=8)	::	v
real(kind=8)	::	x
real(kind=8)	::	vv(0:*)
real(kind=8)	::	vp(0:*)
real(kind=8)	::	pvf
real(kind=8)	::	pvd

public subroutine pbwa(a, x, w1f, w1d, w2f, w2d)

************80

Arguments

Type		Name
real(kind=8)	::	a
real(kind=8)	::	x
real(kind=8)	::	w1f
real(kind=8)	::	w1d
real(kind=8)	::	w2f
real(kind=8)	::	w2d

public subroutine psi(x, ps)

************80

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
real(kind=8)				::	ps

public subroutine qstar(m, n, c, ck, ck1, qs, qt)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	c
real(kind=8)	::	ck(200)
real(kind=8)	::	ck1
real(kind=8)	::	qs
real(kind=8)	::	qt

public subroutine rctj(n, x, nm, rj, dj)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
integer(kind=4)	::	nm
real(kind=8)	::	rj(0:n)
real(kind=8)	::	dj(0:n)

public subroutine rcty(n, x, nm, ry, dy)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
integer(kind=4)	::	nm
real(kind=8)	::	ry(0:n)
real(kind=8)	::	dy(0:n)

public subroutine refine(kd, m, q, a, iflag)

************80

Arguments

Type		Name
integer(kind=4)	::	kd
integer(kind=4)	::	m
real(kind=8)	::	q
real(kind=8)	::	a
integer(kind=4)	::	iflag

public subroutine rmn1(m, n, c, x, df, kd, r1f, r1d)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	c
real(kind=8)	::	x
real(kind=8)	::	df(200)
integer(kind=4)	::	kd
real(kind=8)	::	r1f
real(kind=8)	::	r1d

public subroutine rmn2l(m, n, c, x, df, kd, r2f, r2d, id)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	c
real(kind=8)	::	x
real(kind=8)	::	df(200)
integer(kind=4)	::	kd
real(kind=8)	::	r2f
real(kind=8)	::	r2d
integer(kind=4)	::	id

public subroutine rmn2so(m, n, c, x, cv, df, kd, r2f, r2d)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	c
real(kind=8)	::	x
real(kind=8)	::	cv
real(kind=8)	::	df(200)
integer(kind=4)	::	kd
real(kind=8)	::	r2f
real(kind=8)	::	r2d

public subroutine rmn2sp(m, n, c, x, cv, df, kd, r2f, r2d)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	c
real(kind=8)	::	x
real(kind=8)	::	cv
real(kind=8)	::	df(200)
integer(kind=4)	::	kd
real(kind=8)	::	r2f
real(kind=8)	::	r2d

public subroutine rswfo(m, n, c, x, cv, kf, r1f, r1d, r2f, r2d)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	c
real(kind=8)	::	x
real(kind=8)	::	cv
integer(kind=4)	::	kf
real(kind=8)	::	r1f
real(kind=8)	::	r1d
real(kind=8)	::	r2f
real(kind=8)	::	r2d

public subroutine rswfp(m, n, c, x, cv, kf, r1f, r1d, r2f, r2d)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	c
real(kind=8)	::	x
real(kind=8)	::	cv
integer(kind=4)	::	kf
real(kind=8)	::	r1f
real(kind=8)	::	r1d
real(kind=8)	::	r2f
real(kind=8)	::	r2d

public subroutine scka(m, n, c, cv, kd, ck)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	c
real(kind=8)	::	cv
integer(kind=4)	::	kd
real(kind=8)	::	ck(200)

public subroutine sckb(m, n, c, df, ck)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	c
real(kind=8)	::	df(200)
real(kind=8)	::	ck(200)

public subroutine sdmn(m, n, c, cv, kd, df)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	c
real(kind=8)	::	cv
integer(kind=4)	::	kd
real(kind=8)	::	df(200)

public subroutine segv(m, n, c, kd, cv, eg)

************80

Arguments

Type		Name
integer(kind=4)	::	m
integer(kind=4)	::	n
real(kind=8)	::	c
integer(kind=4)	::	kd
real(kind=8)	::	cv
real(kind=8)	::	eg(200)

public subroutine sphi(n, x, nm, si, di)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
integer(kind=4)	::	nm
real(kind=8)	::	si(0:n)
real(kind=8)	::	di(0:n)

public subroutine sphj(n, x, nm, sj, dj)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
integer(kind=4)	::	nm
real(kind=8)	::	sj(0:n)
real(kind=8)	::	dj(0:n)

public subroutine sphk(n, x, nm, sk, dk)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
integer(kind=4)	::	nm
real(kind=8)	::	sk(0:n)
real(kind=8)	::	dk(0:n)

public subroutine sphy(n, x, nm, sy, dy)

************80

Arguments

Type		Name
integer(kind=4)	::	n
real(kind=8)	::	x
integer(kind=4)	::	nm
real(kind=8)	::	sy(0:n)
real(kind=8)	::	dy(0:n)

public subroutine stvh0(x, sh0)

************80

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
real(kind=8)				::	sh0

public subroutine stvh1(x, sh1)

************80

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
real(kind=8)				::	sh1

public subroutine stvhv(v, x, hv)

************80

Arguments

Type		Name
real(kind=8)	::	v
real(kind=8)	::	x
real(kind=8)	::	hv

public subroutine stvl0(x, sl0)

************80

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
real(kind=8)				::	sl0

public subroutine stvl1(x, sl1)

************80

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8)				::	x
real(kind=8)				::	sl1

public subroutine stvlv(v, x, slv)

************80

Arguments

Type		Name
real(kind=8)	::	v
real(kind=8)	::	x
real(kind=8)	::	slv

public subroutine vvla(va, x, pv)

************80

Arguments

Type		Name
real(kind=8)	::	va
real(kind=8)	::	x
real(kind=8)	::	pv

public subroutine vvsa(va, x, pv)

************80

Arguments

Type		Name
real(kind=8)	::	va
real(kind=8)	::	x
real(kind=8)	::	pv

SF_SPECIAL Module

Contents

Interfaces

Functions

Subroutines

Uses

Used by

Interfaces

public interface step

private elemental function step_x(x, origin) result(step)

Arguments

Return Value real(kind=8)

private pure function step_ij(i, j, origin)

Arguments

Return Value real(kind=8)

public interface sgn

private elemental function i_sgn(x) result(sgn)

Arguments

Return Value integer

private elemental function d_sgn(x) result(sgn)

Arguments

Return Value real(kind=8)

Functions

public elemental function heaviside(x)

Arguments

Return Value real(kind=8)

public elemental function fermi(x, beta, limit)

Arguments

Return Value real(kind=8)

public function wfun(z)

Arguments

Return Value complex(kind=8)

public elemental function zerf(z)

Arguments

Return Value complex(kind=8)

public elemental function dens_bethe(x, d)

Arguments

Return Value real(kind=8)

public elemental function gfbethe(w, zeta, d)

Arguments

Return Value complex(kind=8)

public function gfbether(w, zeta, d)

Arguments

Return Value complex(kind=8)

public pure function dens_hyperc(x, t1)

Arguments

Return Value real(kind=8)

public function dens_2dsquare(x, ts) result(dos)

Arguments

Return Value real(kind=8)

public function dens_3dcubic(x, ts) result(dos)

Arguments

Return Value real(kind=8)

public function envj(n, x)

Arguments

Return Value real(kind=8)

public function msta1(x, mp)

Arguments

Return Value integer(kind=4)

public function msta2(x, n, mp)

Arguments

Return Value integer(kind=4)

Subroutines

public subroutine bethe_lattice(dos, ome, Lk, D)

Arguments

public subroutine bethe_guess_g0(g0, d, beta, hloc)

Arguments

public subroutine airya(x, ai, bi, ad, bd)

Arguments

public subroutine airyb(x, ai, bi, ad, bd)

Arguments

public subroutine airyzo(nt, kf, xa, xb, xc, xd)

Arguments

public subroutine ajyik(x, vj1, vj2, vy1, vy2, vi1, vi2, vk1, vk2)

Arguments

public subroutine aswfa(m, n, c, x, kd, cv, s1f, s1d)

Arguments

public subroutine aswfb(m, n, c, x, kd, cv, s1f, s1d)

Arguments

public subroutine bernoa(n, bn)