J1a3. One-dimensional trigonometric fast Fourier transforms

Functions
Sub	Cost1b (N As Long, R() As Double, Wsave() As Double, Info As Long, Optional Inc As Long=1)
	One-dimensional cosine backward transform
Sub	Cost1f (N As Long, R() As Double, Wsave() As Double, Info As Long, Optional Inc As Long=1)
	One-dimensional cosine transform
Sub	Cost1i (N As Long, Wsave() As Double, Info As Long)
	Initialization of work data for Cost1f and Cost1b
Sub	Costmb (Lot As Long, Jump As Long, N As Long, R() As Double, Wsave() As Double, Info As Long, Optional Inc As Long=1)
	One-dimensional cosine backward transform (multiple sequences)
Sub	Costmf (Lot As Long, Jump As Long, N As Long, R() As Double, Wsave() As Double, Info As Long, Optional Inc As Long=1)
	One-dimensional cosine transform (multiple sequences)
Sub	Costmi (N As Long, Wsave() As Double, Info As Long)
	Initialization of work data for Costmf and Costmb
Sub	Sint1b (N As Long, R() As Double, Wsave() As Double, Info As Long, Optional Inc As Long=1)
	One-dimensional sine backward transform
Sub	Sint1f (N As Long, R() As Double, Wsave() As Double, Info As Long, Optional Inc As Long=1)
	One-dimensional sine transform
Sub	Sint1i (N As Long, Wsave() As Double, Info As Long)
	Initialization of work data for Sint1f and Sint1b
Sub	Sintmb (Lot As Long, Jump As Long, N As Long, R() As Double, Wsave() As Double, Info As Long, Optional Inc As Long=1)
	One-dimensional sine backward transform (multiple sequences)
Sub	Sintmf (Lot As Long, Jump As Long, N As Long, R() As Double, Wsave() As Double, Info As Long, Optional Inc As Long=1)
	One-dimensional sine transform (multiple sequences)
Sub	Sintmi (N As Long, Wsave() As Double, Info As Long)
	Initialization of work data for Sintmf and Sintmb

Detailed Description

This is the group of J1a3. One-dimensional trigonometric fast Fourier transforms.