gft_jmfft Module Reference

Functions/Subroutines
subroutine	jmtable (table, ntable, itable, n)
subroutine	jmfact (n, fact, nfact, ideb, ifin)
subroutine	jmdecoup (n, nr, nwork, debut, mpair, n_temp, ideb, ifin, nwork_temp, fin)
subroutine	jmdecoup3 (n, m, nmr, nwork, debut, lpair, ideb, ifin, jdeb, jfin, nmtemp, nwork_temp, fini)
subroutine	jmccm1d (m, n, fact, nfact, ifact, table, ntable, itable, work, nwork, ioff)
subroutine	jmccm1d2 (p, n, m, table, ntable, itable, ntable2, mtable, work, nwork, ioff)
subroutine	jmccm1d3 (p, n, m, table, ntable, itable, ntable2, mtable, work, nwork, ioff)
subroutine	jmccm1d4 (p, n, m, table, ntable, itable, ntable2, mtable, work, nwork, ioff)
subroutine	jmccm1d5 (p, n, m, table, ntable, itable, ntable2, mtable, work, nwork, ioff)
subroutine	jmccm1dp (p, q, m, table, ntable, itable, ntable2, mtable, work, nwork, ioff)
subroutine	jmcsm1d (m, n, fact, nfact, ifact, table, ntable, itable, work, nwork, ioff)
subroutine	jmcsm1dxy (m, n, fact, nfact, ifact, table, ntable, itable, work, nwork, x, dimx, debx, incx, jumpx, y, dimy, deby, incy, jumpy, isign, scale)
subroutine	jmscm1d (m, n, fact, nfact, ifact, table, ntable, itable, work, nwork, ioff)
subroutine	jmscm1dxy (m, n, fact, nfact, ifact, table, ntable, itable, work, nwork, x, dimx, debx, incx, jumpx, y, dimy, deby, incy, jumpy, isign, scale)
subroutine	jmtransp (n, m, l, work, nwork, ioff)
subroutine	jmcctranspcs (m, n, n2, n3, table, ntable, itable, work, nwork, ioff)
subroutine	jmsetnwork (nwork)
subroutine	jmgetnwork (nwork, nwork_def, nwork_min)
subroutine	jmgetsetnwork (nwork, type)
subroutine	jmgeterreur (arret)
subroutine	jmerreur1 (nomsp, code, var1)
subroutine	jmerreur2 (nomsp, code, var1, var2)
subroutine	jmerreur3 (nomsp, code, var1, var2, var3)
subroutine	jmerreur4 (nomsp, code, var1, var2, var3, var4)
subroutine	jmgetstop (arret)
subroutine	jmgetsetstop (arret, type)
subroutine	jmgetmessage (code, message)
subroutine	jmsetcode (code)
subroutine	jmgetsetcode (code, type)
subroutine	jmgetseterreur (arret, type)

Function/Subroutine Documentation

jmccm1d()

subroutine gft_jmfft::jmccm1d	(	integer, intent(in)	m,
		integer, intent(in)	n,
		integer, dimension(0:nfact-1), intent(in)	fact,
		integer, intent(in)	nfact,
		integer, intent(in)	ifact,
		real(kind=gft_prec), dimension(0:ntable-1), intent(in)	table,
		integer, intent(in)	ntable,
		integer, intent(in)	itable,
		real(kind=gft_prec), dimension(0:nwork-1), intent(inout)	work,
		integer, intent(in)	nwork,
		integer, intent(inout)	ioff )

Definition at line 334 of file GFT_jmfft.f90.

jmccm1d2()

subroutine gft_jmfft::jmccm1d2	(	integer, intent(in)	p,
		integer, intent(in)	n,
		integer, intent(in)	m,
		real(kind=gft_prec), dimension(0:ntable-1), intent(in)	table,
		integer, intent(in)	ntable,
		integer, intent(in)	itable,
		integer, intent(in)	ntable2,
		integer, intent(in)	mtable,
		real(kind=gft_prec), dimension(0:nwork-1), intent(inout)	work,
		integer, intent(in)	nwork,
		integer, intent(inout)	ioff )

