get_apar_for_response_matrix Subroutine

private subroutine get_apar_for_response_matrix(apar, iky, ie, dist)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(inout),		dimension(:)	::	apar
integer,	intent(in)			::	iky
integer,	intent(in)			::	ie
character(len=*),	intent(in)			::	dist