theta_integrate Subroutine

private subroutine theta_integrate(integrand, integral)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in),		dimension(-nz2pi:)	::	integrand
real,	intent(out)			::	integral