dssum.f File Reference

Functions/Subroutines
subroutine	setupds (gs_handle, nx, ny, nz, nel, melg, vertex, glo_num)
subroutine	dssum (u, nx, ny, nz)
subroutine	dsop (u, op, nx, ny, nz)
subroutine	vec_dssum (u, v, w, nx, ny, nz)
subroutine	vec_dsop (u, v, w, nx, ny, nz, op)
subroutine	nvec_dssum (u, stride, n, gs_handle)
subroutine	matvec3 (uout, Jmat, uin, iftrsp, n1, n2)
subroutine	matvec3t (uout, Jmat, uin, iftrsp, n1, n2)
subroutine	matvect (out, d, vec, n1, n2)
subroutine	vectof_add (b, a, ie, iface, nx, ny, nz)
subroutine	zero_f (b, ie, iface, nx, ny, nz)
subroutine	ftovec_0 (a, b, ie, iface, nx, ny, nz)
subroutine	ftovec (a, b, ie, iface, nx, ny, nz)
subroutine	vectof (b, a, ie, iface, nx, ny, nz)
subroutine	ftoveci (a, b, ie, iface, nx, ny, nz)
subroutine	vectofi (b, a, ie, iface, nx, ny, nz)
subroutine	apply_jt (u, nx, ny, nz, nel)
subroutine	apply_j (u, nx, ny, nz, nel)
subroutine	h1_proj (u, nx, ny, nz)
subroutine	dssum_msk (u, mask, nx, ny, nz)
subroutine	dssum_msk2 (u, mask, binv, nx, ny, nz)

Function/Subroutine Documentation

apply_j()

subroutine apply_j	(	real, dimension(1)	u,
			nx,
			ny,
			nz,
			nel
	)

apply_jt()

subroutine apply_jt	(	real, dimension(1)	u,
			nx,
			ny,
			nz,
			nel
	)

dsop()

subroutine dsop	(	real, dimension(1)	u,
		character*3	op,
			nx,
			ny,
			nz
	)

dssum()

subroutine dssum	(	real, dimension(1)	u,
			nx,
			ny,
			nz
	)

dssum_msk()

subroutine dssum_msk	(	real, dimension(1)	u,
		real, dimension(1)	mask,
			nx,
			ny,
			nz
	)

dssum_msk2()

subroutine dssum_msk2	(	real, dimension(1)	u,
		real, dimension(1)	mask,
		real, dimension(1)	binv,
			nx,
			ny,
			nz
	)

ftovec()

subroutine ftovec	(	real, dimension(nx,ny)	a,
		real, dimension(nx,ny,nz,1)	b,
			ie,
			iface,
			nx,
			ny,
			nz
	)

ftovec_0()

subroutine ftovec_0	(	dimension(nx,ny)	a,
		dimension(nx,ny,nz,1)	b,
			ie,
			iface,
			nx,
			ny,
			nz
	)

ftoveci()

subroutine ftoveci	(	integer, dimension(nx,ny)	a,
		integer, dimension(nx,ny,nz,1)	b,
			ie,
			iface,
			nx,
			ny,
			nz
	)

h1_proj()

subroutine h1_proj	(	real, dimension(1)	u,
			nx,
			ny,
			nz
	)

matvec3()

subroutine matvec3	(	real, dimension (1)	uout,
		real, dimension (n1,n1,2)	Jmat,
		real, dimension (1)	uin,
		logical	iftrsp,
			n1,
			n2
	)

matvec3t()

subroutine matvec3t	(	real, dimension (n1,n2)	uout,
		real, dimension (n1,n1,2)	Jmat,
		real, dimension (n1,n2)	uin,
		logical	iftrsp,
			n1,
			n2
	)

matvect()

subroutine matvect	(	dimension(1)	out,
		dimension(n1,n2)	d,
		dimension(1)	vec,
			n1,
			n2
	)

nvec_dssum()

subroutine nvec_dssum	(	real, dimension(1)	u,
		integer	stride,
		integer	n,
		integer	gs_handle
	)

setupds()

subroutine setupds	(	integer	gs_handle,
			nx,
			ny,
			nz,
			nel,
			melg,
		integer, dimension(1)	vertex,
		integer*8, dimension(1)	glo_num
	)

vec_dsop()

subroutine vec_dsop	(	real, dimension(1)	u,
		real, dimension(1)	v,
		real, dimension(1)	w,
			nx,
			ny,
			nz,
		character*3	op
	)

vec_dssum()

subroutine vec_dssum	(	real, dimension(1)	u,
		real, dimension(1)	v,
		real, dimension(1)	w,
			nx,
			ny,
			nz
	)

vectof()

subroutine vectof	(	real, dimension(nx,ny,nz,1)	b,
		real, dimension(nx,ny)	a,
			ie,
			iface,
			nx,
			ny,
			nz
	)

vectof_add()

subroutine vectof_add	(	dimension(nx,ny,nz,1)	b,
		dimension(nx,ny)	a,
			ie,
			iface,
			nx,
			ny,
			nz
	)

vectofi()

subroutine vectofi	(	integer, dimension(nx,ny,nz,1)	b,
		integer, dimension(nx,ny)	a,
			ie,
			iface,
			nx,
			ny,
			nz
	)

zero_f()

subroutine zero_f	(	dimension(nx,ny,nz,1)	b,
			ie,
			iface,
			nx,
			ny,
			nz
	)