| File |
Line number |
Procedure |
Code |
|
./pkg/zonal_filt/fftpack.F |
1002 |
R8ADB3 |
TI2 = CC(I,3,K)-CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1003 |
R8ADB3 |
CI2 = CC(I,1,K)+TAUR*TI2 |
|
./pkg/zonal_filt/fftpack.F |
1004 |
R8ADB3 |
CH(I,K,1) = CC(I,1,K)+TI2 |
|
./pkg/zonal_filt/fftpack.F |
1041 |
R8ADB4 |
TI2 = CC(I,1,K)-CC(IC,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1050 |
R8ADB4 |
CH(I,K,1) = TI2+TI3 |
|
./pkg/zonal_filt/fftpack.F |
1051 |
R8ADB4 |
CI3 = TI2-TI3 |
|
./pkg/zonal_filt/fftpack.F |
1068 |
R8ADB4 |
TI2 = CC(1,4,K)-CC(1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1073 |
R8ADB4 |
CH(IDO,K,3) = TI2+TI2 |
|
./pkg/zonal_filt/fftpack.F |
1106 |
R8ADB5 |
TI2 = CC(I,3,K)-CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
110 |
RADB4 |
TI2 = CC(I,1,K)-CC(IC,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1114 |
R8ADB5 |
CH(I,K,1) = CC(I,1,K)+TI2+TI3 |
|
./pkg/zonal_filt/fftpack.F |
1116 |
R8ADB5 |
CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 |
|
./pkg/zonal_filt/fftpack.F |
1118 |
R8ADB5 |
CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3 |
|
./pkg/zonal_filt/fftpack.F |
119 |
RADB4 |
CH(I,K,1) = TI2+TI3 |
|
./pkg/zonal_filt/fftpack.F |
120 |
RADB4 |
CI3 = TI2-TI3 |
|
./pkg/zonal_filt/fftpack.F |
137 |
RADB4 |
TI2 = CC(1,4,K)-CC(1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1388 |
R8ADF2 |
TI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
1389 |
R8ADF2 |
CH(I,1,K) = CC(I,K,1)+TI2 |
|
./pkg/zonal_filt/fftpack.F |
1390 |
R8ADF2 |
CH(IC,2,K) = TI2-CC(I,K,1) |
|
./pkg/zonal_filt/fftpack.F |
1428 |
R8ADF3 |
TI2 = CC(I,K,1)+TAUR*CI2 |
|
./pkg/zonal_filt/fftpack.F |
142 |
RADB4 |
CH(IDO,K,3) = TI2+TI2 |
|
./pkg/zonal_filt/fftpack.F |
1433 |
R8ADF3 |
CH(I,3,K) = TI2+TI3 |
|
./pkg/zonal_filt/fftpack.F |
1434 |
R8ADF3 |
CH(IC,2,K) = TI3-TI2 |
|
./pkg/zonal_filt/fftpack.F |
1468 |
R8ADF4 |
TI2 = CC(I,K,1)+CI3 |
|
./pkg/zonal_filt/fftpack.F |
1474 |
R8ADF4 |
CH(I,1,K) = TI1+TI2 |
|
./pkg/zonal_filt/fftpack.F |
1475 |
R8ADF4 |
CH(IC,4,K) = TI1-TI2 |
|
./pkg/zonal_filt/fftpack.F |
1536 |
R8ADF5 |
TI2 = CC(I,K,1)+TR11*CI2+TR12*CI3 |
|
./pkg/zonal_filt/fftpack.F |
1545 |
R8ADF5 |
CH(I,3,K) = TI2+TI5 |
|
./pkg/zonal_filt/fftpack.F |
1546 |
R8ADF5 |
CH(IC,2,K) = TI5-TI2 |
|
./pkg/zonal_filt/fftpack.F |
177 |
RADB5 |
TI2 = CC(I,3,K)-CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
185 |
RADB5 |
CH(I,K,1) = CC(I,1,K)+TI2+TI3 |
|
./pkg/zonal_filt/fftpack.F |
187 |
RADB5 |
CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 |
|
./pkg/zonal_filt/fftpack.F |
189 |
RADB5 |
CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3 |
|
./pkg/zonal_filt/fftpack.F |
33 |
RADB2 |
TI2 = CC(I,1,K)+CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
34 |
RADB2 |
CH(I-1,K,2) = WA1(I-2)*TR2-WA1(I-1)*TI2 |
|
./pkg/zonal_filt/fftpack.F |
35 |
RADB2 |
CH(I,K,2) = WA1(I-2)*TI2+WA1(I-1)*TR2 |
|
./pkg/zonal_filt/fftpack.F |
467 |
RADF2 |
TI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2) |
|
./pkg/zonal_filt/fftpack.F |
468 |
RADF2 |
CH(I,1,K) = CC(I,K,1)+TI2 |
|
./pkg/zonal_filt/fftpack.F |
469 |
RADF2 |
CH(IC,2,K) = TI2-CC(I,K,1) |
|
./pkg/zonal_filt/fftpack.F |
509 |
RADF3 |
TI2 = CC(I,K,1)+TAUR*CI2 |
|
./pkg/zonal_filt/fftpack.F |
514 |
RADF3 |
CH(I,3,K) = TI2+TI3 |
|
./pkg/zonal_filt/fftpack.F |
515 |
RADF3 |
CH(IC,2,K) = TI3-TI2 |
|
./pkg/zonal_filt/fftpack.F |
551 |
RADF4 |
TI2 = CC(I,K,1)+CI3 |
|
./pkg/zonal_filt/fftpack.F |
557 |
RADF4 |
CH(I,1,K) = TI1+TI2 |
|
./pkg/zonal_filt/fftpack.F |
558 |
RADF4 |
CH(IC,4,K) = TI1-TI2 |
|
./pkg/zonal_filt/fftpack.F |
621 |
RADF5 |
TI2 = CC(I,K,1)+TR11*CI2+TR12*CI3 |
|
./pkg/zonal_filt/fftpack.F |
630 |
RADF5 |
CH(I,3,K) = TI2+TI5 |
|
./pkg/zonal_filt/fftpack.F |
631 |
RADF5 |
CH(IC,2,K) = TI5-TI2 |
|
./pkg/zonal_filt/fftpack.F |
69 |
RADB3 |
TI2 = CC(I,3,K)-CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
70 |
RADB3 |
CI2 = CC(I,1,K)+TAUR*TI2 |
|
./pkg/zonal_filt/fftpack.F |
71 |
RADB3 |
CH(I,K,1) = CC(I,1,K)+TI2 |
|
./pkg/zonal_filt/fftpack.F |
968 |
R8ADB2 |
TI2 = CC(I,1,K)+CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
969 |
R8ADB2 |
CH(I-1,K,2) = WA1(I-2)*TR2-WA1(I-1)*TI2 |
|
./pkg/zonal_filt/fftpack.F |
970 |
R8ADB2 |
CH(I,K,2) = WA1(I-2)*TI2+WA1(I-1)*TR2 |