hmholtz.f File Reference

Functions/Subroutines
subroutine	hmholtz (name, u, rhs, h1, h2, mask, mult, imsh, tli, maxit, isd)
subroutine	axhelm (au, u, helm1, helm2, imesh, isd)
subroutine	setfast (helm1, helm2, imesh)
subroutine	sfastax
subroutine	setprec (dpcm1, helm1, helm2, imsh, isd)
subroutine	chktcg1 (tol, res, h1, h2, mask, mult, imesh, isd)
subroutine	cggo (x, f, h1, h2, mask, mult, imsh, tin, maxit, isd, binv, name)
function	vlsc32 (r, b, m, n)
subroutine	calc (diag, upper, d, e, n, dmax, dmin)
subroutine	fdm_h1 (z, r, d, mask, mult, nel, kt, rr)
subroutine	set_fdm_prec_h1a_gen
subroutine	set_fdm_prec_h1a_els
subroutine	set_fdm_prec_h1b (d, h1, h2, nel)
subroutine	set_fdm_prec_h1a
subroutine	generalev (a, b, lam, n, w)
subroutine	outmat2 (a, m, n, k, name)
subroutine	rescale_abhalf (a, b, w, n)
subroutine	hmholtz_dg (name, u, rhs, h1, h2, mask, tol, maxit)
subroutine	cggo_dg (x, f, h1, h2, binv, mask, name, tin, maxit)
subroutine	outmax (a, m, n, name6, ie)
subroutine	outmat4 (a, l, m, n, nel, name6, ie)
subroutine	ioutmat4 (a, l, m, n, nel, name6, ie)
subroutine	ioutfld (a, m, n, nel, name6, ie)
subroutine	gradr (ur, us, ut, u, Dr, Dst, Dtt, nr, ns, nt, if3d)
subroutine	gradrta (u, ur, us, ut, Drt, Ds, Dt, nr, ns, nt, if3d)
subroutine	face_diff (u, d, gsh_loc, w)
subroutine	setprec_dg (d, h1, h2, imsh, isd)
subroutine	hxdg_surfa (au, u, h1, h2)
subroutine	hxdg (au, u, h1, h2)

Function/Subroutine Documentation

axhelm()

subroutine axhelm	(	real, dimension (lx1,ly1,lz1,1)	au,
		real, dimension (lx1,ly1,lz1,1)	u,
		real, dimension (lx1,ly1,lz1,1)	helm1,
		real, dimension (lx1,ly1,lz1,1)	helm2,
			imesh,
			isd
	)

calc()

subroutine calc	(	dimension(n)	diag,
		dimension(n)	upper,
		dimension(n)	d,
		dimension(n)	e,
			n,
			dmax,
			dmin
	)

cggo()

subroutine cggo	(	real, dimension(1)	x,
		real, dimension(1)	f,
		real, dimension(1)	h1,
		real, dimension(1)	h2,
		real, dimension(1)	mask,
		real, dimension(1)	mult,
			imsh,
			tin,
			maxit,
			isd,
		real, dimension(1)	binv,
		character*4	name
	)

cggo_dg()

subroutine cggo_dg	(	real, dimension(1)	x,
		real, dimension(1)	f,
		real, dimension(1)	h1,
		real, dimension(1)	h2,
		real, dimension(1)	binv,
		real, dimension(1)	mask,
		character*4	name,
			tin,
			maxit
	)

chktcg1()

subroutine chktcg1	(		tol,
		real, dimension (lx1,ly1,lz1,1)	res,
		real, dimension (lx1,ly1,lz1,1)	h1,
		real, dimension (lx1,ly1,lz1,1)	h2,
		real, dimension (lx1,ly1,lz1,1)	mask,
		real, dimension (lx1,ly1,lz1,1)	mult,
			imesh,
			isd
	)

face_diff()

subroutine face_diff	(	real, dimension(lx1*lz1*2*ldim*lelt,2)	u,
		integer	d,
		integer	gsh_loc,
		real, dimension(lx1*lz1*2*ldim*lelt,2)	w
	)

fdm_h1()

subroutine fdm_h1	(	real, dimension(lx1,ly1,lz1,1)	z,
		real, dimension(lx1,ly1,lz1,1)	r,
		real, dimension(lx1,ly1,lz1,1)	d,
		real, dimension(lx1,ly1,lz1,1)	mask,
		real, dimension(lx1,ly1,lz1,1)	mult,
			nel,
		integer, dimension(lelt,3)	kt,
		real, dimension(lx1,ly1,lz1,1)	rr
	)

generalev()

subroutine generalev	(	real, dimension(n,n)	a,
		real, dimension(n,n)	b,
		real, dimension(n)	lam,
			n,
		real, dimension(n,n)	w
	)

gradr()

