fftclass Module Reference

This class defines the 3d FFT transformation subject to open or periodic conditions, Fourier Sine transformation, Complex-Complex, Complex-Real, and Real-Complex FFT. More...

Data Types
interface	fftcrlocal_fft
interface	fftrclocal_fft

Functions/Subroutines
subroutine	fft3d1_fft (nx, ny, nz, nsizez, nsizey, nsizexy, nsizeyz, ksign, scalex, scaley, scalez, x, xstable, xrtable, ystable, yrtable, nprocrow, commrow, nproccol, commcol, comm2d, myidx, myidy, xout)
subroutine	invfft3d1_fft (nz, ny, nx, nsizexy, nsizeyz, nsizey, nsizez, ksign, scalex, scaley, scalez, x, xstable, xrtable, ystable, yrtable, nprocrow, commrow, nproccol, commcol, comm2d, myidx, myidy, xout)
subroutine	invfft3d1img_fft (nz, ny, nx, nsizexy, nsizeyz, nsizey, nsizez, ksign, scalex, scaley, scalez, x, xstable, xrtable, ystable, yrtable, nprocrow, commrow, nproccol, commcol, comm2d, myidx, myidy, xout)
subroutine	fftlocal0_fft (ksign, scale, x, ny, nsizex)
subroutine	fftlocal_fft (ksign, scale, x, ny, nsizex)
subroutine	fftrclocal1_fft (ksign, scale, x, ny, nsizex, y)
subroutine	fftrclocal2_fft (ksign, scale, x, ny, nsizex, y)
subroutine	fftcrlocal1_fft (ksign, scale, x, ny, nsizex, y)
subroutine	fftcrlocal2_fft (ksign, scale, x, ny, nsizex, y)
subroutine	four1 (data, nn, isign)
subroutine	realft (data, n, isign)
subroutine	sinft (y, ny)
subroutine	cosft1_fftpack (y, n)
subroutine	rvec_pack2nr_cosft1 (r, ny, y)
subroutine	rvec_nr2pack_sint1f (r, n, y)
subroutine	rvec_pack2nr_sint1f (r, n, y)
subroutine	rvec_nr2pack_rfft1f (r, n, data)
subroutine	rvec_pack2nr_rfft1f (r, n, data)
subroutine	rvec_nr2pack_rfft1b (r, n, data)
subroutine	rvec_pack2nr_rfft1b (r, n, data)
subroutine	rvec_nr2pack_gnl (r, n, data)
subroutine	rvec_pack2nr_gnl (r, n, data)
subroutine	c1f2kb (ido, l1, na, cc, in1, ch, in2, wa)
subroutine	c1f2kf (ido, l1, na, cc, in1, ch, in2, wa)
subroutine	c1f3kb (ido, l1, na, cc, in1, ch, in2, wa)
subroutine	c1f3kf (ido, l1, na, cc, in1, ch, in2, wa)
subroutine	c1f4kb (ido, l1, na, cc, in1, ch, in2, wa)
subroutine	c1f4kf (ido, l1, na, cc, in1, ch, in2, wa)
subroutine	c1f5kb (ido, l1, na, cc, in1, ch, in2, wa)
subroutine	c1f5kf (ido, l1, na, cc, in1, ch, in2, wa)
subroutine	c1fgkb (ido, ip, l1, lid, na, cc, cc1, in1, ch, ch1, in2, wa
subroutine	c1fgkf (ido, ip, l1, lid, na, cc, cc1, in1, ch, ch1, in2, wa
subroutine	c1fm1b (n, inc, c, ch, wa, fnf, fac)
subroutine	c1fm1f (n, inc, c, ch, wa, fnf, fac)
subroutine	cfft1b (n, inc, c, lenc, wsave, lensav, work, lenwrk, ier)
subroutine	cfft1f (n, inc, c, lenc, wsave, lensav, work, lenwrk, ier)
subroutine	cfft1i (n, wsave, lensav, ier)
subroutine	cmf2kb (lot, ido, l1, na, cc, im1, in1, ch, im2, in2, wa)
subroutine	cmf2kf (lot, ido, l1, na, cc, im1, in1, ch, im2, in2, wa)
subroutine	cmf3kb (lot, ido, l1, na, cc, im1, in1, ch, im2, in2, wa)
subroutine	cmf3kf (lot, ido, l1, na, cc, im1, in1, ch, im2, in2, wa)
subroutine	cmf4kb (lot, ido, l1, na, cc, im1, in1, ch, im2, in2, wa)
subroutine	cmf4kf (lot, ido, l1, na, cc, im1, in1, ch, im2, in2, wa)
subroutine	cmf5kb (lot, ido, l1, na, cc, im1, in1, ch, im2, in2, wa)
subroutine	cmf5kf (lot, ido, l1, na, cc, im1, in1, ch, im2, in2, wa)
subroutine	cmfgkb (lot, ido, ip, l1, lid, na, cc, cc1, im1, in1, ch, ch1, im2, in2, wa)
subroutine	cmfgkf (lot, ido, ip, l1, lid, na, cc, cc1, im1, in1, ch, ch1, im2, in2, wa)
subroutine	cosq1b (n, inc, x, lenx, wsave, lensav, work, lenwrk, ier)
subroutine	cosq1f (n, inc, x, lenx, wsave, lensav, work, lenwrk, ier)
subroutine	cosq1i (n, wsave, lensav, ier)
subroutine	cosqb1 (n, inc, x, wsave, work, ier)
subroutine	cosqf1 (n, inc, x, wsave, work, ier)
subroutine	cosqmb (lot, jump, n, inc, x, lenx, wsave, lensav, work, len
subroutine	cosqmf (lot, jump, n, inc, x, lenx, wsave, lensav, work, lenwrk, ier)
subroutine	cosqmi (n, wsave, lensav, ier)
subroutine	cost1b (n, inc, x, lenx, wsave, lensav, work, lenwrk, ier)
subroutine	cost1f (n, inc, x, lenx, wsave, lensav, work, lenwrk, ier)
subroutine	cost1i (n, wsave, lensav, ier)
subroutine	costb1 (n, inc, x, wsave, work, ier)
subroutine	costf1 (n, inc, x, wsave, work, ier)
subroutine	costmb (lot, jump, n, inc, x, lenx, wsave, lensav, work, lenwrk, ier)
subroutine	costmf (lot, jump, n, inc, x, lenx, wsave, lensav, work, lenwrk, ier)
subroutine	costmi (n, wsave, lensav, ier)
subroutine	mcsqb1 (lot, jump, n, inc, x, wsave, work, ier)
subroutine	mcsqf1 (lot, jump, n, inc, x, wsave, work, ier)
subroutine	mcstb1 (lot, jump, n, inc, x, wsave, dsum, work, ier)
subroutine	mcstf1 (lot, jump, n, inc, x, wsave, dsum, work, ier)
subroutine	mradb2 (m, ido, l1, cc, im1, in1, ch, im2, in2, wa1)
subroutine	mradb3 (m, ido, l1, cc, im1, in1, ch, im2, in2, wa1, wa2)
subroutine	mradb4 (m, ido, l1, cc, im1, in1, ch, im2, in2, wa1, wa2, wa3)
subroutine	mradb5 (m, ido, l1, cc, im1, in1, ch, im2, in2, wa1, wa2, wa3, wa4)
subroutine	mradbg (m, ido, ip, l1, idl1, cc, c1, c2, im1, in1, ch, ch2, im2, in2, wa)
subroutine	mradf2 (m, ido, l1, cc, im1, in1, ch, im2, in2, wa1)
subroutine	mradf3 (m, ido, l1, cc, im1, in1, ch, im2, in2, wa1, wa2)
subroutine	mradf4 (m, ido, l1, cc, im1, in1, ch, im2, in2, wa1, wa2, wa3)
subroutine	mradf5 (m, ido, l1, cc, im1, in1, ch, im2, in2, wa1, wa2, wa3, wa4)
subroutine	mradfg (m, ido, ip, l1, idl1, cc, c1, c2, im1, in1, ch, ch2, im2, in2, wa)
subroutine	mrftb1 (m, im, n, in, c, ch, wa, fac)
subroutine	mrftf1 (m, im, n, in, c, ch, wa, fac)
subroutine	mrfti1 (n, wa, fac)
subroutine	msntb1 (lot, jump, n, inc, x, wsave, dsum, xh, work, ier)
subroutine	msntf1 (lot, jump, n, inc, x, wsave, dsum, xh, work, ier)
subroutine	r1f2kb (ido, l1, cc, in1, ch, in2, wa1)
subroutine	r1f2kf (ido, l1, cc, in1, ch, in2, wa1)
subroutine	r1f3kb (ido, l1, cc, in1, ch, in2, wa1, wa2)
subroutine	r1f3kf (ido, l1, cc, in1, ch, in2, wa1, wa2)
subroutine	r1f4kb (ido, l1, cc, in1, ch, in2, wa1, wa2, wa3)
subroutine	r1f4kf (ido, l1, cc, in1, ch, in2, wa1, wa2, wa3)
subroutine	r1f5kb (ido, l1, cc, in1, ch, in2, wa1, wa2, wa3, wa4)
subroutine	r1f5kf (ido, l1, cc, in1, ch, in2, wa1, wa2, wa3, wa4)
subroutine	r1fgkb (ido, ip, l1, idl1, cc, c1, c2, in1, ch, ch2, in2, wa)
subroutine	r1fgkf (ido, ip, l1, idl1, cc, c1, c2, in1, ch, ch2, in2, wa)
subroutine	r2w (ldr, ldw, l, m, r, w)
subroutine	r4_factor (n, nf, fac)
subroutine	r4_mcfti1 (n, wa, fnf, fac)
subroutine	r4_tables (ido, ip, wa)
subroutine	r8_factor (n, nf, fac)
subroutine	r8_mcfti1 (n, wa, fnf, fac)
subroutine	r8_tables (ido, ip, wa)
subroutine	rfft1b (n, inc, r, lenr, wsave, lensav, work, lenwrk, ier)
subroutine	rfft1f (n, inc, r, lenr, wsave, lensav, work, lenwrk, ier)
subroutine	rfft1i (n, wsave, lensav, ier)
subroutine	rfftb1 (n, in, c, ch, wa, fac)
subroutine	rfftf1 (n, in, c, ch, wa, fac)
subroutine	rffti1 (n, wa, fac)
subroutine	rfftmb (lot, jump, n, inc, r, lenr, wsave, lensav, work, len
subroutine	rfftmf (lot, jump, n, inc, r, lenr, wsave, lensav, work, lenwrk, ier)
subroutine	rfftmi (n, wsave, lensav, ier)
subroutine	sinq1b (n, inc, x, lenx, wsave, lensav, work, lenwrk, ier)
subroutine	sinq1f (n, inc, x, lenx, wsave, lensav, work, lenwrk, ier)
subroutine	sinq1i (n, wsave, lensav, ier)
subroutine	sinqmb (lot, jump, n, inc, x, lenx, wsave, lensav, work, lenwrk, ier)
subroutine	sinqmf (lot, jump, n, inc, x, lenx, wsave, lensav, work, lenwrk, ier)
subroutine	sinqmi (n, wsave, lensav, ier)
subroutine	sint1b (n, inc, x, lenx, wsave, lensav, work, lenwrk, ier)
subroutine	sint1f (n, inc, x, lenx, wsave, lensav, work, lenwrk, ier)
subroutine	sint1i (n, wsave, lensav, ier)
subroutine	sintb1 (n, inc, x, wsave, xh, work, ier)
subroutine	sintf1 (n, inc, x, wsave, xh, work, ier)
subroutine	sintmb (lot, jump, n, inc, x, lenx, wsave, lensav, work, lenwrk, ier)
subroutine	sintmf (lot, jump, n, inc, x, lenx, wsave, lensav, work, lenwrk, ier)
subroutine	sintmi (n, wsave, lensav, ier)
subroutine	w2r (ldr, ldw, l, m, r, w)
logical function	xercon (inc, jump, n, lot)
subroutine	xerfft (srname, info)

Detailed Description

This class defines the 3d FFT transformation subject to open or periodic conditions, Fourier Sine transformation, Complex-Complex, Complex-Real, and Real-Complex FFT.

Author

Ji Qiang

Function/Subroutine Documentation

c1f2kb()

subroutine fftclass::c1f2kb	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(in1,l1,ido,2)	cc,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,l1,2,ido)	ch,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,1,2)	wa
	)

Here is the caller graph for this function:

c1f2kf()

subroutine fftclass::c1f2kf	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(in1,l1,ido,2)	cc,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,l1,2,ido)	ch,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,1,2)	wa
	)

Here is the caller graph for this function:

c1f3kb()

subroutine fftclass::c1f3kb	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(in1,l1,ido,3)	cc,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,l1,3,ido)	ch,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,2,2)	wa
	)

Here is the caller graph for this function:

c1f3kf()

subroutine fftclass::c1f3kf	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(in1,l1,ido,3)	cc,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,l1,3,ido)	ch,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,2,2)	wa
	)

Here is the caller graph for this function:

c1f4kb()

subroutine fftclass::c1f4kb	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(in1,l1,ido,4)	cc,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,l1,4,ido)	ch,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,3,2)	wa
	)

Here is the caller graph for this function:

c1f4kf()

subroutine fftclass::c1f4kf	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(in1,l1,ido,4)	cc,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,l1,4,ido)	ch,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,3,2)	wa
	)

Here is the caller graph for this function:

c1f5kb()

subroutine fftclass::c1f5kb	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(in1,l1,ido,5)	cc,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,l1,5,ido)	ch,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,4,2)	wa
	)

Here is the caller graph for this function:

c1f5kf()

subroutine fftclass::c1f5kf	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(in1,l1,ido,5)	cc,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,l1,5,ido)	ch,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,4,2)	wa
	)

Here is the caller graph for this function:

c1fgkb()

subroutine fftclass::c1fgkb	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	ip,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	lid,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(in1,l1,ip,ido)	cc,
		real ( kind = 8 ), dimension(in1,lid,ip)	cc1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,l1,ido,ip)	ch,
		real ( kind = 8 ), dimension(in2,lid,ip)	ch1,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,ip-1,2)	wa
	)

