File |
Line number |
Procedure |
Code |
./pkg/zonal_filt/fftpack.F |
1143 |
R8ADBG |
SUBROUTINE R8ADBG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA) |
./pkg/zonal_filt/fftpack.F |
1148 |
R8ADBG |
2 CH2(IDL1,IP) ,WA(*) |
./pkg/zonal_filt/fftpack.F |
1212 |
R8ADBG |
C2(IK,L) = CH2(IK,1)+AR1*CH2(IK,2) |
./pkg/zonal_filt/fftpack.F |
1213 |
R8ADBG |
C2(IK,LC) = AI1*CH2(IK,IP) |
./pkg/zonal_filt/fftpack.F |
1225 |
R8ADBG |
C2(IK,L) = C2(IK,L)+AR2*CH2(IK,J) |
./pkg/zonal_filt/fftpack.F |
1226 |
R8ADBG |
C2(IK,LC) = C2(IK,LC)+AI2*CH2(IK,JC) |
./pkg/zonal_filt/fftpack.F |
1232 |
R8ADBG |
CH2(IK,1) = CH2(IK,1)+CH2(IK,J) |
./pkg/zonal_filt/fftpack.F |
1270 |
R8ADBG |
C2(IK,1) = CH2(IK,1) |
./pkg/zonal_filt/fftpack.F |
1555 |
R8ADFG |
SUBROUTINE R8ADFG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA) |
./pkg/zonal_filt/fftpack.F |
1560 |
R8ADFG |
2 CH2(IDL1,IP) ,WA(*) |
./pkg/zonal_filt/fftpack.F |
1571 |
R8ADFG |
CH2(IK,1) = C2(IK,1) |
./pkg/zonal_filt/fftpack.F |
1630 |
R8ADFG |
C2(IK,1) = CH2(IK,1) |
./pkg/zonal_filt/fftpack.F |
1648 |
R8ADFG |
CH2(IK,L) = C2(IK,1)+AR1*C2(IK,2) |
./pkg/zonal_filt/fftpack.F |
1649 |
R8ADFG |
CH2(IK,LC) = AI1*C2(IK,IP) |
./pkg/zonal_filt/fftpack.F |
1661 |
R8ADFG |
CH2(IK,L) = CH2(IK,L)+AR2*C2(IK,J) |
./pkg/zonal_filt/fftpack.F |
1662 |
R8ADFG |
CH2(IK,LC) = CH2(IK,LC)+AI2*C2(IK,JC) |
./pkg/zonal_filt/fftpack.F |
1668 |
R8ADFG |
CH2(IK,1) = CH2(IK,1)+C2(IK,J) |
./pkg/zonal_filt/fftpack.F |
214 |
RADBG |
SUBROUTINE RADBG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA) |
./pkg/zonal_filt/fftpack.F |
221 |
RADBG |
2 CH2(IDL1,IP) ,WA(*) |
./pkg/zonal_filt/fftpack.F |
285 |
RADBG |
C2(IK,L) = CH2(IK,1)+AR1*CH2(IK,2) |
./pkg/zonal_filt/fftpack.F |
286 |
RADBG |
C2(IK,LC) = AI1*CH2(IK,IP) |
./pkg/zonal_filt/fftpack.F |
298 |
RADBG |
C2(IK,L) = C2(IK,L)+AR2*CH2(IK,J) |
./pkg/zonal_filt/fftpack.F |
299 |
RADBG |
C2(IK,LC) = C2(IK,LC)+AI2*CH2(IK,JC) |
./pkg/zonal_filt/fftpack.F |
305 |
RADBG |
CH2(IK,1) = CH2(IK,1)+CH2(IK,J) |
./pkg/zonal_filt/fftpack.F |
343 |
RADBG |
C2(IK,1) = CH2(IK,1) |
./pkg/zonal_filt/fftpack.F |
640 |
RADFG |
SUBROUTINE RADFG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA) |
./pkg/zonal_filt/fftpack.F |
647 |
RADFG |
2 CH2(IDL1,IP) ,WA(*) |
./pkg/zonal_filt/fftpack.F |
658 |
RADFG |
CH2(IK,1) = C2(IK,1) |
./pkg/zonal_filt/fftpack.F |
717 |
RADFG |
C2(IK,1) = CH2(IK,1) |
./pkg/zonal_filt/fftpack.F |
735 |
RADFG |
CH2(IK,L) = C2(IK,1)+AR1*C2(IK,2) |
./pkg/zonal_filt/fftpack.F |
736 |
RADFG |
CH2(IK,LC) = AI1*C2(IK,IP) |
./pkg/zonal_filt/fftpack.F |
748 |
RADFG |
CH2(IK,L) = CH2(IK,L)+AR2*C2(IK,J) |
./pkg/zonal_filt/fftpack.F |
749 |
RADFG |
CH2(IK,LC) = CH2(IK,LC)+AI2*C2(IK,JC) |
./pkg/zonal_filt/fftpack.F |
755 |
RADFG |
CH2(IK,1) = CH2(IK,1)+C2(IK,J) |