navier8.f File Reference

Go to the source code of this file.

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
	)

Definition at line 827 of file navier8.f.

References rzero().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 650 of file navier8.f.

References bindec(), get_local_a_tet(), and rzero().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 559 of file navier8.f.

References a_crs_2d(), a_crs_3d(), and rzero().

Here is the call graph for this function:

Here is the caller graph for this function:

bindec()

subroutine bindec

(

integer

bin_in

)

Definition at line 711 of file navier8.f.

Here is the caller graph for this function:

check_p_bc()

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

Definition at line 2314 of file navier8.f.

Here is the caller graph for this function:

crs_solve_h1()

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

Definition at line 1340 of file navier8.f.

References col3(), dnekclock(), map_c_to_f_h1_bilin(), and map_f_to_c_h1_bilin().

Here is the call graph for this function:

Here is the caller graph for this function:

crs_solve_l2()

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

Definition at line 37 of file navier8.f.

References map_c_to_f_l2_bilin(), and map_f_to_c_l2_bilin().

Here is the call graph for this function:

Here is the caller graph for this function:

gbtuple_rank()

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

Definition at line 1683 of file navier8.f.

References exitt(), igl_running_sum(), iglmax(), irank_vecn(), and ituple_sort().

Here is the call graph for this function:

Here is the caller graph for this function:

gen_crs_basis()

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

Definition at line 1539 of file navier8.f.

References copy(), and zwgll().

Here is the call graph for this function:

Here is the caller graph for this function:

gen_crs_basis2()

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

Definition at line 1583 of file navier8.f.

References copy(), and zwgll().

Here is the call graph for this function:

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
	)

Definition at line 730 of file navier8.f.

Here is the caller graph for this function:

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
	)

Definition at line 509 of file navier8.f.

References a_crs_enriched(), exitt(), and map_m_to_n().

Here is the call graph for this function:

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
	)

Definition at line 1498 of file navier8.f.

References axhelm(), copy(), gen_crs_basis(), and vlsc2().

Here is the call graph for this function:

Here is the caller graph for this function:

get_vertex()

subroutine get_vertex

Definition at line 1628 of file navier8.f.

References get_vert().

Here is the call graph for this function:

Here is the caller graph for this function:

ifacev_redef()

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

Definition at line 1062 of file navier8.f.

References facind().

Here is the call graph for this function:

iftuple_altb()

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

Definition at line 472 of file navier8.f.

iftuple_ialtb()

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

Definition at line 452 of file navier8.f.

iftuple_ianeb()

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

Definition at line 492 of file navier8.f.

irank()

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

Definition at line 983 of file navier8.f.

Here is the caller graph for this function:

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
	)

Definition at line 262 of file navier8.f.

References icopy(), irank(), and ituple_sort().

Here is the call graph for this function:

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
	)

Definition at line 1203 of file navier8.f.

References icopy(), and ituple_sort().

Here is the call graph for this function:

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
	)

Definition at line 1641 of file navier8.f.

References icopy(), and ituple_sort().

Here is the call graph for this function:

Here is the caller graph for this function:

iranku()

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

Definition at line 1032 of file navier8.f.

References icopy(), isort(), and iunswap().

Here is the call graph for this function:

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
	)

Definition at line 326 of file navier8.f.

References icopy().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 1406 of file navier8.f.

References mxm(), and set_h1_basis_bilin().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 1079 of file navier8.f.

References maph1_to_l2().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 1455 of file navier8.f.

References mxm(), and set_h1_basis_bilin().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 1102 of file navier8.f.

References maph1_to_l2t().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 902 of file navier8.f.

References exitt(), igllm(), specmpn(), and zwgll().

Here is the call graph for this function:

Here is the caller graph for this function:

map_to_crs()

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

Definition at line 2278 of file navier8.f.

References exitt(), igllm(), specmpn(), and zwgll().

Here is the call graph for this function:

maph1_to_l2()

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

Definition at line 1126 of file navier8.f.

References exitt(), igllm(), specmpn(), zwgl(), and zwgll().

Here is the call graph for this function:

Here is the caller graph for this function:

maph1_to_l2t()

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

Definition at line 1165 of file navier8.f.

References exitt(), igllm(), specmpn(), zwgl(), and zwgll().

Here is the call graph for this function:

Here is the caller graph for this function:

out_se0()

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

Definition at line 1310 of file navier8.f.

out_se1()

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

Definition at line 1280 of file navier8.f.

set_h1_basis_bilin()

subroutine set_h1_basis_bilin

Definition at line 1389 of file navier8.f.

References transpose().

Here is the call graph for this function:

Here is the caller graph for this function:

set_jl_crs_mask()

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

Definition at line 237 of file navier8.f.

Here is the caller graph for this function:

set_mat_ij()

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

Definition at line 246 of file navier8.f.

Here is the caller graph for this function:

set_up_h1_crs()

subroutine set_up_h1_crs

Definition at line 83 of file navier8.f.

References blank(), chcopy(), dnekclock(), exitt(), facev(), get_local_crs_galerkin(), get_vertex(), iglmax(), iglmax_ms(), invcol1(), ltrunc(), rone(), rzero(), set_jl_crs_mask(), set_mat_ij(), and set_vert().

Here is the call graph for this function:

Here is the caller graph for this function:

set_vert()

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

Definition at line 3 of file navier8.f.

References check_p_bc(), setvert2d(), and setvert3d().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 2102 of file navier8.f.

References gbtuple_rank(), and iglmax().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 1743 of file navier8.f.

References dsset(), gbtuple_rank(), icopy(), iglmax(), irank(), and isort().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 940 of file navier8.f.

References exitt(), and mxm().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 388 of file navier8.f.

References copy().

Here is the call graph for this function:

Here is the caller graph for this function: