navier4.f File Reference

Functions/Subroutines
subroutine	setrhs (p, h1, h2, h2inv)
subroutine	gensoln (p, h1, h2, h2inv)
subroutine	updtset (p, h1, h2, h2inv, IERR)
subroutine	econj (kprev, h1, h2, h2inv, ierr)
subroutine	chkptol
function	vlsc3 (X, Y, B, N)
subroutine	updrhse (p, h1, h2, h2inv, ierr)
subroutine	hconj (approx, k, h1, h2, vml, vmk, ws, name4, ierr)
subroutine	hmhzpf (name, u, r, h1, h2, mask, mult, imesh, tli, maxit, isd, bi)
subroutine	hsolve (name, u, r, h1, h2, vmk, vml, imsh, tol, maxit, isd, approx, napprox, bi)
subroutine	project1 (b, n, rvar, ivar, h1, h2, msk, w, ifwt, ifvec, name6)
subroutine	project1_a (xbar, bbar, b, xx, bb, n, m, w, ifwt, ifvec)
function	iproj_chk (h1old, h2old, h1, h2, n)
subroutine	proj_matvec (b, x, n, h1, h2, msk, name6)
subroutine	proj_ortho (xx, bb, n, m, w, ifwt, ifvec, name6)
subroutine	proj_ortho_full (xx, bb, n, m, w, ifwt, ifvec, name6)
subroutine	project2 (x, n, rvar, ivar, h1, h2, msk, w, ifwt, ifvec, name6)
subroutine	project2_a (x, xbar, xx, bb, n, m, mmx, h1, h2, msk, w, ifwt, ifvec, name6)
subroutine	proj_get_ivar (m, mmx, ixb, ibb, ix, ib, ih1, ih2, ivar, n, ifvec, name6)
subroutine	laplacep (name, u, mask, mult, ifld, tol, maxi, approx, napprox)
subroutine	givens_rotation (a, b, c, s, r)
real function	hypot (a, b)

Function/Subroutine Documentation

chkptol()

subroutine chkptol

(

)

econj()

subroutine econj	(		kprev,
		real, dimension (lx1,ly1,lz1,lelv)	h1,
		real, dimension (lx1,ly1,lz1,lelv)	h2,
		real, dimension(lx1,ly1,lz1,lelv)	h2inv,
			ierr
	)

gensoln()

subroutine gensoln	(	real, dimension (lx2,ly2,lz2,lelv)	p,
		real, dimension (lx1,ly1,lz1,lelv)	h1,
		real, dimension (lx1,ly1,lz1,lelv)	h2,
		real, dimension(lx1,ly1,lz1,lelv)	h2inv
	)

givens_rotation()

subroutine givens_rotation	(	real	a,
		real	b,
		real	c,
		real	s,
		real	r
	)

hconj()

subroutine hconj	(	real, dimension(lt,0:1)	approx,
			k,
		real, dimension(1)	h1,
		real, dimension(1)	h2,
		real, dimension(1)	vml,
		real, dimension(1)	vmk,
		real, dimension(1)	ws,
		character*4	name4,
			ierr
	)

hmhzpf()

subroutine hmhzpf	(	character*4	name,
		real, dimension (lx1,ly1,lz1,1)	u,
		real, dimension (lx1,ly1,lz1,1)	r,
		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,
			tli,
			maxit,
			isd,
		real, dimension (lx1,ly1,lz1,1)	bi
	)

hsolve()

subroutine hsolve	(	character*4	name,
		real, dimension (lx1,ly1,lz1,1)	u,
		real, dimension (lx1,ly1,lz1,1)	r,
		real, dimension (lx1,ly1,lz1,1)	h1,
		real, dimension (lx1,ly1,lz1,1)	h2,
		real, dimension (lx1,ly1,lz1,1)	vmk,
		real, dimension (lx1,ly1,lz1,1)	vml,
			imsh,
			tol,
			maxit,
			isd,
		real, dimension (1)	approx,
		integer, dimension(1)	napprox,
		real, dimension (lx1,ly1,lz1,1)	bi
	)

hypot()

real function hypot	(	real	a,
		real	b
	)

iproj_chk()

