gridxc_fft_gpfa Module

---

Contents

Variables

dp sp trigs nold msg

Interfaces

fft_gpfa_ez fft_gpfa

Subroutines

nfft SETGPFA_check SETGPFA

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	dp	=	selected_real_kind(10, 100)
integer,	public,	parameter	::	sp	=	selected_real_kind(6, 10)
real(kind=dp),	public,	allocatable, save	::	trigs(:)
integer,	public,	save	::	nold	=	-1
character(len=20),	public		::	msg

Interfaces

public interface fft_gpfa_ez

• private subroutine fft_gpfa_ez_dp(data, n, isign)

  Arguments

  Type	Intent	Optional	Attributes		Name
  real(kind=dp),	intent(inout)			::	data(2*n)
  integer,	intent(in)			::	n
  integer,	intent(in)			::	isign

• private subroutine fft_gpfa_ez_sp(data, n, isign)

  Arguments

  Type	Intent	Optional	Attributes		Name
  real(kind=sp),	intent(inout)			::	data(2*n)
  integer,	intent(in)			::	n
  integer,	intent(in)			::	isign

public interface fft_gpfa

• private subroutine fft_gpfa_dp(realData, imagData, dataSpan, vectorSpan, N, numVectors, isign)

  Arguments

  Type	Intent	Optional	Attributes		Name
  real(kind=dp),	intent(inout)			::	realData(:)
  real(kind=dp),	intent(inout)			::	imagData(:)
  integer,	intent(in)			::	dataSpan
  integer,	intent(in)			::	vectorSpan
  integer,	intent(in)			::	N
  integer,	intent(in)			::	numVectors
  integer,	intent(in)			::	isign

• private subroutine fft_gpfa_sp(realData, imagData, dataSpan, vectorSpan, N, numVectors, isign)

  Arguments

  Type	Intent	Optional	Attributes		Name
  real(kind=sp),	intent(inout)			::	realData(:)
  real(kind=sp),	intent(inout)			::	imagData(:)
  integer,	intent(in)			::	dataSpan
  integer,	intent(in)			::	vectorSpan
  integer,	intent(in)			::	N
  integer,	intent(in)			::	numVectors
  integer,	intent(in)			::	isign

Subroutines

public subroutine nfft(N)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout)			::	N

public subroutine SETGPFA_check(TRIGS, maxtrigs, ntrigs, N)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp)				::	TRIGS(maxtrigs)
integer,	intent(in)			::	maxtrigs
integer,	intent(out)			::	ntrigs
integer,	intent(in)			::	N

public subroutine SETGPFA(TRIGS, n)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp)				::	TRIGS(*)
integer				::	n