Here is the caller graph for this function:

c1fgkf()

subroutine fftclass::c1fgkf	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	ip,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	lid,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(in1,l1,ip,ido)	cc,
		real ( kind = 8 ), dimension(in1,lid,ip)	cc1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,l1,ido,ip)	ch,
		real ( kind = 8 ), dimension(in2,lid,ip)	ch1,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,ip-1,2)	wa
	)

Here is the caller graph for this function:

c1fm1b()

subroutine fftclass::c1fm1b	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(*)	c,
		real ( kind = 8 ), dimension(*)	ch,
		real ( kind = 8 ), dimension(*)	wa,
		real ( kind = 8 )	fnf,
		real ( kind = 8 ), dimension(*)	fac
	)

Here is the call graph for this function:

Here is the caller graph for this function:

c1fm1f()

subroutine fftclass::c1fm1f	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(*)	c,
		real ( kind = 8 ), dimension(*)	ch,
		real ( kind = 8 ), dimension(*)	wa,
		real ( kind = 8 )	fnf,
		real ( kind = 8 ), dimension(*)	fac
	)

Here is the call graph for this function:

Here is the caller graph for this function:

cfft1b()

subroutine fftclass::cfft1b	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real (kind = 8 ), dimension(2*lenc)	c,
		integer ( kind = 4 )	lenc,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

cfft1f()

subroutine fftclass::cfft1f	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(2*lenc)	c,
		integer ( kind = 4 )	lenc,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

cfft1i()

subroutine fftclass::cfft1i	(	integer ( kind = 4 )	n,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

cmf2kb()

subroutine fftclass::cmf2kb	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(2,in1,l1,ido,2)	cc,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(2,in2,l1,2,ido)	ch,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,1,2)	wa
	)

cmf2kf()

subroutine fftclass::cmf2kf	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(2,in1,l1,ido,2)	cc,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(2,in2,l1,2,ido)	ch,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,1,2)	wa
	)

cmf3kb()

subroutine fftclass::cmf3kb	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(2,in1,l1,ido,3)	cc,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(2,in2,l1,3,ido)	ch,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,2,2)	wa
	)

cmf3kf()

subroutine fftclass::cmf3kf	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(2,in1,l1,ido,3)	cc,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(2,in2,l1,3,ido)	ch,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,2,2)	wa
	)

cmf4kb()

subroutine fftclass::cmf4kb	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(2,in1,l1,ido,4)	cc,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(2,in2,l1,4,ido)	ch,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,3,2)	wa
	)

cmf4kf()

subroutine fftclass::cmf4kf	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(2,in1,l1,ido,4)	cc,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(2,in2,l1,4,ido)	ch,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,3,2)	wa
	)

cmf5kb()

subroutine fftclass::cmf5kb	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(2,in1,l1,ido,5)	cc,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(2,in2,l1,5,ido)	ch,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,4,2)	wa
	)

cmf5kf()

subroutine fftclass::cmf5kf	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(2,in1,l1,ido,5)	cc,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(2,in2,l1,5,ido)	ch,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,4,2)	wa
	)