Definition at line 428 of file GFT_jmfft.f90.

jmccm1d3()

subroutine gft_jmfft::jmccm1d3	(	integer, intent(in)	p,
		integer, intent(in)	n,
		integer, intent(in)	m,
		real(kind=gft_prec), dimension(0:ntable-1), intent(in)	table,
		integer, intent(in)	ntable,
		integer, intent(in)	itable,
		integer, intent(in)	ntable2,
		integer, intent(in)	mtable,
		real(kind=gft_prec), dimension(0:nwork-1), intent(inout)	work,
		integer, intent(in)	nwork,
		integer, intent(inout)	ioff )

Definition at line 522 of file GFT_jmfft.f90.

jmccm1d4()

subroutine gft_jmfft::jmccm1d4	(	integer, intent(in)	p,
		integer, intent(in)	n,
		integer, intent(in)	m,
		real(kind=gft_prec), dimension(0:ntable-1), intent(in)	table,
		integer, intent(in)	ntable,
		integer, intent(in)	itable,
		integer, intent(in)	ntable2,
		integer, intent(in)	mtable,
		real(kind=gft_prec), dimension(0:nwork-1), intent(inout)	work,
		integer, intent(in)	nwork,
		integer, intent(inout)	ioff )

Definition at line 669 of file GFT_jmfft.f90.

jmccm1d5()

subroutine gft_jmfft::jmccm1d5	(	integer, intent(in)	p,
		integer, intent(in)	n,
		integer, intent(in)	m,
		real(kind=gft_prec), dimension(0:ntable-1), intent(in)	table,
		integer, intent(in)	ntable,
		integer, intent(in)	itable,
		integer, intent(in)	ntable2,
		integer, intent(in)	mtable,
		real(kind=gft_prec), dimension(0:nwork-1), intent(inout)	work,
		integer, intent(in)	nwork,
		integer, intent(inout)	ioff )

Definition at line 819 of file GFT_jmfft.f90.

jmccm1dp()

subroutine gft_jmfft::jmccm1dp	(	integer, intent(in)	p,
		integer, intent(in)	q,
		integer, intent(in)	m,
		real(kind=gft_prec), dimension(0:ntable-1), intent(in)	table,
		integer, intent(in)	ntable,
		integer, intent(in)	itable,
		integer, intent(in)	ntable2,
		integer, intent(in)	mtable,
		real(kind=gft_prec), dimension(0:nwork-1), intent(inout)	work,
		integer, intent(in)	nwork,
		integer, intent(inout)	ioff )

Definition at line 1065 of file GFT_jmfft.f90.

jmcctranspcs()

subroutine gft_jmfft::jmcctranspcs	(	integer, intent(in)	m,
		integer, intent(in)	n,
		integer, intent(in)	n2,
		integer, intent(in)	n3,
		real(kind=gft_prec), dimension(0:ntable-1), intent(in)	table,
		integer, intent(in)	ntable,
		integer, intent(in)	itable,
		real(kind=gft_prec), dimension(0:nwork-1), intent(inout)	work,
		integer, intent(in)	nwork,
		integer, intent(inout)	ioff )

Definition at line 2033 of file GFT_jmfft.f90.

jmcsm1d()

subroutine gft_jmfft::jmcsm1d	(	integer, intent(in)	m,
		integer, intent(in)	n,
		integer, dimension(0:nfact-1), intent(inout)	fact,
		integer, intent(in)	nfact,
		integer, intent(in)	ifact,
		real(kind=gft_prec), dimension(0:ntable-1), intent(inout)	table,
		integer, intent(in)	ntable,
		integer, intent(in)	itable,
		real(kind=gft_prec), dimension(0:nwork-1), intent(inout)	work,
		integer, intent(in)	nwork,
		integer, intent(inout)	ioff )

Definition at line 1173 of file GFT_jmfft.f90.

jmcsm1dxy()

