conserve_energy Subroutine

private subroutine conserve_energy(iz, is, ikxkyz, h, Ch)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	iz
integer,	intent(in)			::	is
integer,	intent(in)			::	ikxkyz
complex,	intent(in),		dimension(:, :)	::	h
complex,	intent(inout),		dimension(:, :)	::	Ch