cmfgkb()

subroutine fftclass::cmfgkb	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	ip,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	lid,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(2,in1,l1,ip,ido)	cc,
		real ( kind = 8 ), dimension(2,in1,lid,ip)	cc1,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(2,in2,l1,ido,ip)	ch,
		real ( kind = 8 ), dimension(2,in2,lid,ip)	ch1,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,ip-1,2)	wa
	)

cmfgkf()

subroutine fftclass::cmfgkf	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	ip,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	lid,
		integer ( kind = 4 )	na,
		real ( kind = 8 ), dimension(2,in1,l1,ip,ido)	cc,
		real ( kind = 8 ), dimension(2,in1,lid,ip)	cc1,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(2,in2,l1,ido,ip)	ch,
		real ( kind = 8 ), dimension(2,in2,lid,ip)	ch1,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido,ip-1,2)	wa
	)

cosft1_fftpack()

subroutine fftclass::cosft1_fftpack	(	real*8, dimension(n+1)	y,
		integer	n
	)

Here is the call graph for this function:

cosq1b()

subroutine fftclass::cosq1b	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		integer ( kind = 4 )	lenx,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

cosq1f()

subroutine fftclass::cosq1f	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		integer ( kind = 4 )	lenx,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

cosq1i()

subroutine fftclass::cosq1i	(	integer ( kind = 4 )	n,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

cosqb1()

subroutine fftclass::cosqb1	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		real ( kind = 8 ), dimension(*)	wsave,
		real ( kind = 8 ), dimension(*)	work,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

cosqf1()

subroutine fftclass::cosqf1	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		real ( kind = 8 ), dimension(*)	wsave,
		real ( kind = 8 ), dimension(*)	work,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

cosqmb()

subroutine fftclass::cosqmb	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	jump,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		integer ( kind = 4 )	lenx,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
			len
	)

Here is the call graph for this function:

Here is the caller graph for this function:

cosqmf()

subroutine fftclass::cosqmf	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	jump,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		integer ( kind = 4 )	lenx,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

cosqmi()