subroutine gft_jmfft::jmcsm1dxy	(	integer, intent(in)	m,
		integer, intent(in)	n,
		integer, dimension(0:nfact-1), intent(inout)	fact,
		integer, intent(in)	nfact,
		integer, intent(in)	ifact,
		real(kind=gft_prec), dimension(0:ntable-1), intent(in)	table,
		integer, intent(in)	ntable,
		integer, intent(in)	itable,
		real(kind=gft_prec), dimension(0:nwork-1), intent(inout)	work,
		integer, intent(in)	nwork,
		real(kind=gft_prec), dimension(0:dimx-1), intent(in)	x,
		integer, intent(in)	dimx,
		integer, intent(in)	debx,
		integer, intent(in)	incx,
		integer, intent(in)	jumpx,
		real(kind=gft_prec), dimension(0:dimy-1), intent(out)	y,
		integer, intent(in)	dimy,
		integer, intent(in)	deby,
		integer, intent(in)	incy,
		integer, intent(in)	jumpy,
		integer, intent(in)	isign,
		real(kind=gft_prec), intent(in)	scale )

Definition at line 1378 of file GFT_jmfft.f90.

jmdecoup()

subroutine gft_jmfft::jmdecoup	(	integer, intent(in)	n,
		integer, intent(in)	nr,
		integer, intent(in)	nwork,
		logical, intent(in)	debut,
		logical, intent(in)	mpair,
		integer, intent(out)	n_temp,
		integer, intent(out)	ideb,
		integer, intent(inout)	ifin,
		integer, intent(out)	nwork_temp,
		logical, intent(out)	fin )

Definition at line 226 of file GFT_jmfft.f90.

jmdecoup3()

subroutine gft_jmfft::jmdecoup3	(	integer, intent(in)	n,
		integer, intent(in)	m,
		integer, intent(in)	nmr,
		integer, intent(in)	nwork,
		logical, intent(in)	debut,
		logical, intent(in)	lpair,
		integer, intent(out)	ideb,
		integer, intent(inout)	ifin,
		integer, intent(out)	jdeb,
		integer, intent(inout)	jfin,
		integer, intent(out)	nmtemp,
		integer, intent(out)	nwork_temp,
		logical, intent(out)	fini )

Definition at line 273 of file GFT_jmfft.f90.

jmerreur1()

subroutine gft_jmfft::jmerreur1	(	character(len=*), intent(in)	nomsp,
		integer, intent(in)	code,
		integer, intent(in)	var1 )

Definition at line 2220 of file GFT_jmfft.f90.

jmerreur2()

subroutine gft_jmfft::jmerreur2	(	character(len=*), intent(in)	nomsp,
		integer, intent(in)	code,
		integer, intent(in)	var1,
		integer, intent(in)	var2 )

Definition at line 2246 of file GFT_jmfft.f90.

jmerreur3()

subroutine gft_jmfft::jmerreur3	(	character(len=*), intent(in)	nomsp,
		integer, intent(in)	code,
		integer, intent(in)	var1,
		integer, intent(in)	var2,
		integer, intent(in)	var3 )

Definition at line 2271 of file GFT_jmfft.f90.

jmerreur4()

subroutine gft_jmfft::jmerreur4	(	character(len=*), intent(in)	nomsp,
		integer, intent(in)	code,
		integer, intent(in)	var1,
		integer, intent(in)	var2,
		integer, intent(in)	var3,
		integer, intent(in)	var4 )

Definition at line 2296 of file GFT_jmfft.f90.

jmfact()

subroutine gft_jmfft::jmfact	(	integer, intent(in)	n,
		integer, dimension(0:nfact-1), intent(inout)	fact,
		integer, intent(in)	nfact,
		integer, intent(in)	ideb,
		integer, intent(out)	ifin )

Definition at line 106 of file GFT_jmfft.f90.

jmgeterreur()

subroutine gft_jmfft::jmgeterreur

(

logical, intent(out)

arret

)

Definition at line 2207 of file GFT_jmfft.f90.

jmgetmessage()

subroutine gft_jmfft::jmgetmessage	(	integer, intent(in)	code,
		character(len=*), intent(out)	message )

Definition at line 2358 of file GFT_jmfft.f90.

jmgetnwork()

