navier8.f File Reference

Functions/Subroutines
subroutine	set_vert (glo_num, ngv, nx, nel, vertex, ifcenter)
subroutine	crs_solve_l2 (uf, vf)
subroutine	set_up_h1_crs
subroutine	set_jl_crs_mask (n, mask, se_to_gcrs)
subroutine	set_mat_ij (ia, ja, n, ne)
subroutine	irank_vec (ind, nn, a, m, n, key, nkey, aa)
subroutine	ituple_sort (a, lda, n, key, nkey, ind, aa)
subroutine	tuple_sort (a, lda, n, key, nkey, ind, aa)
logical function	iftuple_ialtb (a, b, key, nkey)
logical function	iftuple_altb (a, b, key, nkey)
logical function	iftuple_ianeb (a, b, key, nkey)
subroutine	get_local_crs (a, lda, nxc, h1, h2, w, ldw)
subroutine	a_crs_enriched (a, h1, h2, x1, y1, z1, nxc, if3d, ie)
subroutine	a_crs_3d (a, h1, h2, xc, yc, zc, ie)
subroutine	bindec (bin_in)
subroutine	get_local_a_tet (a, x, y, z, kt, ie)
subroutine	a_crs_2d (a, h1, h2, x, y, ie)
subroutine	map_m_to_n (a, na, b, nb, if3d, w, ldw)
subroutine	specmpn (b, nb, a, na, ba, ab, if3d, w, ldw)
subroutine	irank (A, IND, N)
subroutine	iranku (r, input, n, w, ind)
subroutine	ifacev_redef (a, ie, iface, val, nx, ny, nz)
subroutine	map_c_to_f_l2_bilin (uf, uc, w)
subroutine	map_f_to_c_l2_bilin (uc, uf, w)
subroutine	maph1_to_l2 (a, na, b, nb, if3d, w, ldw)
subroutine	maph1_to_l2t (b, nb, a, na, if3d, w, ldw)
subroutine	irank_vec_tally (ind, nn, a, m, n, key, nkey, key2, aa)
subroutine	out_se1 (se2crs, nx, name)
subroutine	out_se0 (se2crs, nx, nel, name)
subroutine	crs_solve_h1 (uf, vf)
subroutine	set_h1_basis_bilin
subroutine	map_c_to_f_h1_bilin (uf, uc)
subroutine	map_f_to_c_h1_bilin (uc, uf)
subroutine	get_local_crs_galerkin (a, ncl, nxc, h1, h2, w1, w2)
subroutine	gen_crs_basis (b, j)
subroutine	gen_crs_basis2 (b, j)
subroutine	get_vertex
subroutine	irank_vecn (ind, nn, a, m, n, key, nkey, aa)
subroutine	gbtuple_rank (tuple, m, n, nmax, cr_h, nid, np, ind)
subroutine	setvert3d (glo_num, ngv, nx, nel, vertex, ifcenter)
subroutine	setvert2d (glo_num, ngv, nx, nel, vertex, ifcenter)
subroutine	map_to_crs (a, na, b, nb, if3d, w, ldw)
subroutine	check_p_bc (glo_num, nx, ny, nz, nel)

Function/Subroutine Documentation

a_crs_2d()

subroutine a_crs_2d	(	real, dimension(4,4)	a,
		real, dimension(1)	h1,
		real, dimension(1)	h2,
		real, dimension(1)	x,
		real, dimension(1)	y,
			ie
	)

a_crs_3d()

subroutine a_crs_3d	(	real, dimension(0:7,0:7)	a,
		real, dimension(0:7)	h1,
		real, dimension(0:7)	h2,
		real, dimension(0:7)	xc,
		real, dimension(0:7)	yc,
		real, dimension(0:7)	zc,
			ie
	)

a_crs_enriched()

subroutine a_crs_enriched	(	real, dimension(1)	a,
		real, dimension(1)	h1,
		real, dimension(1)	h2,
		real, dimension(nxc,nxc,1)	x1,
		real, dimension(nxc,nxc,1)	y1,
		real, dimension(nxc,nxc,1)	z1,
			nxc,
		logical	if3d,
			ie
	)

