Index | Rundeck: P1SoM40 | Created: Wed May 8 03:30:18 EDT 2024 |
FFT72 | File: FFT72.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; to change KM => rewrite module !!!
Initial Value= 72
- 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
- s8 :
real*8, dimension(8, 4)
- intermediate sums for FFT
- c8 :
real*8, dimension(8, 0:4)
- intermediate sums for FFT
- s241 :
real*8, dimension(24)
- intermediate sums for FFT
- c241 :
real*8, dimension(24)
- intermediate sums for FFT
- c240 :
real*8, dimension(24)
- intermediate sums for FFT
- s44 :
real*8, dimension( 9)
- intermediate sums for FFT
- s43 :
real*8, dimension( 9)
- intermediate sums for FFT
- s42 :
real*8, dimension( 9)
- intermediate sums for FFT
- s41 :
real*8, dimension( 9)
- intermediate sums for FFT
- c44 :
real*8, dimension(0:9)
- intermediate sums for FFT
- c43 :
real*8, dimension(0:9)
- intermediate sums for FFT
- c42 :
real*8, dimension(0:9)
- intermediate sums for FFT
- c41 :
real*8, dimension(0:9)
- intermediate sums for FFT
- s22 :
real*8, dimension(0:18)
- intermediate sums for FFT
- s21 :
real*8, dimension(0:18)
- intermediate sums for FFT
- c22 :
real*8, dimension(0:18)
- intermediate sums for FFT
- c21 :
real*8, dimension(0:18)
- intermediate sums for FFT