| File |
Line number |
Procedure |
Code |
|
./pkg/zonal_filt/fftpack.F |
1204 |
R8ADBG |
116 AR1 = 1.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 |
1210 |
R8ADBG |
AR1 = AR1H |
|
./pkg/zonal_filt/fftpack.F |
1212 |
R8ADBG |
C2(IK,L) = CH2(IK,1)+AR1*CH2(IK,2) |
|
./pkg/zonal_filt/fftpack.F |
1215 |
R8ADBG |
DC2 = AR1 |
|
./pkg/zonal_filt/fftpack.F |
1217 |
R8ADBG |
AR2 = AR1 |
|
./pkg/zonal_filt/fftpack.F |
1640 |
R8ADFG |
AR1 = 1.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 |
1646 |
R8ADFG |
AR1 = AR1H |
|
./pkg/zonal_filt/fftpack.F |
1648 |
R8ADFG |
CH2(IK,L) = C2(IK,1)+AR1*C2(IK,2) |
|
./pkg/zonal_filt/fftpack.F |
1651 |
R8ADFG |
DC2 = AR1 |
|
./pkg/zonal_filt/fftpack.F |
1653 |
R8ADFG |
AR2 = AR1 |
|
./pkg/zonal_filt/fftpack.F |
277 |
RADBG |
116 AR1 = 1.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 |
283 |
RADBG |
AR1 = AR1H |
|
./pkg/zonal_filt/fftpack.F |
285 |
RADBG |
C2(IK,L) = CH2(IK,1)+AR1*CH2(IK,2) |
|
./pkg/zonal_filt/fftpack.F |
288 |
RADBG |
DC2 = AR1 |
|
./pkg/zonal_filt/fftpack.F |
290 |
RADBG |
AR2 = AR1 |
|
./pkg/zonal_filt/fftpack.F |
727 |
RADFG |
AR1 = 1.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 |
733 |
RADFG |
AR1 = AR1H |
|
./pkg/zonal_filt/fftpack.F |
735 |
RADFG |
CH2(IK,L) = C2(IK,1)+AR1*C2(IK,2) |
|
./pkg/zonal_filt/fftpack.F |
738 |
RADFG |
DC2 = AR1 |
|
./pkg/zonal_filt/fftpack.F |
740 |
RADFG |
AR2 = AR1 |