Symbol Description Uses
JC 120


File Line number Procedure Code
./pkg/zonal_filt/fftpack.F 1170 R8ADBG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 1174 R8ADBG 
            CH(1,K,JC) = CC(1,J2-1,K)+CC(1,J2-1,K)
./pkg/zonal_filt/fftpack.F 1180 R8ADBG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 1185 R8ADBG 
               CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1187 R8ADBG 
               CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1193 R8ADBG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 1198 R8ADBG 
               CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1200 R8ADBG 
               CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1220 R8ADBG 
            JC = IPP2-J
./pkg/zonal_filt/fftpack.F 1226 R8ADBG 
               C2(IK,LC) = C2(IK,LC)+AI2*CH2(IK,JC)
./pkg/zonal_filt/fftpack.F 1236 R8ADBG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 1238 R8ADBG 
            CH(1,K,J) = C1(1,K,J)-C1(1,K,JC)
./pkg/zonal_filt/fftpack.F 1239 R8ADBG 
            CH(1,K,JC) = C1(1,K,J)+C1(1,K,JC)
./pkg/zonal_filt/fftpack.F 1245 R8ADBG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 1248 R8ADBG 
               CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC)
./pkg/zonal_filt/fftpack.F 1249 R8ADBG 
               CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC)
./pkg/zonal_filt/fftpack.F 1250 R8ADBG 
               CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1251 R8ADBG 
               CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1257 R8ADBG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 1260 R8ADBG 
               CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC)
./pkg/zonal_filt/fftpack.F 1261 R8ADBG 
               CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC)
./pkg/zonal_filt/fftpack.F 1262 R8ADBG 
               CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1263 R8ADBG 
               CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1606 R8ADFG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 1609 R8ADFG 
               C1(I-1,K,J) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1610 R8ADFG 
               C1(I-1,K,JC) = CH(I,K,J)-CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 1611 R8ADFG 
               C1(I,K,J) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 1612 R8ADFG 
               C1(I,K,JC) = CH(I-1,K,JC)-CH(I-1,K,J)
./pkg/zonal_filt/fftpack.F 1618 R8ADFG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 1621 R8ADFG 
               C1(I-1,K,J) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1622 R8ADFG 
               C1(I-1,K,JC) = CH(I,K,J)-CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 1623 R8ADFG 
               C1(I,K,J) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 1624 R8ADFG 
               C1(I,K,JC) = CH(I-1,K,JC)-CH(I-1,K,J)
./pkg/zonal_filt/fftpack.F 1633 R8ADFG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 1635 R8ADFG 
            C1(1,K,J) = CH(1,K,J)+CH(1,K,JC)
./pkg/zonal_filt/fftpack.F 1636 R8ADFG 
            C1(1,K,JC) = CH(1,K,JC)-CH(1,K,J)
./pkg/zonal_filt/fftpack.F 1656 R8ADFG 
            JC = IPP2-J
./pkg/zonal_filt/fftpack.F 1662 R8ADFG 
               CH2(IK,LC) = CH2(IK,LC)+AI2*C2(IK,JC)
./pkg/zonal_filt/fftpack.F 1685 R8ADFG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 1689 R8ADFG 
            CC(1,J2-1,K) = CH(1,K,JC)
./pkg/zonal_filt/fftpack.F 1695 R8ADFG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 1700 R8ADFG 
               CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1701 R8ADFG 
               CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1702 R8ADFG 
               CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 1703 R8ADFG 
               CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J)
./pkg/zonal_filt/fftpack.F 1709 R8ADFG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 1714 R8ADFG 
               CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1715 R8ADFG 
               CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1716 R8ADFG 
               CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 1717 R8ADFG 
               CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J)
./pkg/zonal_filt/fftpack.F 243 RADBG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 247 RADBG 
            CH(1,K,JC) = CC(1,J2-1,K)+CC(1,J2-1,K)
./pkg/zonal_filt/fftpack.F 253 RADBG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 258 RADBG 
               CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 260 RADBG 
               CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 266 RADBG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 271 RADBG 
               CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 273 RADBG 
               CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 293 RADBG 
            JC = IPP2-J
./pkg/zonal_filt/fftpack.F 299 RADBG 
               C2(IK,LC) = C2(IK,LC)+AI2*CH2(IK,JC)
./pkg/zonal_filt/fftpack.F 309 RADBG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 311 RADBG 
            CH(1,K,J) = C1(1,K,J)-C1(1,K,JC)
./pkg/zonal_filt/fftpack.F 312 RADBG 
            CH(1,K,JC) = C1(1,K,J)+C1(1,K,JC)
./pkg/zonal_filt/fftpack.F 318 RADBG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 321 RADBG 
               CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC)
./pkg/zonal_filt/fftpack.F 322 RADBG 
               CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC)
./pkg/zonal_filt/fftpack.F 323 RADBG 
               CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 324 RADBG 
               CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 330 RADBG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 333 RADBG 
               CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC)
./pkg/zonal_filt/fftpack.F 334 RADBG 
               CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC)
./pkg/zonal_filt/fftpack.F 335 RADBG 
               CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 336 RADBG 
               CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 693 RADFG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 696 RADFG 
               C1(I-1,K,J) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 697 RADFG 
               C1(I-1,K,JC) = CH(I,K,J)-CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 698 RADFG 
               C1(I,K,J) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 699 RADFG 
               C1(I,K,JC) = CH(I-1,K,JC)-CH(I-1,K,J)
./pkg/zonal_filt/fftpack.F 705 RADFG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 708 RADFG 
               C1(I-1,K,J) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 709 RADFG 
               C1(I-1,K,JC) = CH(I,K,J)-CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 710 RADFG 
               C1(I,K,J) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 711 RADFG 
               C1(I,K,JC) = CH(I-1,K,JC)-CH(I-1,K,J)
./pkg/zonal_filt/fftpack.F 720 RADFG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 722 RADFG 
            C1(1,K,J) = CH(1,K,J)+CH(1,K,JC)
./pkg/zonal_filt/fftpack.F 723 RADFG 
            C1(1,K,JC) = CH(1,K,JC)-CH(1,K,J)
./pkg/zonal_filt/fftpack.F 743 RADFG 
            JC = IPP2-J
./pkg/zonal_filt/fftpack.F 749 RADFG 
               CH2(IK,LC) = CH2(IK,LC)+AI2*C2(IK,JC)
./pkg/zonal_filt/fftpack.F 772 RADFG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 776 RADFG 
            CC(1,J2-1,K) = CH(1,K,JC)
./pkg/zonal_filt/fftpack.F 782 RADFG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 787 RADFG 
               CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 788 RADFG 
               CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 789 RADFG 
               CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 790 RADFG 
               CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J)
./pkg/zonal_filt/fftpack.F 796 RADFG 
         JC = IPP2-J
./pkg/zonal_filt/fftpack.F 801 RADFG 
               CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 802 RADFG 
               CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 803 RADFG 
               CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 804 RADFG 
               CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J)