diagH_after_exc_1_base Function

private pure function diagH_after_exc_1_base(nI, E_0, exc) result(hel)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nI(nEl)
real(kind=dp),	intent(in)			::	E_0
type(Excite_1_t),	intent(in)			::	exc

Return Value real(kind=dp)

Contents