| File |
Line number |
Procedure |
Code |
|
./pkg/zonal_filt/fftpack.F |
1211 |
R8ADBG |
DO 117 IK=1,IDL1 |
|
./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 |
1224 |
R8ADBG |
DO 118 IK=1,IDL1 |
|
./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 |
1231 |
R8ADBG |
DO 121 IK=1,IDL1 |
|
./pkg/zonal_filt/fftpack.F |
1232 |
R8ADBG |
CH2(IK,1) = CH2(IK,1)+CH2(IK,J) |
|
./pkg/zonal_filt/fftpack.F |
1269 |
R8ADBG |
DO 133 IK=1,IDL1 |
|
./pkg/zonal_filt/fftpack.F |
1270 |
R8ADBG |
C2(IK,1) = CH2(IK,1) |
|
./pkg/zonal_filt/fftpack.F |
1570 |
R8ADFG |
DO 101 IK=1,IDL1 |
|
./pkg/zonal_filt/fftpack.F |
1571 |
R8ADFG |
CH2(IK,1) = C2(IK,1) |
|
./pkg/zonal_filt/fftpack.F |
1629 |
R8ADFG |
119 DO 120 IK=1,IDL1 |
|
./pkg/zonal_filt/fftpack.F |
1630 |
R8ADFG |
C2(IK,1) = CH2(IK,1) |
|
./pkg/zonal_filt/fftpack.F |
1647 |
R8ADFG |
DO 124 IK=1,IDL1 |
|
./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 |
1660 |
R8ADFG |
DO 125 IK=1,IDL1 |
|
./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 |
1667 |
R8ADFG |
DO 128 IK=1,IDL1 |
|
./pkg/zonal_filt/fftpack.F |
1668 |
R8ADFG |
CH2(IK,1) = CH2(IK,1)+C2(IK,J) |
|
./pkg/zonal_filt/fftpack.F |
284 |
RADBG |
DO 117 IK=1,IDL1 |
|
./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 |
297 |
RADBG |
DO 118 IK=1,IDL1 |
|
./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 |
304 |
RADBG |
DO 121 IK=1,IDL1 |
|
./pkg/zonal_filt/fftpack.F |
305 |
RADBG |
CH2(IK,1) = CH2(IK,1)+CH2(IK,J) |
|
./pkg/zonal_filt/fftpack.F |
342 |
RADBG |
DO 133 IK=1,IDL1 |
|
./pkg/zonal_filt/fftpack.F |
343 |
RADBG |
C2(IK,1) = CH2(IK,1) |
|
./pkg/zonal_filt/fftpack.F |
657 |
RADFG |
DO 101 IK=1,IDL1 |
|
./pkg/zonal_filt/fftpack.F |
658 |
RADFG |
CH2(IK,1) = C2(IK,1) |
|
./pkg/zonal_filt/fftpack.F |
716 |
RADFG |
119 DO 120 IK=1,IDL1 |
|
./pkg/zonal_filt/fftpack.F |
717 |
RADFG |
C2(IK,1) = CH2(IK,1) |
|
./pkg/zonal_filt/fftpack.F |
734 |
RADFG |
DO 124 IK=1,IDL1 |
|
./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 |
747 |
RADFG |
DO 125 IK=1,IDL1 |
|
./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 |
754 |
RADFG |
DO 128 IK=1,IDL1 |
|
./pkg/zonal_filt/fftpack.F |
755 |
RADFG |
CH2(IK,1) = CH2(IK,1)+C2(IK,J) |