| File |
Line number |
Procedure |
Code |
|
./pkg/zonal_filt/fftpack.F |
1205 |
R8ADBG |
AI1 = 0.D0 |
|
./pkg/zonal_filt/fftpack.F |
1208 |
R8ADBG |
AR1H = DCP*AR1-DSP*AI1 |
|
./pkg/zonal_filt/fftpack.F |
1209 |
R8ADBG |
AI1 = DCP*AI1+DSP*AR1 |
|
./pkg/zonal_filt/fftpack.F |
1213 |
R8ADBG |
C2(IK,LC) = AI1*CH2(IK,IP) |
|
./pkg/zonal_filt/fftpack.F |
1216 |
R8ADBG |
DS2 = AI1 |
|
./pkg/zonal_filt/fftpack.F |
1218 |
R8ADBG |
AI2 = AI1 |
|
./pkg/zonal_filt/fftpack.F |
1641 |
R8ADFG |
AI1 = 0.D0 |
|
./pkg/zonal_filt/fftpack.F |
1644 |
R8ADFG |
AR1H = DCP*AR1-DSP*AI1 |
|
./pkg/zonal_filt/fftpack.F |
1645 |
R8ADFG |
AI1 = DCP*AI1+DSP*AR1 |
|
./pkg/zonal_filt/fftpack.F |
1649 |
R8ADFG |
CH2(IK,LC) = AI1*C2(IK,IP) |
|
./pkg/zonal_filt/fftpack.F |
1652 |
R8ADFG |
DS2 = AI1 |
|
./pkg/zonal_filt/fftpack.F |
1654 |
R8ADFG |
AI2 = AI1 |
|
./pkg/zonal_filt/fftpack.F |
278 |
RADBG |
AI1 = 0.D0 |
|
./pkg/zonal_filt/fftpack.F |
281 |
RADBG |
AR1H = DCP*AR1-DSP*AI1 |
|
./pkg/zonal_filt/fftpack.F |
282 |
RADBG |
AI1 = DCP*AI1+DSP*AR1 |
|
./pkg/zonal_filt/fftpack.F |
286 |
RADBG |
C2(IK,LC) = AI1*CH2(IK,IP) |
|
./pkg/zonal_filt/fftpack.F |
289 |
RADBG |
DS2 = AI1 |
|
./pkg/zonal_filt/fftpack.F |
291 |
RADBG |
AI2 = AI1 |
|
./pkg/zonal_filt/fftpack.F |
728 |
RADFG |
AI1 = 0.D0 |
|
./pkg/zonal_filt/fftpack.F |
731 |
RADFG |
AR1H = DCP*AR1-DSP*AI1 |
|
./pkg/zonal_filt/fftpack.F |
732 |
RADFG |
AI1 = DCP*AI1+DSP*AR1 |
|
./pkg/zonal_filt/fftpack.F |
736 |
RADFG |
CH2(IK,LC) = AI1*C2(IK,IP) |
|
./pkg/zonal_filt/fftpack.F |
739 |
RADFG |
DS2 = AI1 |
|
./pkg/zonal_filt/fftpack.F |
741 |
RADFG |
AI2 = AI1 |