subroutine fftclass::cosqmi	(	integer ( kind = 4 )	n,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

cost1b()

subroutine fftclass::cost1b	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		integer ( kind = 4 )	lenx,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

cost1f()

subroutine fftclass::cost1f	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		integer ( kind = 4 )	lenx,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

cost1i()

subroutine fftclass::cost1i	(	integer ( kind = 4 )	n,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

costb1()

subroutine fftclass::costb1	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		real ( kind = 8 ), dimension(*)	wsave,
		real ( kind = 8 ), dimension(*)	work,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

costf1()

subroutine fftclass::costf1	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		real ( kind = 8 ), dimension(*)	wsave,
		real ( kind = 8 ), dimension(*)	work,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

costmb()

subroutine fftclass::costmb	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	jump,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		integer ( kind = 4 )	lenx,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

costmf()

subroutine fftclass::costmf	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	jump,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		integer ( kind = 4 )	lenx,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

costmi()

subroutine fftclass::costmi	(	integer ( kind = 4 )	n,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

fft3d1_fft()

subroutine fftclass::fft3d1_fft	(	integer, intent(in)	nx,
		integer, intent(in)	ny,
		integer, intent(in)	nz,
		integer, intent(in)	nsizez,
		integer, intent(in)	nsizey,
		integer, intent(in)	nsizexy,
		integer, intent(in)	nsizeyz,
		integer, intent(in)	ksign,
		double precision, intent(in)	scalex,
		double precision, intent(in)	scaley,
		double precision, intent(in)	scalez,
		double precision, dimension(nx/2,nsizey,nsizez), intent(in)	x,
		integer, dimension(0:nprocrow-1), intent(in)	xstable,
		integer, dimension(0:nprocrow-1), intent(in)	xrtable,
		integer, dimension(0:nproccol-1), intent(in)	ystable,
		integer, dimension(0:nproccol-1), intent(in)	yrtable,
		integer, intent(in)	nprocrow,
		integer, intent(in)	commrow,
		integer, intent(in)	nproccol,
		integer, intent(in)	commcol,
		integer, intent(in)	comm2d,
		integer, intent(in)	myidx,
		integer, intent(in)	myidy,
		double complex, dimension(nz,nsizexy,nsizeyz), intent(out)	xout
	)

Here is the call graph for this function:

Here is the caller graph for this function:

fftcrlocal1_fft()

subroutine fftclass::fftcrlocal1_fft	(	integer, intent(in)	ksign,
		double precision, intent(in)	scale,
		double complex, dimension(ny/2+1,nsizex), intent(in)	x,
		integer, intent(in)	ny,
		integer, intent(in)	nsizex,
		double precision, dimension(ny,nsizex), intent(out)	y
	)

Here is the call graph for this function:

fftcrlocal2_fft()

subroutine fftclass::fftcrlocal2_fft	(	integer, intent(in)	ksign,
		double precision, intent(in)	scale,
		double precision, dimension(ny,nsizex), intent(in)	x,
		integer, intent(in)	ny,
		integer, intent(in)	nsizex,
		double precision, dimension(ny,nsizex), intent(out)	y
	)

Here is the call graph for this function:

Here is the caller graph for this function:

fftlocal0_fft()

subroutine fftclass::fftlocal0_fft	(	integer, intent(in)	ksign,
		double precision, intent(in)	scale,
		double precision, dimension(ny,nsizex), intent(inout)	x,
		integer, intent(in)	ny,
		integer, intent(in)	nsizex
	)

Here is the call graph for this function:

fftlocal_fft()

subroutine fftclass::fftlocal_fft	(	integer, intent(in)	ksign,
		double precision, intent(in)	scale,
		double complex, dimension(ny,nsizex), intent(inout)	x,
		integer, intent(in)	ny,
		integer, intent(in)	nsizex
	)

Here is the call graph for this function:

Here is the caller graph for this function:

fftrclocal1_fft()

subroutine fftclass::fftrclocal1_fft	(	integer, intent(in)	ksign,
		double precision, intent(in)	scale,
		double precision, dimension(ny,nsizex), intent(in)	x,
		integer, intent(in)	ny,
		integer, intent(in)	nsizex,
		double complex, dimension(ny/2+1,nsizex), intent(out)	y
	)

Here is the call graph for this function:

fftrclocal2_fft()

subroutine fftclass::fftrclocal2_fft	(	integer, intent(in)	ksign,
		double precision, intent(in)	scale,
		double precision, dimension(ny,nsizex), intent(in)	x,
		integer, intent(in)	ny,
		integer, intent(in)	nsizex,
		double precision, dimension(ny,nsizex), intent(out)	y
	)

Here is the call graph for this function:

Here is the caller graph for this function:

four1()

subroutine fftclass::four1	(	real*8, dimension(2*nn)	data,
		integer	nn,
		integer	isign
	)

Here is the call graph for this function:

Here is the caller graph for this function:

invfft3d1_fft()

subroutine fftclass::invfft3d1_fft	(	integer, intent(in)	nz,
		integer, intent(in)	ny,
		integer, intent(in)	nx,
		integer, intent(in)	nsizexy,
		integer, intent(in)	nsizeyz,
		integer, intent(in)	nsizey,
		integer, intent(in)	nsizez,
		integer, intent(in)	ksign,
		double precision, intent(in)	scalex,
		double precision, intent(in)	scaley,
		double precision, intent(in)	scalez,
		double complex, dimension(nz,nsizexy,nsizeyz), intent(inout)	x,
		integer, dimension(0:nprocrow-1), intent(in)	xstable,
		integer, dimension(0:nprocrow-1), intent(in)	xrtable,
		integer, dimension(0:nproccol-1), intent(in)	ystable,
		integer, dimension(0:nproccol-1), intent(in)	yrtable,
		integer, intent(in)	nprocrow,
		integer, intent(in)	commrow,
		integer, intent(in)	nproccol,
		integer, intent(in)	commcol,
		integer, intent(in)	comm2d,
		integer, intent(in)	myidx,
		integer, intent(in)	myidy,
		double precision, dimension(nx/2,nsizey,nsizez), intent(out)	xout
	)

Here is the call graph for this function:

Here is the caller graph for this function:

invfft3d1img_fft()

subroutine fftclass::invfft3d1img_fft	(	integer, intent(in)	nz,
		integer, intent(in)	ny,
		integer, intent(in)	nx,
		integer, intent(in)	nsizexy,
		integer, intent(in)	nsizeyz,
		integer, intent(in)	nsizey,
		integer, intent(in)	nsizez,
		integer, intent(in)	ksign,
		double precision, intent(in)	scalex,
		double precision, intent(in)	scaley,
		double precision, intent(in)	scalez,
		double complex, dimension(nz,nsizexy,nsizeyz), intent(inout)	x,
		integer, dimension(0:nprocrow-1), intent(in)	xstable,
		integer, dimension(0:nprocrow-1), intent(in)	xrtable,
		integer, dimension(0:nproccol-1), intent(in)	ystable,
		integer, dimension(0:nproccol-1), intent(in)	yrtable,
		integer, intent(in)	nprocrow,
		integer, intent(in)	commrow,
		integer, intent(in)	nproccol,
		integer, intent(in)	commcol,
		integer, intent(in)	comm2d,
		integer, intent(in)	myidx,
		integer, intent(in)	myidy,
		double precision, dimension(nx/2,nsizey,nsizez), intent(out)	xout
	)

Here is the call graph for this function:

Here is the caller graph for this function:

mcsqb1()

subroutine fftclass::mcsqb1	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	jump,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		real ( kind = 8 ), dimension(*)	wsave,
		real ( kind = 8 ), dimension(lot,*)	work,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

mcsqf1()

subroutine fftclass::mcsqf1	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	jump,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		real ( kind = 8 ), dimension(*)	wsave,
		real ( kind = 8 ), dimension(lot,*)	work,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

mcstb1()

subroutine fftclass::mcstb1	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	jump,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		real ( kind = 8 ), dimension(*)	wsave,
		real ( kind = 8 ), dimension(*)	dsum,
		real ( kind = 8 ), dimension(*)	work,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

mcstf1()

subroutine fftclass::mcstf1	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	jump,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		real ( kind = 8 ), dimension(*)	wsave,
		real ( kind = 8 ), dimension(*)	dsum,
		real ( kind = 8 ), dimension(*)	work,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

mradb2()

subroutine fftclass::mradb2	(	integer ( kind = 4 )	m,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		real ( kind = 8 ), dimension(in1,ido,2,l1)	cc,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,l1,2)	ch,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa1
	)

Here is the caller graph for this function:

mradb3()

subroutine fftclass::mradb3	(	integer ( kind = 4 )	m,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		real ( kind = 8 ), dimension(in1,ido,3,l1)	cc,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,l1,3)	ch,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa1,
		real ( kind = 8 ), dimension(ido)	wa2
	)

Here is the caller graph for this function:

mradb4()

subroutine fftclass::mradb4	(	integer ( kind = 4 )	m,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		real ( kind = 8 ), dimension(in1,ido,4,l1)	cc,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,l1,4)	ch,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa1,
		real ( kind = 8 ), dimension(ido)	wa2,
		real ( kind = 8 ), dimension(ido)	wa3
	)

Here is the caller graph for this function:

mradb5()

