subs2.f File Reference

Functions/Subroutines
subroutine	setaxw1 (IFAXWG)
subroutine	setaxw2 (IFAXWG)
subroutine	stnrinv
subroutine	opdot (DP, A1, A2, A3, B1, B2, B3, N)
subroutine	opadds (A1, A2, A3, B1, B2, B3, CONST, N, ISC)
subroutine	facexs (A, B, IFACE1, IOP)
subroutine	facexv (A1, A2, A3, B1, B2, B3, IFACE1, IOP)
subroutine	facsub2 (A1, A2, A3, B1, B2, B3, IFACE1)
subroutine	gammasf (H1, H2)
subroutine	cmult2 (A, B, CONST, N)
subroutine	add3s (A, B, C, CONST, N)
subroutine	emerxit
subroutine	faccvs (A1, A2, A3, B, IFACE1)
subroutine	stx1sf
subroutine	solvel
subroutine	vsoln (UX, UY, UZ, X, Y, Z, PI)
subroutine	solpres
subroutine	prsoln (P, X, Y, Z, PI)
subroutine	printel (TA, A, IEL)
subroutine	printv (TA, A, NEL)
subroutine	outf1 (X, TXT, IEL, IFC)
subroutine	outm1 (X, TXT, NP, IEL, IP)
subroutine	outm2 (X, TXT, NP, IEL, IP)
subroutine	stsmask (C1MASK, C2MASK, C3MASK)
subroutine	updmsys (IFLD)
subroutine	sethmsk (HVMASK, HFMASK, IFLD, NEL)
subroutine	skipcnr (NEL)
subroutine	setmask (C1MASK, C2MASK, C3MASK, HVMASK, NEL)
subroutine	setmlog (HVMASK, HFMASK, IFLD, NEL)
subroutine	setcsys (HVMASK, HFMASK, NEL)
subroutine	comavn2 (HVMASK, HFMASK, NEL)
subroutine	comavn3 (HVMASK, HFMASK, NEL)
subroutine	fixwmsk (W2MASK, W3MASK, HVMASK, HFMASK, NEL)
subroutine	fxwms2 (W2MASK, HVMASK, HFMASK, NEL)
subroutine	fxwms3 (W2MASK, W3MASK, HVMASK, HFMASK, NEL)
subroutine	setcdat
subroutine	edgindf (LF1, LF2, LFSKIP, ISD, IFCN)
subroutine	edgindv (LV1, LV2, LVSKIP, ISD)
subroutine	setcdof
subroutine	amask (VB1, VB2, VB3, V1, V2, V3, NEL)
subroutine	rmask (R1, R2, R3, NEL)
subroutine	qmask (R1, R2, R3, R1MASK, R2MASK, R3MASK, NEL)
subroutine	fcmsk2 (R1, R2, S1, S2, R1MASK, R2MASK, NEL)
subroutine	fcmsk3 (R1, R2, R3, S1, S2, S3, R1MASK, R2MASK, R3MASK, NEL)
subroutine	egmask (R1, R2, R3, S1, S2, S3, R1MASK, R2MASK, R3MASK, NEL)
subroutine	crmsk2 (R1, R2, S1, S2, R1MASK, R2MASK, NEL)
subroutine	crmsk3 (R1, R2, R3, S1, S2, S3, R1MASK, R2MASK, R3MASK, NEL)
subroutine	getsnormal (sn, ix, iy, iz, iside, e)
subroutine	fixmska (c1mask, c2mask, c3mask)
subroutine	icol2 (a, b, n)
subroutine	iface_e (a, iface, val, nx, ny, nz)
function	op_vlsc2_wt (b1, b2, b3, x1, x2, x3, wt)
function	op_glsc2_wt (b1, b2, b3, x1, x2, x3, wt)

Function/Subroutine Documentation

add3s()

subroutine add3s	(	dimension(1)	A,
		dimension(1)	B,
		dimension(1)	C,
			CONST,
			N
	)

amask()

