subs1.f File Reference

Functions/Subroutines
subroutine	cggosf (u1, u2, u3, r1, r2, r3, h1, h2, rmult, binv, vol, tin, maxit, matmod)
subroutine	setdt
subroutine	cvgnlps (ifconv)
subroutine	unorm
subroutine	chktmg (tol, res, w1, w2, mult, mask, imesh)
subroutine	setdtc
subroutine	cumax (v1, v2, v3, umax)
subroutine	setdtfs (dtfs)
subroutine	cdxmin2 (dtst, rhosig, iel, ifc, ifaxis)
subroutine	cdxmin3 (dtst, rhosig, iel, ifc)
function	facdot (A, B, IFACE1)
subroutine	fcaver (xaver, a, iel, iface1)
subroutine	faccl2 (a, b, iface1)
subroutine	faccl3 (a, b, c, iface1)
subroutine	faddcl3 (a, b, c, iface1)
subroutine	sethlm (h1, h2, intloc)
subroutine	nekuvp (iel)
subroutine	diagnos
subroutine	setsolv
subroutine	hmhzsf (name, u1, u2, u3, r1, r2, r3, h1, h2, rmask1, rmask2, rmask3, rmult, tol, maxit, matmod)
subroutine	chktcgs (r1, r2, r3, rmask1, rmask2, rmask3, rmult, binv, vol, tol, nel)
subroutine	axhmsf (au1, au2, au3, u1, u2, u3, h1, h2, matmod)
subroutine	stnrate (u1, u2, u3, nel, matmod)
subroutine	stress (h1, h2, nel, matmod, ifaxis)
subroutine	aijuj (au1, au2, au3, nel, ifaxis)
subroutine	uxyz (u, ex, ey, ez, nel)
subroutine	urst (u, ur, us, ut, nel)
subroutine	ddrst (u, ur, us, ut)
subroutine	axiezz (u2, eyy, ezz, nel)
subroutine	flush_io
subroutine	fcsum2 (xsum, asum, x, e, f)
function	surf_mean (u, ifld, bc_in, ierr)
subroutine	fdm_h1a (z, r, d, nel, kt, rr)
subroutine	set_vert_strs (glo_num, ngv, nx, nel, vertex, ifcenter)
subroutine	get_strs_mask (mask, nxc, nzc, nel)
subroutine	axstrs (a1, a2, a3, p1, p2, p3, h1, h2, matmod, nel)
subroutine	axstrs_nds (a1, a2, a3, p1, p2, p3, h1, h2, matmod, nel)
subroutine	get_local_crs_galerkin_strs (a, ncl, nxc, h1, h2, matmod)
subroutine	crs_strs (u1, u2, u3, v1, v2, v3)
subroutine	set_up_h1_crs_strs (h1, h2, ifld, matmod)
subroutine	axsf_e_3d (au, av, aw, u, v, w, h1, h2, ur, e)
subroutine	axsf_e_2d (au, av, u, v, h1, h2, ur, e)
subroutine	axsf_fast (au, av, aw, u, v, w, h1, h2, ifld)
subroutine	ttxyz (ff, tx, ty, tz, nel)
subroutine	ttrst (ff, fr, fs, ft, ta)
subroutine	axitzz (vfy, tzz, nel)
subroutine	setaxdy (ifaxdy)
function	opnorm2w (v1, v2, v3, w)
subroutine	strs_project_a (b1, b2, b3, h1, h2, wt, ifld, ierr, matmod)
subroutine	strs_project_b (x1, x2, x3, h1, h2, wt, ifld, ierr)
subroutine	strs_orthok (x, b, n, k, h1, h2, wt, ifld, w, ierr, matmod)
subroutine	strs_ortho_one (x, b, n, k, h1, h2, wt, ifld, w, ierr, matmod)
subroutine	strs_ortho_all (x, b, n, k, h1, h2, wt, ifld, w, ierr, matmod)
subroutine	setprop

Function/Subroutine Documentation

aijuj()