subroutine fftclass::mradb5	(	integer ( kind = 4 )	m,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		real ( kind = 8 ), dimension(in1,ido,5,l1)	cc,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,l1,5)	ch,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa1,
		real ( kind = 8 ), dimension(ido)	wa2,
		real ( kind = 8 ), dimension(ido)	wa3,
		real ( kind = 8 ), dimension(ido)	wa4
	)

Here is the caller graph for this function:

mradbg()

subroutine fftclass::mradbg	(	integer ( kind = 4 )	m,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	ip,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	idl1,
		real ( kind = 8 ), dimension(in1,ido,ip,l1)	cc,
		real ( kind = 8 ), dimension(in1,ido,l1,ip)	c1,
		real ( kind = 8 ), dimension(in1,idl1,ip)	c2,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,l1,ip)	ch,
		real ( kind = 8 ), dimension(in2,idl1,ip)	ch2,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa
	)

Here is the caller graph for this function:

mradf2()

subroutine fftclass::mradf2	(	integer ( kind = 4 )	m,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		real ( kind = 8 ), dimension(in1,ido,l1,2)	cc,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,2,l1)	ch,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa1
	)

Here is the caller graph for this function:

mradf3()

subroutine fftclass::mradf3	(	integer ( kind = 4 )	m,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		real ( kind = 8 ), dimension(in1,ido,l1,3)	cc,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,3,l1)	ch,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa1,
		real ( kind = 8 ), dimension(ido)	wa2
	)

Here is the caller graph for this function:

mradf4()

subroutine fftclass::mradf4	(	integer ( kind = 4 )	m,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		real ( kind = 8 ), dimension(in1,ido,l1,4)	cc,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,4,l1)	ch,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa1,
		real ( kind = 8 ), dimension(ido)	wa2,
		real ( kind = 8 ), dimension(ido)	wa3
	)

Here is the caller graph for this function:

mradf5()

subroutine fftclass::mradf5	(	integer ( kind = 4 )	m,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		real ( kind = 8 ), dimension(in1,ido,l1,5)	cc,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,5,l1)	ch,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa1,
		real ( kind = 8 ), dimension(ido)	wa2,
		real ( kind = 8 ), dimension(ido)	wa3,
		real ( kind = 8 ), dimension(ido)	wa4
	)

Here is the caller graph for this function:

mradfg()

subroutine fftclass::mradfg	(	integer ( kind = 4 )	m,
		integer ( kind = 4 )	ido,
		integer ( kind = 4 )	ip,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	idl1,
		real ( kind = 8 ), dimension(in1,ido,ip,l1)	cc,
		real ( kind = 8 ), dimension(in1,ido,l1,ip)	c1,
		real ( kind = 8 ), dimension(in1,idl1,ip)	c2,
		integer ( kind = 4 )	im1,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,l1,ip)	ch,
		real ( kind = 8 ), dimension(in2,idl1,ip)	ch2,
		integer ( kind = 4 )	im2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa
	)

Here is the caller graph for this function:

mrftb1()

subroutine fftclass::mrftb1	(	integer ( kind = 4 )	m,
		integer ( kind = 4 )	im,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	in,
		real ( kind = 8 ), dimension(in,*)	c,
		real ( kind = 8 ), dimension(m,*)	ch,
		real ( kind = 8 ), dimension(n)	wa,
		real ( kind = 8 ), dimension(15)	fac
	)

Here is the call graph for this function:

Here is the caller graph for this function:

mrftf1()

subroutine fftclass::mrftf1	(	integer ( kind = 4 )	m,
		integer ( kind = 4 )	im,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	in,
		real ( kind = 8 ), dimension(in,*)	c,
		real ( kind = 8 ), dimension(m,*)	ch,
		real ( kind = 8 ), dimension(n)	wa,
		real ( kind = 8 ), dimension(15)	fac
	)

Here is the call graph for this function:

Here is the caller graph for this function:

mrfti1()

subroutine fftclass::mrfti1	(	integer ( kind = 4 )	n,
		real ( kind = 8 ), dimension(n)	wa,
		real ( kind = 8 ), dimension(15)	fac
	)

Here is the caller graph for this function:

msntb1()

subroutine fftclass::msntb1	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	jump,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		real ( kind = 8 ), dimension(*)	wsave,
		real ( kind = 8 ), dimension(*)	dsum,
		real ( kind = 8 ), dimension(lot,*)	xh,
		real ( kind = 8 ), dimension(*)	work,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

msntf1()

subroutine fftclass::msntf1	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	jump,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		real ( kind = 8 ), dimension(*)	wsave,
		real ( kind = 8 ), dimension(*)	dsum,
		real ( kind = 8 ), dimension(lot,*)	xh,
		real ( kind = 8 ), dimension(*)	work,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

r1f2kb()

subroutine fftclass::r1f2kb	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		real ( kind = 8 ), dimension(in1,ido,2,l1)	cc,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,l1,2)	ch,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa1
	)

Here is the caller graph for this function:

r1f2kf()

subroutine fftclass::r1f2kf	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		real ( kind = 8 ), dimension(in1,ido,l1,2)	cc,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,2,l1)	ch,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa1
	)

Here is the caller graph for this function:

r1f3kb()

subroutine fftclass::r1f3kb	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		real ( kind = 8 ), dimension(in1,ido,3,l1)	cc,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,l1,3)	ch,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa1,
		real ( kind = 8 ), dimension(ido)	wa2
	)

Here is the caller graph for this function:

r1f3kf()

subroutine fftclass::r1f3kf	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		real ( kind = 8 ), dimension(in1,ido,l1,3)	cc,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,3,l1)	ch,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa1,
		real ( kind = 8 ), dimension(ido)	wa2
	)

Here is the caller graph for this function:

r1f4kb()

subroutine fftclass::r1f4kb	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		real ( kind = 8 ), dimension(in1,ido,4,l1)	cc,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,l1,4)	ch,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa1,
		real ( kind = 8 ), dimension(ido)	wa2,
		real ( kind = 8 ), dimension(ido)	wa3
	)