bindec()

subroutine bindec

(

integer

bin_in

)

check_p_bc()

subroutine check_p_bc	(	integer*8, dimension(nx,ny,nz,nel)	glo_num,
			nx,
			ny,
			nz,
			nel
	)

crs_solve_h1()

subroutine crs_solve_h1	(	real, dimension(1)	uf,
		real, dimension(1)	vf
	)

crs_solve_l2()

subroutine crs_solve_l2	(	real, dimension(1)	uf,
		real, dimension(1)	vf
	)

gbtuple_rank()

subroutine gbtuple_rank	(	integer, dimension(m,nmax)	tuple,
			m,
			n,
			nmax,
		integer	cr_h,
			nid,
			np,
		integer, dimension(nmax)	ind
	)

gen_crs_basis()

subroutine gen_crs_basis	(	real, dimension(lx1,ly1,lz1)	b,
			j
	)

gen_crs_basis2()

subroutine gen_crs_basis2	(	real, dimension(lx1,ly1,lz1)	b,
			j
	)

get_local_a_tet()

subroutine get_local_a_tet	(	real, dimension(4,4)	a,
		real, dimension(4)	x,
		real, dimension(4)	y,
		real, dimension(4)	z,
			kt,
			ie
	)

get_local_crs()

subroutine get_local_crs	(	real, dimension(1)	a,
			lda,
			nxc,
		real, dimension(1)	h1,
		real, dimension(1)	h2,
		real, dimension(ldw)	w,
			ldw
	)

get_local_crs_galerkin()

subroutine get_local_crs_galerkin	(	real, dimension(ncl,ncl,1)	a,
			ncl,
			nxc,
		real, dimension(1)	h1,
		real, dimension(1)	h2,
		real, dimension(lx1*ly1*lz1,nelv)	w1,
		real, dimension(lx1*ly1*lz1,nelv)	w2
	)

get_vertex()

subroutine get_vertex

ifacev_redef()

subroutine ifacev_redef	(	integer, dimension(nx,ny,nz,lelt)	a,
			ie,
			iface,
		integer	val,
			nx,
			ny,
			nz
	)

iftuple_altb()

logical function iftuple_altb	(	real, dimension(1)	a,
		real, dimension(1)	b,
		integer, dimension(nkey)	key,
			nkey
	)

iftuple_ialtb()

logical function iftuple_ialtb	(	integer, dimension(1)	a,
		integer, dimension(1)	b,
		integer, dimension(nkey)	key,
			nkey
	)

iftuple_ianeb()

logical function iftuple_ianeb	(	integer, dimension(1)	a,
		integer, dimension(1)	b,
		integer, dimension(nkey)	key,
			nkey
	)

irank()

subroutine irank	(	integer, dimension(1)	A,
		integer, dimension(1)	IND,
			N
	)

irank_vec()

subroutine irank_vec	(	integer, dimension(n)	ind,
			nn,
		integer, dimension(m,n)	a,
			m,
			n,
		integer, dimension(nkey)	key,
			nkey,
		integer, dimension(m)	aa
	)

irank_vec_tally()

subroutine irank_vec_tally	(	integer, dimension(n)	ind,
			nn,
		integer, dimension(m,n)	a,
			m,
			n,
		integer, dimension(nkey)	key,
			nkey,
		integer, dimension(0:3)	key2,
		integer, dimension(m)	aa
	)

irank_vecn()

subroutine irank_vecn	(	integer, dimension(n)	ind,
			nn,
		integer, dimension(m,n)	a,
			m,
			n,
		integer, dimension(nkey)	key,
			nkey,
		integer, dimension(m)	aa
	)

iranku()

subroutine iranku	(	integer, dimension(1)	r,
		integer, dimension(1)	input,
			n,
		integer, dimension(1)	w,
		integer, dimension(1)	ind
	)

ituple_sort()

subroutine ituple_sort	(	integer, dimension(lda,n)	a,
			lda,
			n,
		integer, dimension(nkey)	key,
			nkey,
		integer, dimension(1)	ind,
		integer, dimension(lda)	aa
	)

map_c_to_f_h1_bilin()

subroutine map_c_to_f_h1_bilin	(	real, dimension(lxyz,lelt)	uf,
		real, dimension(2,2,ldim-1,lelt)	uc
	)

map_c_to_f_l2_bilin()

subroutine map_c_to_f_l2_bilin	(	real, dimension(lxyz,lelt)	uf,
		real, dimension(nxyz_c,lelt)	uc,
		real, dimension(1)	w
	)

map_f_to_c_h1_bilin()

subroutine map_f_to_c_h1_bilin	(	real, dimension(lcr,lelt)	uc,
		real, dimension(lx1,ly1,lz1,lelt)	uf
	)

map_f_to_c_l2_bilin()

subroutine map_f_to_c_l2_bilin	(	real, dimension(nxyz_c,lelt)	uc,
		real, dimension(lxyz,lelt)	uf,
		real, dimension(1)	w
	)

map_m_to_n()

subroutine map_m_to_n	(	real, dimension(1)	a,
			na,
		real, dimension(1)	b,
			nb,
		logical	if3d,
		real, dimension(1)	w,
			ldw
	)

map_to_crs()

subroutine map_to_crs	(	real, dimension(1)	a,
			na,
		real, dimension(1)	b,
			nb,
		logical	if3d,
		real, dimension(1)	w,
			ldw
	)

maph1_to_l2()

subroutine maph1_to_l2	(	real, dimension(1)	a,
			na,
		real, dimension(1)	b,
			nb,
		logical	if3d,
		real, dimension(1)	w,
			ldw
	)

maph1_to_l2t()

subroutine maph1_to_l2t	(	real, dimension(1)	b,
			nb,
		real, dimension(1)	a,
			na,
		logical	if3d,
		real, dimension(1)	w,
			ldw
	)

out_se0()

subroutine out_se0	(	integer, dimension(nx,nx,1)	se2crs,
			nx,
			nel,
		character*4	name
	)

out_se1()

subroutine out_se1	(	integer, dimension(nx,nx,1)	se2crs,
			nx,
		character*4	name
	)

set_h1_basis_bilin()

subroutine set_h1_basis_bilin

set_jl_crs_mask()

subroutine set_jl_crs_mask	(		n,
		real, dimension(1)	mask,
		integer*8, dimension(1)	se_to_gcrs
	)

set_mat_ij()

subroutine set_mat_ij	(	integer, dimension(n,n,ne)	ia,
		integer, dimension(n,n,ne)	ja,
		integer	n,
		integer	ne
	)

set_up_h1_crs()

subroutine set_up_h1_crs

set_vert()

subroutine set_vert	(	integer*8, dimension(1)	glo_num,
		integer*8	ngv,
		integer	nx,
			nel,
		integer, dimension(1)	vertex,
		logical	ifcenter
	)

setvert2d()

subroutine setvert2d	(	integer*8, dimension(1)	glo_num,
		integer*8	ngv,
		integer	nx,
			nel,
		integer, dimension(0:1,0:1,1)	vertex,
		logical	ifcenter
	)

setvert3d()

subroutine setvert3d	(	integer*8, dimension(1)	glo_num,
		integer*8	ngv,
		integer	nx,
			nel,
		integer, dimension(0:1,0:1,0:1,1)	vertex,
		logical	ifcenter
	)

specmpn()

subroutine specmpn	(	real, dimension(nb,nb,nb)	b,
			nb,
		real, dimension(na,na,na)	a,
			na,
			ba,
			ab,
		logical	if3d,
		real, dimension(ldw)	w,
			ldw
	)

tuple_sort()

subroutine tuple_sort	(	real, dimension(lda,n)	a,
			lda,
			n,
		integer, dimension(nkey)	key,
			nkey,
		integer, dimension(1)	ind,
		real, dimension(lda)	aa
	)