IndexRundeck: E6F40Created: Fri May 17 03:30:27 EDT 2024

FFT144
File: FFT144.f
Summary: FFT144 calculates the Fast Fourier Transform
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)

Simplex Website Curator: Igor Aleinov — NASA Official: Gavin A. Schmidt

Contact GISS — NASA Privacy Policy — Accessibility