subroutine aijuj	(	dimension(lx1,ly1,lz1,1)	au1,
		dimension(lx1,ly1,lz1,1)	au2,
		dimension(lx1,ly1,lz1,1)	au3,
			nel,
		logical	ifaxis
	)

axhmsf()

subroutine axhmsf	(	dimension(lx1,ly1,lz1,1)	au1,
		dimension(lx1,ly1,lz1,1)	au2,
		dimension(lx1,ly1,lz1,1)	au3,
		dimension (lx1*ly1*lz1*1)	u1,
		dimension (lx1*ly1*lz1*1)	u2,
		dimension (lx1*ly1*lz1*1)	u3,
		dimension (lx1,ly1,lz1,1)	h1,
		dimension (lx1,ly1,lz1,1)	h2,
			matmod
	)

axiezz()

subroutine axiezz	(	dimension (lx1,ly1,lz1,1)	u2,
		dimension(lx1,ly1,lz1,1)	eyy,
		dimension(lx1,ly1,lz1,1)	ezz,
			nel
	)

axitzz()

subroutine axitzz	(	dimension(lx1,ly1,lz1,1)	vfy,
		dimension(lx1,ly1,lz1,1)	tzz,
			nel
	)

axsf_e_2d()

subroutine axsf_e_2d	(	real, dimension(1)	au,
		real, dimension(1)	av,
		real, dimension(1)	u,
		real, dimension(1)	v,
		real, dimension(1)	h1,
		real, dimension(1)	h2,
		real, dimension(l,ldim,ldim)	ur,
		integer	e
	)

axsf_e_3d()

subroutine axsf_e_3d	(	real, dimension(1)	au,
		real, dimension(1)	av,
		real, dimension(1)	aw,
		real, dimension(1)	u,
		real, dimension(1)	v,
		real, dimension(1)	w,
		real, dimension(1)	h1,
		real, dimension(1)	h2,
		real, dimension(l,ldim,ldim)	ur,
		integer	e
	)

axsf_fast()

subroutine axsf_fast	(	real, dimension(l,1)	au,
		real, dimension(l,1)	av,
		real, dimension(l,1)	aw,
		real, dimension(l,1)	u,
		real, dimension(l,1)	v,
		real, dimension(l,1)	w,
		real, dimension(l,1)	h1,
		real, dimension(l,1)	h2,
			ifld
	)

axstrs()

subroutine axstrs	(	real, dimension(1)	a1,
		real, dimension(1)	a2,
		real, dimension(1)	a3,
		real, dimension(1)	p1,
		real, dimension(1)	p2,
		real, dimension(1)	p3,
			h1,
			h2,
			matmod,
			nel
	)

axstrs_nds()

subroutine axstrs_nds	(	real, dimension(1)	a1,
		real, dimension(1)	a2,
		real, dimension(1)	a3,
		real, dimension(1)	p1,
		real, dimension(1)	p2,
		real, dimension(1)	p3,
			h1,
			h2,
			matmod,
			nel
	)

cdxmin2()

subroutine cdxmin2	(	dimension(lx1,1)	dtst,
			rhosig,
			iel,
			ifc,
		logical	ifaxis
	)

cdxmin3()

subroutine cdxmin3	(	dimension(lx1,ly1)	dtst,
			rhosig,
			iel,
			ifc
	)

cggosf()

subroutine cggosf	(	real, dimension(1)	u1,
		real, dimension(1)	u2,
		real, dimension(1)	u3,
		real, dimension(1)	r1,
		real, dimension(1)	r2,
		real, dimension(1)	r3,
		real, dimension(1)	h1,
		real, dimension(1)	h2,
		real, dimension(1)	rmult,
		real, dimension(1)	binv,
			vol,
			tin,
			maxit,
			matmod
	)

chktcgs()

subroutine chktcgs	(	dimension (lx1,ly1,lz1,1)	r1,
		dimension (lx1,ly1,lz1,1)	r2,
		dimension (lx1,ly1,lz1,1)	r3,
		dimension(lx1,ly1,lz1,1)	rmask1,
		dimension(lx1,ly1,lz1,1)	rmask2,
		dimension(lx1,ly1,lz1,1)	rmask3,
		dimension (lx1,ly1,lz1,1)	rmult,
		dimension (lx1,ly1,lz1,1)	binv,
			vol,
			tol,
			nel
	)

