Symbol Description Uses
CH2 46



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)