subroutine gft_jmfft::jmgetnwork	(	integer, intent(out)	nwork,
		integer, intent(in)	nwork_def,
		integer, intent(in)	nwork_min )

Definition at line 2151 of file GFT_jmfft.f90.

jmgetsetcode()

subroutine gft_jmfft::jmgetsetcode	(	integer, intent(inout)	code,
		character(len=1), intent(in)	type )

Definition at line 2420 of file GFT_jmfft.f90.

jmgetseterreur()

subroutine gft_jmfft::jmgetseterreur	(	logical, intent(inout)	arret,
		character(len=1), intent(in)	type )

Definition at line 2444 of file GFT_jmfft.f90.

jmgetsetnwork()

subroutine gft_jmfft::jmgetsetnwork	(	integer, intent(inout)	nwork,
		character(len=1), intent(in)	type )

Definition at line 2183 of file GFT_jmfft.f90.

jmgetsetstop()

subroutine gft_jmfft::jmgetsetstop	(	integer, intent(inout)	arret,
		character(len=1), intent(in)	type )

Definition at line 2334 of file GFT_jmfft.f90.

jmgetstop()

subroutine gft_jmfft::jmgetstop

(

integer, intent(out)

arret

)

Definition at line 2321 of file GFT_jmfft.f90.

jmscm1d()

subroutine gft_jmfft::jmscm1d	(	integer, intent(in)	m,
		integer, intent(in)	n,
		integer, dimension(0:nfact-1), intent(inout)	fact,
		integer, intent(in)	nfact,
		integer, intent(in)	ifact,
		real(kind=gft_prec), dimension(0:ntable-1), intent(in)	table,
		integer, intent(in)	ntable,
		integer, intent(in)	itable,
		real(kind=gft_prec), dimension(0:nwork-1), intent(inout)	work,
		integer, intent(in)	nwork,
		integer, intent(inout)	ioff )

Definition at line 1581 of file GFT_jmfft.f90.

jmscm1dxy()

subroutine gft_jmfft::jmscm1dxy	(	integer, intent(in)	m,
		integer, intent(in)	n,
		integer, dimension(0:nfact-1), intent(inout)	fact,
		integer, intent(in)	nfact,
		integer, intent(in)	ifact,
		real(kind=gft_prec), dimension(0:ntable-1), intent(in)	table,
		integer, intent(in)	ntable,
		integer, intent(in)	itable,
		real(kind=gft_prec), dimension(0:nwork-1), intent(inout)	work,
		integer, intent(in)	nwork,
		real(kind=gft_prec), dimension(0:dimx-1), intent(in)	x,
		integer, intent(in)	dimx,
		integer, intent(in)	debx,
		integer, intent(in)	incx,
		integer, intent(in)	jumpx,
		real(kind=gft_prec), dimension(0:dimy-1), intent(out)	y,
		integer, intent(in)	dimy,
		integer, intent(in)	deby,
		integer, intent(in)	incy,
		integer, intent(in)	jumpy,
		integer, intent(in)	isign,
		real(kind=gft_prec), intent(in)	scale )

Definition at line 1782 of file GFT_jmfft.f90.

jmsetcode()

subroutine gft_jmfft::jmsetcode

(

integer, intent(in)

code

)

Definition at line 2405 of file GFT_jmfft.f90.

jmsetnwork()

subroutine gft_jmfft::jmsetnwork

(

integer, intent(in)

nwork

)

Definition at line 2128 of file GFT_jmfft.f90.

jmtable()

subroutine gft_jmfft::jmtable	(	real(kind=gft_prec), dimension(0:ntable-1), intent(out)	table,
		integer, intent(in)	ntable,
		integer, intent(in)	itable,
		integer, intent(in)	n )

Definition at line 20 of file GFT_jmfft.f90.

jmtransp()

subroutine gft_jmfft::jmtransp	(	integer, intent(in)	n,
		integer, intent(in)	m,
		integer, intent(in)	l,
		real(kind=gft_prec), dimension(0:nwork-1), intent(inout)	work,
		integer, intent(in)	nwork,
		integer, intent(inout)	ioff )

Definition at line 1985 of file GFT_jmfft.f90.