Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
FFT144 | File: FFT144.f |
Author : Gary Russell
Version:
Subroutines:
Global Variables:
- twopi : used from constant
- rt2 : used from constant
- rt3 : used from constant
- km :
integer, parameter
- length of input array
Initial Value= 144
- km :
integer, parameter
- length of input array
Initial Value= 144
- rt2p1 :
real*8, parameter
- Initial Value
= rt2+1.
- rt2m1 :
real*8, parameter
- Initial Value
= rt2-1.
- twort3 :
real*8, parameter
- Initial Value
= 2.*rt3
- bykm :
real*8, parameter
- 1/KM
Initial Value= 1d0/KM
- bykmh :
real*8, parameter
- 1/(KM/2)
Initial Value= 2d0/KM
- bykm2 :
real*8, parameter
- 1/(2*KM)
Initial Value= 1d0/(2*KM)
- s :
real*8, dimension(0:KM)
- cos/sin evaluated on grid points
- c :
real*8, dimension(0:KM)
- cos/sin evaluated on grid points
- sh :
real*8, dimension(KM/2-1)
- cos/sin evaluated on half points
- ch :
real*8, dimension(KM/2-1)
- cos/sin evaluated on half points
- c48q0 :
real*8, dimension(48)
- c48q1 :
real*8, dimension(48)
- s48q1 :
real*8, dimension(48)
- c16q0 :
real*8, dimension(16)
- c16q1 :
real*8, dimension(16)
- c16q2 :
real*8, dimension(16)
- c16q3 :
real*8, dimension(16)
- c16q4 :
real*8, dimension(16)
- s16q1 :
real*8, dimension(16)
- s16q2 :
real*8, dimension(16)
- s16q3 :
real*8, dimension(16)
- s16q4 :
real*8, dimension(16)
- c8qn :
real*8, dimension(8, 0:9)
- s8qn :
real*8, dimension(8, 9)
- c40n :
real*8, dimension(0:18)
- c41n :
real*8, dimension(0:18)
- c42n :
real*8, dimension(0:18)
- c43n :
real*8, dimension(0:18)
- s40n :
real*8, dimension(18)
- s41n :
real*8, dimension(18)
- s42n :
real*8, dimension(18)
- s43n :
real*8, dimension(18)
- c20n :
real*8, dimension(0:36)
- c21n :
real*8, dimension(0:36)
- s20n :
real*8, dimension(36)
- s21n :
real*8, dimension(36)