function iproj_chk	(	real, dimension(n)	h1old,
		real, dimension(n)	h2old,
		real, dimension(n)	h1,
		real, dimension(n)	h2,
			n
	)

laplacep()

subroutine laplacep	(	character*4	name,
		real, dimension(1)	u,
		real, dimension(1)	mask,
		real, dimension(1)	mult,
			ifld,
			tol,
			maxi,
		real, dimension (1)	approx,
		integer, dimension(1)	napprox
	)

proj_get_ivar()

subroutine proj_get_ivar	(		m,
			mmx,
			ixb,
			ibb,
			ix,
			ib,
			ih1,
			ih2,
		integer, dimension(10)	ivar,
			n,
		logical	ifvec,
		character*6	name6
	)

proj_matvec()

subroutine proj_matvec	(	real, dimension(n)	b,
		real, dimension(n)	x,
			n,
		real, dimension(n)	h1,
		real, dimension(n)	h2,
		real, dimension(n)	msk,
		character*6	name6
	)

proj_ortho()

subroutine proj_ortho	(	real, dimension(n,1)	xx,
		real, dimension(n,1)	bb,
			n,
			m,
		real, dimension(n)	w,
		logical	ifwt,
		logical	ifvec,
		character*6	name6
	)

proj_ortho_full()

subroutine proj_ortho_full	(	real, dimension(n,1)	xx,
		real, dimension(n,1)	bb,
			n,
			m,
		real, dimension(n)	w,
		logical	ifwt,
		logical	ifvec,
		character*6	name6
	)

project1()

subroutine project1	(	real, dimension(n)	b,
			n,
		real, dimension(n,1)	rvar,
		integer, dimension(1)	ivar,
		real, dimension(n)	h1,
		real, dimension(n)	h2,
		real, dimension(n)	msk,
		real, dimension(n)	w,
		logical	ifwt,
		logical	ifvec,
		character*6	name6
	)

project1_a()

subroutine project1_a	(	real, dimension(n)	xbar,
		real, dimension(n)	bbar,
		real, dimension(n)	b,
		real, dimension(n,m)	xx,
		real, dimension(n,m)	bb,
			n,
			m,
		real, dimension(n)	w,
		logical	ifwt,
		logical	ifvec
	)

project2()

subroutine project2	(	real, dimension(n)	x,
			n,
		real, dimension(n,1)	rvar,
		integer, dimension(1)	ivar,
		real, dimension(n)	h1,
		real, dimension(n)	h2,
		real, dimension(n)	msk,
		real, dimension(n)	w,
		logical	ifwt,
		logical	ifvec,
		character*6	name6
	)

project2_a()

subroutine project2_a	(	real, dimension(n)	x,
		real, dimension(n)	xbar,
		real, dimension(n,1)	xx,
		real, dimension(n,1)	bb,
			n,
			m,
			mmx,
		real, dimension(n)	h1,
		real, dimension(n)	h2,
		real, dimension(n)	msk,
		real, dimension(n)	w,
		logical	ifwt,
		logical	ifvec,
		character*6	name6
	)

setrhs()

subroutine setrhs	(	real, dimension (lx2,ly2,lz2,lelv)	p,
		real, dimension (lx1,ly1,lz1,lelv)	h1,
		real, dimension (lx1,ly1,lz1,lelv)	h2,
		real, dimension(lx1,ly1,lz1,lelv)	h2inv
	)

updrhse()

subroutine updrhse	(	real, dimension (lx2,ly2,lz2,lelv)	p,
		real, dimension (lx1,ly1,lz1,lelv)	h1,
		real, dimension (lx1,ly1,lz1,lelv)	h2,
		real, dimension(lx1,ly1,lz1,lelv)	h2inv,
			ierr
	)

updtset()

subroutine updtset	(	real, dimension (lx2,ly2,lz2,lelv)	p,
		real, dimension (lx1,ly1,lz1,lelv)	h1,
		real, dimension (lx1,ly1,lz1,lelv)	h2,
		real, dimension(lx1,ly1,lz1,lelv)	h2inv,
			IERR
	)

vlsc3()

function vlsc3	(	dimension(1)	X,
		dimension(1)	Y,
		dimension(1)	B,
			N
	)