subroutine gradr	(	real, dimension(nr,ns,nt)	ur,
		real, dimension(nr,ns,nt)	us,
		real, dimension(nr,ns,nt)	ut,
		real, dimension (nr,ns,nt)	u,
		real, dimension(nr,nr)	Dr,
		real, dimension(ns,ns)	Dst,
		real, dimension(nt,nt)	Dtt,
			nr,
			ns,
			nt,
		logical	if3d
	)

gradrta()

subroutine gradrta	(	real, dimension (nr,ns,nt)	u,
		real, dimension(nr,ns,nt)	ur,
		real, dimension(nr,ns,nt)	us,
		real, dimension(nr,ns,nt)	ut,
			Drt,
			Ds,
			Dt,
			nr,
			ns,
			nt,
		logical	if3d
	)

hmholtz()

subroutine hmholtz	(	character	name,
		real, dimension (lx1,ly1,lz1,1)	u,
		real, dimension (lx1,ly1,lz1,1)	rhs,
		real, dimension (lx1,ly1,lz1,1)	h1,
		real, dimension (lx1,ly1,lz1,1)	h2,
		real, dimension (lx1,ly1,lz1,1)	mask,
		real, dimension (lx1,ly1,lz1,1)	mult,
			imsh,
			tli,
			maxit,
			isd
	)

hmholtz_dg()

subroutine hmholtz_dg	(	character	name,
		real, dimension (lx1,ly1,lz1,1)	u,
		real, dimension (lx1,ly1,lz1,1)	rhs,
		real, dimension (lx1,ly1,lz1,1)	h1,
		real, dimension (lx1,ly1,lz1,1)	h2,
		real, dimension (lx1,ly1,lz1,1)	mask,
			tol,
			maxit
	)

hxdg()

subroutine hxdg	(	real, dimension(lx1,ly1,lz1,1)	au,
		real, dimension(lx1,ly1,lz1,1)	u,
		real, dimension(lx1,ly1,lz1,1)	h1,
		real, dimension(1)	h2
	)

hxdg_surfa()

subroutine hxdg_surfa	(	real, dimension(lx1,ly1,lz1,lelt)	au,
		real, dimension(lx1,ly1,lz1,lelt)	u,
		real, dimension(lx1,ly1,lz1,lelt)	h1,
		real, dimension(1)	h2
	)

ioutfld()

subroutine ioutfld	(	integer, dimension(m,n,nel)	a,
			m,
			n,
			nel,
		character*6	name6,
			ie
	)

ioutmat4()

subroutine ioutmat4	(	integer, dimension(l,m,n,nel)	a,
			l,
			m,
			n,
			nel,
		character*6	name6,
			ie
	)

outmat2()

subroutine outmat2	(	real, dimension(m,n)	a,
			m,
			n,
			k,
		character*4	name
	)

outmat4()

subroutine outmat4	(	real, dimension(l,m,n,nel)	a,
			l,
			m,
			n,
			nel,
		character*6	name6,
			ie
	)

outmax()

subroutine outmax	(	real, dimension(m,n)	a,
			m,
			n,
		character*6	name6,
			ie
	)

rescale_abhalf()

subroutine rescale_abhalf	(	real, dimension(n,n)	a,
		real, dimension(n,n)	b,
		real, dimension(n)	w,
			n
	)

set_fdm_prec_h1a()

subroutine set_fdm_prec_h1a

(

)

set_fdm_prec_h1a_els()

subroutine set_fdm_prec_h1a_els

(

)

set_fdm_prec_h1a_gen()

subroutine set_fdm_prec_h1a_gen

(

)

set_fdm_prec_h1b()

subroutine set_fdm_prec_h1b	(	real, dimension (lx1,ly1,lz1,1)	d,
		real, dimension(lx1,ly1,lz1,1)	h1,
		real, dimension(lx1,ly1,lz1,1)	h2,
			nel
	)

setfast()

subroutine setfast	(	real, dimension(lx1,ly1,lz1,1)	helm1,
		real, dimension(lx1,ly1,lz1,1)	helm2,
			imesh
	)

setprec()

subroutine setprec	(	real, dimension (lx1,ly1,lz1,1)	dpcm1,
		real, dimension(lx1,ly1,lz1,1)	helm1,
		real, dimension(lx1,ly1,lz1,1)	helm2,
			imsh,
			isd
	)

setprec_dg()

subroutine setprec_dg	(	real, dimension(lx1,ly1,lz1,1)	d,
		real, dimension(lx1*ly1*lz1,1)	h1,
		real, dimension(lx1*ly1*lz1,1)	h2,
			imsh,
			isd
	)

sfastax()

subroutine sfastax

(

)

vlsc32()

function vlsc32	(	real, dimension(1)	r,
		real, dimension(1)	b,
		real, dimension(1)	m,
			n
	)