four1_gather Interface

interface
public subroutine four1_gather(data, isign)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=SPC),	intent(inout),		DIMENSION(:)	::	data
integer(kind=I4B),	intent(in)			::	isign