chktmg()

subroutine chktmg	(		tol,
		real, dimension (lx1,ly1,lz1,1)	res,
		real, dimension (lx1,ly1,lz1,1)	w1,
		real, dimension (lx1,ly1,lz1,1)	w2,
		real, dimension (lx1,ly1,lz1,1)	mult,
		real, dimension (lx1,ly1,lz1,1)	mask,
			imesh
	)

crs_strs()

subroutine crs_strs	(	real, dimension(1)	u1,
		real, dimension(1)	u2,
		real, dimension(1)	u3,
		real, dimension(1)	v1,
		real, dimension(1)	v2,
		real, dimension(1)	v3
	)

cumax()

subroutine cumax	(	dimension(lx1,ly1,lz1,1)	v1,
		dimension(lx1,ly1,lz1,1)	v2,
		dimension(lx1,ly1,lz1,1)	v3,
			umax
	)

cvgnlps()

subroutine cvgnlps

(

logical

ifconv

)

ddrst()

subroutine ddrst	(	dimension (lx1,ly1,lz1)	u,
		dimension(lx1,ly1,lz1)	ur,
		dimension(lx1,ly1,lz1)	us,
		dimension(lx1,ly1,lz1)	ut
	)

diagnos()

subroutine diagnos

(

)

faccl2()

subroutine faccl2	(	dimension(lx1,ly1,lz1)	a,
		dimension(lx1,ly1)	b,
			iface1
	)

faccl3()

subroutine faccl3	(	dimension(lx1,ly1,lz1)	a,
		dimension(lx1,ly1,lz1)	b,
		dimension(lx1,ly1)	c,
			iface1
	)

facdot()

function facdot	(	dimension(lx1,ly1,lz1)	A,
		dimension(lx1,ly1)	B,
			IFACE1
	)

faddcl3()

subroutine faddcl3	(	dimension(lx1,ly1,lz1)	a,
		dimension(lx1,ly1,lz1)	b,
		dimension(lx1,ly1)	c,
			iface1
	)

fcaver()

subroutine fcaver	(		xaver,
		real, dimension(lx1,ly1,lz1,1)	a,
			iel,
			iface1
	)

fcsum2()

subroutine fcsum2	(		xsum,
			asum,
		real, dimension(lx1,ly1,lz1,1)	x,
		integer	e,
		integer	f
	)

fdm_h1a()

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

flush_io()

subroutine flush_io

(

)

get_local_crs_galerkin_strs()

subroutine get_local_crs_galerkin_strs	(	real, dimension(ldim,ncl,ldim,ncl,1)	a,
			ncl,
			nxc,
		real, dimension(1)	h1,
		real, dimension(1)	h2,
			matmod
	)

get_strs_mask()

subroutine get_strs_mask	(	real, dimension(ldim,nxc,nxc,nzc,nel)	mask,
			nxc,
			nzc,
			nel
	)

hmhzsf()

subroutine hmhzsf	(	character	name,
		real, dimension(1)	u1,
		real, dimension(1)	u2,
		real, dimension(1)	u3,
		real, dimension(1)	r1,
		real, dimension(1)	r2,
		real, dimension(1)	r3,
		real, dimension(1)	h1,
		real, dimension(1)	h2,
		real, dimension(1)	rmask1,
		real, dimension(1)	rmask2,
		real, dimension(1)	rmask3,
		real, dimension(1)	rmult,
			tol,
			maxit,
			matmod
	)

nekuvp()

subroutine nekuvp

(

iel

)

opnorm2w()

function opnorm2w	(	real, dimension(1)	v1,
		real, dimension(1)	v2,
		real, dimension(1)	v3,
		real, dimension(1)	w
	)

set_up_h1_crs_strs()

subroutine set_up_h1_crs_strs	(		h1,
			h2,
			ifld,
			matmod
	)

