pertsupport.f File Reference

Functions/Subroutines
subroutine	flushbuffer (k)
real function	opnormold (v1, v2, v3, weight)
function	opnorm2 (v1, v2, v3)
function	tnorm (temp)
real function	dmnorm (v1, v2, v3, temp)
subroutine	opscale (v1, v2, v3, temp, alpha)
subroutine	opscalev (v1, v2, v3, alpha)
subroutine	computelyap
subroutine	computelyap1 (vxq, vyq, vzq, tq, jpp)
subroutine	rescalepert (pertnorm, pertinvnorm, jpp)
subroutine	initialize
subroutine	initialize1 (jpp)
subroutine	get_useric
subroutine	out_pert
subroutine	pert_add2s2 (i, j, scale)
function	pert_inner_prod (i, j)
subroutine	pert_ortho_norm
subroutine	pert_ortho_norm1 (k)

Function/Subroutine Documentation

computelyap()

subroutine computelyap

(

)

computelyap1()

subroutine computelyap1	(	real, dimension(1)	vxq,
		real, dimension(1)	vyq,
		real, dimension(1)	vzq,
		real, dimension(1)	tq,
			jpp
	)

dmnorm()

real function dmnorm	(	real, dimension(1)	v1,
		real, dimension(1)	v2,
		real, dimension(1)	v3,
		real, dimension(1)	temp
	)

flushbuffer()

subroutine flushbuffer

(

integer

k

)

get_useric()

subroutine get_useric

(

)

initialize()

subroutine initialize

(

)

initialize1()

subroutine initialize1

(

jpp

)

opnorm2()

function opnorm2	(	real, dimension(1)	v1,
		real, dimension(1)	v2,
		real, dimension(1)	v3
	)

opnormold()

real function opnormold	(	real, dimension(1)	v1,
		real, dimension(1)	v2,
		real, dimension(1)	v3,
		real, dimension(1)	weight
	)

opscale()

subroutine opscale	(	real, dimension(1)	v1,
		real, dimension(1)	v2,
		real, dimension(1)	v3,
		real, dimension(1)	temp,
		real	alpha
	)

opscalev()

subroutine opscalev	(	real, dimension(*)	v1,
		real, dimension(*)	v2,
		real, dimension(*)	v3,
		real	alpha
	)

out_pert()

subroutine out_pert

(

)

pert_add2s2()

subroutine pert_add2s2	(		i,
			j,
			scale
	)

pert_inner_prod()

function pert_inner_prod	(		i,
			j
	)

pert_ortho_norm()

subroutine pert_ortho_norm

(

)

pert_ortho_norm1()

subroutine pert_ortho_norm1

(

k

)

rescalepert()

subroutine rescalepert	(		pertnorm,
			pertinvnorm,
			jpp
	)

tnorm()

function tnorm

(

real, dimension(*)

temp

)