File |
Line number |
Procedure |
Code |
./pkg/zonal_filt/fftpack.F |
100 |
RADB4 |
CH(1,K,2) = TR1-TR4 |
./pkg/zonal_filt/fftpack.F |
1026 |
R8ADB4 |
TR1 = CC(1,1,K)-CC(IDO,4,K) |
./pkg/zonal_filt/fftpack.F |
102 |
RADB4 |
CH(1,K,4) = TR1+TR4 |
./pkg/zonal_filt/fftpack.F |
1031 |
R8ADB4 |
CH(1,K,2) = TR1-TR4 |
./pkg/zonal_filt/fftpack.F |
1033 |
R8ADB4 |
CH(1,K,4) = TR1+TR4 |
./pkg/zonal_filt/fftpack.F |
1044 |
R8ADB4 |
TR1 = CC(I-1,1,K)-CC(IC-1,4,K) |
./pkg/zonal_filt/fftpack.F |
1052 |
R8ADB4 |
CR2 = TR1-TR4 |
./pkg/zonal_filt/fftpack.F |
1053 |
R8ADB4 |
CR4 = TR1+TR4 |
./pkg/zonal_filt/fftpack.F |
1069 |
R8ADB4 |
TR1 = CC(IDO,1,K)-CC(IDO,3,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 |
113 |
RADB4 |
TR1 = CC(I-1,1,K)-CC(IC-1,4,K) |
./pkg/zonal_filt/fftpack.F |
121 |
RADB4 |
CR2 = TR1-TR4 |
./pkg/zonal_filt/fftpack.F |
122 |
RADB4 |
CR4 = TR1+TR4 |
./pkg/zonal_filt/fftpack.F |
138 |
RADB4 |
TR1 = CC(IDO,1,K)-CC(IDO,3,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 |
1446 |
R8ADF4 |
TR1 = CC(1,K,2)+CC(1,K,4) |
./pkg/zonal_filt/fftpack.F |
1448 |
R8ADF4 |
CH(1,1,K) = TR1+TR2 |
./pkg/zonal_filt/fftpack.F |
1449 |
R8ADF4 |
CH(IDO,4,K) = TR2-TR1 |
./pkg/zonal_filt/fftpack.F |
1464 |
R8ADF4 |
TR1 = CR2+CR4 |
./pkg/zonal_filt/fftpack.F |
1472 |
R8ADF4 |
CH(I-1,1,K) = TR1+TR2 |
./pkg/zonal_filt/fftpack.F |
1473 |
R8ADF4 |
CH(IC-1,4,K) = TR2-TR1 |
./pkg/zonal_filt/fftpack.F |
1486 |
R8ADF4 |
TR1 = HSQT2*(CC(IDO,K,2)-CC(IDO,K,4)) |
./pkg/zonal_filt/fftpack.F |
1487 |
R8ADF4 |
CH(IDO,1,K) = TR1+CC(IDO,K,1) |
./pkg/zonal_filt/fftpack.F |
1488 |
R8ADF4 |
CH(IDO,3,K) = CC(IDO,K,1)-TR1 |
./pkg/zonal_filt/fftpack.F |
529 |
RADF4 |
TR1 = CC(1,K,2)+CC(1,K,4) |
./pkg/zonal_filt/fftpack.F |
531 |
RADF4 |
CH(1,1,K) = TR1+TR2 |
./pkg/zonal_filt/fftpack.F |
532 |
RADF4 |
CH(IDO,4,K) = TR2-TR1 |
./pkg/zonal_filt/fftpack.F |
547 |
RADF4 |
TR1 = CR2+CR4 |
./pkg/zonal_filt/fftpack.F |
555 |
RADF4 |
CH(I-1,1,K) = TR1+TR2 |
./pkg/zonal_filt/fftpack.F |
556 |
RADF4 |
CH(IC-1,4,K) = TR2-TR1 |
./pkg/zonal_filt/fftpack.F |
569 |
RADF4 |
TR1 = HSQT2*(CC(IDO,K,2)-CC(IDO,K,4)) |
./pkg/zonal_filt/fftpack.F |
570 |
RADF4 |
CH(IDO,1,K) = TR1+CC(IDO,K,1) |
./pkg/zonal_filt/fftpack.F |
571 |
RADF4 |
CH(IDO,3,K) = CC(IDO,K,1)-TR1 |
./pkg/zonal_filt/fftpack.F |
95 |
RADB4 |
TR1 = CC(1,1,K)-CC(IDO,4,K) |