set_vert_strs()

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

setaxdy()

subroutine setaxdy

(

logical

ifaxdy

)

setdt()

subroutine setdt

(

)

setdtc()

subroutine setdtc

(

)

setdtfs()

subroutine setdtfs

(

dtfs

)

sethlm()

subroutine sethlm	(	real, dimension(1)	h1,
		real, dimension(1)	h2,
			intloc
	)

setprop()

subroutine setprop

(

)

setsolv()

subroutine setsolv

(

)

stnrate()

subroutine stnrate	(	dimension(lx1,ly1,lz1,1)	u1,
		dimension(lx1,ly1,lz1,1)	u2,
		dimension(lx1,ly1,lz1,1)	u3,
			nel,
			matmod
	)

stress()

subroutine stress	(	dimension(lx1,ly1,lz1,1)	h1,
		dimension(lx1,ly1,lz1,1)	h2,
			nel,
			matmod,
		logical	ifaxis
	)

strs_ortho_all()

subroutine strs_ortho_all	(	real, dimension(n,ldim,k)	x,
		real, dimension(n,ldim,k)	b,
			n,
			k,
		real, dimension(n)	h1,
		real, dimension(n)	h2,
		real, dimension(n)	wt,
			ifld,
		real, dimension(n,ldim)	w,
			ierr,
			matmod
	)

strs_ortho_one()

subroutine strs_ortho_one	(	real, dimension(n,ldim,k)	x,
		real, dimension(n,ldim,k)	b,
			n,
			k,
		real, dimension(n)	h1,
		real, dimension(n)	h2,
		real, dimension(n)	wt,
			ifld,
		real, dimension(n,ldim)	w,
			ierr,
			matmod
	)

strs_orthok()

subroutine strs_orthok	(	real, dimension(n,ldim,k)	x,
		real, dimension(n,ldim,k)	b,
			n,
			k,
		real, dimension(n)	h1,
		real, dimension(n)	h2,
		real, dimension(n)	wt,
			ifld,
		real, dimension(n,ldim)	w,
			ierr,
			matmod
	)

strs_project_a()

subroutine strs_project_a	(	real, dimension(1)	b1,
		real, dimension(1)	b2,
		real, dimension(1)	b3,
		real, dimension(1)	h1,
		real, dimension(1)	h2,
		real, dimension(1)	wt,
			ifld,
			ierr,
			matmod
	)

strs_project_b()

subroutine strs_project_b	(	real, dimension(1)	x1,
		real, dimension(1)	x2,
		real, dimension(1)	x3,
		real, dimension(1)	h1,
		real, dimension(1)	h2,
		real, dimension(1)	wt,
			ifld,
			ierr
	)

surf_mean()

function surf_mean	(	real, dimension(1)	u,
			ifld,
		character*3	bc_in,
			ierr
	)

ttrst()

subroutine ttrst	(	dimension(lx1,ly1,lz1)	ff,
		dimension(lx1,ly1,lz1)	fr,
		dimension(lx1,ly1,lz1)	fs,
		dimension(lx1,ly1,lz1)	ft,
		dimension(lx1,ly1,lz1)	ta
	)

ttxyz()

subroutine ttxyz	(	dimension(lx1*ly1*lz1,1)	ff,
		dimension(lx1,ly1,lz1,1)	tx,
		dimension(lx1,ly1,lz1,1)	ty,
		dimension(lx1,ly1,lz1,1)	tz,
			nel
	)

unorm()

subroutine unorm

(

)

urst()

subroutine urst	(	dimension (lx1,ly1,lz1,1)	u,
		dimension(lx1,ly1,lz1,1)	ur,
		dimension(lx1,ly1,lz1,1)	us,
		dimension(lx1,ly1,lz1,1)	ut,
			nel
	)

uxyz()

subroutine uxyz	(	dimension (lx1,ly1,lz1,1)	u,
		dimension(lx1,ly1,lz1,1)	ex,
		dimension(lx1,ly1,lz1,1)	ey,
		dimension(lx1,ly1,lz1,1)	ez,
			nel
	)