subroutine amask	(	dimension(lx1,ly1,lz1,1)	VB1,
		dimension(lx1,ly1,lz1,1)	VB2,
		dimension(lx1,ly1,lz1,1)	VB3,
		dimension(lx1,ly1,lz1,1)	V1,
		dimension(lx1,ly1,lz1,1)	V2,
		dimension(lx1,ly1,lz1,1)	V3,
			NEL
	)

cmult2()

subroutine cmult2	(	dimension(1)	A,
		dimension(1)	B,
			CONST,
			N
	)

comavn2()

subroutine comavn2	(	dimension(lx1,ly1,lz1,1)	HVMASK,
		dimension(lx1,lz1,6,1)	HFMASK,
			NEL
	)

comavn3()

subroutine comavn3	(	dimension(lx1,ly1,lz1,1)	HVMASK,
		dimension(lx1,lz1,6,1)	HFMASK,
			NEL
	)

crmsk2()

subroutine crmsk2	(	dimension(lx1,ly1,lz1,1)	R1,
		dimension(lx1,ly1,lz1,1)	R2,
		dimension(lx1,ly1,lz1,1)	S1,
		dimension(lx1,ly1,lz1,1)	S2,
		dimension(lx1,ly1,lz1,1)	R1MASK,
		dimension(lx1,ly1,lz1,1)	R2MASK,
			NEL
	)

crmsk3()

subroutine crmsk3	(	dimension(lx1,ly1,lz1,1)	R1,
		dimension(lx1,ly1,lz1,1)	R2,
		dimension(lx1,ly1,lz1,1)	R3,
		dimension(lx1,ly1,lz1,1)	S1,
		dimension(lx1,ly1,lz1,1)	S2,
		dimension(lx1,ly1,lz1,1)	S3,
		dimension(lx1,ly1,lz1,1)	R1MASK,
		dimension(lx1,ly1,lz1,1)	R2MASK,
		dimension(lx1,ly1,lz1,1)	R3MASK,
			NEL
	)

edgindf()

subroutine edgindf	(		LF1,
			LF2,
			LFSKIP,
			ISD,
			IFCN
	)

edgindv()

subroutine edgindv	(		LV1,
			LV2,
			LVSKIP,
			ISD
	)

egmask()

subroutine egmask	(	dimension(lx1,ly1,lz1,1)	R1,
		dimension(lx1,ly1,lz1,1)	R2,
		dimension(lx1,ly1,lz1,1)	R3,
		dimension(lx1,ly1,lz1,1)	S1,
		dimension(lx1,ly1,lz1,1)	S2,
		dimension(lx1,ly1,lz1,1)	S3,
		dimension(lx1,ly1,lz1,1)	R1MASK,
		dimension(lx1,ly1,lz1,1)	R2MASK,
		dimension(lx1,ly1,lz1,1)	R3MASK,
			NEL
	)

emerxit()

subroutine emerxit

(

)

faccvs()

subroutine faccvs	(	dimension(lx1,ly1,lz1)	A1,
		dimension(lx1,ly1,lz1)	A2,
		dimension(lx1,ly1,lz1)	A3,
		dimension(lx1,ly1)	B,
			IFACE1
	)

facexs()

subroutine facexs	(	dimension(lx1,ly1)	A,
		dimension(lx1,ly1,lz1)	B,
			IFACE1,
			IOP
	)

facexv()

subroutine facexv	(	dimension(lx1,ly1)	A1,
		dimension(lx1,ly1)	A2,
		dimension(lx1,ly1)	A3,
		dimension(lx1,ly1,lz1)	B1,
		dimension(lx1,ly1,lz1)	B2,
		dimension(lx1,ly1,lz1)	B3,
			IFACE1,
			IOP
	)

facsub2()

subroutine facsub2	(	dimension(lx1,ly1,lz1)	A1,
		dimension(lx1,ly1,lz1)	A2,
		dimension(lx1,ly1,lz1)	A3,
		dimension(lx1,ly1)	B1,
		dimension(lx1,ly1)	B2,
		dimension(lx1,ly1)	B3,
			IFACE1
	)

fcmsk2()

subroutine fcmsk2	(	dimension(lx1,ly1,lz1,1)	R1,
		dimension(lx1,ly1,lz1,1)	R2,
		dimension(lx1,ly1,lz1,1)	S1,
		dimension(lx1,ly1,lz1,1)	S2,
		dimension(lx1,ly1,lz1,1)	R1MASK,
		dimension(lx1,ly1,lz1,1)	R2MASK,
			NEL
	)

fcmsk3()

subroutine fcmsk3	(	dimension(lx1,ly1,lz1,1)	R1,
		dimension(lx1,ly1,lz1,1)	R2,
		dimension(lx1,ly1,lz1,1)	R3,
		dimension(lx1,ly1,lz1,1)	S1,
		dimension(lx1,ly1,lz1,1)	S2,
		dimension(lx1,ly1,lz1,1)	S3,
		dimension(lx1,ly1,lz1,1)	R1MASK,
		dimension(lx1,ly1,lz1,1)	R2MASK,
		dimension(lx1,ly1,lz1,1)	R3MASK,
			NEL
	)

fixmska()

subroutine fixmska	(	real, dimension(lx1,ly1,lz1,1)	c1mask,
		real, dimension(lx1,ly1,lz1,1)	c2mask,
		real, dimension(lx1,ly1,lz1,1)	c3mask
	)

fixwmsk()

subroutine fixwmsk	(	dimension(lx1,ly1,lz1,1)	W2MASK,
		dimension(lx1,ly1,lz1,1)	W3MASK,
		dimension(lx1,ly1,lz1,1)	HVMASK,
		dimension(lx1,lz1,6,1)	HFMASK,
			NEL
	)

fxwms2()

subroutine fxwms2	(	dimension(lx1,ly1,lz1,1)	W2MASK,
		dimension(lx1,ly1,lz1,1)	HVMASK,
		dimension(lx1,lz1,6,1)	HFMASK,
			NEL
	)

fxwms3()

subroutine fxwms3	(	dimension(lx1,ly1,lz1,1)	W2MASK,
		dimension(lx1,ly1,lz1,1)	W3MASK,
		dimension(lx1,ly1,lz1,1)	HVMASK,
		dimension(lx1,lz1,6,1)	HFMASK,
			NEL
	)

gammasf()

subroutine gammasf	(	dimension(lx1,ly1,lz1,1)	H1,
		dimension(lx1,ly1,lz1,1)	H2
	)

getsnormal()

subroutine getsnormal	(	real, dimension(3)	sn,
			ix,
			iy,
			iz,
			iside,
		integer	e
	)

icol2()

subroutine icol2	(	integer, dimension(1)	a,
		integer, dimension(1)	b,
			n
	)

iface_e()

subroutine iface_e	(	integer, dimension(nx,ny,nz)	a,
			iface,
		integer	val,
			nx,
			ny,
			nz
	)

op_glsc2_wt()

function op_glsc2_wt	(	real, dimension(1)	b1,
		real, dimension(1)	b2,
		real, dimension(1)	b3,
		real, dimension(1)	x1,
		real, dimension(1)	x2,
		real, dimension(1)	x3,
		real, dimension(1)	wt
	)

op_vlsc2_wt()

function op_vlsc2_wt	(	real, dimension(1)	b1,
		real, dimension(1)	b2,
		real, dimension(1)	b3,
		real, dimension(1)	x1,
		real, dimension(1)	x2,
		real, dimension(1)	x3,
		real, dimension(1)	wt
	)

opadds()

subroutine opadds	(	dimension(lx1,ly1,lz1,1)	A1,
		dimension(lx1,ly1,lz1,1)	A2,
		dimension(lx1,ly1,lz1,1)	A3,
		dimension(lx1,ly1,lz1,1)	B1,
		dimension(lx1,ly1,lz1,1)	B2,
		dimension(lx1,ly1,lz1,1)	B3,
			CONST,
			N,
			ISC
	)

