x5c2r Subroutine

private subroutine x5c2r(a, a_ri)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(in),		dimension(:, :, :, :, :)	::	a
real,	intent(out),		dimension(:, :, :, :, :, :)	::	a_ri