Here is the caller graph for this function:

r1f4kf()

subroutine fftclass::r1f4kf	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		real ( kind = 8 ), dimension(in1,ido,l1,4)	cc,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,4,l1)	ch,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa1,
		real ( kind = 8 ), dimension(ido)	wa2,
		real ( kind = 8 ), dimension(ido)	wa3
	)

Here is the caller graph for this function:

r1f5kb()

subroutine fftclass::r1f5kb	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		real ( kind = 8 ), dimension(in1,ido,5,l1)	cc,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,l1,5)	ch,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa1,
		real ( kind = 8 ), dimension(ido)	wa2,
		real ( kind = 8 ), dimension(ido)	wa3,
		real ( kind = 8 ), dimension(ido)	wa4
	)

Here is the caller graph for this function:

r1f5kf()

subroutine fftclass::r1f5kf	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	l1,
		real ( kind = 8 ), dimension(in1,ido,l1,5)	cc,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,5,l1)	ch,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa1,
		real ( kind = 8 ), dimension(ido)	wa2,
		real ( kind = 8 ), dimension(ido)	wa3,
		real ( kind = 8 ), dimension(ido)	wa4
	)

Here is the caller graph for this function:

r1fgkb()

subroutine fftclass::r1fgkb	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	ip,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	idl1,
		real ( kind = 8 ), dimension(in1,ido,ip,l1)	cc,
		real ( kind = 8 ), dimension(in1,ido,l1,ip)	c1,
		real ( kind = 8 ), dimension(in1,idl1,ip)	c2,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,l1,ip)	ch,
		real ( kind = 8 ), dimension(in2,idl1,ip)	ch2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa
	)

Here is the caller graph for this function:

r1fgkf()

subroutine fftclass::r1fgkf	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	ip,
		integer ( kind = 4 )	l1,
		integer ( kind = 4 )	idl1,
		real ( kind = 8 ), dimension(in1,ido,ip,l1)	cc,
		real ( kind = 8 ), dimension(in1,ido,l1,ip)	c1,
		real ( kind = 8 ), dimension(in1,idl1,ip)	c2,
		integer ( kind = 4 )	in1,
		real ( kind = 8 ), dimension(in2,ido,l1,ip)	ch,
		real ( kind = 8 ), dimension(in2,idl1,ip)	ch2,
		integer ( kind = 4 )	in2,
		real ( kind = 8 ), dimension(ido)	wa
	)

Here is the caller graph for this function:

r2w()

subroutine fftclass::r2w	(	integer ( kind = 4 )	ldr,
		integer ( kind = 4 )	ldw,
		integer ( kind = 4 )	l,
		integer ( kind = 4 )	m,
		real ( kind = 8 ), dimension(ldr,m)	r,
		real ( kind = 8 ), dimension(ldw,m)	w
	)

r4_factor()

subroutine fftclass::r4_factor	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	nf,
		real ( kind = 8 ), dimension(*)	fac
	)

Here is the caller graph for this function:

r4_mcfti1()

subroutine fftclass::r4_mcfti1	(	integer ( kind = 4 )	n,
		real ( kind = 8 ), dimension(*)	wa,
		real ( kind = 8 )	fnf,
		real ( kind = 8 ), dimension(*)	fac
	)

Here is the call graph for this function:

Here is the caller graph for this function:

r4_tables()

subroutine fftclass::r4_tables	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	ip,
		real ( kind = 8 ), dimension(ido,ip-1,2)	wa
	)

Here is the caller graph for this function:

r8_factor()

subroutine fftclass::r8_factor	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	nf,
		real ( kind = 8 ), dimension(*)	fac
	)

Here is the caller graph for this function:

r8_mcfti1()

subroutine fftclass::r8_mcfti1	(	integer ( kind = 4 )	n,
		real ( kind = 8 ), dimension(*)	wa,
		real ( kind = 8 )	fnf,
		real ( kind = 8 ), dimension(*)	fac
	)

Here is the call graph for this function:

r8_tables()

subroutine fftclass::r8_tables	(	integer ( kind = 4 )	ido,
		integer ( kind = 4 )	ip,
		real ( kind = 8 ), dimension(ido,ip-1,2)	wa
	)

Here is the caller graph for this function:

realft()

subroutine fftclass::realft	(	real*8, dimension(n)	data,
		integer	n,
		integer	isign
	)

Here is the call graph for this function:

Here is the caller graph for this function:

rfft1b()

subroutine fftclass::rfft1b	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(lenr)	r,
		integer ( kind = 4 )	lenr,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

rfft1f()

subroutine fftclass::rfft1f	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(lenr)	r,
		integer ( kind = 4 )	lenr,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

rfft1i()

subroutine fftclass::rfft1i	(	integer ( kind = 4 )	n,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

rfftb1()

subroutine fftclass::rfftb1	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	in,
		real ( kind = 8 ), dimension(in,*)	c,
		real ( kind = 8 ), dimension(*)	ch,
		real ( kind = 8 ), dimension(n)	wa,
		real ( kind = 8 ), dimension(15)	fac
	)

Here is the call graph for this function:

Here is the caller graph for this function:

rfftf1()

subroutine fftclass::rfftf1	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	in,
		real ( kind = 8 ), dimension(in,*)	c,
		real ( kind = 8 ), dimension(*)	ch,
		real ( kind = 8 ), dimension(n)	wa,
		real ( kind = 8 ), dimension(15)	fac
	)

Here is the call graph for this function:

Here is the caller graph for this function:

rffti1()

subroutine fftclass::rffti1	(	integer ( kind = 4 )	n,
		real ( kind = 8 ), dimension(n)	wa,
		real ( kind = 8 ), dimension(15)	fac
	)

Here is the caller graph for this function:

rfftmb()