opdot()

subroutine opdot	(	dimension(lx1,ly1,lz1,1)	DP,
		dimension(lx1,ly1,lz1,1)	A1,
		dimension(lx1,ly1,lz1,1)	A2,
		dimension(lx1,ly1,lz1,1)	A3,
		dimension(lx1,ly1,lz1,1)	B1,
		dimension(lx1,ly1,lz1,1)	B2,
		dimension(lx1,ly1,lz1,1)	B3,
			N
	)

outf1()

subroutine outf1	(	dimension(lx1,lz1,6,lelt)	X,
		character*10	TXT,
			IEL,
			IFC
	)

outm1()

subroutine outm1	(	dimension(lx1,ly1,lz1,lelt)	X,
		character*10	TXT,
			NP,
			IEL,
			IP
	)

outm2()

subroutine outm2	(	dimension(lx2,ly2,lz2,lelv)	X,
		character*10	TXT,
			NP,
			IEL,
			IP
	)

printel()

subroutine printel	(	dimension(lx1,ly1,lz1,lelt)	TA,
		character	A,
			IEL
	)

printv()

subroutine printv	(	dimension(lx1,ly1,lz1,lelt)	TA,
		character	A,
			NEL
	)

prsoln()

subroutine prsoln	(		P,
			X,
			Y,
			Z,
			PI
	)

qmask()

subroutine qmask	(	dimension(lx1,ly1,lz1,1)	R1,
		dimension(lx1,ly1,lz1,1)	R2,
		dimension(lx1,ly1,lz1,1)	R3,
		dimension(lx1,ly1,lz1,1)	R1MASK,
		dimension(lx1,ly1,lz1,1)	R2MASK,
		dimension(lx1,ly1,lz1,1)	R3MASK,
			NEL
	)

rmask()

subroutine rmask	(	dimension (lx1,ly1,lz1,1)	R1,
		dimension (lx1,ly1,lz1,1)	R2,
		dimension (lx1,ly1,lz1,1)	R3,
			NEL
	)

setaxw1()

subroutine setaxw1

(

logical

IFAXWG

)

setaxw2()

subroutine setaxw2

(

logical

IFAXWG

)

setcdat()

subroutine setcdat

(

)

setcdof()

subroutine setcdof

(

)

setcsys()

subroutine setcsys	(	dimension(lx1,ly1,lz1,1)	HVMASK,
		dimension(lx1,lz1,6,1)	HFMASK,
			NEL
	)

sethmsk()

subroutine sethmsk	(	dimension(lx1,ly1,lz1,1)	HVMASK,
		dimension(lx1,lz1,6,1)	HFMASK,
			IFLD,
			NEL
	)

setmask()

subroutine setmask	(	dimension(lx1,ly1,lz1,1)	C1MASK,
		dimension(lx1,ly1,lz1,1)	C2MASK,
		dimension(lx1,ly1,lz1,1)	C3MASK,
		dimension (lx1,ly1,lz1,1)	HVMASK,
			NEL
	)

setmlog()

subroutine setmlog	(	dimension(lx1,ly1,lz1,1)	HVMASK,
		dimension(lx1,lz1,6,1)	HFMASK,
			IFLD,
			NEL
	)

skipcnr()

subroutine skipcnr

(

NEL

)

solpres()

subroutine solpres

(

)

solvel()

subroutine solvel

(

)

stnrinv()

subroutine stnrinv

(

)

stsmask()

subroutine stsmask	(	dimension(lx1,ly1,lz1,1)	C1MASK,
		dimension(lx1,ly1,lz1,1)	C2MASK,
		dimension(lx1,ly1,lz1,1)	C3MASK
	)

stx1sf()

subroutine stx1sf

(

)

updmsys()

subroutine updmsys

(

IFLD

)

vsoln()

subroutine vsoln	(		UX,
			UY,
			UZ,
			X,
			Y,
			Z,
			PI
	)