theta Function

function theta(r20, thk, tmp)

~ ~ ~ PURPOSE ~ ~ ~ this function corrects rate constants for temperature Equation is III-52 from QUAL2E

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	r20
real,	intent(in)			::	thk
real,	intent(in)			::	tmp

Return Value real