File |
Line number |
Procedure |
Code |
./pkg/zonal_filt/fftpack.F |
1040 |
R8ADB4 |
TI1 = CC(I,1,K)+CC(IC,4,K) |
./pkg/zonal_filt/fftpack.F |
1054 |
R8ADB4 |
CI2 = TI1+TI4 |
./pkg/zonal_filt/fftpack.F |
1055 |
R8ADB4 |
CI4 = TI1-TI4 |
./pkg/zonal_filt/fftpack.F |
1067 |
R8ADB4 |
TI1 = CC(1,2,K)+CC(1,4,K) |
./pkg/zonal_filt/fftpack.F |
1072 |
R8ADB4 |
CH(IDO,K,2) = SQRT2*(TR1-TI1) |
./pkg/zonal_filt/fftpack.F |
1074 |
R8ADB4 |
CH(IDO,K,4) = -SQRT2*(TR1+TI1) |
./pkg/zonal_filt/fftpack.F |
109 |
RADB4 |
TI1 = CC(I,1,K)+CC(IC,4,K) |
./pkg/zonal_filt/fftpack.F |
123 |
RADB4 |
CI2 = TI1+TI4 |
./pkg/zonal_filt/fftpack.F |
124 |
RADB4 |
CI4 = TI1-TI4 |
./pkg/zonal_filt/fftpack.F |
136 |
RADB4 |
TI1 = CC(1,2,K)+CC(1,4,K) |
./pkg/zonal_filt/fftpack.F |
141 |
RADB4 |
CH(IDO,K,2) = SQRT2*(TR1-TI1) |
./pkg/zonal_filt/fftpack.F |
143 |
RADB4 |
CH(IDO,K,4) = -SQRT2*(TR1+TI1) |
./pkg/zonal_filt/fftpack.F |
1466 |
R8ADF4 |
TI1 = CI2+CI4 |
./pkg/zonal_filt/fftpack.F |
1474 |
R8ADF4 |
CH(I,1,K) = TI1+TI2 |
./pkg/zonal_filt/fftpack.F |
1475 |
R8ADF4 |
CH(IC,4,K) = TI1-TI2 |
./pkg/zonal_filt/fftpack.F |
1485 |
R8ADF4 |
TI1 = -HSQT2*(CC(IDO,K,2)+CC(IDO,K,4)) |
./pkg/zonal_filt/fftpack.F |
1489 |
R8ADF4 |
CH(1,2,K) = TI1-CC(IDO,K,3) |
./pkg/zonal_filt/fftpack.F |
1490 |
R8ADF4 |
CH(1,4,K) = TI1+CC(IDO,K,3) |
./pkg/zonal_filt/fftpack.F |
549 |
RADF4 |
TI1 = CI2+CI4 |
./pkg/zonal_filt/fftpack.F |
557 |
RADF4 |
CH(I,1,K) = TI1+TI2 |
./pkg/zonal_filt/fftpack.F |
558 |
RADF4 |
CH(IC,4,K) = TI1-TI2 |
./pkg/zonal_filt/fftpack.F |
568 |
RADF4 |
TI1 = -HSQT2*(CC(IDO,K,2)+CC(IDO,K,4)) |
./pkg/zonal_filt/fftpack.F |
572 |
RADF4 |
CH(1,2,K) = TI1-CC(IDO,K,3) |
./pkg/zonal_filt/fftpack.F |
573 |
RADF4 |
CH(1,4,K) = TI1+CC(IDO,K,3) |