File |
Line number |
Procedure |
Code |
./pkg/zonal_filt/fftpack.F |
1218 |
R8ADBG |
AI2 = AI1 |
./pkg/zonal_filt/fftpack.F |
1221 |
R8ADBG |
AR2H = DC2*AR2-DS2*AI2 |
./pkg/zonal_filt/fftpack.F |
1222 |
R8ADBG |
AI2 = DC2*AI2+DS2*AR2 |
./pkg/zonal_filt/fftpack.F |
1226 |
R8ADBG |
C2(IK,LC) = C2(IK,LC)+AI2*CH2(IK,JC) |
./pkg/zonal_filt/fftpack.F |
1654 |
R8ADFG |
AI2 = AI1 |
./pkg/zonal_filt/fftpack.F |
1657 |
R8ADFG |
AR2H = DC2*AR2-DS2*AI2 |
./pkg/zonal_filt/fftpack.F |
1658 |
R8ADFG |
AI2 = DC2*AI2+DS2*AR2 |
./pkg/zonal_filt/fftpack.F |
1662 |
R8ADFG |
CH2(IK,LC) = CH2(IK,LC)+AI2*C2(IK,JC) |
./pkg/zonal_filt/fftpack.F |
291 |
RADBG |
AI2 = AI1 |
./pkg/zonal_filt/fftpack.F |
294 |
RADBG |
AR2H = DC2*AR2-DS2*AI2 |
./pkg/zonal_filt/fftpack.F |
295 |
RADBG |
AI2 = DC2*AI2+DS2*AR2 |
./pkg/zonal_filt/fftpack.F |
299 |
RADBG |
C2(IK,LC) = C2(IK,LC)+AI2*CH2(IK,JC) |
./pkg/zonal_filt/fftpack.F |
741 |
RADFG |
AI2 = AI1 |
./pkg/zonal_filt/fftpack.F |
744 |
RADFG |
AR2H = DC2*AR2-DS2*AI2 |
./pkg/zonal_filt/fftpack.F |
745 |
RADFG |
AI2 = DC2*AI2+DS2*AR2 |
./pkg/zonal_filt/fftpack.F |
749 |
RADFG |
CH2(IK,LC) = CH2(IK,LC)+AI2*C2(IK,JC) |