subroutine fftclass::rfftmb	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	jump,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(lenr)	r,
		integer ( kind = 4 )	lenr,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
			len
	)

Here is the call graph for this function:

Here is the caller graph for this function:

rfftmf()

subroutine fftclass::rfftmf	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	jump,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(lenr)	r,
		integer ( kind = 4 )	lenr,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

rfftmi()

subroutine fftclass::rfftmi	(	integer ( kind = 4 )	n,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

rvec_nr2pack_gnl()

subroutine fftclass::rvec_nr2pack_gnl	(	real ( kind = 8 ), dimension(n)	r,
		integer	n,
		real*8, dimension(n)	data
	)

Here is the caller graph for this function:

rvec_nr2pack_rfft1b()

subroutine fftclass::rvec_nr2pack_rfft1b	(	real ( kind = 8 ), dimension(n)	r,
		integer	n,
		real*8, dimension(n)	data
	)

Here is the caller graph for this function:

rvec_nr2pack_rfft1f()

subroutine fftclass::rvec_nr2pack_rfft1f	(	real ( kind = 8 ), dimension(n)	r,
		integer	n,
		real*8, dimension(n)	data
	)

Here is the caller graph for this function:

rvec_nr2pack_sint1f()

subroutine fftclass::rvec_nr2pack_sint1f	(	real ( kind = 8 ), dimension(n)	r,
		integer	n,
		real*8, dimension(n+1)	y
	)

Here is the caller graph for this function:

rvec_pack2nr_cosft1()

subroutine fftclass::rvec_pack2nr_cosft1	(	real ( kind = 8 ), dimension(ny)	r,
		integer	ny,
		real*8, dimension(ny)	y
	)

Here is the caller graph for this function:

rvec_pack2nr_gnl()

subroutine fftclass::rvec_pack2nr_gnl	(	real ( kind = 8 ), dimension(n)	r,
		integer	n,
		real*8, dimension(n)	data
	)

rvec_pack2nr_rfft1b()

subroutine fftclass::rvec_pack2nr_rfft1b	(	real ( kind = 8 ), dimension(n)	r,
		integer	n,
		real*8, dimension(n)	data
	)

Here is the caller graph for this function:

rvec_pack2nr_rfft1f()

subroutine fftclass::rvec_pack2nr_rfft1f	(	real ( kind = 8 ), dimension(n)	r,
		integer	n,
		real*8, dimension(n)	data
	)

Here is the caller graph for this function:

rvec_pack2nr_sint1f()

subroutine fftclass::rvec_pack2nr_sint1f	(	real ( kind = 8 ), dimension(n)	r,
		integer	n,
		real*8, dimension(n+1)	y
	)

Here is the caller graph for this function:

sinft()

subroutine fftclass::sinft	(	real*8, dimension(ny)	y,
		integer	ny
	)

Here is the call graph for this function:

sinq1b()

subroutine fftclass::sinq1b	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		integer ( kind = 4 )	lenx,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

sinq1f()

subroutine fftclass::sinq1f	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		integer ( kind = 4 )	lenx,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

sinq1i()

subroutine fftclass::sinq1i	(	integer ( kind = 4 )	n,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

sinqmb()

subroutine fftclass::sinqmb	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	jump,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		integer ( kind = 4 )	lenx,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

sinqmf()

subroutine fftclass::sinqmf	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	jump,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		integer ( kind = 4 )	lenx,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

sinqmi()

subroutine fftclass::sinqmi	(	integer ( kind = 4 )	n,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

sint1b()

subroutine fftclass::sint1b	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		integer ( kind = 4 )	lenx,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

sint1f()

subroutine fftclass::sint1f	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		integer ( kind = 4 )	lenx,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

sint1i()

subroutine fftclass::sint1i	(	integer ( kind = 4 )	n,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

sintb1()

subroutine fftclass::sintb1	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		real ( kind = 8 ), dimension(*)	wsave,
		real ( kind = 8 ), dimension(*)	xh,
		real ( kind = 8 ), dimension(*)	work,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

sintf1()

subroutine fftclass::sintf1	(	integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		real ( kind = 8 ), dimension(*)	wsave,
		real ( kind = 8 ), dimension(*)	xh,
		real ( kind = 8 ), dimension(*)	work,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

Here is the caller graph for this function:

sintmb()

subroutine fftclass::sintmb	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	jump,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		integer ( kind = 4 )	lenx,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

sintmf()

subroutine fftclass::sintmf	(	integer ( kind = 4 )	lot,
		integer ( kind = 4 )	jump,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	inc,
		real ( kind = 8 ), dimension(inc,*)	x,
		integer ( kind = 4 )	lenx,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		real ( kind = 8 ), dimension(lenwrk)	work,
		integer ( kind = 4 )	lenwrk,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

sintmi()

subroutine fftclass::sintmi	(	integer ( kind = 4 )	n,
		real ( kind = 8 ), dimension(lensav)	wsave,
		integer ( kind = 4 )	lensav,
		integer ( kind = 4 )	ier
	)

Here is the call graph for this function:

w2r()

subroutine fftclass::w2r	(	integer ( kind = 4 )	ldr,
		integer ( kind = 4 )	ldw,
		integer ( kind = 4 )	l,
		integer ( kind = 4 )	m,
		real ( kind = 8 ), dimension(ldr,m)	r,
		real ( kind = 8 ), dimension(ldw,m)	w
	)

xercon()

logical function fftclass::xercon	(	integer ( kind = 4 )	inc,
		integer ( kind = 4 )	jump,
		integer ( kind = 4 )	n,
		integer ( kind = 4 )	lot
	)

Here is the caller graph for this function:

xerfft()

subroutine fftclass::xerfft	(	character ( len = * )	srname,
		integer ( kind = 4 )	info
	)

Here is the caller graph for this function: