subs2.f File Reference

Go to the source code of this file.

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
	)

Definition at line 348 of file subs2.f.

Here is the caller graph for this function:

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
	)

Definition at line 1756 of file subs2.f.

References copy(), qmask(), rone(), and sub3().

Here is the call graph for this function:

Here is the caller graph for this function:

cmult2()

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

Definition at line 340 of file subs2.f.

Here is the caller graph for this function:

comavn2()

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

Definition at line 1039 of file subs2.f.

References chsign(), copy(), dssum(), rzero(), and unitvec().

Here is the call graph for this function:

Here is the caller graph for this function:

comavn3()

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

Definition at line 1104 of file subs2.f.

References dssum(), edgindf(), edgindv(), facind2(), unitvec(), vcross(), and vdot3().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 2027 of file subs2.f.

Here is the caller graph for this function:

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
	)

Definition at line 2073 of file subs2.f.

Here is the caller graph for this function:

edgindf()

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

Definition at line 1680 of file subs2.f.

Here is the caller graph for this function:

edgindv()

subroutine edgindv	(		LV1,
			LV2,
			LVSKIP,
			ISD
	)

Definition at line 1706 of file subs2.f.

Here is the caller graph for this function:

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
	)

Definition at line 1978 of file subs2.f.

References edgindv().

Here is the call graph for this function:

Here is the caller graph for this function:

emerxit()

subroutine emerxit

Definition at line 356 of file subs2.f.

References exitt(), prepost(), and runstat().

Here is the call graph for this function:

Here is the caller graph for this function:

faccvs()

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

Definition at line 391 of file subs2.f.

References dsset().

Here is the call graph for this function:

Here is the caller graph for this function:

facexs()

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

Definition at line 124 of file subs2.f.

References dsset().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 169 of file subs2.f.

References dsset().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 219 of file subs2.f.

References dsset().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 1892 of file subs2.f.

References facind2().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 1928 of file subs2.f.

References facind2().

Here is the call graph for this function:

Here is the caller graph for this function:

fixmska()

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

Definition at line 2163 of file subs2.f.

References icol2(), iface_e(), and izero().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 1249 of file subs2.f.

References dsop(), fxwms2(), and fxwms3().

Here is the call graph for this function:

Here is the caller graph for this function:

fxwms2()

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

Definition at line 1270 of file subs2.f.

References dot().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 1318 of file subs2.f.

References dot(), edgindf(), and edgindv().

Here is the call graph for this function:

Here is the caller graph for this function:

gammasf()

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

Definition at line 255 of file subs2.f.

References axhmsf(), cmult(), col3(), copy(), emerxit(), exitt(), glsc3(), opdssum(), rmask(), and stx1sf().

Here is the call graph for this function:

Here is the caller graph for this function:

getsnormal()

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

Definition at line 2133 of file subs2.f.

icol2()

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

Definition at line 2207 of file subs2.f.

Here is the caller graph for this function:

iface_e()

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

Definition at line 2217 of file subs2.f.

References facind().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 2257 of file subs2.f.

References glsum().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 2233 of file subs2.f.

Here is the caller graph for this function:

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
	)

Definition at line 100 of file subs2.f.

References add2s1(), and add2s2().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 79 of file subs2.f.

References vdot2(), and vdot3().

Here is the call graph for this function:

Here is the caller graph for this function:

outf1()

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

Definition at line 592 of file subs2.f.

outm1()

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

Definition at line 620 of file subs2.f.

Here is the caller graph for this function:

outm2()

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

Definition at line 648 of file subs2.f.

printel()

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

Definition at line 550 of file subs2.f.

References outm1().

Here is the call graph for this function:

printv()

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

Definition at line 568 of file subs2.f.

References outm1().

Here is the call graph for this function:

prsoln()

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

Definition at line 537 of file subs2.f.

Here is the caller graph for this function:

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
	)

Definition at line 1835 of file subs2.f.

References col2(), copy(), crmsk2(), crmsk3(), egmask(), fcmsk2(), and fcmsk3().

Here is the call graph for this function:

Here is the caller graph for this function:

rmask()

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

Definition at line 1800 of file subs2.f.

References qmask().

Here is the call graph for this function:

Here is the caller graph for this function:

setaxw1()

subroutine setaxw1

(

logical

IFAXWG

)

Definition at line 1 of file subs2.f.

References copy().

Here is the call graph for this function:

Here is the caller graph for this function:

setaxw2()

subroutine setaxw2

(

logical

IFAXWG

)

Definition at line 16 of file subs2.f.

References copy().

Here is the call graph for this function:

Here is the caller graph for this function:

setcdat()

subroutine setcdat

Definition at line 1401 of file subs2.f.

Here is the caller graph for this function:

setcdof()

subroutine setcdof

Definition at line 1741 of file subs2.f.

Here is the caller graph for this function:

setcsys()

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

Definition at line 1007 of file subs2.f.

References comavn2(), comavn3(), facexv(), and rzero3().

Here is the call graph for this function:

Here is the caller graph for this function:

sethmsk()

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

Definition at line 728 of file subs2.f.

References cfill(), dsop(), and facev().

Here is the call graph for this function:

Here is the caller graph for this function:

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
	)

Definition at line 876 of file subs2.f.

References copy(), and rzero3().

Here is the call graph for this function:

Here is the caller graph for this function:

setmlog()

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

Definition at line 907 of file subs2.f.

References gllog(), and lfalse().

Here is the call graph for this function:

Here is the caller graph for this function:

skipcnr()

subroutine skipcnr

(

NEL

)

Definition at line 828 of file subs2.f.

References lfalse().

Here is the call graph for this function:

Here is the caller graph for this function:

solpres()

subroutine solpres

Definition at line 519 of file subs2.f.

References prsoln().

Here is the call graph for this function:

solvel()

subroutine solvel

Definition at line 483 of file subs2.f.

References vsoln().

Here is the call graph for this function:

stnrinv()

subroutine stnrinv

Definition at line 32 of file subs2.f.

References add2s2(), addcol3(), col3(), col4(), rzero(), stnrate(), subcol3(), and subcol4().

Here is the call graph for this function:

stsmask()

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

Definition at line 675 of file subs2.f.

References fixmska(), fixwmsk(), setcdat(), setcsys(), sethmsk(), setmask(), setmlog(), and skipcnr().

Here is the call graph for this function:

Here is the caller graph for this function:

stx1sf()

subroutine stx1sf

Definition at line 438 of file subs2.f.

References cmult(), col3(), copy(), glsc3(), opdssum(), rmask(), and rzero3().

Here is the call graph for this function:

Here is the caller graph for this function:

updmsys()

subroutine updmsys

(

IFLD

)

Definition at line 711 of file subs2.f.

References setcsys(), and sethmsk().

Here is the call graph for this function:

Here is the caller graph for this function:

vsoln()

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

Definition at line 501 of file subs2.f.

Here is the caller graph for this function: